anchor.diff:  
   0 VALUE dang
   0 VALUE blipp
  +false VALUE stopcsi
  +0 VALUE term-background
  +7 VALUE term-foreground
  +
  +: set-term-color
  +   dup d# 30 d# 39 between IF dup d# 30 - to term-foreground THEN
  +   dup d# 40 d# 49 between IF dup d# 40 - to term-background THEN
  +   0 = IF
  +      0 to term-background
  +      7 to term-foreground
  +  THEN
  +  term-foreground term-background <= to inverse?
  +;
   
   : ansi-esc ( char -- )
       csi-on IF
   	dup [char] 0 [char] 9 between IF set-esc-parm
  -	ELSE CASE
  +	ELSE true to stopcsi CASE
   	    [char] A OF line# reverse-cursor to line# ENDOF
   	    [char] B OF #lines line# advance-cursor to line# ENDOF
   	    [char] C OF #columns column# advance-cursor to column# ENDOF
  
positive.code: 		1 get-esc-parm2 to line# column# get-esc-parm to column#
  	    ENDOF
  	    ( second parameter delimiter for f and H commands )
  	    [char] ; OF 0 get-esc-parm to esc-num-parm2 ENDOF
  	    [char] J OF
  		#lines line# - dup 0> IF
  			line# 1+ to line# delete-lines line# 1- to line#
  
negative.code: 	    [char] M OF 1 get-esc-parm delete-lines ENDOF
  	    [char] @ OF 1 get-esc-parm insert-characters ENDOF
  	    [char] P OF 1 get-esc-parm delete-characters ENDOF
  	    [char] m OF 0 get-esc-parm set-term-color ENDOF
  	    ( These are non-ANSI commands recommended by OpenBoot )
  	    [char] p OF inverse-screen? IF false to inverse-screen?
  			inverse? 0= to inverse? invert-screen
  