1 : C GIBI SOURCE CHAT 05/01/13 00:18:19 5004 2 : C LOGO GIBI 3 : C 4 : SUBROUTINE GIBI 5 : IMPLICIT INTEGER(I-N) 6 : -INC CCOPTIO 7 : WRITE (IOIMP,1) 8 : 1 FORMAT( 7X, 9 : #' XXXXXX ',/,7X, 10 : #' X X X X ',/,7X, 11 : #' XXXXXXXXXXXX ',/,7X, 12 : #' ',/,7X, 13 : #' ************************************ ',/,7X, 14 : #' *** * X*** ',/,7X, 15 : #' ** *** X** ',/,7X, 16 : #' * * SYSTEME CASTEM 2000 *** *',/,7X, 17 : #' *** *',/,7X, 18 : #' * PROGRAMME GIBI *',/,7X, 19 : #' ** ** ',/,7X, 20 : #' *** *** ',/,7X, 21 : #' * ***** ******************* ***** ** ',/,7X, 22 : #' * * * * * * * * ',/,7X, 23 : #' * * * * * * * * ',/,7X, 24 : #' * *** * *** * *** * *** ',/,7X, 25 : #' ***** ***** ***** ***** ') 26 : RETURN 27 : END 28 :
© Cast3M 2003 - All rights reserved.
Disclaimer