home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 91 / af091a.adf / af91a3.lzx / prgs / BenchMarks / calc.b < prev    next >
Text File  |  2018-01-23  |  280b  |  19 lines
  1. REM $EVENT OFF
  2. REM $OPTION a-o-x-n-
  3.  
  4. 10 PRINT "BYTE CALC Benchmark see May 85 issue"
  5. t=timer
  6. 20 NR=5000
  7. 30 A=2.718281828459045
  8. 40 B=3.141592653589794
  9. 50 C=1
  10. 60 FOR I=1 TO NR
  11. 70 C=C*A
  12. 80 C=C*B
  13. 90 C=C/A
  14. 100 C=C/B
  15. 110 NEXT I
  16. t=timer-t
  17. 120 PRINT "ERROR=";C-1
  18. print "Took";t;"seconds"
  19.