* INCR     MAKPO - õBEìéþéTø ðEPEMEHHõà (HA 1)                          INCR0001
* * * ðOCìEäHññ KOPPEKTéPOBKA:  äATA 26.04.88   BPEMñ 19.28   *  æOKõC  INCR0002
*   INCR  <AäPEC>[,<Téð>][,<BEìéþéHA>],[WR=<PAâOþéê PEçéCTP>]           INCR0003
*  ìEHéHçPAä éBã çõT  OTä. 07 ìATùûKO                   T: 310-98-12    INCR0004
         MACRO                                                          INCR0005
&L       INCR  &O,&T,&SIZE,&WR=0                                        INCR0006
         LCLC  &TYP,&SIZ                                                INCR0007
&TYP     SETC  '&T'                                                     INCR0008
&SIZ     SETC  '&SIZE'                                                  INCR0009
         AIF   ('&TYP' NE '').TSIZ                                      INCR0010
&TYP     SETC  T'&O                                                     INCR0011
.TSIZ    AIF   ('&SIZ' NE '').TESTTYP                                   INCR0012
&SIZ     SETC  '1'                                                      INCR0013
.TESTTYP AIF   ('&TYP' EQ 'F' OR '&TYP' EQ 'A').F                       INCR0014
         AIF   ('&TYP' EQ 'H' OR '&TYP' EQ 'Y').H                       INCR0015
         AIF   ('&TYP' EQ 'C' OR '&TYP' EQ 'B' OR '&TYP' EQ 'X').B      INCR0016
         AIF   ('&TYP' EQ 'N' OR '&TYP' EQ '#').R                       INCR0017
         AIF   ('&TYP' EQ 'U').MNOTE2                                   INCR0018
         MNOTE 12,'INCR: HEäOðõCTéMùê Téð OðEPAHäA &O - &TYP'           INCR0019
         AGO   .F                                                       INCR0020
.MNOTE2  MNOTE 8,'INCR: TPEâõETCñ ñBHOE õKAúAHéE TéðA &O'               INCR0021
.F       ANOP                                                           INCR0022
&L       L     &WR,&O                                                   INCR0023
         AH    &WR,=H'&SIZ'                                             INCR0024
         ST    &WR,&O                                                   INCR0025
         MEXIT                                                          INCR0026
.H       ANOP                                                           INCR0027
&L       LH    &WR,&O                                                   INCR0028
         AH    &WR,=H'&SIZ'                                             INCR0029
         STH   &WR,&O                                                   INCR0030
         MEXIT                                                          INCR0031
.B       ANOP                                                           INCR0032
&L       IC    &WR,&O                                                   INCR0033
         AH    &WR,=H'&SIZ'                                             INCR0034
         STC   &WR,&O                                                   INCR0035
         MEXIT                                                          INCR0036
.*                                                                      INCR0037
.R       ANOP                                                           INCR0038
&L       AH    &O,=H'&SIZ'                                              INCR0039
         MEND                                                           INCR0040