Hi Jake,

I received the following message on Compuserve for you. It is from
Paige Vinall of the PL/I compiler development team at IBM Santa Teresa
labs. Note that Paige's advice to use STDOUT: in the TITLE()
generalizes screen access, so it isn't limited to SYSPRINT.

See how far your question went? 

Regards

Dave

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

#: 292 S0/CompuServe Mail
     19-Oct-94 18:06 EDT
Sb:  FIDONET
Fm: "Paige Vinall 8-543-2106" > INTERNET:vinall{at}VNET.IBM.COM

Sender: vinall{at}vnet.ibm.com
Received: from VNET.IBM.COM by arl-img-1.compuserve.com
(8.6.4/5.940406sam)
        id SAA28268; Wed, 19 Oct 1994 18:04:48 -0400
Received: from STLVM20 by VNET.IBM.COM (IBM VM SMTP V2R2) with BSMTP
id 2234;
   Wed, 19 Oct 94 18:04:20 EDT
X-Mailer:     IPERNOTE 5.00m
Message-ID:   
Date:         Wed, 19 Oct 94 15:05:09 PDT
From: "Paige Vinall 8-543-2106" 
To: 72172.431{at}CompuServe.com
Subject:      FIDONET

Hi David,

I have favor to ask.  Would you mind posting a note to FIDONET
for me?

IBM has a system setup so that I should be able to read and write
comments to FIDONET but for some reason I don't think my notes
get lost.  I noticed that customer was asking about using
ansi escape sequences.  Below is the information the customer
needs.

I noticed that you frequent FIDONET so would you mind sending the
information to the customer?

Paige

ECHO TO: Jacob Warner

You can write the ANSI escape sequences directly to standard out
using put edit.  The program must open the file as stdout:.  Here
is a small example:

*process langlvl(saa2);

  vio: proc options(main);

    dcl escape      char(2) value('1B5B'X);
    dcl clearscr    char(4) value(escape||'2J');
    dcl blue_back   char(5) value(escape||'44m');
    dcl yellow_fore char(5) value(escape||'33m');
    dcl black_back  char(5) value(escape||'40m');
    dcl white_fore  char(5) value(escape||'37m');
    dcl normal      char(10) value(black_back||white_fore);

    open file(sysprint) title('/stdout:') output;
    put edit(clearscr, blue_back, 'Paige', yellow_fore, ' Hi') (A);
    put edit(normal) (A);

  end;

 * KWQ/2 1.2g * Windows NT -- the Lisa emulator for your Pentium.

--- Maximus/2 2.01wb