SOURCE FORM: SIGNED SIGNIFICAND UNSIGNED EXRAD BOTH COLUMNS -1.23456E+32 -1.23456E+32 -1.23456E+32 -1.23456E+32 -1.23456E+32 -1.23456E+32 -1.23456E+32 -1.23456E+32 -1.23456E+32 -1.23456E+32 -1.23456E+32 -1.23456E+32 -1.23456E+32 -1.23456E+32 -1.23456E+32 -1.23456E+32 -1.23456E+32 -1.23456E+32 -1.23456E+32 -1.23456E+32 -1.23456E+32 -1.23456E+32 *** TEST PASSED IF ALL THE NUMBERS IN THE ABOVE OUTPUT PRINT AS '-1.23456E+32' *** END TEST. SECTION 10.4: POSITIVE NUMBER AND NEGATIVE EXRAD. BEGIN TEST. SOURCE FORM: SIGNED EXRAD BOTH COLUMNS *** TEST PASSED IF ALL THE NUMBERS IN THE ABOVE OUTPUT PRINT AS '1.23456E-240 *** END TEST. SECTION 10.5: NEGATIVE NUMBER AND NEGATIVE EXRAD. BEGIN TEST. SOURCE FORM: SIGNED SIGNIFICAND SIGNED EXRAD COLUMN 1 -1.23456E-24 -1.23456E-24 -1.23456E-24 -1.23456E-24 -1.23456E-24 -1.23456E-24 -1.23456E-24 -1.23456E-24 -1.23456E-24 -1.23456E-24 -1.23456E-24 *** TEST PASSED IF ALL THE NUMBERS IN THE ABOVE OUTPUT PRINT AS '-1.23456E-240 END TEST. SECTION 10.6: MISCELLANEOUS NR3 CONSTANTS. ON OUTPUT, TRAILING ZEROS MAY BE OMITTED IN THE FRACTIONAL *** TEST PASSED IF ACTUAL OUTPUT MATCHES OUTPUT AS IT SHOULD BE ALLOWING FOR OPTIONAL TRAILING ZEROS IN END TEST. SECTION 10.7: NR3 CONSTANTS SEPARATED BY COMMAS TO PRODUCE TABULAR OUTPUT. BEGIN TEST. SOURCE FORM: SIGNED SIGNIFICAND - BOTH COLUMNS COLUMN 1 COLUMN 2 -1.23456E+32 -1.23456E+32 -1.23456E+32 -1.23456E+32 -1.23456E+32 -1.23456E+32 -1.23456E+32 -1.23456E+32 -1.23456E+32 -1.23456E+32 -1.23456E+32 -1.23456E+32 -1.23456E+32 -1.23456E+32 -1.23456E+32 -1.23456E+32 -1.23456E+32 -1.23456E+32 -1.23456E+32 -1.23456E+32 -1.23456E+32 -1.23456E+32 *** TEST PASSED IF ALL THE NUMBERS IN THE ABOVE OUTPUT PRINT AS '-1.23456E+32' END TEST. SECTION 10.4: POSITIVE NUMBER AND NEGATIVE EXRAD. BEGIN TEST. SOURCE FORM: SIGNED EXRAD BOTH COLUMNS *** TEST PASSED IF ALL THE NUMBERS IN THE ABOVE OUTPUT PRINT AS '1.23456E-24 *** END TEST. SECTION 10.5: NEGATIVE NUMBER AND NEGATIVE EXRAD. BEGIN TEST. SOURCE FORM: SIGNED SIGNIFICAND COLUMN 1 - COLUMN 1 -1.23456E-24 -1.23456E-24 -1.23456E-24 -1.23456E-24 -1.23456E-24 -1.23456E-24 -1.23456E-24 -1.23456E-24 -1.23456E-24 -1.23456E-24 -1.23456E-24 *** TEST PASSED IF ALL THE NUMBERS IN THE ABOVE OUTPUT PRINT AS '-1.23456E-240 *** END TEST. SECTION 10.6: MISCELLANEOUS NR3 CONSTANTS. ON OUTPUT, TRAILING ZEROS MAY BE OMITTED IN THE FRACTIONAL *** TEST PASSED IF ACTUAL OUTPUT MATCHES OUTPUT AS IT SHOULD BE ALLOWING FOR OPTIONAL TRAILING ZEROS IN END TEST. SECTION 10.7: NR3 CONSTANTS SEPARATED BY COMMAS TO PRODUCE TABULAR OUTPUT. BEGIN TEST. 000000000111111111122222222223333333333444444444455555555556666666666777 123456789012345678901234567890123456789012345678901234567890123456789012 1.00000E+30 -9.87000E-37 1.23456E+32 -1.23456E+32 1.78650E+36 5.00000E-20 9.90000E+11 -7.65320E+34 8.20000E-13 *** TEST PASSED IF THE FIRST THREE PRINT ZONES EACH CONTAIN A COLUMN OF NR3 NUMBERS *** END TEST. SECTION 10.8: WIDTH FOR PRINTED E-FORMAT CONSTANTS THE SPACE FOR THE CONSTANT IS DELIMITED BY ASTERISKS. BEGIN TEST. 000000000111111111122222222223333333333444444444455555555556666666666777 *** TEST PASSED IF THE CONSTANTS ABOVE ARE PRECEDED BY A SPACE OR A MINUS AND ARE FOLLOWED BY A SPACE *** 10 PRINT "PROGRAM FILE 11: PRINTING NUMERIC VARIABLES ASSIGNED" 15 PRINT " NR 1 AND NR2 CONSTANTS." 20 PRINT " ANSI STANDARD 5.2, 5.4, 6.2, 6.4, 9.2, 9.4, 12.4" 70 PRINT 80 PRINT "SECTION 11.1: PRINTING VARIABLES WHICH HAVE BEEN ASSIGNED" 85 PRINT" INTEGER (NR 1) CONSTANTS." 90 PRINT 100 PRINT ! BEGIN TEST." 110 PRINT 310 LET M2=+2 320 LET L2=-3 330 LET N2:-998765 340 LET 02:+6912 342 LET M1=1 344 LET J1=12345 346 LET K1=000 350 PRINT "ASSIGNED","OUTPUT", "ACTUAL" 360 PRINT "CONSTANT", "SHOULD BE","OUTPUT" 370 PRINT |