1 gelload "icon","icon.png"
2 for i%=0 to 500
3 spritegel str$(i%),"icon"
4 next i%

10 m%=milliseconds(0)
11 for i%=0 to 500
30 spritemove str$(i%),10,10
40 next i%

50 drawstring str$(milliseconds(0)-m%),50,50
60 sleep 5000