  % filename "t.exe"

  includepath "$/inc/"
 'include     "RTL32.inc"
  include     "RTL64.inc"
  include     "MinWin.inc"


  function f1()
  INT k,i,m,j
  for i=1 to 1e8
    j=12345
    j*=2
  next
  end function

  int t1=gettickcount
  f1
  int t2=gettickcount

  print t2-t1

  'RESULTS
  '=======

  'LAPSED TIME FOR 10^8 LOOPS IN MILLISECS

  'expression j/=2

  'RTL32' 530 530 546 530
  'RTL64' 842 842 827 843

  'expression j*=2
  'RTL32' 265 260 265 250
  'RTL64' 671 671 655 671



