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