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, 4 months ago) by pazsan
Branches: MAIN
CVS tags: HEAD
vt100-style terminal controls (AT-XY and PAGE).

    1: \ VT100.STR     VT100 excape sequences                  20may93jaw
    2: 
    3: decimal
    4: 
    5: : pn    base @ swap decimal 0 u.r base ! ;
    6: : ;pn   [char] ; emit pn ;
    7: : ESC[  27 emit [char] [ emit ;
    8: : at-xy 1+ swap 1+ swap ESC[ pn ;pn [char] H emit ;
    9: : page  ESC[ ." 2J" 0 0 at-xy ;
   10: 

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