* IHBBC    MACRO - çEHEPAãéñ KOMAHäù ðEPEXOäA  BC[R]                    HBBC0001
* * * ðOCìEäHññ KOPPEKTéPOBKA:  äATA 26.04.88   BPEMñ 19.40   *  æOKõC  HBBC0002
*    IHBBC <õCìOBéE>,<KõäA>                                             HBBC0003
*  ìEHéHçPAä éBã çõT  OTä. 07 ìATùûKO                   T: 310-98-12    HBBC0004
         MACRO                                                          HBBC0005
&NAME    IHBBC &C,&ADR                                                  HBBC0006
         LCLC  &T,&A                                                    HBBC0007
         LCLA  &I                                                       HBBC0008
         LCLB  &B                                                       HBBC0009
.*                                                                      HBBC0010
&A       SETC  '&ADR'                                                   HBBC0011
         AIF   ('&ADR'(1,1) NE '(').L1                                  HBBC0012
&T       SETC  'R'                                                      HBBC0013
&A       SETC  '&ADR'(2,K'&ADR-2)                                       HBBC0014
.L1      AIF   ('&C' EQ '&I').L3                                        HBBC0015
&I       SETA  &I+1                                                     HBBC0016
         AIF   (&I LE 15).L1                                            HBBC0017
.*                                                                      HBBC0018
&NAME    B&C&T &A                                                       HBBC0019
         MEXIT                                                          HBBC0020
.*                                                                      HBBC0021
.L3      ANOP                                                           HBBC0022
&NAME    BC&T  &C,&A                                                    HBBC0023
         MEXIT                                                          HBBC0024
         MEND                                                           HBBC0025