* @PUTMSG  MAKPO - ðEþATø COOâýEHéñ                                     TMSG0001
* * * ðOCìEäHññ KOPPEKTéPOBKA:  äATA 24.10.87   BPEMñ 15.53   *  æOKõC  TMSG0002
*   @PUTMSG  (<COOâýEHéE B æOPMATE äìñ MESSAGE$>) éìé <AäPEC COOâýEHéñ> TMSG0003
*         [,LL=<äìéHA âõæEPA>][TC=<Cð.BùúOBA>] - B ðEPBOê MAKPOKOMAHäE  TMSG0004
*  ìEHéHçPAä éBã çõT  OTä. 07 ìATùûKO                   T: 310-98-12    TMSG0005
         MACRO                                                          TMSG0006
&NAME    @PUTMSG &MSG,&LL=129,&TC=CALL                                  TMSG0007
         AIF   ('&MSG'(1,1) NE '(').ADRESS                              TMSG0008
&NAME    LA    0,IHB&SYSNDX                                             TMSG0009
         BAL   14,@PUTMSG                                               TMSG0010
CONSTF  LOCTR                                                           TMSG0011
IHB&SYSNDX MESSAGE$ &MSG                                                TMSG0012
         AGO   .PGM                                                     TMSG0013
.ADRESS  ANOP                                                           TMSG0014
&NAME    IHBLADR 0,&MSG,'AäPEC COOâýEHéñ'                               TMSG0015
         BAL   14,@PUTMSG                                               TMSG0016
.PGM     AIF   (D'@PUTMSG).RESTLOC                                      TMSG0017
 SPACE 2                                                                TMSG0018
*********************************************************************** TMSG0019
*  ðð æOPMéPOBAHéñ é ðEþATé COOâýEHéñ                                 * TMSG0020
*********************************************************************** TMSG0021
SUBPGMS LOCTR                                                           TMSG0022
@PUTMSG  DS    0H                                                       TMSG0023
         ST    14,WSAVE14                                               TMSG0024
         BUILDMSG ADR=(0),BUF=@MSGBUF,TC=&TC                            TMSG0025
         @PRINT @MSGBUF+4                                               TMSG0026
         L     14,WSAVE14                                               TMSG0027
         BR    14                                                       TMSG0028
 SPACE 2                                                                TMSG0029
         DS$C  @MSGBUF,D,@MSGTEXT,CL&LL,WSAVE14,F                       TMSG0030
.RESTLOC ANOP                                                           TMSG0031
&SYSLOC LOCTR                                                           TMSG0032
         MEND                                                           TMSG0033