PROGRAM FILE 12: PRINTING NUMERIC VARIABLES ASSIGNED
       NR3 CONSTANTS.
    ANSI STANDARD 5.2, 5.4, 6.2, 6.4, 9.2, 9.4, 12.4

SECTION 12.1: ASSIGNING NR3 CONSTANTS WHICH PRINT EITHER
        AS NR1 OR NR2 CONSTANTS, SIGNED AND UNSIGNED. 

                               BEGIN TEST.

ASSIGNED       OUTPUT         ACTUAL
CONSTANT       SHOULD BE      OUTPUT

 1.05E02        105            105 
-7.6E1         -76            -76 
+332.4E0        332.4          332.4 
 51.32E-1       5.132          5.132 
+5.34E-3        .00534         .00534 
-14.19E-2      -.1419         -.1419 
-9.9E+2        -990           -990 
+10.5210E+3     10521          10521 
 4.56E+1        45.6           45.6 

*** TEST PASSED IF ACTUAL OUTPUT MATCHES OUTPUT AS IT
    SHOULD BE (ALLOWING FOR OPTIONAL TRAILING ZEROS) ***

                                END TEST.

SECTION 12.2: ASSIGNING NR3 FORM CONSTANTS WHICH PRINT AS
        NR3 CONSTANTS, SIGNED AND UNSIGNED.

                               BEGIN TEST.

ASSIGNED       OUTPUT         ACTUAL
CONSTANT       SHOULD BE      OUTPUT

 1.E30          1.E+30         1.E+30 
+123.E20        1.23E+22       1.23E+22 
-11.E30        -1.1E+31       -1.1E+31 
 144.E-21       1.44E-19       1.44E-19 
-12.E-22       -1.2E-21       -1.2E-21 
+3645.E-23      3.645E-20      3.645E-20 
 1.E+34         1.E+34         1.E+34 
-200.E+21      -2.E+23        -2.E+23 
+99.E+32        9.9E+33        9.9E+33 
 .234E20       2.34E+19        2.34E+19 
-.3E22         -3.E+21        -3.E+21 
+.44E17         4.4E+16        4.4E+16 
 .36E-33        3.6E-34        3.6E-34 
+.9E-24         9.E-25         9.E-25 
-.10E-25       -1.E-26        -1.E-26 
 .777E+18       7.77E+17       7.77E+17 
-.29E+31       -2.9E+30       -2.9E+30 
+.04E+26        4.E+24         4.E+24 
 70987600000000E+22 
                7.09876E+35    7.09876E+35 
+81E36          8.1E+37        8.1E+37 
-000.000000000192837E-25
               -1.92837E-35   -1.92837E-35 
 627E+27        6.27E+29       6.27E+29 
+53E+19         5.3E+20        5.3E+20 
-4E+28         -4.E+28        -4.E+28 
 1463E-29       1.463E-26      1.463E-26 
+2E-37          2.E-37         2.E-37 
-355E-19       -3.55E-17      -3.55E-17 

*** TEST PASSED IF ACTUAL OUTPUT MATCHES OUTPUT AS IT
    SHOULD BE  (ALLOWING FOR OPTIONAL TRAILING ZEROS IN
    THE SIGNIFICAND OR LEADING ZEROS IN THE EXRAD)  ***

                                END TEST.

SECTION 12.3: TRANSITIVE ASSIGNMENT OF AN NR3 CONSTANT.

                               BEGIN TEST.


ASSIGNED       OUTPUT         ACTUAL
CONSTANT       SHOULD BE      OUTPUT

 1.E30          1.E+30         1.E+30 

*** TEST PASSED IF ACTUAL OUTPUT MATCHES OUTPUT AS IT
    SHOULD BE  (ALLOWING FOR OPTIONAL TRAILING ZEROS IN
    THE SIGNIFICAND OR LEADING ZEROS IN THE EXRAD)  ***

                                  END TEST.

END PROGRAM 12
