PROGRAM BenchMark
?
?  timing test displayed in Amazing Computing Volume 1,#9, 1986 p.79
?  program averages 22.2 seconds on 68000 in single precision
?  program averages 6.92 seconds on 68020 in single precision
?  program averages 224.64 seconds on 68000 in double precision
?  program averages 3.90 seconds on 68020/68881 in double precision
?  REAL FOR LOOP version
?
?
REAL A,B
INTEGER i
TYPE DateStamp IS RECORD
   INTEGER DAYS,MINUTES,TICKS
ENDTYPE
DateStamp Ad,Bd

SUBPROGRAM
   SUBROUTINE ElapsedSeconds

i=DOSTIME(@Ad)  ; ? get initial system time
FOR B=1.0 TO 10000.0
   A=SIN(B)
   A=COS(B)
   A=TAN(B)
   A=ATAN(B)
   A=LN(B)
NEXT B
i=DOSTIME(@Bd)  ; ? get final system time
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