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.b < prev    next >
Text File  |  1996-05-06  |  128b  |  9 lines
  1.  type UserType=a:integer;b:byte
  2.  dim x:UserType
  3.  dim i:integer
  4.  shell "date"
  5.  for i=1 to 1000000
  6.  x.a=x.b
  7.  next i
  8.  shell "date"
  9.