* INCRCNT  MAKPO - õBEìéþéTø úHAþEHéE CþETþéKA                          RCNT0001
* * * ðOCìEäHññ KOPPEKTéPOBKA:  äATA 27.01.89   BPEMñ 18.56   *  æOKõC  RCNT0002
*   INCRCNT <éMñ CþETþéKA>[,<BEìéþéHA ðPéPAýEHéñ>]                      RCNT0003
*      [,INIT=<þéCìO>] - úABECTé CþETþéK C úAäAHHùM HAþ. úHAþEHéEM      RCNT0004
*  ìEHéHçPAä éBã çõT  OTä. 07 ìATùûKO                   T: 310-98-12    RCNT0005
         MACRO                                                          RCNT0006
&NAME    INCRCNT &CNT,&V,&INIT=                                         RCNT0007
         AIF   ('&INIT' EQ '').INCR                                     RCNT0008
         AIF   (D'&CNT).MNOTE                                           RCNT0009
CONSTF  LOCTR                                                           RCNT0010
&CNT     DC    F'&INIT'          COUNT                                  RCNT0011
&SYSLOC LOCTR                                                           RCNT0012
         AGO   .INCR                                                    RCNT0013
.MNOTE   MNOTE 4,'&CNT ALREADY DEFINED IN PROGRAM'                      RCNT0014
.INCR    ANOP                                                           RCNT0015
&NAME    INCR  &CNT,,&V                                                 RCNT0016
         MEND                                                           RCNT0017