Télécharger gibi.eso

Retour à la liste

Numérotation des lignes :

  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.  
  29.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales