MACRO                                                          01000020
         IEDQCHAR &LEN,&CH                                              02000020
         GBLA  &IEDQZD                                                  03000020
         GBLB  &IEDQZA(64)                                              04000020
         LCLA  &IX,&R,&L,&K                                             05000020
         LCLC  &B,&W1                                                   06000020
.*             VERSION DATED APRIL 14,1977                     @OX16701 07000010
.*C390000                                                      @OX16701 07050010
&R       SETA  0                                                        08000020
&IX      SETA  K'&CH                                                    09000020
&IEDQZD  SETA  &IX                                                      10000020
&IEDQZA(24) SETB 0                                                      11000020
         AIF   ('&CH'(K'&CH,1) NE '''').LOOP                            12000020
         AIF   (K'&CH LT 4 OR '&CH'(1,1) NE 'C' AND '&CH'(1,1) NE 'X').*13000020
               ERR                                                      14000020
&IEDQZD  SETA  &IEDQZD-3                                                15000020
&R       SETA  2                                                        16000020
         AIF   ('&CH'(2,1) EQ '''').LOOP                                17000020
         AIF   (K'&CH LT 6).ERR                                         18000020
         AIF   ('&CH'(2,1) NE 'L').ERR                                  19000020
         AIF   ('&CH'(3,1) EQ '''').ERR                                 20000020
.LOOP1   AIF   ('&CH'(&K+3,1) EQ '''').NEXT                             21000020
         AIF   ('&CH'(&K+3,1) LT '0' OR '&CH'(&K+3,1) GT '9').ERR       22000020
&K       SETA  &K+1                                                     23000020
         AGO   .LOOP1                                                   25000020
.NEXT    AIF   (&K+4 EQ K'&CH).ERR                                      26000020
&B       SETC  '&CH'(3,&K)                                              27000020
&R       SETA  &B                                                       28000020
&L       SETA  &LEN                                                     29000020
         AIF   (&R LT 1 OR &R GT &L).ERR                                30000020
&R       SETA  3+&K                                                     31000020
&IEDQZD  SETA  &IX-(4+&K)                                               32000020
.LOOP    ANOP                                                           33000020
&IX      SETA  &IX-1                                                    34000020
         AIF   (&IX EQ &R).END                                          35000020
         AIF   ('&CH'(&IX,1) EQ '''').EXTRA                             36000020
         AIF   (&IX EQ K'&CH).LOOP                                      37000020
         AIF   ('&CH'(&IX,2) NE '&&').LOOP                              38000020
&IX      SETA  &IX-1                                           @OX16701 39000010
&IEDQZD  SETA  &IEDQZD-1                                       @OX16701 39050010
         AIF   (&IX EQ &R).END                                 @OX16701 39100010
         AGO   .LOOP                                           @OX16701 39150010
.EXTRA   ANOP                                                           40000020
&IX      SETA  &IX-1                                                    41000020
.ZZ      ANOP                                                           42000020
&IEDQZD  SETA  &IEDQZD-1                                                43000020
         AGO   .LOOP                                                    44000020
.END     AIF   (&R NE 0 AND '&CH'(1,1) EQ 'C').XX                       45000020
         AIF   (&R EQ 0).XX                                             46000020
&IEDQZD  SETA  ((&IEDQZD+1)/2)                                          47000020
.XX      AIF   (&R NE 3+&K).OK                                          48000020
&R       SETA  &B                                                       49000020
         AIF   (&R LT &IEDQZD).ERR                                      50000020
&IEDQZD  SETA  &R                                                       51000020
         AGO   .OK                                                      52000020
.ERR     ANOP                                                           53000020
&IEDQZA(24) SETB 1                                                      54000020
         AGO   .MEND                                                    55000020
.OK      AIF   (&IEDQZD GT &LEN).ERR                                    56000020
.MEND    MEND                                                           57000020