,0080121001 MOVE & ZERO SUPPRESS 0230A 0A ,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 0230A 02 ,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 0230A 03 L057S4510012,049L0772772/2772)/40/60)/80L/892702/2702413 CARD 1 OF 3 0230A 04 ,019026,033,040044,051051/340001 TITLE PRINT ROUTINE CARD 2 OF 3 0230A 05 ,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080 CARD 3 OF 3 0230A 06 L0313961001B389 USE WHEN TESTS ARE RUN FROM TAPE 0230A 07 L0314041001BS88 ,, 0230A 08 L0314081001N000 ,, 0230A 09 L0314121001M360392 ,, 0230A 10 L0314191001/332 START TEST 0230A 11 L0314231001/ 0230A 12 L0314241001BS00S521 BR TO TITLE PRINT ROUTINE IF 1 IN S52 0230A 13 L0314321001/080 CLEAR READ AREA 0230A 14 L0314361001B348 BRANCH TO PROGRAM CHAINING ROUTINE 0230A 15 L0314401001,001078 LOAD PRINT AREA 0230A 16 L0314471001L080299 ,, 0230A 17 L0314541001L072272 ,, 0230A 18 L0314611001,241265 ,, 0230A 19 L0314681001B480010 BR TO MOVE 1 POS FLD IF BLANK IN 010 0230A 20 L0314761001Z210270 MOVE & ZERO SUPPRESS 10 POS FIELD 0230A 21 L0314831001B457B B ON TO SCOPE 0230A 22 L0314881001C270250 TEST FOR ERROR 0230A 23 L0314951001B499 ,, 0230A 24 L0314991001Z201261 MOVE & ZERO SUPPRESS 1 POS FIELD 0230A 25 L0315061001B480B B ON TO SCOPE 0230A 26 L0315111001C261241 TEST FOR ERROR 0230A 27 L0315181001B900/ BRANCH TO ERROR PRINT ROUTINE IF UNEQ 0230A 28 L0315231001B950C C ON TO CORRECT PRINT ROUTINE 0230A 29 L0315281001B958 BRANCH TO SENSE D 0230A 30 L0319191001L/14285 BEGIN ERROR PRINT ROUTINE 0230A 31 L0319261001B916E E ON TO ERROR STOP 0230A 32 L03193110012958 ERROR PRINT 0230A 33 L0319351001.958 ERROR STOP 0230A 34 L0319391001 WORD MARK 0230A 35 L0319691001L/19285 CORRECT PRINT ROUTINE 0230A 36 L03197610012 ,, 0230A 37 L0319771001B421D D ON TO REPEAT 0230A 38 L0319821001B417 BRANCH TO READ NEXT RECORD 0230A 39 L031/291001ERROR CONSTANTS 0230A 40 L031/341001 ,, 0230A 41 L031/391001A FIELD ,, 0230A 42 L031/591001B FIELD ,, 0230A 43 L031/791001RESULT SHOULD BE ,, 0230A 44 L031/991001RESULT IS ,, 0230A 45 ,019027,031,038042B031T98"B400L046352BW04BS88 MOVE & ZERO SUPPRESS 0230A 46 00.000.000 0230A 47 00.000.009 9 0230A 48 00.000.090 90 0230A 49 00.000.80I 809 0230A 50 00.00070A& 70A 0230A 51 00.0060K0R 60K 9 0230A 52 00.050T0Q- 50T Q 0230A 53 00.40D0Z0Z 40D Z 9 0230A 54 0030N0&0-` 30N & - 0230A 55 020W0$0`07 20W $ ` 7 0230A 56 10G0)0#0@0 10G ) # @ 0230A 57 7 7 0230A 58 R 9 0230A 59 & 0230A 60 ` 0230A 61 0 0230A 62 ) @ 0230A 63 , # 0230A 64