Return to vt100.fs CVS log

Up to [gforth] / gforth

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: