Procedures | Cast3M

   1 : * LIREFLOT  PROCEDUR  NOBODY    92/01/01    00:00:00     001                    
   2 : 'DEBPROC'   LIREFLOT    UMIN*'FLOTTANT'  UMAX*'FLOTTANT' ;                      
   3 : 'REPETER' BLOC1 ;                                                               
   4 :    'OBTENIR' FL*'FLOTTANT' ;                                                    
   5 :  'SI' (( '>EG' FL UMIN) 'ET' ( '<EG' FL UMAX))  ;                               
   6 :    'QUITTER'  BLOC1;                                                            
   7 :  'FINSI' ;                                                                      
   8 :    'MESSAGE' ' DONNEZ UN NOMBRE COMPRIS ENTRE' UMIN 'ET' UMAX;                  
   9 : 'FIN' BLOC1;                                                                    
  10 : 'FINPROC' FL;