MACRO                                                          01000010
         INVLIST5 &ORDER=                                               02000010
         GBLA  &IEDQAR(64)                                              03000010
         GBLB  &IEDQZA(64)                                              04000010
         GBLC  &IEDQZM(203)                                             05000010
         GBLC  &IEDQZN(200)                                             06000010
         GBLC  &IEDQZO(200)                                             07000010
         GBLC  &IEDQZP(200)                                             08000010
         GBLC  &IEDQZQ(200)                                             09000010
         GBLC  &IEDQZR(200)                                             10000010
         LCLA  &LN,&IX,&ML,&T                                           11000010
         LCLC  &V,&W,&Y,&Z,&ZZ                                          12000010
.*         MODIFICATION DATE  10/22/71                                  13000010
&IX      SETA  0                                                        14000010
&LN      SETA  N'&ORDER-&IEDQZA(33)                                     15000010
&ML      SETA  &IEDQAR(33)-32                                           16000010
         AIF   (&ML LT 9).A1                                            17000010
&ML      SETA  8                                                        18000010
.A1      ANOP                                                           19000010
&T       SETA  K'&ORDER(&LN)                                            20000010
&IEDQZR(&IEDQAR(10)-&IX) SETC '&ORDER(&LN)'(&T-&IEDQAR(33)+33,&ML)      21000010
         AIF   (&LN EQ 1).A2                                            22000010
&IX      SETA  &IX+1                                                    23000010
&LN      SETA  &LN-1                                                    24000010
         AGO   .A1                                                      25000010
.A2      AIF   (&IEDQAR(33) LT 41).A3                                   26000010
         INVLIST6 ORDER=&ORDER                                          27000010
         MEXIT                                                          28000010
.A3      AIF   (NOT &IEDQZA(33)).G1                                     29000010
         MEXIT                                                          30000010
.G1      AIF   (&IEDQZA(34)).G7                                         31000010
&IX      SETA  1                                                        32000010
.G2      AIF   ('&IEDQZN(&IX)'(1,1) NE '+').G3                          33000010
&V       SETC  '&IEDQZN(&IX)'(2,7)                                      34000010
&W       SETC  '&IEDQZO(&IX)'(1,8)                                      35000010
&Y       SETC  '&IEDQZP(&IX)'(1,8)                                      36000010
&Z       SETC  '&IEDQZQ(&IX)'(1,8)                                      37000010
&ZZ      SETC  '&IEDQZR(&IX)'(1,&IEDQAR(33)-32)                         38000010
         DC    X'&V.&W.&Y.&Z.&ZZ',AL1(&IX)                              39000010
.G3      ANOP                                                           40000010
&IX      SETA  &IX+1                                                    41000010
         AIF   (&IX LE &IEDQAR(10)).G2                                  42000010
         AIF   ('&IEDQZM(1)' EQ '').G4                                  43000010
         DC    XL1'&IEDQZM(1)'                                          44000010
.G4      DC    X'FE'                                                    45000010
         AIF   (&IEDQAR(11) EQ 0).G7                                    46000010
&IX      SETA  1                                                        47000010
.G5      AIF   ('&IEDQZN(&IX)'(1,1) NE '-').G6                          48000010
&V       SETC  '&IEDQZN(&IX)'(2,7)                                      49000010
&W       SETC  '&IEDQZO(&IX)'(1,8)                                      50000010
&Y       SETC  '&IEDQZP(&IX)'(1,8)                                      51000010
&Z       SETC  '&IEDQZQ(&IX)'(1,8)                                      52000010
&ZZ      SETC  '&IEDQZR(&IX)'(1,&IEDQAR(33)-32)                         53000010
         DC    X'&V.&W.&Y.&Z.&ZZ',AL1(&IX)                              54000010
.G6      ANOP                                                           55000010
&IX      SETA  &IX+1                                                    56000010
         AIF   (&IX LE &IEDQAR(10)).G5                                  57000010
.G7      MEND                                                           58000010