anchor.diff:  
   closefile(ft);
   result:=true;
  -end;
  +end;}
   
   function ElapsedTime(i1:pcardinal): string;
   begin
  
positive.code:   Result:=sqr(ix)+sqr(iy)+sqr(iz);
  end;
  
  function GetLength(ix,iy,iz:single): single; overload
  begin
    Result:=sqrt(sqr(ix)+sqr(iy)+sqr(iz));
  end;
  
  function GetLength(ix:Vector3f): single; overload
  begin
    Result:=sqrt(sqr(ix.x)+sqr(ix.y)+sqr(ix.z));
  end;
  
  function GetLength(ix,iy:single): single; overload
  begin
    Result:=sqrt(sqr(ix)+sqr(iy));
  end;
  
negative.code:   Result := ArcTan2(X, Sqrt(1 - X * X))
  end;
  
  {function ArcTan2(const Y, X: Extended): Extended;
  asm
          FLD     Y
          FLD     X
          FPATAN
          FWAIT
  end;}
  
  function Pow(const Base, Exponent: integer): integer;
  begin
  