anchor.diff:  t: HOME		0 0 AT-XY ;
   t: PAGE		cursor- CLS HOME cursor+ ;
   
  -t: plot		font + top 7 FOR OVER C@ OVER C!
  +t: plot		FONT @ + top 7 FOR OVER C@ OVER C!
   		80 + SWAP 256 + SWAP NEXT 2DROP ;
   t: feed		$FF0000 $FF9600 $FF0280 DO
   		R@ @ OVER ! 8 + 8 +LOOP DROP ;
  
positive.code: t: !tx		cursor- 255 AND DUP ctrl? IF doctrl ELSE !txraw THEN cursor+ ;
  t: mgia-type	cursor- (TYPE) cursor+ ;
  
  t: 0mgia	0 cursorHidden ! 0 cursorVisible !
  		doLIT !tx DUP 'EMIT ! 'ECHO ! PAGE cursor+ ;
  
  
negative.code: tglobal cursorY
  tglobal cursorHidden
  tglobal cursorVisible
  tglobal FONT
  
  tcreate font
  S" v-font.fs" included
  