block-005.fth

( Block 5 - Screen )

find cls loaded?

cur-on   ( -- )     ." %e[?25h" ;
cur-off  ( -- )     ." %e[?25l" ;
cur-block( -- )     ." %e[2 q" ;
cur-bar  ( -- )     ." %e[5 q" ;
->cr     ( r c-- )  ." %e[%d;%dH" ;
->rc     ( c r-- )  swap ->cr ;
cls      ( -- )     ." %e[2J" 1 dup ->rc ;
clr-eol  ( -- )     ." %e[0K" ;
color    ( bg fg-- )." %e[%d;%dm" ;
fg       ( fg-- )   ." %e[38;5;%dm" ;

white 255 fg ;    red   203 fg ;
green  40 fg ;    yellow226 fg ;
blue   63 fg ;    purple201 fg ;
cyan  117 fg ;    grey  250 fg ;

colors( f t-- )over - 1+ for dup i + dup fg ." color-%d%n" next drop white ;