On Wednesday, 1994-10-12  Jacob Warner wrote to David Noon about
"Pl/I" as follows:

JW> In IBM's PL/I is there any way to send control characters to
JW> screen or printer? To be specific in C one can use the following
JW> #define YELLOWONBLUE '\1b[33;44m' and the ANSI commands work to make
JW> yellow text on blue background. In the CP/M version of PL/I there

Hi Jake,

Try the following piece of code. Beware of LIST-directed output,
though. It expects to "tab" to the next tab-stop after each item, even
ANSI screen control sequences.

Regards

Dave

___--------------------------------------------------------------------

 /* General-purpose test program */
 GP_TEST:
 PROC OPTIONS(MAIN REENTRANT);

          /* These are named constants */
     DCL  ESCAPE                   CHAR(1) VALUE('1B'X),
          YELLOWONBLUE             CHAR(7) VALUE('[33;44m'),

          SYSPRINT                 PRINT;

     OPEN FILE(SYSPRINT) LINESIZE(80);
     PUT FILE(SYSPRINT) EDIT
     (ESCAPE,YELLOWONBLUE,
          'This is some text that should appear as yellow on blue.')
     (A);
     CLOSE FILE(SYSPRINT);

     RETURN;

 END GP_TEST;

___--------------------------------------------------------------------

 * KWQ/2 1.2g * If ignorance is bliss, I'm in hog heaven!!

--- Maximus/2 2.01wb