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