* @FLAGS   MAKPO - OðPEäEìéTø æìAçé                                     LAGS0001
* * * ðOCìEäHññ KOPPEKTéPOBKA:  äATA 22.02.90   BPEMñ 21.24   *  æOKõC  LAGS0002
* <METKA âAêTA> @FLAGS <éMñ 0 âéTA> [,<éMñ 1 âéTA>,...]                 LAGS0003
*            [,DC=NO/YES] [,INIT=<OðEPAHä DC>] [,EQU=NO/YES ]           LAGS0004
*  ìEHéHçPAä éBã çõT  OTä. 23  ìATùûKO                  T: 219-07-07    LAGS0005
         MACRO                                                          LAGS0006
&LBL     @FLAGS &DC=YES,&INIT=X'00',&EQU=YES                            LAGS0007
         LCLA  &I                                                       LAGS0008
         LCLC  &NAME,&BIT                                               LAGS0009
&I       SETA  1                                                        LAGS0010
&BIT     SETC  '10000000'                                               LAGS0011
         AIF   ('&DC' NE 'Y' AND '&DC' NE 'YES').FIRST                  LAGS0012
&LBL     DC    &INIT             * MACRO @FLAGS *                       LAGS0013
         AGO   .FIRST                                                   LAGS0014
.NEXTI   ANOP                                                           LAGS0015
&I       SETA  &I+1                                                     LAGS0016
&BIT     SETC  '0&BIT'(1,8)                                             LAGS0017
.FIRST   AIF   (&I GT N'&SYSLIST).EXIT                                  LAGS0018
         AIF   (&I GT 8).ERR                                            LAGS0019
         AIF   ('&SYSLIST(&I)' EQ '').NEXTI                             LAGS0020
&NAME    SETC  '@COND#&SYSLIST(&I)'  .?                                 LAGS0021
         GBLC  &(&NAME)(3)                                              LAGS0022
&(&NAME)(1) SETC  'TM'                                                  LAGS0023
&(&NAME)(2) SETC  '&LBL,&SYSLIST(&I)'                                   LAGS0024
&(&NAME)(3) SETC  'O'                                                   LAGS0025
&NAME    SETC  '@FLAG#&SYSLIST(&I)'                                     LAGS0026
         GBLC  &(&NAME)                                                 LAGS0027
&(&NAME) SETC  '&LBL'                                                   LAGS0028
         AIF   ('&EQU' NE 'Y' AND '&EQU' NE 'YES').NEXTI                LAGS0029
&SYSLIST(&I) EQU   B'&BIT'       * MACRO @FLAGS *                       LAGS0030
         AGO   .NEXTI                                                   LAGS0031
.ERR     MNOTE 8,'@FLAGS: CìéûKOM MHOçO !'                              LAGS0032
.EXIT    MEND                                                           LAGS0033