anchor.diff:  : drop,         $6103 i, ;
   : !,            $6123 i, drop, ;
   : @,            $6C00 i, ;
  +: nop,          $6000 i, ;
   : dup,          $6081 i, ;
   : over,         $6181 i, ;
   
  
positive.code: [then]
  
  variable        nn
  : -eoi          dup 0= if r> drop then ;
  : ucase         dup [char] a [char] z 1+ within $20 and xor ;
  : >bin          [char] 0 - dup 10 u< 0= 7 and - ;
  : +hex          dup 0 16 within 0= if 2r> 2drop r> drop then ;
  
negative.code: : >body         definition ;
  : invert        invert, ;
  : ,             ,, ;
  : nop           nop, ;
  
  host definitions
  
  