examples/bench.qsps

# start
act 'Протестировать цикл на метках':
  gs 'test_jump'
end
act 'Протестировать цикл for':
  gs 'test_for'
end
-

# test_jump
*nl
i = 0
local start_time = MSECSCOUNT
:loop
if i < 10000000:
  i += 1
  if (i MOD 100000) = 0:
    *p '.'
  end
  jump 'loop'
end
local looptime = MSECSCOUNT - start_time
*nl 'JUMP: Выполнено за <<looptime>> миллисекунд'
-

# test_for
*nl
local start_time = MSECSCOUNT
for i = 0 to 10000000:
  if (i MOD 100000) = 0:
    *p '.'
  end
end
local looptime = MSECSCOUNT - start_time
*nl 'FOR: Выполнено за <<looptime>> миллисекунд'
-