anchor.diff:          cr
       again
   
  -header tasksel
  -: tasksel
  -    h# 8000 io@ if 
  -        begin 
  -            h# 4000 io@ dup if 
  -                execute 
  -            else 
  -                drop
  -            then
  -        again 
  -    then
  -;
  -
   header .s
   : .s
       [char] < emit depth hex2 [char] > emit space
  
positive.code:     then
  ;
  
  header init :noname var:
  create init meta t' quit 2* target ,
  
  : main
      tasksel
      cr
      decimal
      tethered off
      key> drop
      init @i execute
  ;
  
  meta
  
negative.code: 
  header key? ( -- f ) \ true if character can be read 
  : key?
      h# 0086 io@ h# 0f00 and 0<>
  ;
  
  header key ( -- c) \ note that 0x80 always set the high bit hence & 0xFF 
  : key
      begin
          key?
      until
  : key>
      h# 0080 io@ h# 00ff and
  ;
  
  header emit
  : emit
      begin
  	\ h# 0086 io@ h# 00ff and 0<>
          h# 0086 io@ h# 00ff 8 = 
      until
      h# 0080 _io!
  ;
  