( SDL Graphics Driver )
0 constant black
1 constant blue
2 constant green
3 constant cyan
4 constant red
5 constant magneta
6 constant brown
7 constant grey
8 constant darkgrey
9 constant lightblue
10 constant lightgreen
11 constant lightcyan
12 constant lightred
13 constant lightmagneta
14 constant yellow
15 constant white

white variable bgColor
: tc 8 * swap 8 * swap ;
: clear color @ bgColor @ 0 0 at color ! hp @ vp @ rect color ! cr ;
: blank-line hp @ 8 bgColor @ color ! rect 0 color ! ;
: scroll 8 0 at hp @ vp @ 16 - 0 0 blit vp @ 16 - 0 at blank-line vp @ 16 - 0 at ;
: setres dup vp ! 8 / vc ! dup hp ! 8 / hc ! clear ;
black color ! clear
