( 8-bit VGA Graphics Driver )
15 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 ;
0 color ! clear
