* SET      MAKPO - ðPéCBOEHéE úHAþEHéê ðEPEMEHHùM                       INCR0001
* * * ðOCìEäHññ KOPPEKTéPOBKA:  äATA 25.08.88   BPEMñ 21.04   *  æOKõC  INCR0002
*   SET  <METKA>,<úHAþEHéE>[,<METKA>,<úHAþEHéE>,...]                    INCR0003
*  ìEHéHçPAä éBã çõT  OTä. 07 ìATùûKO                   T: 310-98-12    INCR0004
         MACRO                                                          INCR0005
&L       SET                                                            INCR0006
         LCLA  &I                                                       INCR0007
         LCLC  &TYP                                                     INCR0008
&L       IHBLABEL                                                       INCR0009
&I       SETA  1                                                        INCR0010
.*                                                                      INCR0011
.LOOP    ANOP                                                           INCR0012
&TYP     SETC  T'&SYSLIST(&I)                                           INCR0013
.TESTTYP AIF   ('&TYP' EQ 'N' OR '&TYP' EQ '#').R                       INCR0014
         AIF   ('&SYSLIST(&I+1)' EQ '0').XC                             INCR0015
         AIF   ('&TYP' EQ 'F' OR '&TYP' EQ 'A').F                       INCR0016
         AIF   ('&TYP' EQ 'H' OR '&TYP' EQ 'Y').H                       INCR0017
         AIF   ('&TYP' EQ 'C' OR '&TYP' EQ 'B' OR '&TYP' EQ 'X').B      INCR0018
         MNOTE 12,'SET: HEäOðõCTéMùê Téð OðEPAHäA &SYSLIST(&I) - &TYP'  INCR0019
         AGO   .F                                                       INCR0020
.*                                                                      INCR0021
.F       ANOP                                                           INCR0022
         MVC   &SYSLIST(&I),=F'&SYSLIST(&I+1)'                          INCR0023
         AGO   .NEXT                                                    INCR0024
.H       ANOP                                                           INCR0025
         MVC   &SYSLIST(&I),=H'&SYSLIST(&I+1)'                          INCR0026
         AGO   .NEXT                                                    INCR0027
.B       ANOP                                                           INCR0028
         MVI   &SYSLIST(&I),&SYSLIST(&I+1)                              INCR0029
         AGO   .NEXT                                                    INCR0030
.XC      ANOP                                                           INCR0031
         XC    &SYSLIST(&I),&SYSLIST(&I)                                INCR0032
         AGO   .NEXT                                                    INCR0033
.*                                                                      INCR0034
.R       AIF   ('&SYSLIST(&I+1)' EQ '0').XR                             INCR0035
         LA    &SYSLIST(&I),&SYSLIST(&I+1)                              INCR0036
         AGO   .NEXT                                                    INCR0037
.XR      XR    &SYSLIST(&I),&SYSLIST(&I)                                INCR0038
.*                                                                      INCR0039
.NEXT    ANOP                                                           INCR0040
&I       SETA  &I+2                                                     INCR0041
         AIF   (&I LE N'&SYSLIST).LOOP                                  INCR0042
         MEND                                                           INCR0043