anchor.diff:        km  : TKeyMap;
         procedure Initialize; override;
         procedure DoRun; override;
  +      procedure OnCmdAccept( s :  string );
         procedure DelegateKey( ext : boolean; ch : char );
       end;
   
  
positive.code: {$mode delphi}
  program impforth;
  uses custapp, uimpforth, ui, uminneron;
  
  type
    TForthApp = class (TCustomApplication)
  
negative.code:     else cmd.handle(ch);
    end;
  
  var stepcount : cardinal = 0;
  procedure TForthApp.DoRun;
    begin
      km.HandleKeys;
      if cmd.is_dirty then cmd.Show;
      if not imp.NeedsInput then imp.EvalNextToken;
    end;
  
  var app : TForthApp;
  