Ref:     Append at 09:01:58 on 94/10/14 GMT (by IBMNET at TOROVM1)


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;

 


--- MAIL401/2 Gateway 1.0