/* REXX */                                                                      
NUMERIC DIGITS 5                                                                
NUMERIC FUZZ 1                                                                  
                                                                                
d = DIGITS(); f = FUZZ()                                                        
SAY 'Numeric precision is' d'. Numeric fuzz is' f'.'                            
SAY 'Comparision Precision is' d - f'.'                                         
DO x = 4.9994 TO 5.0001 BY .0001                                                
   IF x = 5                                                                     
   THEN SAY x '= 5 is true.'                                                    
   ELSE SAY x '= 5 is false.'                                                   
END x                                                                           
SAY                                                                             
                                                                                
NUMERIC FUZZ 3                                                                  
                                                                                
d = DIGITS(); f = FUZZ()                                                        
SAY 'Numeric precision is' d'. Numeric fuzz is' f'.'                            
SAY 'Comparision Precision is' d - f'.'                                         
x = 10499                                                                       
y = 10000                                                                       
IF x = y THEN SAY x 'is equal to' y                                             
ELSE SAY x 'is not equal to' y