$st=0
$s=0
$et=0
$u=0
$sv=0
$inc=0

$st=milliseconds()
for $i=1 to 100 step 2
    $s=$s+$i
    $s=$s-($i*$i)
next
$et=milliseconds()
gosub res

$st=milliseconds()
for $i=1 to 100 step 2
    gosub testSubs
next
$et=milliseconds()
gosub res

$st=milliseconds()
labG
$u=$u+1
if u < 100 then goto labG
$et = milliseconds()

gosub res
halt

sub testSubs
    $sv=23+$inc
    $inc=12*($inc/8)
return

sub res
    print ($et-$st)/1000.0
return