MACRO                                                          02000020
         INVLIST3 &ORDER=                                               04000020
         GBLA  &IEDQAR(64)                                              06000020
         GBLB  &IEDQZA(64)                                              08000020
         GBLC  &IEDQZM(203)                                             10000020
         GBLC  &IEDQZN(200)                                             12000020
         GBLC  &IEDQZO(200)                                             14000020
         GBLC  &IEDQZP(200)                                             16000020
         LCLA  &LN,&IX,&ML,&T                                           18000020
         LCLC  &V,&W,&Y                                                 20000020
.*A260000,400000                                                 A44918 20500010
.*C340000                                                        A44918 21000010
.*         MODIFICATION DATE  11/15/71                           A44918 21500010
&IX      SETA  0                                                        22000020
&LN      SETA  N'&ORDER-&IEDQZA(33)                                     24000020
&ML      SETA  &IEDQAR(33)-16                                           26000020
         AIF   (&ML LT 9).A1                                     A44918 26600010
&ML      SETA  8                                                 A44918 27300010
.A1      ANOP                                                           28000020
&T       SETA  K'&ORDER(&LN)                                            30000020
&IEDQZP(&IEDQAR(10)-&IX) SETC '&ORDER(&LN)'(&T-&IEDQAR(33)+17,&ML)      32000020
         AIF   (&LN EQ 1).A2                                     A44918 34000010
&IX      SETA  &IX+1                                                    36000020
&LN      SETA  &LN-1                                                    38000020
         AGO   .A1                                                      40000020
.A2      AIF   (&IEDQAR(33) LT 25).A3                            A44918 40500010
         INVLIST4 ORDER=&ORDER                                   A44918 41000010
         MEXIT                                                   A44918 41500010
.A3      AIF   (NOT &IEDQZA(33)).G1                                     42000020
         MEXIT                                                          44000020
.G1      AIF   (&IEDQZA(34)).G7                                         46000020
&IX      SETA  1                                                        48000020
.G2      AIF   ('&IEDQZN(&IX)'(1,1) NE '+').G3                          50000020
&V       SETC  '&IEDQZN(&IX)'(2,7)                                      52000020
&W       SETC  '&IEDQZO(&IX)'(1,8)                                      54000020
&Y       SETC  '&IEDQZP(&IX)'(1,&IEDQAR(33)-16)                         56000020
         DC    X'&V.&W.&Y',AL1(&IX)                                     58000020
.G3      ANOP                                                           60000020
&IX      SETA  &IX+1                                                    62000020
         AIF   (&IX LE &IEDQAR(10)).G2                                  64000020
         AIF   ('&IEDQZM(1)' EQ '').G4                                  66000020
         DC    XL1'&IEDQZM(1)'                                          68000020
.G4      DC    X'FE'                                                    70000020
         AIF   (&IEDQAR(11) EQ 0).G7                                    72000020
&IX      SETA  1                                                        74000020
.G5      AIF   ('&IEDQZN(&IX)'(1,1) NE '-').G6                          76000020
&V       SETC  '&IEDQZN(&IX)'(2,7)                                      78000020
&W       SETC  '&IEDQZO(&IX)'(1,8)                                      80000020
&Y       SETC  '&IEDQZP(&IX)'(1,&IEDQAR(33)-16)                         82000020
         DC    X'&V.&W.&Y',AL1(&IX)                                     84000020
.G6      ANOP                                                           86000020
&IX      SETA  &IX+1                                                    88000020
         AIF   (&IX LE &IEDQAR(10)).G5                                  90000020
.G7      MEND                                                           92000020