* FLOFF     MAKPO - õCTAHOBKA æìAçA B '0'                               LOFF0001
* * * ðOCìEäHññ KOPPEKTéPOBKA:  äATA 13.02.90   BPEMñ 22.19   *  æOKõC  LOFF0002
*   FLOFF <éMñ æìAçA> [,<éMñ æìAçA>,...]                                LOFF0003
*  ìEHéHçPAä éBã çõT  OTä. 23  ìATùûKO                  T: 219-07-07    LOFF0004
         MACRO                                                          LOFF0005
&LBL     FLOFF                                                          LOFF0006
         LCLA  &I                                                       LOFF0007
         LCLC  &NAME,&BYTENAM,&OPERAND                                  LOFF0008
         AIF   ('&LBL' EQ '').NEXTI                                     LOFF0009
&LBL     DS    0H                * MACRO FLOFF *                        LOFF0010
.*                                                                      LOFF0011
.NEXTI   ANOP                                                           LOFF0012
&I       SETA  &I+1                                                     LOFF0013
         AIF   (&I GT N'&SYSLIST).NEWONE                                LOFF0014
&NAME    SETC  '@FLAG#&SYSLIST(&I)'                                     LOFF0015
         GBLC  &(&NAME)                                                 LOFF0016
         AIF   ('&(&NAME)' EQ '').NOFLAG                                LOFF0017
         AIF   ('&(&NAME)' NE '&BYTENAM').NEWONE  æìAç B äPõçOM âAêTE ? LOFF0018
&OPERAND SETC  '&OPERAND+&SYSLIST(&I)'            B üTOM öE - úAPñöAEM  LOFF0019
         AGO   .NEXTI                                                   LOFF0020
.NEWONE  AIF   ('&OPERAND' EQ '').NEWBYTE                               LOFF0021
         NI    &BYTENAM,255-(&OPERAND)                                  LOFF0022
&OPERAND SETC  ''                                 PAúPñöAEM             LOFF0023
.NEWBYTE AIF   (&I GT N'&SYSLIST).EXIT                                  LOFF0024
&BYTENAM SETC  '&(&NAME)'                         HOBùê âAêT            LOFF0025
&OPERAND SETC  '&SYSLIST(&I)'                     HAKAðìéBAEM ðO HOBOê  LOFF0026
         AGO   .NEXTI                                                   LOFF0027
.NOFLAG  MNOTE 8,'@FLOFF:  æìAç &SYSLIST(&I) HE OðPEäEìEH MK @FLAGS'    LOFF0028
         AGO   .NEXTI                                                   LOFF0029
.*                                                                      LOFF0030
.EXIT    MEND                                                           LOFF0031