home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / OSK / LANGUAGES / OB68_116.LZH / bench6 < prev    next >
Text File  |  1996-05-07  |  140b  |  13 lines
  1. PROCEDURE bench6
  2. DIM i:INTEGER
  3. SHELL "date"
  4. FOR i=1 TO 1000000
  5. IF 4=5 THEN
  6. ENDIF
  7. WHILE 4=5 DO
  8. ENDWHILE
  9. REPEAT
  10. UNTIL 5=5
  11. NEXT i
  12. SHELL "date"
  13.