anchor.diff:  
   
   procedure TKMResUnits.ExportCSV(const aPath: UnicodeString);
  -var ft:textfile; ii:TKMUnitType;
  +var
  +  ft: textfile;
  +  ii: TKMUnitType;
   begin
       AssignFile(ft,aPath); rewrite(ft);
       writeln(ft,'Name;HitPoints;Attack;AttackHorse;Defence;Speed;Sight;');
  
positive.code:     utFarmer:      Result := 10;
      utStonecutter: Result := 16;
      utFisher:      Result := 14;
      else            raise Exception.Create(GUIName + ' has no mining range');
    end;
  end;
  
  
negative.code: 
  
  function TKMResUnits.LoadUnitsDat(const aPath: UnicodeString): Cardinal;
  const
    UNIT_DAT_COUNT = 41;
  var
    S: TKMemoryStream;
    I: Integer;
  