Procedures | Cast3M

   1 : * @LIREENT  PROCEDUR  AM1       92/10/29    21:15:09     734            
   2 : *                                                                     
   3 : *-------------------------------------------------------------------- 
   4 : DEBPROC   @LIREENT    UMIN*ENTIER  UMAX*ENTIER                      ; 
   5 : *-------------------------------------------------------------------- 
   6 : *                                                                     
   7 : * LEGGE UN VALORE INTERO COMPRESO TRA UN MINIMO ED UN MASSIMO         
   8 : *                                                                     
   9 : *-------------------------------------------------------------------- 
  10 : * ENEA                                  MILIOZZI A.  14-07-89         
  11 : *-------------------------------------------------------------------- 
  12 : *                                                                      
  13 : REPETER BLOC1                                                       ; 
  14 :    OBTENIR FL*ENTIER                                                ; 
  15 :    SI (( >EG FL UMIN) ET ( <EG FL UMAX))                            ; 
  16 :      QUITTER  BLOC1                                                 ; 
  17 :    FINSI                                                            ; 
  18 :    MESSAGE ' DONNER UN NUMERO ENTRE ' UMIN ' ET ' UMAX              ;  
  19 : FIN BLOC1                                                           ; 
  20 : *                                                                     
  21 : FINPROC FL                                                          ;