10 gelload "i","icon.png":spritegel "i1","i":spritegel "i2","i"
20 spritemove "i1",50,50
30 spritemove "i2",x%,y%
40 if left(0) then x%=x%-1:s%=1
50 if right(0) then x%=x%+1:s%=2
60 if up(0) then y%=y%-1:s%=3
70 if down(0) then y%=y%+1:s%=4
75 if fire(0) th stop
80 if sh("i2","i1") and s%=1 then x%=x%+1
90 if sh("i2","i1") and s%=2 then x%=x%-1
100 if sh("i2","i1") and s%=3 then y%=y%+1
110 if sh("i2","i1") and s%=4 then y%=y%-1
120 repaint:sleep 10:goto 30