; VT/ANSI Screen Words... Original 3/7/06, modified 5/22/10
; 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
; -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 31112 PWRD #1 #1 POS END
OCTAL DEFINE COLOR
ESC SWAP DUP CASE > 000007 000026 030473 DEFAULT 000036
030073 ENDCASE PWRD ADD #0 SWAP $DSTR $PRINT 000073 PCHR #0
SWAP 000050 ADD $DSTR $PRINT 000155 PCHR END
OCTAL DEFINE -COLOR
ESC 30155 PWRD END
CONSOLE