REM   The infamous Savage benchmark
REM
REM   This is a test of floating-point speed and accuracy.


REM   We don't have tangent or square root built-in, so we'll add a couple
REM   of functions to provide them.

FUNCTION TAN(arg AS FLOAT) AS FLOAT
	TAN = SIN(arg) / COS(arg)
END


FUNCTION SQRT(arg AS FLOAT) AS FLOAT
	SQRT = arg ^ 0.5
END



GLOBAL x AS INTEGER
GLOBAL y AS FLOAT
GLOBAL w AS INTEGER
GLOBAL z AS INTEGER

y = 1.0


REM   Set the time to 0

DPOKE(14, -32767)
DPOKE(39,0)


REM   Run the calculations

FOR x = 1 TO 2500
	y = TAN(ARCTAN(10.0^(LOG(SQRT(y*y)))))+1.0
NEXT x

REM   Grab the end time & print the results

z = DPEEK(14)
w = DPEEK(39)

PRINT "\013\010", w AND 255, " minutes", w/256, " seconds", z
PRINT "\013\010", y - 2500