anchor.diff:      function  AskForHouseRepair(KMWorker:TKMUnitWorker; aLoc:TKMPoint):TUnitTask;
       procedure CloseHouseRepair(aID:integer);
       procedure RemoveHouseRepair(aHouse: TKMHouse);
  +    //procedure Save(SaveStream:TMemoryStream);
     end;
   
   implementation
  
positive.code: end;
  
  
  function TKMDeliverQueue.WriteToText():string;
  var i:integer;
  begin
  
negative.code:     procedure GaveDemand(aID:integer);
      procedure CloseDelivery(aID:integer);
      procedure AbandonDelivery(aID:integer); //Occurs when unit is killed or something alike happens
      procedure Save(SaveStream:TMemoryStream);
      function WriteToText():string;
    end;
  
  