[gforth] / gforth / vt100.fs  

gforth: gforth/vt100.fs


1 : pazsan 1.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 :    

CVS Admin

Powered by ViewCVS 1.0-dev
(Powered by ViewCVS)

ViewCVS and CVS Help