anchor.diff:      drop
   ;
   
  +header testIO
  +: testIO
  +    begin
  +	key
  +	dup
  +	h# 0040 io!
  +	dup 
  +	emit emit
  +    again
  +;
  +
   header init :noname var:
   create init meta t' quit 2* target ,
   
   : main
  -    \ init @i execute
  -    \ h# 0123 h# 0040 io!
       cr
       decimal
       tethered off
  -    h# 0002 h# 0040 io!
       key> drop
  -    h# 0004 h# 0040 io!
       init @i execute
   ;
   
  
positive.code: header quit
  : quit
      begin
          refill drop
          interpret
          space
          [char] k
          [char] o 2emit
          cr
  
negative.code:     drop
  ;
  
  header key? ( -- f ) \ true if a character can be read 
  : key?
      h# 0086 io@ h# 0f00 and 0<>
  ;
  