Download neg.eso

Back to the list

   1 : C NEG       SOURCE    CHAT      05/01/13    01:56:36     5004           
   2 :       SUBROUTINE NEG                                                            
   3 :       IMPLICIT INTEGER(I-N)
   4 : -INC CCOPTIO                                                                    
   5 :       LOGICAL BOOL                                                              
   5 :       CALL EGA                                                                  
   6 :       IF(IERR.NE.0) RETURN                                                      
   6 :       CALL LIRLOG(BOOL,1,IRETOU)                                                
   7 :       BOOL=.NOT.BOOL                                                            
   7 :       CALL ECRLOG(BOOL)                                                         
   8 :       RETURN                                                                    
   9 :       END                                                                       
  10 :  

© Cast3M 2003 - All rights reserved.
Disclaimer