home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / OSK / LANGUAGES / OB68_116.LZH / bench4.b < prev    next >
Text File  |  1996-05-06  |  227b  |  21 lines
  1.  dim i:integer
  2.  dim a:integer
  3.  dim b:integer
  4.  dim c:integer
  5.  dim d:integer
  6.  dim e:integer
  7.  dim f:integer
  8.  dim g:integer
  9.  shell "date"
  10.  a=1
  11.  b=2
  12.  c=3
  13.  d=4
  14.  e=5
  15.  f=6
  16.  g=7
  17.  for i=1 to 100000
  18.  a=b+c*d/e*(f+g)
  19.  next i
  20.  shell "date"
  21.