,0080121001 ZONE ADD 0350A 0A ,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 0350A 02 ,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 0350A 03 L057S4510012,049L0772772/2772)/40/60)/80L/892702/2702413 CARD 1 OF 3 0350A 04 ,019026,033,040044,051051/340001 TITLE PRINT ROUTINE CARD 2 OF 3 0350A 05 ,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080 CARD 3 OF 3 0350A 06 L0313961001B389 USE WHEN TESTS ARE RUN FROM TAPE 0350A 07 L0314041001BS88 ,, 0350A 08 L0314081001N000 ,, 0350A 09 L0314121001M360392 ,, 0350A 10 L0314191001/332 START TEST 0350A 11 L0314231001/ 0350A 12 L0314241001BS00S521 BR TO TITLE PRINT ROUTINE IF 1 IN S52 0350A 13 L0314321001/080 CLEAR READ AREA 0350A 14 L0314361001B348 BRANCH TO PROGRAM CHAINING ROUTINE 0350A 15 L0314401001,001078 LOAD PRINT AREA 0350A 16 L0314471001L080299 ,, 0350A 17 L0314541001L072272 ,, 0350A 18 L0314611001,221241 ,, 0350A 19 L0314681001N000 ,, 0350A 20 L0314721001B484002 BR TO ADD 1 DIGIT FLD IF 002 IS BLANK 0350A 21 L0314801001L222262 LOAD B FIELD 0350A 22 L0314871001A202262 ZONE ADD WITH 2 DIGIT FIELDS 0350A 23 L0314941001B461B B ON TO SCOPE 0350A 24 L0314991001B503 BRANCH TO TEST FOR ERROR 0350A 25 L0315031001L221261 LOAD B FIELD 0350A 26 L0315101001A201261 ZONE ADD WITH 1 DIGIT FIELDS 0350A 27 L0315171001B484B B ON TO SCOPE 0350A 28 L0315221001C262242 TEST FOR ERROR 0350A 29 L0315291001B900/ BRANCH TO ERROR PRINT ROUTINE IF UNEQ 0350A 30 L0315341001B950C C ON TO CORRECT PRINT ROUTINE 0350A 31 L0315391001B958 BRANCH TO SENSE D 0350A 32 L0319191001L/14285 BEGIN ERROR PRINT ROUTINE 0350A 33 L0319261001B916E E ON TO ERROR STOP 0350A 34 L03193110012958 ERROR PRINT 0350A 35 L0319351001.958 ERROR STOP 0350A 36 L0319391001 WORD MARK 0350A 37 L0319691001L/19285 CORRECT PRINT ROUTINE 0350A 38 L03197610012 ,, 0350A 39 L0319771001B421D D ON TO REPEAT 0350A 40 L0319821001B417 BRANCH TO READ NEXT RECORD 0350A 41 L031/291001ERROR CONSTANTS 0350A 42 L031/341001 ,, 0350A 43 L031/391001A FIELD ,, 0350A 44 L031/591001B FIELD ,, 0350A 45 L031/791001RESULT SHOULD BE ,, 0350A 46 L031/991001RESULT IS ,, 0350A 47 ,019027,031,038042B031T98"B400L046352BW04BS88 ZONE ADD 0350A 48 40 40 80 0350A 49 1! 90 8? 0350A 50 Z0 R0 80 0350A 51 U0 D0 80 0350A 52 M0 M0 80 0350A 53 40 U0 Y0 0350A 54 90 90 Y0 0350A 55 Z0 I0 Y0 0350A 56 R0 R0 Y0 0350A 57 D0 M0 Y0 0350A 58 40 M0 Q0 0350A 59 Z0 90 Q0 0350A 60 U0 U0 Q0 0350A 61 R0 I0 Q0 0350A 62 D0 D0 Q0 0350A 63 40 D0 H0 0350A 64 R0 90 H0 0350A 65 U0 M0 H0 0350A 66 Z0 Z0 H0 0350A 67 I0 I0 H0 0350A 68 4 4 8 0350A 69 9 9 8 0350A 70 M M Q 0350A 71 I I H 0350A 72 U U Y 0350A 73 J 9 H 0350A 74 1 R Q 0350A 75 9 J H 0350A 76 R 1 Q 0350A 77