anchor.diff:      function GetSaveDir(aSaveName: string): string;
       procedure Log(const aString: string);
     protected
  +    function DoCheckSavePoints: Boolean; virtual;
       procedure SetUp(); override;
       procedure TearDown(); override;
       procedure Execute(aRun: Integer); override;
  +  end;
  +
  +
  +  TKMRunnerCrashTest = class(TKMRunnerDesyncTest)
  +  protected
  +    function DoCheckSavePoints: Boolean; override;
     end;
   
   
  
positive.code:         else
            OnProgress_Left('');
  
          if Assigned(fOnStop)
            and fOnStop then
            Exit;
        end;
  
  
negative.code: 
        SimulateGame(0, SIMUL_TIME_MAX);
  
        if not DoCheckSavePoints then
        begin
          if Assigned(fOnStop) and fOnStop then
            Exit;
          Continue;
        end;
  
        SaveGame;
  
  //      LOG_GAME_TICK := False;
  