home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / OSK / LANGUAGES / OB68_116.LZH / bench5 < prev    next >
Text File  |  1996-05-06  |  138b  |  10 lines

  1. PROCEDURE bench5
  2. TYPE UserType=a:INTEGER; b:BYTE
  3. DIM x:UserType
  4. DIM i:INTEGER
  5. SHELL "date"
  6. FOR i=1 TO 1000000
  7. x.a=x.b
  8. NEXT i
  9. SHELL "date"
  10.