anchor.diff:  	['] fb8-reset-screen to reset-screen
   	['] fb8-draw-logo to draw-logo
   ;
  +
  +: fb-install  ( width height #columns #lines depth -- )
  +	>r
  +	fb8-install
  +	r> to screen-depth
  +;
  +
   
   \ Install display related FCODE evaluator tokens
   : fb8-set-tokens  ( -- )
  
positive.code: 	2swap 3drop r> >font fb8-char2bitmap ( bitmap-buf )
  	line# fb8-line2addr column# fb8-columns2bytes + ( bitmap-buf fb-addr )
  	char-height 0 ?DO
  		2dup char-width mrmove
  		screen-width + >r char-width + r>
  	LOOP 2drop
      ELSE 2drop r> 3drop THEN
  ;
  
negative.code: : fb8-background inverse-screen? ;
  : fb8-foreground inverse? invert ;
  
  : fb8-lines2bytes ( #lines -- #bytes ) char-height * screen-width * screen-depth * ;
  : fb8-columns2bytes ( #columns -- #bytes ) char-width * screen-depth * ;
  : fb8-line2addr ( line# -- addr )
  	char-height * window-top + screen-width * screen-depth *
  	frame-buffer-adr + window-left screen-depth * +
  ;
  
  : fb8-erase-block ( addr len ) fb8-background rfill ;
  
  
  0 VALUE .ab
  CREATE bitmap-buffer 400 4 * allot
  
  : active-bits ( -- new ) .ab dup 8 > IF 8 - to .ab 8 ELSE
  		char-width to .ab ?dup 0= IF recurse THEN
  