anchor.diff:    BestD := -1;
   
     for iD := 1 to fDemandCount do
  -  if BestBid = 0.01 then
  +  if BestBid < 0.015 then
       //Quit loop when best bid is found
       Break
     else
       if fDemand[iD].Ware <> wt_None then
       for iO := 1 to fOfferCount do
  -    if BestBid = 0.01 then
  +    if BestBid < 0.015 then
         //Quit loop when best bid is found
         Break
       else
  
positive.code:       end;
      end;
  
    if BestBid <> MaxSingle then
      AssignDelivery(BestO, BestD, aSerf);
  end;
  
  
negative.code: 
  //Should issue a job based on requesters location and job importance
  //Serf may ask for a job from within a house after completing previous delivery
  procedure TKMDeliverQueue.AskForDelivery(aSerf: TKMUnitSerf; aHouse: TKMHouse = nil);
  var
    iD, iO, BestD, BestO: Integer;
    Bid, BestBid: Single;
  