anchor.diff:  begin
     Result := 0;
     if not FileExists(aPath) then
  -    exit;
  +    Exit;
   
     S := TMemoryStream.Create;
     try
  
positive.code: function Min(Values: array of Single): Single; overload;
  function PickMin(Values: array of Single): Byte;
  
  function Max(const A,B,C: integer):integer; overload;
  function Max(const A,B,C: single):single; overload;
  
    function GetLengthSQR(ix,iy,iz:integer): integer; //Length without SQRT
    function GetLength(ix,iy,iz:single): single; overload;
  
negative.code: 
  function Adler32CRC(S: TMemoryStream): Cardinal;
  var
    I, A, B: Cardinal;
  begin
    A := 1;
    B := 0; // A is initialized to 1, B to 0
  
    // We need to MOD B within cos it may overflow in files larger than 65kb, A overflows with files larger than 16mb
    if S.Size <> 0 then
      for I := 0 to S.Size - 1 do
      begin
        Inc(A, pbyte(Cardinal(S.Memory) + I)^);
        B := (B + A) mod 65521; // 65521 (the largest prime number smaller than 2^16)
      end;
    A := A mod 65521;
  