Télécharger mopf3.eso

Retour à la liste

Numérotation des lignes :

  1. C MOPF3 SOURCE CHAT 05/01/13 01:51:34 5004
  2. C permet de faire apparaitre un menu avec la cle trois pour annuler
  3. C
  4. SUBROUTINE MOPF3
  5. IMPLICIT INTEGER(I-N)
  6. CHARACTER*7 LEGEND(4)
  7. LEGEND(1)=' '
  8. LEGEND(2)=' '
  9. LEGEND(3)=' '
  10. LEGEND(4)='Annuler'
  11. CALL MENU(LEGEND,4,7)
  12. END
  13.  
  14.  

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