,0080121001 TEST FOR ZONE OR WM & BR0060A 0A L0313521001,008012 PROGRAM CHAINING ROUTINE 0060A 02 L0313591001,001 ,, 0060A 03 L03136310011001 ,, 0060A 04 L03136710011 READ DETAIL OR PROGRAM HEADER 0060A 05 L0313681001B361080A BRANCH IF HEADER 0060A 06 L0313761001B421 CONTINUE PROGRAM 0060A 07 L0313801001/340080 BRANCH TO CHAINING ROUTINE 0060A 08 L0313871001 0060A 09 L031S1910012 PRINT (SPACE). 0060A 10 L031S201001,049 SET WM FOR TITLE AND BLOCK NO. 0060A 11 L031S241001L077277 LOAD TITLE AND BLOCK NO. IN PRINT AREA. 0060A 12 L031S3110012 PRINT TITLE AND BLOCK NO. 0060A 13 L031S321001/277 CLEAR PRINT AREA 0060A 14 L031S3610012 PRINT (SPACE). 0060A 15 L031S371001)/40/60 CLEAR WORD MARKS IN SECOND 0060A 16 L031S441001)/80 LINE STORED INFORMATION. 0060A 17 L031S481001L/89270 LOAD SECOND LINE. 0060A 18 L031S5510012 PRINT SECOND LINE. 0060A 19 L031S561001/270 CLEAR PRINT AREA. 0060A 20 L031S6010012413 PRINT (SPACE) AND BRANCH TO MAIN PROGRA 0060A 21 L031S641001 0060A 22 L0313961001B389 USE WHEN TESTS ARE RUN FROM TAPE 0060A 23 L0314041001BS88 ,, 0060A 24 L0314081001N000 ,, 0060A 25 L0314121001M360392 ,, 0060A 26 L0314191001/332 START TEST 0060A 27 L0314231001/ 0060A 28 L0314241001BS00S521 BR TO TITLE PRINT ROUTINE IF 1 IN S52 0060A 29 L0314321001/080 CLEAR READ AREA 0060A 30 L0314361001B348 BRANCH TO PROGRAM CHAINING ROUTINE 0060A 31 L0314401001,001078 LOAD PRINT AREA 0060A 32 L0314471001L080299 ,, 0060A 33 L0314541001L072272 ,, 0060A 34 L0314611001B600224* BR TO SET WM IN ALL * AND % CHARAC 0060A 35 L0314691001B600224% ,, 0060A 36 L0314771001B493041 BR TO TEST EQUAL ZONES IF BLANK IN 041 0060A 37 L0314851001M201480 MOVE D MODIFIER TO TEST ZONE OP 0060A 38 L0314921001V895224X TEST UNEQUAL ZONES OR WM 0060A 39 L0315001001V ,, 0060A 40 L0315011001V ,, 0060A 41 L0315021001V ,, 0060A 42 L0315031001B473B B ON TO SCOPE 0060A 43 L0315081001B522 BRANCH TO LOAD RESULT COMMENT 0060A 44 L0315121001M201507 MOVE D MODIFIER TO TEST ZONE OP 0060A 45 L0315191001V517224X TEST EQUAL ZONES OR WM 0060A 46 L0315271001B500B B ON TO SCOPE 0060A 47 L0315321001B900 BRANCH TO ERROR PRINT ROUTINE IF UNEQ 0060A 48 L0315361001B500B B ON TO SCOPE 0060A 49 L0315411001,241 LOAD RESULT COMMENT 0060A 50 L0315451001L247267 ,, 0060A 51 L0315521001B950C C ON TO CORRECT PRINT ROUTINE 0060A 52 L0315571001B958 BRANCH TO SENSE D 0060A 53 L0316191001,224 SET WM IN 224 IF * OR % 0060A 54 L0316231001B458 ,, 0060A 55 L0319141001B473B B ON TO SCOPE 0060A 56 L0319191001L/14285 BEGIN ERROR PRINT ROUTINE 0060A 57 L0319261001B916E E ON TO ERROR STOP 0060A 58 L03193110012958 ERROR PRINT 0060A 59 L0319351001.958 ERROR STOP 0060A 60 L0319391001 WORD MARK 0060A 61 L0319691001L/19285 CORRECT PRINT ROUTINE 0060A 62 L03197610012 ,, 0060A 63 L0319771001B421D D ON TO REPEAT 0060A 64 L0319821001B417 BRANCH TO READ NEXT RECORD 0060A 65 L031/291001ERROR CONSTANTS 0060A 66 L031/341001 ,, 0060A 67 L031/391001D MODIFIER ,, 0060A 68 L031/591001B FIELD CHARACTERS ,, 0060A 69 L031/791001RESULT SHOULD BE ,, 0060A 70 L031/991001RESULT IS ,, 0060A 71 /333080 0060A 72