PROGRAM BenchMark
?
?  timing test displayed in Amazing Computing Volume 1,#9, 1986 p.79
?  program averages 4.64 seconds on 68000 in single precision F-Basic
?                   1.46 seconds on 68020 in single precision F-Basic
?                   50.56 seconds on 68000 in double precision F-Basic
?                   1.34 seconds on 68020/68881 in doubles precision F-Basic
?
?
REAL A,B
INTEGER i
TYPE DateStamp IS RECORD
   INTEGER DAYS,MINUTES,TICKS
ENDTYPE
DateStamp Ad,Bd
DATA (A,1.)

SUBPROGRAM
   SUBROUTINE ElapsedSeconds

i=DOSTIME(@Ad)  ; ? get initial system time
FOR dummy=1 TO 2500
   B=TAN(ATAN(EXP(LN(SQRT(SQR(A))))))/A - 1.0
   B=B*B
   RINC(A)
NEXT dummy
i=DOSTIME(@Bd)  ; ? get final system time
PRINT B
PRINT "Reported Time:",
ElapsedSeconds(@Ad,@Bd)
END
SUBROUTINE ElapsedSeconds
PARAMETER
   PTR_TO DateStamp TBEGIN,TEND
LOCAL
   INTEGER TotSeconds
&QUICK 0
TotSeconds=0
TotSeconds=(TEND.DAYS-TBEGIN.DAYS)*4320000+(TEND.MINUTES-TBEGIN.MINUTES)*3000+(TEND.TICKS-TBEGIN.TICKS)
PRINT TotSeconds/(50.0)
GRETURN
END