anchor.diff:      procedure OnCmdAccept( s :  string );
       procedure OnSpace;
     end;
  + 
   procedure TTokEd.init;
     begin
  
positive.code:     oncmdaccept(cmd.work);
    end;
  
  procedure TTokEd.step;
    begin
      if dirty then begin cmd.is_dirty := true; draw end;
      if cmd.is_dirty then cmd.Show;
    end;
  
  
  
  procedure TTokEd.draw;
    var word : string; y : byte = 0;
  
negative.code:     km.cmd[ ^C ] := self.quit;
      km.cmd[ #32 ] := self.OnSpace;
    end;
  
  //  !! copied directly from TEditor.DelegateKey :/
  procedure TTokEd.DelegateKey( ext : boolean; ch : char );
  