Here's TDKs and Flashing Blades suggestions in a code example (not that anybody elses suggestions are bad).
This works in Pro.
set display mode 640,480,32
sync rate 0
sync on
draw to back
backdrop off
hide mouse
ink rgb(0,155,0),0
box 0,0,200,200
for t=1 to 2000
ink rgb(rnd(255),rnd(255),rnd(255)),0
dot rnd(200),rnd(200)
next t
get image 1,0,0,200,200,1
sprite 1,0,0,1
offset sprite 1,100,100
make object box 1,100,100,100
a=timer():x=1
do
sprite 1,mousex(),mousey(),1
rotate object 1,wrapvalue(x),0,0
if timer()>a+10 then inc x:a=timer()
sync
loop
