,008015,019026,030,034041,045,053,0570571026                           00015300F
L068112,102106,113/101099/Z99,027A070028)027B0010270B0261,001/001113I0 00025300F
,008015,022029,036040,047054,061068,072/061039              ,001001104000035300F
.S84,T98/081L%U1001RLT99BT56LBT66K     L034T13,S84S88,S92T00,T04T09104000045300F
BS88080A,S73C076S76BT47FB377/BS88BS88/ L038T51,T22T26,T33T38,T43T47104000055300F
B377U%U1BNBS88U%U1RNBS88               L024T75,T56T61,T62T66,T71T72104000065300F
                      }                L023T98,T98040,040040,040040104000075300F
.V204./180U%U1RLW68005)V59             L026V39,V18V19,V20V24,V29V36104000085300F
L%U1001WBW22LBW36KN1001BW45A/081       L032V71,V48V53,V58V59,V63V68104000095300F
,0011LT98081BV96080ABV40,V59BV40       L032W03,V76V77,V84V92,V96W00104000105300F
LT98S50MW60081BV36U%U1BU%U1EBV40N666   L036W39,W11W18,W22W27,W32W36104000115300F
.BW36U%U1MU%U1RN111.BW55               L024W63,W41W45,W50W55,W59W60104000125300F
BS80                                   L005W68,040040,040040,040040104000135300F
,019027,031,038042B031T98}B400L046352  L037137,108112,119127,131040104000145300F
BW04BS88   PROGRAM TITLE HERE          L035172,142040,040040,040040104000155300F
####R 00                               L008180)173173,040040,040040104000165300F
                                       /V14080                         00175300F
,008015,022029,033033N      1001                TEST CHARACTER & BRANCH 0050B00A
,008015,022029,033033N      1001                SET WORDMARK CARD       0050B 02
L067367,340344,348349,3573611001,008012,00110011B361080AB421/340080     0050B 03
L069404,377385,389393,4004041001         B389    BS88N000M360392/332/   0050B 04
L069441,413417,421428,4354421001BS00S521/080B348,001078L080299L072272   0050B 05
L067476,449456,460467,4754761001,202241M072456 493M202474B971224XBB     0050B 06
L068512,482489,493500,5085121001B935BL247267B920M202507B477222XB971     0050B 07
L071938,907912,916920,9279351001L/14285B916E2920.920A920970B9449699/332 0050B 08
L056962,940944,948953,9579581001/B421S970B957CB9582B421D                0050B 09
L049979,967971,976980,9809801001B348000?B935BB900                       0050B 10
L065/39)/07/07,/10/15,/20/401001   ERROR     D MODIFIER                 0050B 11
L072/79,/60/80,/80/80,/80/801001B FIELD CHARACTERS  RESULT SHOULD BE    0050B 12
L070S17,S00S01,S05S12,S13S171001RESULT IS           2,049L0772772/2772  0050B 13
L059S44,S25S29,S36S37,S41S451001)/40/60)/80L/892702/2702413             0050B 14
/333080N                                        CLEAR WORDMARK CARD     0050B 15
,019027,031,038042B031T98}B400L046352BW04BS88   TEST CHARACTER & BRANCH 0050B 16
                                          EQUAL                        B0050B 17
 }                   }                    EQUAL                        B0050B 18
 1                   1                    EQUAL                        B0050B 19
 2                   2                    EQUAL                        B0050B 20
 4                   4                    EQUAL                        B0050B 21
 8                   8                    EQUAL                        B0050B 22
 /                   /                    EQUAL                        B0050B 23
 -                   -                    EQUAL                        B0050B 24
                     124                UNEQUAL                        N0050B 25
                     8/-                UNEQUAL                        N0050B 26
 1                    24                UNEQUAL                        N0050B 27
 1                   8/-                UNEQUAL                        N0050B 28
 2                    14                UNEQUAL                        N0050B 29
 2                   8/-                UNEQUAL                        N0050B 30
 4                    12                UNEQUAL                        N0050B 31
 4                   8/-                UNEQUAL                        N0050B 32
 8                    12                UNEQUAL                        N0050B 33
 8                   4/-                UNEQUAL                        N0050B 34
 /                   48-                UNEQUAL                        N0050B 36
 /                    12                UNEQUAL                        N0050B 35
 -                    12                UNEQUAL                        N0050B 37
 -                   48/                UNEQUAL                        N0050B 38
,008015,022029,033033N      1001                TEST ZONE OR WM & BR    0060B00A
,008015,022029,033033N      1001                SET WORDMARK CARD       0060B 02
L067367,340344,348349,3573611001,008012,00110011B361080AB421/340080     0060B 03
L069404,377385,389393,4004041001         B389    BS88N000M360392/332/   0060B 04
L069441,413417,421428,4354421001BS00S521/080B348,001078L080299L072272   0060B 05
L072481,450458,466473,4814811001B537224*B537224%B493041 M201480V508224XV0060B 06
L067516,483484,493500,5085131001VVB517     M201507V517224XB935BB900     0060B 07
L060544,522526,533537,5415451001B935B,241L247267B920,224B458            0060B 08
L071938,907912,916920,9279351001L/14285B916E2920.920A920970B9449699/332 0060B 09
L056962,940944,948953,9579581001/B421S970B957CB9582B421D                0060B 10
L040970,967971,971971,9719711001B348000?                                0060B 11
L065/39)/07/07,/10/15,/20/401001   ERROR     D MODIFIER                 0060B 12
L072/79,/60/80,/80/80,/80/801001B FIELD CHARACTERS  RESULT SHOULD BE    0060B 13
L070S17,S00S01,S05S12,S13S171001RESULT IS           2,049L0772772/2772  0060B 14
L059S44,S25S29,S36S37,S41S451001)/40/60)/80L/892702/2702413             0060B 15
/333080N                                        CLEAR WORDMARK CARD     0060B 16
,019027,031,038042B031T98}B400L046352BW04BS88   TEST ZONE OR WM & BR    0060B 17
B                      A                  EQUAL                         0060B 18
K                      K                  EQUAL                         0060B 19
S                      T                  EQUAL                         0060B 20
2                      4                  EQUAL                         0060B 21
1                      *                  EQUAL                         0060B 22
C                      E                  EQUAL                         0060B 23
L                      O                  EQUAL                         0060B 24
T                      X                  EQUAL                         0060B 25
3                      8                  EQUAL                         0060B 26
C                      *                  EQUAL                         0060B 27
L                      %                  EQUAL                         0060B 28
T                      *                  EQUAL                         0060B 29
3                      *                  EQUAL                         0060B 30
B                   KT4*                UNEQUAL                         0060B 31
K                   AT4%                UNEQUAL                         0060B 32
S                   AK4*                UNEQUAL                         0060B 33
2                   AKT*                UNEQUAL                         0060B 34
1                   AKT4                UNEQUAL                         0060B 35
C                   OX8$                UNEQUAL                         0060B 36
L                   EX8,                UNEQUAL                         0060B 36
L                   EX8,                UNEQUAL                         0060B 37
3                   EOX.                UNEQUAL                         0060B 38
,008015,022029,033033N      1001                COMPARE & BR UNEQUAL    0100B00A
,008015,022029,033033N      1001                SET WORDMARK CARD       0100B 02
L067367,340344,348349,3573611001,008012,00110011B361080AB421/340080     0100B 03
L069404,377385,389393,4004041001         B389    BS88N000M360392/332/   0100B 04
L069441,413417,421428,4354421001BS00S521/080B348,002078L080299L072272   0100B 05
L069478,450454,458462,4694741001B458046L,222B462,221C203223B491/B935B   0100B 06
L072518,487491,496504,5085121001B508041 B900B935BB508041UB900,241B971   0100B 07
L071938,907912,916920,9279351001L/14285B916E2920.920A920970B9449699/332 0100B 08
L056962,940944,948953,9579581001/B421S970B957CB9582B421D                0100B 09
L051981,967971,978982,9829821001B348000?L260280B920                     0100B 10
L065/39)/07/07,/10/15,/20/401001   ERROR     A FIELD                    0100B 11
L072/79,/60/80,/80/80,/80/801001B FIELD             RESULT SHOULD BE    0100B 12
L070S17,S00S01,S05S12,S13S171001RESULT IS           2,049L0772772/2772  0100B 13
L059S44,S25S29,S36S37,S41S451001)/40/60)/80L/892702/2702413             0100B 14
/333080N                                        CLEAR WORDMARK CARD     0100B 15
,019027,031,038042B031T98}B400L046352BW04BS88   COMPARE & BR UNEQUAL    0100B 16
                                          EQUAL                         0100B 17
                     1                  UNEQUAL                         0100B 18
 1                   1                    EQUAL                         0100B 19
 1                                      UNEQUAL                         0100B 20
 2                   2                    EQUAL                         0100B 21
                     2                  UNEQUAL                         0100B 22
 3                   3                    EQUAL                         0100B 23
 2                                      UNEQUAL                         0100B 24
 4                   4                    EQUAL                         0100B 25
                     4                  UNEQUAL                         0100B 26
 5                   5                    EQUAL                         0100B 27
 4                                      UNEQUAL                         0100B 28
 6                   6                    EQUAL                         0100B 29
                     8                  UNEQUAL                         0100B 30
 7                   7                    EQUAL                         0100B 31
 8                                      UNEQUAL                         0100B 32
 8                   8                    EQUAL                         0100B 33
                     /                  UNEQUAL                         0100B 34
 9                   9                    EQUAL                         0100B 35
 /                                      UNEQUAL                         0100B 36
 /                   /                    EQUAL                         0100B 37
                     -                  UNEQUAL                         0100B 38
 -                   -                    EQUAL                         0100B 39
 -                                      UNEQUAL                         0100B 40
 H7                  H7                   EQUAL                         0100B 41
 H7                  HH                 UNEQUAL                         0100B 42
 RW                  RW                   EQUAL                         0100B 43
 RW                  RW                 UNEQ LARGER B FIELD             0100B 44
,008015,022029,033033N      1001                LOAD MOVE COMPARE       0110B00A
,008015,022029,033033N      1001                SET WORDMARK CARD       0110B 02
L067367,340344,348349,3573611001,008012,00110011B361080AB421/340080     0110B 03
L069404,377385,389393,4004041001         B389    BS88N000M360392/332/   0110B 04
L069441,413417,421428,4354421001BS00S521/080B348,001078L080299L072272   0110B 05
L068477,449456,457462,4664731001B482   L210270LB935B)270C270250B900/    0110B 06
L067512,482490,498502,5095131001B920B502072LB513072M.498,210241B449     0110B 07
L051531,520527,528532,5325321001,241270M210270MB457                     0110B 08
L071938,907912,916920,9279351001L/14285B916E2920.920A920970B9449699/332 0110B 09
L056962,940944,948953,9579581001/B421S970B957CB9582B421D                0110B 10
L040970,967971,971971,9719711001B348000?                                0110B 11
L065/39)/07/07,/10/15,/20/401001   ERROR     A FIELD                    0110B 12
L072/79,/60/80,/80/80,/80/801001B FIELD             RESULT SHOULD BE    0110B 13
L070S17,S00S01,S05S12,S13S171001RESULT IS           2,049L0772772/2772  0110B 14
L059S44,S25S29,S36S37,S41S451001)/40/60)/80L/892702/2702413             0110B 15
/333080N                                        CLEAR WORDMARK CARD     0110B 16
,019027,031,038042B031T98}B400L046352BW04BS88   LOAD MOVE COMPARE       0110B 17
1111111111                              1111111111                     L0110B 18
2222222222                              2222222222                     L0110B 19
4444444444                              4444444444                     L0110B 20
8888888888                              8888888888                     L0110B 21
//////////                              //////////                     L0110B 22
----------                              ----------                     L0110B 23
AKT4 BLU5                               AKT4 BLU5                      L0110B 24
CMV6 DNW7                               CMV6 DNW7                      L0110B 25
EOX8 FPY9                               EOX8 FPY9                      L0110B 26
GQZ0 HR\#                               GQZ0 HR\#                      L0110B 27
I-,@ &$%0                               I-,@ &$%0                      L0110B 28
1.*/ )JS3                               1.*/ )JS3                      L0110B 29
1111111111                              1111111111                     M0110B 30
2222222222                              2222222222                     M0110B 31
4444444444                              4444444444                     M0110B 32
8888888888                              8888888888                     M0110B 33
//////////                              //////////                     M0110B 34
----------                              ----------                     M0110B 35
AKT4 BLU5                               AKT4 BLU5                      M0110B 36
CMV6 DNW7                               CMV6 DNW7                      M0110B 37
EOX8 FPY9                               EOX8 FPY9                      M0110B 38
GQZ0 HR\#                               GQZ0 HR\#                      M0110B 39
I-,@ &$%0                               I-,@ &$%0                      M0110B 40
1.*/ )JS3                               1.*/ )JS3                      M0110B 41
,008015,022029,033033N      1001                LOAD MOVE DIGIT ZONE    0210C00A
,008015,022029,033033N      1001                SET WORDMARK CARD       0210C 02
L067367,340344,348349,3573611001,008012,00110011B361080AB421/340080     0210C 03
L069404,377385,389393,4004041001         B389    BS88N000M360392/332/   0210C 04
L069441,413417,421428,4354421001BS00S521/080B348,001078L080299L072272   0210C 05
L057466,449456,463464,4654661001B488   L225265D205265NNNN               0210C 06
L068502,472479,484488,4954951001B935BC265245B900/B920,221241B515072D    0210C 07
L070540,511515,522526,5305341001B545072Z.511L971466L971L971L971L971456  0210C 08
L067575,545552,556560,5645711001B449M972466M972M972M972M972456B449      0210C 09
L071938,907912,916920,9279351001L/14285B916E2920.920A920970B9449699/332 0210C 10
L056962,940944,948953,9579581001/B421S970B957CB9582B421D                0210C 11
L042972,967971,972972,9729721001B348000?DY                              0210C 12
L065/39)/07/07,/10/15,/20/401001   ERROR     A FIELD                    0210C 13
L072/79,/60/80,/80/80,/80/801001B FIELD             RESULT SHOULD BE    0210C 14
L070S17,S00S01,S05S12,S13S171001RESULT IS           2,049L0772772/2772  0210C 15
L059S44,S25S29,S36S37,S41S451001)/40/60)/80L/892702/2702413             0210C 16
/333080N                                        CLEAR WORDMARK CARD     0210C 17
,019027,031,038042B031T98}B400L046352BW04BS88   LOAD MOVE DIGIT ZONE    0210C 18
12345               67890               12345                          D0210C 19
67890               12345               67890                          D0210C 20
&&&&&               -----               -----                          D0210C 21
-----               &&&&&               &&&&&                          D0210C 22
AKT4                5678                1234                           D0210C 23
EOX8                1234                5678                           D0210C 24
9|$)                6789                90#@                           D0210C 25
5678                AKT4                EOX8                           D0210C 26
1234                EOX8                AKT4                           D0210C 27
12345               67890               67890                          Z0210C 28
67890               12345               12345                          Z0210C 29
&&&&&               -----               &&&&&                          Z0210C 30
-----               &&&&&               -----                          Z0210C 31
AKT4                5678                EOX8                           Z0210C 32
EOX8                1234                AKT4                           Z0210C 33
9|$)                6789                6XQI                           Z0210C 34
5678                AKT4                1234                           Z0210C 35
1234                EOX8                5678                           Z0210C 36
,008015,022029,033033N      1001                LOAD MOVE DIGIT ZONE    0210C00A
,008015,022029,033033N      1001                SET WORDMARK CARD       0210C 02
L067367,340344,348349,3573611001,008012,00110011B361080AB421/340080     0210C 03
L069404,377385,389393,4004041001         B389    BS88N000M360392/332/   0210C 04
L069441,413417,421428,4354421001BS00S521/080B348,001078L080299L072272   0210C 05
L057466,449456,463464,4654661001B488   L225265D205265NNNN               0210C 06
L068502,472479,484488,4954951001B935BC265245B900/B920,221241B515072D    0210C 07
L070540,511515,522526,5305341001B545072Z.511L971466L971L971L971L971456  0210C 08
L067575,545552,556560,5645711001B449M972466M972M972M972M972456B449      0210C 09
L071938,907912,916920,9279351001L/14285B916E2920.920A920970B9449699/332 0210C 10
L056962,940944,948953,9579581001/B421S970B957CB9582B421D                0210C 11
L042972,967971,972972,9729721001B348000?DY                              0210C 12
L065/39)/07/07,/10/15,/20/401001   ERROR     A FIELD                    0210C 13
L072/79,/60/80,/80/80,/80/801001B FIELD             RESULT SHOULD BE    0210C 14
L070S17,S00S01,S05S12,S13S171001RESULT IS           2,049L0772772/2772  0210C 15
L059S44,S25S29,S36S37,S41S451001)/40/60)/80L/892702/2702413             0210C 16
/333080N                                        CLEAR WORDMARK CARD     0210C 17
,019027,031,038042B031T98}B400L046352BW04BS88   LOAD MOVE DIGIT ZONE    0210C 18
12345               67890               12345                          D0210C 19
67890               12345               67890                          D0210C 20
&&&&&               -----               -----                          D0210C 21
-----               &&&&&               &&&&&                          D0210C 22
AKT4                5678                1234                           D0210C 23
EOX8                1234                5678                           D0210C 24
9|$)                6789                90#@                           D0210C 25
5678                AKT4                EOX8                           D0210C 26
1234                EOX8                AKT4                           D0210C 27
12345               67890               67890                          Z0210C 28
67890               12345               12345                          Z0210C 29
&&&&&               -----               &&&&&                          Z0210C 30
-----               &&&&&               -----                          Z0210C 31
AKT4                5678                EOX8                           Z0210C 32
EOX8                1234                AKT4                           Z0210C 33
9|$)                6789                6XQI                           Z0210C 34
5678                AKT4                1234                           Z0210C 35
1234                EOX8                5678                           Z0210C 36
,008015,022029,033033N      1001                MOVE & ZERO SUPPRESS    0230B00A
,008015,022029,033033N      1001                SET WORDMARK CARD       0230B 02
L067367,340344,348349,3573611001,008012,00110011B361080AB421/340080     0230B 03
L069404,377385,389393,4004041001         B389    BS88N000M360392/332/   0230B 04
L069441,413417,421428,4354421001BS00S521/080B348,001078L080299L072272   0230B 05
L070479,449457,464469,4764761001,241265B480010 Z210270B935BC270250B499  0230B 06
L060507,487492,499504,5085081001Z201261B935BC261241B900/B920            0230B 07
L071938,907912,916920,9279351001L/14285B916E2920.920A920970B9449699/332 0230B 08
L056962,940944,948953,9579581001/B421S970B957CB9582B421D                0230B 09
L040970,967971,971971,9719711001B348000?                                0230B 10
L065/39)/07/07,/10/15,/20/401001   ERROR     A FIELD                    0230B 11
L072/79,/60/80,/80/80,/80/801001B FIELD             RESULT SHOULD BE    0230B 12
L070S17,S00S01,S05S12,S13S171001RESULT IS           2,049L0772772/2772  0230B 13
L059S44,S25S29,S36S37,S41S451001)/40/60)/80L/892702/2702413             0230B 14
/333080N                                        CLEAR WORDMARK CARD     0230B 15
,019027,031,038042B031T98}B400L046352BW04BS88   MOVE & ZERO SUPPRESS    0230B 16
00,000,000                                                              0230B 17
00,000,009                                       9                      0230B 18
00,000,090                                      90                      0230B 19
00,000,80I                                     809                      0230B 20
00,00070A?                                    70A                       0230B 21
00,0060K0R                                   60K 9                      0230B 22
00,050T0Q!                                  50T Q                       0230B 23
00,40D0Z0Z                                 40D Z 9                      0230B 24
0030N0&0-|                                30N & -                       0230B 25
020W0$0|07                               20W $ | 7                      0230B 26
10G0)0#0@0                              10G ) # @                       0230B 27
7                                       7                               0230B 28
R                                       9                               0230B 29
&                                                                       0230B 30
|                                                                       0230B 31
0                                                                       0230B 32
,                                       #                               0230B 34