anchor.diff:      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;
  
positive.code:       km  : TKeyMap;
        procedure Initialize; override;
        procedure DoRun; override;
        procedure DelegateKey( ext : boolean; ch : char );
      end;
  
  
negative.code: {$mode delphi}
  program impforth;
  uses custapp, uimpforth, ui, uminneron, cw, kvm,cli;
  
  type
    TForthApp = class (TCustomApplication)
  