forked from KolibriOS/kolibrios
16 lines
578 B
Forth
16 lines
578 B
Forth
|
|
: (ESC) 27 EMIT TYPE ;
|
|
: CLEAR S" [2J" (ESC) ; : HOME CLEAR S" [1;1H" (ESC) ;
|
|
: NORMAL S" [0m" (ESC) ; : BOLD S" [1m" (ESC) ;
|
|
|
|
: BLACK S" [30m" (ESC) ; : RED S" [31m" (ESC) ;
|
|
: GREEN S" [32m" (ESC) ; : YELLOW S" [33m" (ESC) ;
|
|
: BLUE S" [34m" (ESC) ; : MAGENTA S" [35m" (ESC) ;
|
|
: CYAN S" [36m" (ESC) ; : WHITE S" [37m" (ESC) ;
|
|
|
|
: ONBLACK S" [40m" (ESC) ; : ONRED S" [41m" (ESC) ;
|
|
: ONGREEN S" [42m" (ESC) ; : ONYELLOW S" [43m" (ESC) ;
|
|
: ONBLUE S" [44m" (ESC) ; : ONMAGENTA S" [45m" (ESC) ;
|
|
: ONCYAN S" [46m" (ESC) ; : ONWHITE S" [47m" (ESC) ;
|
|
|