Télécharger la plaquette Cast3M


fr en

Télécharger gibi.eso

Retour à la liste

Numérotation des lignes : 

gibi

  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