\ COLOR.SEQ     Color board support for ZF              by Tom Zimmer

\ For Color boards, the following values may be used for background
\ or forground.

HEX

00 CONSTANT BLACK       \ black
01 CONSTANT BLUE        \ blue
02 CONSTANT GREEN       \ green
03 CONSTANT CYAN        \ cyan
04 CONSTANT RED         \ red
05 CONSTANT MAGENTA     \ magenta
06 CONSTANT BROWN       \ brown
07 CONSTANT LTGRAY      \ light gray
08 CONSTANT DKGRAY      \ dark gray   All following, blink in Background.
09 CONSTANT LTBLUE      \ light blue
0A CONSTANT LTGREEN     \ light green
0B CONSTANT LTCYAN      \ light cyan
0C CONSTANT LTRED       \ light red
0D CONSTANT LTMAGENTA   \ light magenta
0E CONSTANT YELLOW      \ yellow
0F CONSTANT WHITE       \ white

: >FG           ( N1 --- )
                attrib c@ F0 and + attrib c! ;

: >BG           ( N1 --- )
                10 * attrib c@ 0F and + attrib c! ;

: >BUGN         ( --- ) BLUE  >BG GREEN >FG ;
: >RDWT         ( --- ) RED   >BG WHITE >FG ;
: >BUWT         ( --- ) GREEN >BG WHITE >FG ;

: >COLOR        ( --- )         \ Select hilighting for color monitor.
                ['] >BUGN IS >ATTRIB1
                ['] >RDWT IS >ATTRIB2
                ['] >BUWT IS >ATTRIB3
                ['] >RDWT IS >ATTRIB4 ;

' >COLOR IS INITCOLOR   \ Enable attributes according to video board.

VMODE.SET               \ RESET VIDEO MODE TO CURRENT VIDEO BOARD.

DECIMAL