Compressed Bytes used
1024

Source Code (OPTIONAL)
--tHE sEED wANDERER
x=1l=-600u=0s=76a=77g=0P=0v=6R=3w=4h=10poke(24364,1)srand(51)for n=0,32767do e=rnd(256)\1if(n<17151)poke(n,e)
poke(n+32768,e&((n\1620*20&n%180\9)*1337|n)==e and e%128)end poke2(13820,rnd(-1))::n::srand(l)d={}E={}for n=0,15do add(d,n)add(d,n+128)end for n=0,15do E[n]=del(d,rnd(d))end pal(E,1)::e::t=tonum n=btnp o=t(n(➡️))-t(n(⬅️))i=t(n(⬇️))-t(n(⬆️))function f(e,n,d)if(not d)n%=182
return 32768+e%180+n*180end function X(n,d,e,t,o,i,h)local n={f(n,d),f(e,t),f(e+o,t+i)}local r,d,l,f=@n[1],@n[2],@n[3],{0,1,3}if d~=0then srand(%d)if h and d%128==x and not c then u+=1if u==5then c=true end end y=rnd{1,2,3}b=0for n=1,3do if n==y then f[n]=1else j=rnd{0,2,3,4}if j==3then b+=1end f[n]=j end if l~=0and b==0and(f[2]==1or f[3]==2)then if not X(e+o,t+i,e+o*2,t+i*2,o,i)then return end end end poke(12544,255,255,255,(%d+98)%64)music(0)music(-1,300)end for e=1,3do S=f[e]if S==0then poke(n[e],0)elseif S==1then poke(n[e],r)if h then s,a=(n[e]-32768)%180,(n[e]-32768)\180poke(n[e],0)end elseif S==2then poke(n[e],d)elseif S==3then poke(n[e],@n[3])elseif S==4then poke(n[e],@d)end end return@n[1]==0end cls(v)for n=0,12do for e=0,12do z=s+n-6A=a+e-6t=@(f(z,A,1))if t~=0then fillp(%(t%128*2)+.5)k=n*4+6m=e*8+12rectfill(k,m,k+3,m+3,(x==t and not c or t>127)and h or R)end end end fillp(-6938.5)rectfill(30,60,33,63,w)fillp(%(x*2)+.5)if(not c)rectfill(22,116,41,119,R)
if u>0then p=nil if c then r=f(s+g,a+P)if@r==0then p=time()%1>.5if@r==0and btnp(❎)then poke(r,x+128)u-=1sfx"25"if u==0then x,c=x%127+1end end end end if p then?"PRESS ³eX",19,116,h
else rectfill(22,116,21+4*u,119,h)end end flip()if o~=0or i~=0then g=o P=i q=a X(s,a,s+o,a+i,o,i,1)sfx(47)if abs(q-a)>99then l+=sgn(q-a)goto n end end goto e

Link to Commented Source Code (OPTIONAL)
https://gist.github.com/Woflox/ebfc0fee67e30ea54500ecd1c6409556