home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 4 / FreshFish_May-June1994.bin / bbs / amigalib / d977 / forth.lha / Forth / Basic-Benchmarks / float next >
Encoding:
Text File  |  1994-04-04  |  217 b   |  17 lines
  1. t=TIMER
  2. 500 NR=5000
  3. 520 DEFSNG A-Z
  4. 540 A=2.71828
  5. 560 B=3.14159
  6. 580 C=1
  7. 600 FOR I=1 TO NR
  8. 620 C=C*A
  9. 640 C=C*B
  10. 660 C=C/A
  11. 680 C=C/B
  12. 700 NEXT I
  13. 720 PRINT "DONE": BEEP
  14. 740 PRINT "ERROR = "; C-1
  15. 790 PRINT  TIMER-t
  16. input a$
  17.