sync on
create bitmap 1,2,2
ink rgb(255,0,255),0
box 0,0,15,15
get image 1,0,0,1,1
delete bitmap 1
SW=screen width():SH=screen Height()
tx=sw/2
ty=sh/2
walk =20:turn=45
type place
   xpos as integer
   ypos as integer
endtype
dim visited(-1) as place
 
do
 
sprite 1,tx,ty,1
for xx=0 to walk
move sprite 1,1
tx=sprite x(1):ty=sprite y(1)
array insert at top visited()
visited(0).xpos=tx
visited(0).ypos=ty
next xx
lock pixels
for a = 0 to array count(visited())
dot visited(a).xpos,visited(a).ypos
next a
unlock pixels
 
ink rgb(255,255,255),0
 
angle=wrapvalue(angle+turn)
rotate sprite 1,angle
 
 
sync
wait 30
 
loop