,0080121001 TEST FOR ZONE OR WM & BR0060A 0A ,008012,019,026030L0653681001,008012,00110011B361080AB421/340080 1 OF 2 0060A 02 ,037044N000,340344,348349,357,361368/333080 PROG. CHAIN. ROUTINE 2 OF 2 0060A 03 L057S4510012,049L0772772/2772)/40/60)/80L/892702/2702413 CARD 1 OF 3 0060A 04 ,019026,033,040044,051051/340001 TITLE PRINT ROUTINE CARD 2 OF 3 0060A 05 ,S01S05,S12,S13S17,S18S25,S29S36,S37S41,S45/333080 CARD 3 OF 3 0060A 06 L0313961001B389 USE WHEN TESTS ARE RUN FROM TAPE 0060A 07 L0314041001BS88 ,, 0060A 08 L0314081001N000 ,, 0060A 09 L0314121001M360392 ,, 0060A 10 L0314191001/332 START TEST 0060A 11 L0314231001/ 0060A 12 L0314241001BS00S521 BR TO TITLE PRINT ROUTINE IF 1 IN S52 0060A 13 L0314321001/080 CLEAR READ AREA 0060A 14 L0314361001B348 BRANCH TO PROGRAM CHAINING ROUTINE 0060A 15 L0314401001,001078 LOAD PRINT AREA 0060A 16 L0314471001L080299 ,, 0060A 17 L0314541001L072272 ,, 0060A 18 L0314611001B600224* BR TO SET WM IN ALL * AND % CHARAC 0060A 19 L0314691001B600224% ,, 0060A 20 L0314771001B493041 BR TO TEST EQUAL ZONES IF BLANK IN 041 0060A 21 L0314851001M201480 MOVE D MODIFIER TO TEST ZONE OP 0060A 22 L0314921001V895224X TEST UNEQUAL ZONES OR WM 0060A 23 L0315001001V ,, 0060A 24 L0315011001V ,, 0060A 25 L0315021001V ,, 0060A 26 L0315031001B473B B ON TO SCOPE 0060A 27 L0315081001B522 BRANCH TO LOAD RESULT COMMENT 0060A 28 L0315121001M201507 MOVE D MODIFIER TO TEST ZONE OP 0060A 29 L0315191001V517224X TEST EQUAL ZONES OR WM 0060A 30 L0315271001B500B B ON TO SCOPE 0060A 31 L0315321001B900 BRANCH TO ERROR PRINT ROUTINE IF UNEQ 0060A 32 L0315361001B500B B ON TO SCOPE 0060A 33 L0315411001,241 LOAD RESULT COMMENT 0060A 34 L0315451001L247267 ,, 0060A 35 L0315521001B950C C ON TO CORRECT PRINT ROUTINE 0060A 36 L0315571001B958 BRANCH TO SENSE D 0060A 37 L0316191001,224 SET WM IN 224 IF * OR % 0060A 38 L0316231001B458 ,, 0060A 39 L0319141001B473B B ON TO SCOPE 0060A 40 L0319191001L/14285 BEGIN ERROR PRINT ROUTINE 0060A 41 L0319261001B916E E ON TO ERROR STOP 0060A 42 L03193110012958 ERROR PRINT 0060A 43 L0319351001.958 ERROR STOP 0060A 44 L0319391001 WORD MARK 0060A 45 L0319691001L/19285 CORRECT PRINT ROUTINE 0060A 46 L03197610012 ,, 0060A 47 L0319771001B421D D ON TO REPEAT 0060A 48 L0319821001B417 BRANCH TO READ NEXT RECORD 0060A 49 L031/291001ERROR CONSTANTS 0060A 50 L031/341001 ,, 0060A 51 L031/391001D MODIFIER ,, 0060A 52 L031/591001B FIELD CHARACTERS ,, 0060A 53 L031/791001RESULT SHOULD BE ,, 0060A 54 L031/991001RESULT IS ,, 0060A 55 ,019027,031,038042B031T98"B400L046352BW04BS88 TEST FOR ZONE OR WM & BR0060A 56 B A EQUAL 0060A 57 K K EQUAL 0060A 58 S T EQUAL 0060A 59 2 4 EQUAL 0060A 60 1 * EQUAL 0060A 61 C E EQUAL 0060A 62 L O EQUAL 0060A 63 T X EQUAL 0060A 64 3 8 EQUAL 0060A 65 C * EQUAL 0060A 66 L % EQUAL 0060A 67 T * EQUAL 0060A 68 3 * EQUAL 0060A 69 B KT4* UNEQUAL 0060A 70 K AT4% UNEQUAL 0060A 71 S AK4* UNEQUAL 0060A 72 2 AKT* UNEQUAL 0060A 73 1 AKT4 UNEQUAL 0060A 74 C OX8$ UNEQUAL 0060A 75 L EX8, UNEQUAL 0060A 76 T EO8# UNEQUAL 0060A 77 3 EOX. UNEQUAL 0060A 78