For that I use Escape sequences.
It doesn't go well, the SMG$ routines refuse to send the Esc character (hex 1B) to the monitor.
If I use COBOL's DISPLAY it works perfectly.
A line declared in COBOL like this:
Code: Select all
01 LINE-ESC.
10 FILLER PIC X(1) VALUE X'1B'.
10 FILLER PIC X(10) VALUE "[1;31;144m".
10 FILLER PIC X(18) VALUE "Bright red on blue".
10 FILLER PIC X(1) VALUE X'1B'.
10 FILLER PIC X(3) VALUE "[0m".
Gives a completely correct result, red text on a blue background.
If I use "SMG$PUT_LINE" with the same data, the printable characters are printed at the top left of the screen and no coloring.
I have tried other SMG$ functions to send the Esc character on the screen, all fail.
Anyone know how to do it?
/Fim W.