* DECR     MAKPO - õMEHøûéTø ðEPEMEHHõà (HA 1)                          DECR0001
* * * ðOCìEäHññ KOPPEKTéPOBKA:  äATA 27.04.88   BPEMñ 20.15   *  æOKõC  DECR0002
*   DECR  <AäPEC>[,<Téð>][,<BEìéþéHA>],[WR=<PAâOþéê PEçéCTP>]           DECR0003
*  ìEHéHçPAä éBã çõT  OTä. 07 ìATùûKO                   T: 310-98-12    DECR0004
         MACRO                                                          DECR0005
&L       DECR  &O,&T,&SIZE,&WR=0                                        DECR0006
         LCLC  &TYP,&SIZ                                                DECR0007
&TYP     SETC  '&T'                                                     DECR0008
&SIZ     SETC  '&SIZE'                                                  DECR0009
         AIF   ('&TYP' NE '').TSIZ                                      DECR0010
&TYP     SETC  T'&O                                                     DECR0011
.TSIZ    AIF   ('&SIZ' NE '').TESTTYP                                   DECR0012
&SIZ     SETC  '1'                                                      DECR0013
.TESTTYP AIF   ('&TYP' EQ 'F' OR '&TYP' EQ 'A').F                       DECR0014
         AIF   ('&TYP' EQ 'H' OR '&TYP' EQ 'Y').H                       DECR0015
         AIF   ('&TYP' EQ 'C' OR '&TYP' EQ 'B' OR '&TYP' EQ 'X').B      DECR0016
         AIF   ('&TYP' EQ 'N' OR '&TYP' EQ '#').R                       DECR0017
         AIF   ('&TYP' EQ 'U').MNOTE2                                   DECR0018
         MNOTE 12,'DECR: HEäOðõCTéMùê Téð OðEPAHäA &O - &TYP'           DECR0019
         AGO   .F                                                       DECR0020
.MNOTE2  MNOTE 8,'DECR: TPEâõETCñ ñBHOE õKAúAHéE TéðA &O'               DECR0021
.F       ANOP                                                           DECR0022
&L       L     &WR,&O                                                   DECR0023
         SH    &WR,=H'&SIZ'                                             DECR0024
         ST    &WR,&O                                                   DECR0025
         MEXIT                                                          DECR0026
.H       ANOP                                                           DECR0027
&L       LH    &WR,&O                                                   DECR0028
         SH    &WR,=H'&SIZ'                                             DECR0029
         STH   &WR,&O                                                   DECR0030
         MEXIT                                                          DECR0031
.B       ANOP                                                           DECR0032
&L       IC    &WR,&O                                                   DECR0033
         SH    &WR,=H'&SIZ'                                             DECR0034
         STC   &WR,&O                                                   DECR0035
         MEXIT                                                          DECR0036
.*                                                                      DECR0037
.R       ANOP                                                           DECR0038
&L       SH    &O,=H'&SIZ'                                              DECR0039
         MEND                                                           DECR0040