anchor.diff:  	    [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 0<> to inverse? 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
  
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] s OF line# to saved-line# column# to saved-column# ENDOF
  	    [char] u OF saved-line# to line# saved-column# to column# ENDOF
  	    dup dup to dang OF blink-screen ENDOF
  	ENDCASE stopcsi IF false to csi-on
  	        false to esc-on 0 to esc-num-parm 0 to esc-num-parm2 THEN
  	THEN
      ELSE CASE
  	( DEV VT compatibility stuff used by accept.fs )
  