,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
