anchor.diff:        km  : TKeyMap;
         procedure Initialize; override;
         procedure DoRun; override;
  +      procedure OnCmdAccept( s :  string );
         procedure DelegateKey( ext : boolean; ch : char );
       end;
   
  
positive.code:   var ch : char;
    begin
      km := TKeyMap.Create(self);
      cmd := ui.ZInput.Create(self);
      for ch := #0 to #225 do km.crt[ ch ] := DelegateKey;
      km.cmd[ ^C ] := Terminate;
      imp.CreateOp('bye', Terminate);
      WriteLn('ok');
    end;
  
  //  !! copied directly from TEditor.DelegateKey :/
  
negative.code: {$mode delphi}
  program impforth;
  uses custapp, uimpforth, ui, uminneron, cw, kvm,cli;
  
  type
    TForthApp = class (TCustomApplication)
  