PROGRAM FILE 14: PRINTING AND ASSIGNING NUMERIC VALUES                          
        NEAR TO THE MAXIMUM AND MINIMUM MAGNITUDE.                              
    ANSI STANDARD 5.4, 9.4, 12.4                                                
                                                                                
SECTION 14.1: PRINTING NR3 CONSTANTS OF SIX SIGNIFICANT                         
        DIGITS WHICH ARE NEAR THE MAGNITUDE OF:                                 
                      1E+38 OR 1E-38.                                           
                                                                                
                               BEGIN TEST.                                      
                                                                                
SOURCE         OUTPUT         ACTUAL                                            
CONSTANT       SHOULD BE      OUTPUT                                            
                                                                                
-9.99999E34    -9.99999E+34   -9.99999E+34                                      
+9.99999E+35    9.99999E+35    9.99999E+35                                      
-9.99999E+36   -9.99999E+36   -9.99999E+36                                      
 9.99999E37     9.99999E+37    9.99999E+37                                      
-1.00001E-36   -1.00001E-36   -1.00001E-36                                      
 1.00001E-37    1.00001E-37    1.00001E-37                                      
+1.00001E-38    1.00001E-38    1.00001E-38                                      
                                                                                
*** TEST PASSED IF ACTUAL OUTPUT MATCHES OUTPUT AS IT                           
    SHOULD BE (ALLOWING FOR OPTIONAL TRIALING ZEROS IN                          
    THE SIGNIFICAND AND LEADING ZEROS IN THE EXRAD) ***                         
                                                                                
                                END TEST.                                       
                                                                                
SECTION 14.2: ASSIGNING NR3 CONSTANTS OF SIX SIGNIFICANT                        
        DIGITS WHICH ARE NEAR THE MAGNITUDE OF:                                 
                       1E+38 OR 1E-38.                                          
                                                                                
                               BEGIN TEST.                                      
                                                                                
ASSIGNED       OUTPUT         ACTUAL                                            
CONSTANT       SHOULD BE      OUTPUT                                            
                                                                                
-1.00001E-36   -1.00001E-36   -1.00001E-36                                      
 1.00001E-37    1.00001E-37    1.00001E-37                                      
+1.00001E-38    1.00001E-38    1.00001E-38                                      
-9.99999E34    -9.99999E+34   -9.99999E+34                                      
+9.99999E+35    9.99999E+35    9.99999E+35                                      
-9.99999E+36   -9.99999E+36   -9.99999E+36                                      
 9.99999E37     9.99999E+37    9.99999E+37                                      
                                                                                
*** TEST PASSED IF ACTUAL OUTPUT MATCHES OUTPUT AS IT                           
    SHOULD BE (ALLOWING FOR OPTIONAL TRAILING ZEROS IN                          
    THE SIGNIFICAND AND LEADING ZEROS IN THE EXRAD) ***                         
                                                                                
                                END TEST.                                       
                                                                                
SECTION 14.3: NR3 NUMERIC CONSTANTS AT EXTREME                                  
        MAGNITUDES AS PRINT ITEMS.                                              
                                                                                
                               BEGIN TEST.                                      
                                                                                
SOURCE         OUTPUT         ACTUAL                                            
CONSTANT       SHOULD BE      OUTPUT                                            
                                                                                
+1E38           1.E+38         1.E+38                                           
 1E-38          1.E-38         1.E-38                                           
-1E+38         -1.E+38        -1.E+38                                           
-1E-38         -1.E-38        -1.E-38                                           
                                                                                
*** TEST PASSED IF ACTUAL OUTPUT MATCHES OUTPUT AS IT                           
    SHOULD BE (ALLOWING FOR OPTIONAL TRAILING ZEROS IN                          
    THE SIGNIFICAND AND LEADING ZEROS IN THE EXRAD) ***                         
                                                                                
                                END TEST.                                       
                                                                                
SECTION 14.4: NR3 NUMERIC VARIABLES AT EXTREME                                  
        MAGNITUDES AS PRINT ITEMS.                                              
                                                                                
                               BEGIN TEST.                                      
                                                                                
ASSIGNED       OUTPUT         ACTUAL                                            
CONSTANT       SHOULD BE      OUTPUT                                            
                                                                                
+1E+38          1.E+38         1.E+38                                           
 1E-38          1.E-38         1.E-38                                           
-1E38          -1.E+38        -1.E+38                                           
-1E-38         -1.E-38        -1.E-38                                           
                                                                                
*** TEST PASSED IF ACTUAL OUTPUT MATCHES OUTPUT AS IT                           
    SHOULD BE (ALLOWING FOR OPTIONAL TRAILING ZEROS IN                          
    THE SIGNIFICAND AND LEADING ZEROS IN THE EXRAD) ***                         
                                                                                
                                END TEST.                                       
                                                                                
END PROGRAM 14                                                                  
