* SWON     MAKPO - BKìàþéTø ðEPEKìàþATEìé                               SWON0001
* * * ðOCìEäHññ KOPPEKTéPOBKA:  äATA 26.04.88   BPEMñ 20.04   *  æOKõC  SWON0002
*    SWON  <CðéCOK METOK KOMAHä BC/BCR>                                 SWON0003
*  ìEHéHçPAä éBã çõT  OTä. 07 ìATùûKO                   T: 310-98-12    SWON0004
         MACRO                                                          SWON0005
&NAME    SWON                                                           SWON0006
         LCLA  &I                                                       SWON0007
         AIF   ('&NAME' EQ '').NEXT                                     SWON0008
&NAME    DS    0H                                                       SWON0009
.NEXT    ANOP                                                           SWON0010
&I       SETA  &I+1                                                     SWON0011
         AIF   (&I GT N'&SYSLIST).END                                   SWON0012
         OI    1+&SYSLIST(&I),X'F0'  BKìàþéTø ðEPEKìàþATEìø             SWON0013
         AGO   .NEXT                                                    SWON0014
.END     MEND                                                           SWON0015