anchor.diff:  	fontbytes * bounds ?DO
   		i c@ active-bits 0 ?DO
   			dup 80 and IF fb8-foreground ELSE fb8-background THEN
  -			( fb-addr fbyte colr ) 2 pick ! 1 lshift swap 1+ swap
  +			( fb-addr fbyte colr ) 2 pick ! 1 lshift
  +			swap screen-depth + swap
   		LOOP drop
   	LOOP drop
   	bitmap-buffer
  
positive.code: 0 VALUE frame-buffer-adr
  0 VALUE screen-height
  0 VALUE screen-width
  0 VALUE window-top
  0 VALUE window-left
  
  0 VALUE .sc
  : screen-#rows .sc IF 18 ELSE true to .sc s" screen-#rows" eval false to .sc THEN ;
  : screen-#columns .sc IF 50 ELSE true to .sc s" screen-#columns" eval false to .sc THEN ;
  
  \ \\\\\\\\\\\\\\ Structure/Implementation Dependent Methods
  
  
negative.code: : fb8-toggle-cursor ( -- )
  	line# fb8-line2addr column# fb8-columns2bytes +
  	char-height 0 ?DO
  		char-width screen-depth * 0 ?DO dup dup rb@ -1 xor swap rb! 1+ LOOP
  		screen-width screen-depth * + char-width screen-depth * -
  	LOOP drop
  ;
  
  