\ VT100 cursor control etc,
\ Created by Duncan October 2016
\
: HOME 	( --- . )
	$1B EMIT $5B EMIT $48 EMIT ;

: .POS		( n --- )
	10 /MOD 48 + EMIT 48 + EMIT ;

: GOTOXY	( x y --- . )
	$1B EMIT $5B EMIT .POS $3B EMIT .POS $48 EMIT ;

: CLEARSCREEN	( --- )
	$1B EMIT $5B EMIT $32 EMIT $4A EMIT ;

: SCROLLDOWN	( --- )
	$1B EMIT $44 EMIT ;

: SCROLLUP	( --- )
	$1B EMIT $4D EMIT ;

: SCROLLING	( --- )
	$1B EMIT $5B EMIT $72 EMIT ;

: CURSOROFF	( --- )
	$1B EMIT $5B EMIT $3F EMIT $32 EMIT $35 EMIT $6C EMIT ;

: CURSORON	( --- )
	$1B EMIT $5B EMIT $3F EMIT $32 EMIT $35 EMIT $68 EMIT ;