19 lines
521 B
Forth
19 lines
521 B
Forth
( ANSI Codes )
|
|
vocabulary ansi ansi definitions
|
|
: esc 27 emit ; : bel 7 emit ;
|
|
: clear-to-eol esc ." [0K" ;
|
|
: scroll-down esc ." D" ;
|
|
: scroll-up esc ." M" ;
|
|
: hide esc ." [?25l" ;
|
|
: show esc ." [?25h" ;
|
|
: terminal-save esc ." [?1049h" ;
|
|
: terminal-restore esc ." [?1049l" ;
|
|
|
|
forth definitions ansi
|
|
: fg ( n -- ) esc ." [38;5;" n. ." m" ;
|
|
: bg ( n -- ) esc ." [48;5;" n. ." m" ;
|
|
: normal esc ." [0m" ;
|
|
: at-xy ( x y -- ) esc ." [" 1+ n. ." ;" 1+ n. ." H" ;
|
|
: page esc ." [2J" esc ." [H" ;
|
|
forth
|