I have turned it into a little game. Its like cursor theif. You just have to avoid the little circle thingy. This version is DBP though. DBC version bellow.
DBP version.
Sync On:Sync rate 60:set display mode 640,480,32
DO
box 0,0,640,480,rgb(0,0,0),rgb(s#*5,0,0),rgb(0,s#*5,0),rgb(0,0,s#*5)
if game=1
mx=mousex():my=mousey()
if abs(mx-x#)>10 or abs(my-y#)>10
s#=p:s#=s#/100:if s>s#+1 then s=s#+1
a# = curveangle( atanfull(mx-x#,my-y#) ,a#, abs((mx-x#)+(my-y#))/10):if s<s#+1 then s=s+1
x# = x# + sin(a#)*s:y# = y# + cos(a#)*s
else
s=0
endif
p=p+1:text 10,10,"Points: "+str$(p):if sqrt((mx-x#)^2+(my-y#)^2)<15 then game=0 : if p>hp then hp=p
else
p=0:text 100,100,"Cursor Chaser":text 100,150,"Highscore: "+str$(hp):text 100,200,"Press Space key to play":if spacekey()=1 then game=1
endif
circle x#,y#,10:line x#,y#,x#+sin(a#)*15,y#+cos(a#)*15
sync:cls
LOOP
DBC version.
Sync On:Sync rate 60:set display mode 640,480,32
DO
if game=1
mx=mousex():my=mousey()
if abs(mx-x#)>10 or abs(my-y#)>10
s#=p:s#=s#/100:if s>s#+1 then s=s#+1
a# = curveangle( atanfull(mx-x#,my-y#) ,a#, abs((mx-x#)+(my-y#))/10):if s<s#+1 then s=s+1
x# = x# + sin(a#)*s:y# = y# + cos(a#)*s
else
s=0
endif
p=p+1:text 10,10,"Points: "+str$(p):if sqrt((mx-x#)^2+(my-y#)^2)<15 then game=0 : if p>hp then hp=p
else
p=0:text 100,100,"Cursor Chaser":text 100,150,"Highscore: "+str$(hp):text 100,200,"Press Space key to play":if spacekey()=1 then game=1
endif
circle x#,y#,10:line x#,y#,x#+sin(a#)*15,y#+cos(a#)*15
sync:cls
LOOP
