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