Return to vt100.fs CVS log

Up to [gforth] / gforth

Annotation of gforth/vt100.fs, revision 1.1

1.1     ! pazsan      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: