* GENDS    MAKPO - çEHEPAãéñ OðEPATOPOB DS                              ENDS0001
* * * ðOCìEäHññ KOPPEKTéPOBKA:  äATA 26.04.88   BPEMñ 19.31   *  æOKõC  ENDS0002
*    GENDS <METKA>,<Téð>[,<METKA>,<Téð>,...]                            ENDS0003
*  ìEHéHçPAä éBã çõT  OTä. 07 ìATùûKO                   T: 310-98-12    ENDS0004
         MACRO                                                          ENDS0005
&L       GENDS                                                          ENDS0006
         LCLA  &N                                                       ENDS0007
&N       SETA  1                                                        ENDS0008
         AIF   ('&L' EQ '').GEN                                         ENDS0009
&L       EQU   *                                                        ENDS0010
.GEN     ANOP                                                           ENDS0011
&SYSLIST(&N) DS  &SYSLIST(&N+1)                                         ENDS0012
&N       SETA  &N+2                                                     ENDS0013
         AIF   (&N LE N'&SYSLIST).GEN                                   ENDS0014
         MEND                                                           ENDS0015