/* hpmsg.p 06/20/03 */

/* Send message to printer display using PJL. */

DEF VAR CR      AS CHAR NO-UNDO.
DEF VAR LF      AS CHAR NO-UNDO.
DEF VAR CRLF    AS CHAR NO-UNDO.
DEF VAR ESC     AS CHAR NO-UNDO.


ASSIGN CR   = CHR(13)
       LF   = CHR(10)
       CRLF = CR + LF
       ESC  = CHR(27).

OUTPUT TO PRINTER.


/* take printer offline and display message */
PUT CONTROL ESC + "%-12345X@PJL" + CRLF.
/* display is 16 chars/line        1234567890123456-234567890123456 */
PUT CONTROL '@PJL OPMSG DISPLAY = "LOAD TOILET PAPER"' + CRLF.
PUT CONTROL ESC + "%-12345X".

/*
/* leave printer online and display message */
PUT UNFORMATTED ESC + "%-12345X@PJL" + CRLF.
PUT UNFORMATTED '@PJL RDYMSG DISPLAY = "LOAD TOILET PAPER"' + CRLF.
PUT UNFORMATTED ESC + "%-12345X".
*/

/*
/* reset */
PUT UNFORMATTED ESC + "%-12345X@PJL" + CRLF.
PUT UNFORMATTED "@PJL RESET" + CRLF. 
PUT UNFORMATTED ESC + "%-12345X".
*/

/*
/* iniialize */
PUT UNFORMATTED ESC + "%-12345X@PJL" + CRLF.
PUT UNFORMATTED "@PJL INITIALIZE" + CRLF. 
PUT UNFORMATTED ESC + "%-12345X".
*/

/*
/* misc */
PUT UNFORMATTED ESC + "%-12345X@PJL" + CRLF.
PUT UNFORMATTED '@PJL JOB NAME = "Start Job X"' + CRLF.
/*
PUT UNFORMATTED '@PJL ENTER LANGUAGE = POSTSCRIPT' + CRLF.
PUT UNFORMATTED '%!PS-ADOBE ... PostScript Job ... ^D'
    + ESC + "%-12345X@PJL" + CRLF.
*/
/*
PUT UNFORMATTED "@PJL ENTER LANGUAGE = PCL" + CRLF.
PUT UNFORMATTED ESC + "E... PCL Job ..." + ESC + "E"
    + ESC + "%-12345X@PJL" + CRLF.
PUT UNFORMATTED '@PJL EOJ NAME = "End Job X"' + CRLF.
*/
PUT UNFORMATTED ESC + "%-12345X".
*/

OUTPUT CLOSE.

/* end of program */