* @SELWORD MAKPO - BùâOP ðEPEXOäA B úABéCéMOCTé OT KìàþEBOçO CìOBA      WORD0001
* * * ðOCìEäHññ KOPPEKTéPOBKA:  äATA 30.01.90   BPEMñ 20.13   *  æOKõC  WORD0002
*  @SELWORD <CìOBO>/('CìOBO',AäPEC),...,WORD=<AäP.CìOBA>[,ELSE=<AäPEC>] WORD0003
*   BùXOä: R0 -äìéHA COBðABûEçO CìOBA, R1 -âAêT, CìEäõàýéê úA OâPAúãOM  WORD0004
*  ìEHéHçPAä éBã çõT  OTä. 07 ìATùûKO                   T: 310-98-12    WORD0005
         MACRO                                                          WORD0006
&NAME    @SELWORD &ELSE=,&WORD=                                         WORD0007
         LCLA  &I,&L,&K                                                 WORD0008
&NAME    IHBLADR 1,&WORD,'WORD - AäPEC Kì. CìOBA'                       WORD0009
         @CALL SELWORD                                                  WORD0010
IHB&SYSNDX.S DS 0H                                                      WORD0011
.L2      ANOP                                                           WORD0012
&I       SETA  &I+1                                                     WORD0013
         AIF   (&I GT N'&SYSLIST).ELSE                                  WORD0014
         AIF   ('&SYSLIST(&I,1)'(1,1) EQ '''').QTS                      WORD0015
&L       SETA  K'&SYSLIST(&I,1)                                         WORD0016
         AIF   (N'&SYSLIST(&I) NE 1).TWO                                WORD0017
         DC  AL1(&L),C'&SYSLIST(&I,1)',AL2(&SYSLIST(&I,1)-IHB&SYSNDX.S) WORD0018
         AGO   .L2                                                      WORD0019
.TWO     DC  AL1(&L),C'&SYSLIST(&I,1)',AL2(&SYSLIST(&I,2)-IHB&SYSNDX.S) WORD0020
         AGO   .L2                                                      WORD0021
.QTS     ANOP                                                           WORD0022
&L       SETA  K'&SYSLIST(&I,1)-2                                       WORD0023
&K       SETA  1                                                        WORD0024
&QP      SETB  0                                                        WORD0025
.QPLOOP  ANOP                                                           WORD0026
&K       SETA  &K+1+&QP                                                 WORD0027
         AIF   (&K GE K'&SYSLIST(&I,1)).DC                              WORD0028
&QP      SETB  ('&SYSLIST(&I,1)'(&K,2) EQ '''''' OR '&SYSLIST(&I,1)'(&K+WORD0029
               ,2) EQ '&&')                                             WORD0030
&L       SETA  &L-&QP                                                   WORD0031
         AGO   .QPLOOP                                                  WORD0032
.DC      DC  AL1(&L),C&SYSLIST(&I,1),AL2(&SYSLIST(&I,2)-IHB&SYSNDX.S)   WORD0033
         AGO   .L2                                                      WORD0034
.ELSE    AIF   ('&ELSE' EQ '').NOELSE                                   WORD0035
         DC    AL2(0),AL2(&ELSE-IHB&SYSNDX.S) END OF ADRESS LIST        WORD0036
         MEXIT                                                          WORD0037
.NOELSE  DC    AL2(0),AL2(IHB&SYSNDX.E-IHB&SYSNDX.S)                    WORD0038
IHB&SYSNDX.E DS 0H                     ELSE LABEL                       WORD0039
         MEND                                                           WORD0040