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

imprimir (getTickCount-l)/1000
waitinput

 {$cleq}
cls
long l=getTickCount
test()
imprimir (getTickCount-l)/10000
waitinput

nproc test

    whileloop 100000000

    wend

ENDPROC