; HP-Style Screen Words... Original 11/5/07 Modified 5/22/10
; ESC - outputs escape sequence
; row column POS - positions cursor for next print
; CLS - clear the screen
; forground background COLOR - ANSI only
; -COLOR - ANSI only
; TERMINAL - toggle HP (default) and ANSI terminal
OCTAL
VARIABLE TTYPE
TTYPE 0 PUT ;set to HP by default

DEFINE TERMINAL
"Changing to " $PRINT
TTYPE DUP GET IFZ #1 ELSE #0 ENDIF PUT
TTYPE GET IFZ "HP" ELSE "ANSI" ENDIF
$PRINT " Terminal" $PRINT
END

DEFINE ESC
TTYPE GET IFZ
 33 PCHR ;esc
ELSE
 15533 PWRD ;esc[
ENDIF
END

DEFINE POS
TTYPE GET IFZ
 ESC 23141 PWRD ;"&a"
 SWAP DEC #0 SWAP $DSTR $PRINT 162 PCHR ;"r"
 DEC #0 SWAP $DSTR $PRINT 103 PCHR      ;"C"
ELSE
 ESC SWAP #0 SWAP $DSTR $PRINT 73 PCHR  ;";"
 #0 SWAP $DSTR
 $PRINT 110 PCHR ;"H"
ENDIF
END

DEFINE CLS
TTYPE GET IFZ
 15510 PWRD   ;ESC H
 15512 PWRD   ;ESC J
ELSE
 ESC 31112 PWRD ;"2J"
 #1 #1 POS 
ENDIF
END

DEFINE COLOR
TTYPE GET IFZ
 DROP DROP
ELSE
 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
ENDIF
END

DEFINE -COLOR
TTYPE GET IFNZ
 ESC 30155 PWRD ;0m
ENDIF
END

CONSOLE