* REQU     MAKPO - çEHEPAãéñ OðEPATOPOB EQU äìñ PEçéCTPOB               REQU0001
* * * ðOCìEäHññ KOPPEKTéPOBKA:  äATA 25.08.88   BPEMñ 19.34   *  æOKõC  REQU0002
*    GENEQU <þTO>,<EQU þEMõ>[,<þTO>,<þEMõ>,...]                         REQU0003
*  ìEHéHçPAä éBã çõT  OTä. 07 ìATùûKO                   T: 310-98-12    REQU0004
         MACRO                                                          REQU0005
         REQU                                                           REQU0006
         LCLA  &N                                                       REQU0007
&N       SETA  1                                                        REQU0008
.GEN     ANOP                                                           REQU0009
&SYSLIST(&N) EQU &SYSLIST(&N+1),,C'#'                                   REQU0010
&N       SETA  &N+2                                                     REQU0011
         AIF   (&N LE N'&SYSLIST).GEN                                   REQU0012
         MEND                                                           REQU0013