Esope source files

   1 : C MENUU     SOURCE    CHAT      05/01/13    01:43:46     5004           
   2 : C   AFFICHAGE EVENTUEL DE MENU DANS MODI ET RECUPERATION DE LA CLE              
   3 :       SUBROUTINE MENUU                                                          
   4 :       IMPLICIT INTEGER(I-N)
   5 :        CHARACTER*9 LEGEND(12)                                                   
   6 : -INC CCOPTIO                                                                    
   7 :        LEGEND(1)= 'Fin modi'                                                    
   8 :        LEGEND(2)= ' Depl pt'                                                    
   9 :        LEGEND(3)= 'Nomme pt'                                                    
  10 :        LEGEND(4)= 'Supp elem'                                                   
  11 :        LEGEND(5)= 'Cree elem'                                                   
  12 :        LEGEND(6)= 'Nomm elem'                                                   
  13 :        LEGEND(7)= ' Coor pt'                                                    
  14 :        LEGEND(8)= 'Noms pts'                                                    
  15 :        LEGEND(9)= ' Contour'                                                    
  16 :        LEGEND(10)='  Zoom'                                                      
  17 :        LEGEND(11)='Recentre'                                                    
  18 :        LEGEND(12)='Reaffiche'                                                   
  18 :        CALL MENU(LEGEND,12,9)                                                   
  19 :       RETURN                                                                    
  20 :       END                                                                       
  21 :