CURSOR.fth (617B)
1 \ VT100 cursor control etc, 2 \ Created by Duncan October 2016 3 \ 4 : HOME ( --- . ) 5 $1B EMIT $5B EMIT $48 EMIT ; 6 7 : .POS ( n --- ) 8 10 /MOD 48 + EMIT 48 + EMIT ; 9 10 : GOTOXY ( x y --- . ) 11 $1B EMIT $5B EMIT .POS $3B EMIT .POS $48 EMIT ; 12 13 : CLEARSCREEN ( --- ) 14 $1B EMIT $5B EMIT $32 EMIT $4A EMIT ; 15 16 : SCROLLDOWN ( --- ) 17 $1B EMIT $44 EMIT ; 18 19 : SCROLLUP ( --- ) 20 $1B EMIT $4D EMIT ; 21 22 : SCROLLING ( --- ) 23 $1B EMIT $5B EMIT $72 EMIT ; 24 25 : CURSOROFF ( --- ) 26 $1B EMIT $5B EMIT $3F EMIT $32 EMIT $35 EMIT $6C EMIT ; 27 28 : CURSORON ( --- ) 29 $1B EMIT $5B EMIT $3F EMIT $32 EMIT $35 EMIT $68 EMIT ; 30