Esope source files

   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'                                                       
  10 :       CALL MENU(LEGEND,4,7)                                                     
  11 :       END                                                                       
  12 :