Télécharger journa.eso

Retour à la liste

Numérotation des lignes :

  1. C JOURNA SOURCE CHAT 05/01/13 00:50:07 5004
  2. C
  3. C CE SOUS PROGRAMME PERMET LA DIFFUSION DE NOUVELLES VARIEES
  4. C
  5. SUBROUTINE JOURNA
  6. IMPLICIT INTEGER(I-N)
  7. -INC CCOPTIO
  8. WRITE(IOIMP,1)
  9. 1 FORMAT (1X,10(1H*),5X,'INFORMATIONS GIBI',5X,10(1H*),/)
  10. CALL ECRCHA('NOUV')
  11. CALL INFORM
  12. CALL RAZPIL
  13. RETURN
  14. END
  15.  
  16.  

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