* @DEBGPR  MAKPO - OTìAäOþHAñ ðEþATø                                    BGPR0001
* * * ðOCìEäHññ KOPPEKTéPOBKA:  äATA 08.06.89   BPEMñ 04.36   *  æOKõC  BGPR0002
* @DEBGPR <ðEPEMEHHAñ>/(ðEPEMEHHAñ,äìéHA,Téð)[,...]                     BGPR0003
*  ìEHéHçPAä éBã çõT  OTä. 23 ìATùûKO                   T: 219-07-07    BGPR0004
         MACRO                                                          BGPR0005
&NAME    @DEBGPR                                                        BGPR0006
         LCLA  &I                                                       BGPR0007
&I       SETA  1                                                        BGPR0008
&NAME    @PUTMSG (+S,                                                  +BGPR0009
.NEXTI         ('&SYSLIST(&I,1)=',&SYSLIST(&I,2),&SYSLIST(&I,3)),      +BGPR0010
&I       SETA  &I+1                                                     BGPR0011
         AIF   (&I LE N'&SYSLIST).NEXTI                                 BGPR0012
.END           )                                                        BGPR0013
         MEND                                                           BGPR0014