,0080121001 MOVE ZONE 0220A 0A ,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 0220A 02 ,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 0220A 03 L057S4510012,049L0772772/2772)/40/60)/80L/892702/2702413 CARD 1 OF 3 0220A 04 ,019026,033,040044,051051/340001 TITLE PRINT ROUTINE CARD 2 OF 3 0220A 05 ,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080 CARD 3 OF 3 0220A 06 L0313961001B389 USE WHEN TESTS ARE RUN FROM TAPE 0220A 07 L0314041001BS88 ,, 0220A 08 L0314081001N000 ,, 0220A 09 L0314121001M360392 ,, 0220A 10 L0314191001/332 START TEST 0220A 11 L0314231001/ 0220A 12 L0314241001BS00S521 BR TO TITLE PRINT ROUTINE IF 1 IN S52 0220A 13 L0314321001/080 CLEAR READ AREA 0220A 14 L0314361001B348 BRANCH TO PROGRAM CHAINING ROUTINE 0220A 15 L0314401001,001078 LOAD PRINT AREA 0220A 16 L0314471001L080299 ,, 0220A 17 L0314541001L072272 ,, 0220A 18 L0314611001,221241 ,, 0220A 19 L0314681001L225265 ,, 0220A 20 L0314751001Y205265 MOVE ZONE OP WITH CHAINING 0220A 21 L0314821001Y ,, 0220A 22 L0314831001Y ,, 0220A 23 L0314841001Y ,, 0220A 24 L0314851001Y ,, 0220A 25 L0314861001B456B & ON 06 675 0220A 26 L0314911001C265245 TEST FOR ERROR 0220A 27 L0314981001B900/ BRANCH TO ERROR PRINT ROUTINE IF UNEQ 0220A 28 L0315031001B950C C ON TO CORRECT PRINT ROUTINE 0220A 29 L0315081001B958 BRANCH TO SENSE D 0220A 30 L0319191001L/14285 BEGIN ERROR PRINT ROUTINE 0220A 31 L0319261001B916E E ON TO ERROR STOP 0220A 32 L03193110012958 ERROR PRINT 0220A 33 L0319351001.958 ERROR STOP 0220A 34 L0319391001 WORD MARK 0220A 35 L0319691001L/19285 CORRECT PRINT ROUTINE 0220A 36 L03197610012 ,, 0220A 37 L0319771001B421D D ON TO REPEAT 0220A 38 L0319821001B417 BRANCH TO READ NEXT RECORD 0220A 39 L031/291001ERROR CONSTANTS 0220A 40 L031/341001 ,, 0220A 41 L031/391001A FIELD ,, 0220A 42 L031/591001B FIELD ,, 0220A 43 L031/791001RESULT SHOULD BE ,, 0220A 44 L031/991001RESULT IS ,, 0220A 45 ,019027,031,038042B031T98"B400L046352BW04BS88 MOVE ZONE 0220A 46 12345 67890 67890 0220A 47 67890 12345 12345 0220A 48 &&&&& ----- &&&&& 0220A 49 ----- &&&&& ----- 0220A 50 AKT4 5678 EOX8 0220A 51 EOX8 1234 AKT4 0220A 52 9`$) 6789 6XQI 0220A 53 5678 AKT4 1234 0220A 54 1234 EOX8 5678 0220A 55