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                                                                  
