home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / OSK / DEMOS / UB_68000.LZH / bench9 < prev    next >
Text File  |  1996-05-06  |  91b  |  8 lines
  1. PROCEDURE bench9
  2. DIM a:INTEGER
  3. a=0
  4. SHELL "date"
  5. 10 a=a+1
  6. IF a<1000000 THEN 10
  7. SHELL "date"
  8.