Procédures | Cast3M

* LIREFLOT  PROCEDUR  NOBODY    92/01/01    00:00:00     001                    
'DEBPROC'   LIREFLOT    UMIN*'FLOTTANT'  UMAX*'FLOTTANT' ;                      
'REPETER' BLOC1 ;                                                               
   'OBTENIR' FL*'FLOTTANT' ;                                                    
 'SI' (( '>EG' FL UMIN) 'ET' ( '&lt;EG' FL UMAX))  ;                               
   'QUITTER'  BLOC1;                                                            
 'FINSI' ;                                                                      
   'MESSAGE' ' DONNEZ UN NOMBRE COMPRIS ENTRE' UMIN 'ET' UMAX;                  
'FIN' BLOC1;                                                                    
'FINPROC' FL;