anchor.diff:      procedure UpdatePassabilityAround(Loc: TKMPoint);
       procedure UpdateWalkConnect(const aSet: array of TWalkConnect);
   
  -    procedure CCLFind(aPass: TPassability; aWC: TWalkConnect);
  +    //procedure CCLFind(aPass: TPassability; aWC: TWalkConnect);
     public
       Land: array[1..MAX_MAP_SIZE, 1..MAX_MAP_SIZE]of record
         Terrain:byte;
  
positive.code:     end;
  end;
  
  end;
  
  
  end.
  
negative.code: end;
  
  
  {procedure TTerrain.CCLFind(aPass: TPassability; aWC: TWalkConnect);
  var
    I,K,H,J: Integer;
    NCount: Byte;
  