0 m%=milliseconds(0)
9 gelload "icon","icon.png"
10 for i%=0 to 10000
11 name$=str$(i%)
20 spritegel name$,"icon"
30 spritemove name$,10,10
40 next i%
50 drawstring str$(milliseconds(0)-m%),50,50
60 repaint:gt 60