File:  [gforth] / gforth / vt100.fs
Revision 1.1: download - view: text, annotated - select for diffs
Wed Apr 20 17:23:24 1994 UTC (25 years, 6 months ago) by pazsan
Branches: MAIN
CVS tags: HEAD
vt100-style terminal controls (AT-XY and PAGE).

\ VT100.STR     VT100 excape sequences                  20may93jaw

decimal

: pn    base @ swap decimal 0 u.r base ! ;
: ;pn   [char] ; emit pn ;
: ESC[  27 emit [char] [ emit ;
: at-xy 1+ swap 1+ swap ESC[ pn ;pn [char] H emit ;
: page  ESC[ ." 2J" 0 0 at-xy ;


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>