[gforth] / gforth / vt100.fs  

gforth: gforth/vt100.fs

File: [gforth] / gforth / vt100.fs (download)
Revision: 1.1, Wed Apr 20 17:23:24 1994 UTC (19 years, 1 month ago) by pazsan
Branch: MAIN 
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 ;
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help