home *** CD-ROM | disk | FTP | other *** search
/ Fujiology Archive / fujiology_archive_v1_0.iso / S / SEWER_S / LANGDSK1.ZIP / LANGDSK1.MSA / POWER_DE.MOS / CALC.BAS < prev    next >
BASIC Source File  |  1987-04-22  |  276b  |  17 lines
  1. rem $option o-n-
  2. 10 PRINT "BYTE CALC Benchmark see May 85 issue"
  3. t=timer
  4. 20 NR=5000
  5. 30 A=2.718281828459045
  6. 40 B=3.141592653589794
  7. 50 C=1
  8. 60 FOR I=1 TO NR
  9. 70 C=C*A
  10. 80 C=C*B
  11. 90 C=C/A
  12. 100 C=C/B
  13. 110 NEXT I
  14. t=timer-t
  15. 120 PRINT "ERROR=";C-1
  16. print "Took" t "seconds"
  17.