,0080121001 TRUE ADD 0300A 0A ,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 0300A 02 ,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 0300A 03 L057S4510012,049L0772772/2772)/40/60)/80L/892702/2702413 CARD 1 OF 3 0300A 04 ,019026,033,040044,051051/340001 TITLE PRINT ROUTINE CARD 2 OF 3 0300A 05 ,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080 CARD 3 OF 3 0300A 06 L0313961001B389 USE WHEN TESTS ARE RUN FROM TAPE 0300A 07 L0314041001BS88 ,, 0300A 08 L0314081001N000 ,, 0300A 09 L0314121001M360392 ,, 0300A 10 L0314191001/332 START TEST 0300A 11 L0314231001/ 0300A 12 L0314241001BS00S521 BR TO TITLE PRINT ROUTINE IF 1 IN S52 0300A 13 L0314321001/080 CLEAR READ AREA 0300A 14 L0314361001B348 BRANCH TO PROGRAM CHAINING ROUTINE 0300A 15 L0314401001,001078 LOAD PRINT AREA 0300A 16 L0314471001L080299 ,, 0300A 17 L0314541001L072272 ,, 0300A 18 L0314611001,221241 ,, 0300A 19 L0314681001,202 ,, 0300A 20 L0314721001B484013S BR TO USE SUBTRACT CODE IF S IN 013 0300A 21 L0314801001L230270 LOAD B FIELD 0300A 22 L0314871001A210270 ADD WITH LIKE SIGNS 0300A 23 L0314941001B461B B ON TO SCOPE 0300A 24 L0314991001B503 BRANCH TO TEST FOR ERROR 0300A 25 L0315031001L230270 LOAD B FIELD 0300A 26 L0315101001S210270 SUBTRACT WITH UNLIKE SIGNS 0300A 27 L0315171001B484B B ON TO SCOPE 0300A 28 L0315221001C270250 TEST FOR ERROR 0300A 29 L0315291001B900/ BRANCH TO ERROR PRINT ROUTINE IF UNEQ 0300A 30 L0315341001B950C C ON TO CORRECT PRINT ROUTINE 0300A 31 L0315391001B958 BRANCH TO SENSE D 0300A 32 L0319191001L/14285 BEGIN ERROR PRINT ROUTINE 0300A 33 L0319261001B916E E ON TO ERROR STOP 0300A 34 L03193110012958 ERROR PRINT 0300A 35 L0319351001.958 ERROR STOP 0300A 36 L0319391001 WORD MARK 0300A 37 L0319691001L/19285 CORRECT PRINT ROUTINE 0300A 38 L03197610012 ,, 0300A 39 L0319771001B421D D ON TO REPEAT 0300A 40 L0319821001B417 BRANCH TO READ NEXT RECORD 0300A 41 L031/291001ERROR CONSTANTS 0300A 42 L031/341001 ,, 0300A 43 L031/391001A FIELD ,, 0300A 44 L031/591001B FIELD ,, 0300A 45 L031/791001RESULT SHOULD BE ,, 0300A 46 L031/991001RESULT IS ,, 0300A 47 ,019027,031,038042B031T98"B400L046352BW04BS88 TRUE ADD 0300A 48 E123456789 ADD OP 0000000000 0123456789 0300A 49 E12345678I ADD OP 1111111101 1234567890 0300A 50 E12345678Z ADD OP 2222222112 2345678901 0300A 51 E12345678I ADD OP 333333222T 345678901S 0300A 52 E123456789 ADD OP 444443333D 456789012C 0300A 53 E12345678R ADD OP 555544444N 567890123M 0300A 54 E12345678R SUB OP 6665555556 6789012345 0300A 55 E12345678R SUB OP 776666666G 789012345F 0300A 56 E123456789 SUB OP 877777777Q 890123456P 0300A 57 EAKTDNWGQI SUB OP 8HQYHQYHQR 901234567Q 0300A 58 E 2 4 6 8 ADD OP 1 3 5 7 9 0123456789 0300A 59