anchor.diff:  end;
   
   
  -procedure TKMGUIGameHouse.ShowCommonOutput(aHouse: TKMHouse; Base: Integer;var Line, RowRes: Integer);
  +procedure TKMGUIGameHouse.ShowCommonOutput(aHouse: TKMHouse; Base: Integer; var Line, RowRes: Integer);
   var
     I: Integer;
     HSpec: TKMHouseSpec;
  
positive.code:     procedure House_WoodcutterChange(Sender: TObject);
      procedure House_ArmorWSDeliveryToggle(Sender: TObject);
  
      procedure ShowCommonDemand(aHouse: TKMHouse; Base: Integer;var Line: Integer; var RowRes: Integer);
      procedure ShowCommonOutput(aHouse: TKMHouse; Base: Integer;var Line: Integer; var RowRes: Integer);
      procedure ShowCommonOrders(aHouse: TKMHouse; Base: Integer;var Line: Integer; var RowRes: Integer);
      procedure ShowTownHall(aHouse: TKMHouse);
      procedure ShowArmorWorkshop(aHouse: TKMHouse);
  
  
negative.code: end;
  
  
  procedure TKMGUIGameHouse.ShowCommonOrders(aHouse: TKMHouse; Base: Integer; var Line, RowRes: Integer);
  var I: Integer; Res: TKMWareType;
  begin
    //Show Orders
  