( fFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfF )

dev screen

variable RGB-temp struct ( 000 )

: color!    ( r g b index -- )
  >r 
    RGB-temp 2+ c! 
    RGB-temp 1+ c!
    RGB-temp    c!
    RGB-temp
  r> 
  1 set-colors
;

: gray! ( rgb index -- )
  >r 
  dup dup
  r>
  color!
;

ff ff ff 0 color! ( foreground color )
F 1 do FF E0 i / E0 i / i color! loop
00 00 00 F color! ( background color )
100 10 do i i i i color! loop