home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / OSK / DEMOS / UB_68000.LZH / bench7 < prev    next >
Text File  |  1996-05-07  |  108b  |  9 lines
  1. PROCEDURE bench7
  2. DIM a:BYTE
  3. DIM i:INTEGER
  4. SHELL "date"
  5. FOR i=1 TO 1000000
  6. a=LAND($55,a)
  7. NEXT i
  8. SHELL "date"
  9.