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
