,0080121001 RESET ADD 0330A 0A ,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 0330A 02 ,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 0330A 03 L057S4510012,049L0772772/2772)/40/60)/80L/892702/2702413 CARD 1 OF 3 0330A 04 ,019026,033,040044,051051/340001 TITLE PRINT ROUTINE CARD 2 OF 3 0330A 05 ,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080 CARD 3 OF 3 0330A 06 L0313961001B389 USE WHEN TESTS ARE RUN FROM TAPE 0330A 07 L0314041001BS88 ,, 0330A 08 L0314081001N000 ,, 0330A 09 L0314121001M360392 ,, 0330A 10 L0314191001/332 START TEST 0330A 11 L0314231001/ 0330A 12 L0314241001BS00S521 BR TO TITLE PRINT ROUTINE IF 1 IN S52 0330A 13 L0314321001/080 CLEAR READ AREA 0330A 14 L0314361001B348 BRANCH TO PROGRAM CHAINING ROUTINE 0330A 15 L0314401001,001078 LOAD PRINT AREA 0330A 16 L0314471001L080299 ,, 0330A 17 L0314541001L072272 ,, 0330A 18 L0314611001,206241 ,, 0330A 19 L0314681001,261 ,, 0330A 20 L0314721001B484010 BR TO RESET ADD 1 POS FLD IF BL IN 010 0330A 21 L0314801001?210270 RESET ADD 10 POSITION FIELD 0330A 22 L0314871001B461B B ON TO SCOPE 0330A 23 L0314921001C270250 TEST FOR ERROR 0330A 24 L0314991001B507 ,, 0330A 25 L0315031001L201261 LOAD A FIELD 0330A 26 L0315101001?261 RESET ADD 1 POSITION FIELD 0330A 27 L0315141001B484B B ON TO SCOPE 0330A 28 L0315191001C261241 TEST FOR ERROR 0330A 29 L0315261001B900/ BRANCH TO ERROR PRINT ROUTINE IF UNEQ 0330A 30 L0315311001B950C C ON TO CORRECT PRINT ROUTINE 0330A 31 L0315361001B958 BRANCH TO SENSE D 0330A 32 L0319191001L/14285 BEGIN ERROR PRINT ROUTINE 0330A 33 L0319261001B916E E ON TO ERROR STOP 0330A 34 L03193110012958 ERROR PRINT 0330A 35 L0319351001.958 ERROR STOP 0330A 36 L0319391001 WORD MARK 0330A 37 L0319691001L/19285 CORRECT PRINT ROUTINE 0330A 38 L03197610012 ,, 0330A 39 L0319771001B421D D ON TO REPEAT 0330A 40 L0319821001B417 BRANCH TO READ NEXT RECORD 0330A 41 L031/291001ERROR CONSTANTS 0330A 42 L031/341001 ,, 0330A 43 L031/391001A FIELD ,, 0330A 44 L031/591001B FIELD ,, 0330A 45 L031/791001RESULT SHOULD BE ,, 0330A 46 L031/991001RESULT IS ,, 0330A 47 ,019027,031,038042B031T98"B400L046352BW04BS88 RESET ADD 0330A 48 01234 000000123D 0330A 49 5678Z 000005678I 0330A 50 AKTM 00000 123M 0330A 51 EOXH 00000 567H 0330A 52 I!,@ 00000 90#) 0330A 53 T C 0330A 54 P P 0330A 55 I I 0330A 56 # . 0330A 57