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.  
  7. -INC PPARAM
  8. -INC CCOPTIO
  9. WRITE (IOIMP,1)
  10. 1 FORMAT( 7X,
  11. #' XXXXXX ',/,7X,
  12. #' X X X X ',/,7X,
  13. #' XXXXXXXXXXXX ',/,7X,
  14. #' ',/,7X,
  15. #' ************************************ ',/,7X,
  16. #' *** * X*** ',/,7X,
  17. #' ** *** X** ',/,7X,
  18. #' * * SYSTEME CASTEM 2000 *** *',/,7X,
  19. #' *** *',/,7X,
  20. #' * PROGRAMME GIBI *',/,7X,
  21. #' ** ** ',/,7X,
  22. #' *** *** ',/,7X,
  23. #' * ***** ******************* ***** ** ',/,7X,
  24. #' * * * * * * * * ',/,7X,
  25. #' * * * * * * * * ',/,7X,
  26. #' * *** * *** * *** * *** ',/,7X,
  27. #' ***** ***** ***** ***** ')
  28. RETURN
  29. END
  30.  
  31.  

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