; VT/ANSI Screen Words...
; ESC - outputs ascii 27 followed by [ to start esc sequences
; row column POS - positions cursor for next print
; CLS - clear the screen
; forground background COLOR - sets print/cls color
; (some terms don't allow setting background and parm is ignored)
; -COLOR - go back to normal screen colors
OCTAL DEFINE ESC
015533 PWRD END
OCTAL DEFINE POS
ESC SWAP #0 SWAP $DSTR $PRINT 000073 PCHR #0 SWAP $DSTR
$PRINT 000110 PCHR END
OCTAL DEFINE CLS
ESC "2J" $PRINT #1 #1 POS END
OCTAL DEFINE COLOR
ESC #0 SWAP 000050 ADD $DSTR "0;" $PRINT $PRINT 000155 PCHR 
ESC DUP CASE > 000007 "1;" 000026 DEFAULT "0;" 000036 
ENDCASE $PRINT ADD #0 SWAP $DSTR $PRINT 000155 PCHR END
OCTAL DEFINE -COLOR
ESC "0m" $PRINT END
CONSOLE