Download page.eso

Back to the list

   1 : C PAGE      SOURCE    CHAT      05/01/13    02:08:43     5004           
   2 :       SUBROUTINE PAGE                                                           
   3 :       IMPLICIT INTEGER(I-N)
   4 : -INC CCOPTIO                                                                    
   5 :       WRITE (IOIMP,1)                                                           
   6 :    1  FORMAT (10(130(1H*)/)////)                                                
   6 :       CALL GIBI                                                                 
   7 :       WRITE(IOIMP,2)                                                            
   8 :    2  FORMAT(////)                                                              
   9 :       WRITE(IOIMP,1)                                                            
  10 :       RETURN                                                                    
  11 :       END                                                                       
  12 :  

© Cast3M 2003 - All rights reserved.
Disclaimer