Procedures | Cast3M

   1 : * @LIRERIS  PROCEDUR  AM1       92/10/29    21:15:17     734            
   2 : *                                                                     
   3 : *-------------------------------------------------------------------- 
   4 : DEBPROC   @LIRERIS                                                  ;  
   5 : *--------------------------------------------------------------------  
   6 : *                                                                     
   7 : * LEGGE OBBLIGATORIAMENTE UNA RISPOSTA CHE SIA 'OUI' O 'NON'          
   8 : *                                                                     
   9 : *-------------------------------------------------------------------- 
  10 : *  ENEA                                  MILIOZZI A.  14-07-89        
  11 : *-------------------------------------------------------------------- 
  12 : *                                                                     
  13 : REPETER BLOC1                                                       ; 
  14 :    OBTENIR MO*MOT                                                   ; 
  15 :    SI (EGA MO 'OUI') ; BO = VRAI ; QUITTER  BLOC1; FINSI            ; 
  16 :    SI (EGA MO 'NON') ; BO = FAUX ; QUITTER  BLOC1; FINSI            ; 
  17 :    MESSAGE ' DONNE MOI UNE REPONSE OUI OU NON '                     ; 
  18 : FIN BLOC1                                                           ; 
  19 : *                                                                    
  20 : FINPROC BO                                                          ;