Sources Esope | Cast3M

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