anchor.diff:  
     TKMHousesCollection = class(TKMList)
     private
  -    fSelectedHouse: TKMHouse;
       function AddToCollection(aHouseType: THouseType; PosX,PosY:integer; aOwner: shortint; aHBS:THouseBuildState):TKMHouse;
       function GetHouse(Index: Integer): TKMHouse;
       procedure SetHouse(Index: Integer; Item: TKMHouse);
  
positive.code: var i,HouseCount: Integer; HouseType: THouseType;
  begin
    LoadStream.ReadAssert('Houses');
    LoadStream.Read(fSelectedHouse, 4);
    LoadStream.Read(HouseCount);
    for i := 0 to HouseCount - 1 do
    begin
  
negative.code: var I: Integer;
  begin
    SaveStream.Write('Houses');
  
    SaveStream.Write(Count);
    for I := 0 to Count - 1 do
  