Infinity-Profan

cls(rgb(255,0,0))
var s=time(-3)

whileloop 10000000

wend

print "diff:"+((time(-3)-s)/1000)

 {$cleq}
cls
long l=getTickCount

whileloop 10000000

wend

print (getTickCount-l)/1000
waitinput

 {$cleq}
cls
long l=getTickCount
Test()
print (getTickCount-l)/10000
waitinput

nproc Test

    whileloop 100000000

    wend

endproc