* GENDC    MAKPO - çEHEPAãéñ OðEPATOPOB DC                              ENDC0001
* * * ðOCìEäHññ KOPPEKTéPOBKA:  äATA 26.04.88   BPEMñ 19.30   *  æOKõC  ENDC0002
*    GENDC <METKA>,<KOHCTAHTA>[,<METKA>,<KOHCTAHTA>,...]                ENDC0003
*  ìEHéHçPAä éBã çõT  OTä. 07 ìATùûKO                   T: 310-98-12    ENDC0004
         MACRO                                                          ENDC0005
&L       GENDC                                                          ENDC0006
         LCLA  &N                                                       ENDC0007
&N       SETA  1                                                        ENDC0008
         AIF   ('&L' EQ '').GEN                                         ENDC0009
&L       EQU   *                                                        ENDC0010
.GEN     ANOP                                                           ENDC0011
&SYSLIST(&N) DC  &SYSLIST(&N+1)                                         ENDC0012
&N       SETA  &N+2                                                     ENDC0013
         AIF   (&N LE N'&SYSLIST).GEN                                   ENDC0014
         MEND                                                           ENDC0015