home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / OSK / DEMOS / UB_68000.LZH / bench4 < prev    next >
Text File  |  1996-05-06  |  224b  |  22 lines
  1. PROCEDURE bench4
  2. DIM i:INTEGER
  3. DIM a:INTEGER
  4. DIM b:INTEGER
  5. DIM c:INTEGER
  6. DIM d:INTEGER
  7. DIM e:INTEGER
  8. DIM f:INTEGER
  9. DIM g:INTEGER
  10. SHELL "date"
  11. a=1
  12. b=2
  13. c=3
  14. d=4
  15. e=5
  16. f=6
  17. g=7
  18. FOR i=1 TO 100000
  19. a=b+c*d/e*(f+g)
  20. NEXT i
  21. SHELL "date"
  22.