anchor.diff:      drop
   ;
   
  -header key? ( -- f ) \ true if character can be read 
  +header key? ( -- f ) \ true if a character can be read 
   : key?
       h# 0086 io@ h# 0f00 and 0<>
   ;
  
positive.code: 
  header accept
  : accept
      tethered @i if d# 30 emit then
  
      >r d# 0  ( addr len R: maxlen )
  
      begin
          key    ( addr len key R: maxlen )
  
          d# 9 over= if drop d# 32 then
  
negative.code: 
  header emit
  : emit
      h# 0080 _io!
      begin
       	h# 0086 io@ h# 000f and h# 0008 =
      until
  ;
  
  header space
  