How many characters of code did you use?
500

Include your code here, if you'd like to show it off!
r={}o,p={0,15,6,6},{1,-1,0,0}x,y,d,l=0,0,0,8g="⬅️➡️⬆️⬇️"for i=1,16do add(r,{})end
for i=0,79do add(r[i%16+1],rnd(5)\1+8,1)end::🅾️::cls()
i=0while i<16do
a,b=i\4,i%4c=a^^2q,w=(o[a+1]+a\2*b)*8,(o[c+1]+(c\2&1)*b)*8i+=1
for e in all(r[i])do?"🅾️",q,w,e
q+=p[a+1]*8w+=p[c+1]*8end end
x,y=mid(x,3),mid(y,3)q,w=x*8+48,y*8+48?g[d+1],q,w,l
if(btnp(🅾️))a=r[d*4+1+(d\2&1)*x+((d^^2)\2&1)*y]while #a>0do b=deli(a,#a)if(b!=l)add(a,l)l=b break end ?"\ae2"
for i=0,3do
if(btnp(i))x-=p[i+1]y-=p[(i^^2)+1]d=i
end
flip()goto 🅾️