* FLON     MAKPO - õCTAHOBKA æìAçA B '1'                                FLON0001
* * * ðOCìEäHññ KOPPEKTéPOBKA:  äATA 13.02.90   BPEMñ 22.10   *  æOKõC  FLON0002
*   FLON <éMñ æìAçA> [,<éMñ æìAçA>,...]                                 FLON0003
*  ìEHéHçPAä éBã çõT  OTä. 23  ìATùûKO                  T: 219-07-07    FLON0004
         MACRO                                                          FLON0005
&LBL     FLON                                                           FLON0006
         LCLA  &I                                                       FLON0007
         LCLC  &NAME,&BYTENAM,&OPERAND                                  FLON0008
         AIF   ('&LBL' EQ '').NEXTI                                     FLON0009
&LBL     DS    0H                * MACRO FLON *                         FLON0010
.*                                                                      FLON0011
.NEXTI   ANOP                                                           FLON0012
&I       SETA  &I+1                                                     FLON0013
         AIF   (&I GT N'&SYSLIST).NEWONE                                FLON0014
&NAME    SETC  '@FLAG#&SYSLIST(&I)'                                     FLON0015
         GBLC  &(&NAME)                                                 FLON0016
         AIF   ('&(&NAME)' EQ '').NOFLAG                                FLON0017
         AIF   ('&(&NAME)' NE '&BYTENAM').NEWONE  æìAç B äPõçOM âAêTE ? FLON0018
&OPERAND SETC  '&OPERAND+&SYSLIST(&I)'            B üTOM öE - úAPñöAEM  FLON0019
         AGO   .NEXTI                                                   FLON0020
.NEWONE  AIF   ('&OPERAND' EQ '').NEWBYTE                               FLON0021
         OI    &BYTENAM,&OPERAND                                        FLON0022
&OPERAND SETC  ''                                 PAúPñöAEM             FLON0023
.NEWBYTE AIF   (&I GT N'&SYSLIST).EXIT                                  FLON0024
&BYTENAM SETC  '&(&NAME)'                         HOBùê âAêT            FLON0025
&OPERAND SETC  '&SYSLIST(&I)'                     HAKAðìéBAEM ðO HOBOê  FLON0026
         AGO   .NEXTI                                                   FLON0027
.NOFLAG  MNOTE 8,'@FLON:  æìAç &SYSLIST(&I) HE OðPEäEìEH MK @FLAGS'     FLON0028
         AGO   .NEXTI                                                   FLON0029
.*                                                                      FLON0030
.EXIT    MEND                                                           FLON0031