Characters/Bytes used
1017

Source Code
z=rectfill
h=mget
function a(x,y,u,v)
if(pget(u,v)>1)line(x,y)for i=rnd(4)\1/4,2,.25do a(u,v,u+cos(i)*2,v+sin(i)*2)end
end
cls()z(0,0,62,62,2)?"\f1"
a(9,9,9,9)a=63circ(61,61,2)for i=0,7^5do
mset(i%a,i/a,pget(i%a,i/a))end
fillp(8015)z(0,0,7,7,40)z(8,0,15,7,79)memcpy(0,●-웃,999)poke(14-😐,7)fillp()c=0t=1e=0f=.5x=9.5y=9.5::_::r=stat(38)/999m=stat(34)/9g=cos(r)v=sin(r)
if(h(x+c*m*2,y)<2)x+=c*m
if(h(x,y+t*m*2)<2)y+=t*m
c,t,f,e=c*g-t*v,c*v+t*g,f*g-e*v,f*v+e*g
for n=a,127do
rd=a/(n-a)tline(0,n,127,n,x+rd*(c-f),y+rd*(t-e),rd*f/a,rd*e/a)end
for i=0,127do
cx=i/a-1j=c+f*cx
k=t+e*cx
l=x\1w=y\1n=abs(1/j)o=abs(1/k)p=sgn(j)q=sgn(k)r=n*(j>0and l-x+1or x-l)u=o*(k>0and w-y+1or y-w)s=1b=0while s<2do
b+=1m=r<u
if(b>20)goto a
if(m)r+=n l+=p
if(not m)u+=o w+=q
s=h(l,w)end
d=m and(l-x+.5-p/2)/j or(w-y+.5-q/2)/k
n=(m and y+d*k or x+d*j)%1d=64/d\1sspr(n*8,0,1,8,i,64-d,1,d*2)::a::end
for i=0,1,1/8do
j=x+cos(i)k=y+sin(i)sset(j+64,k,h(j,k)+4)end
if(btn(4))spr(8,0,0,8,8)pset(x,y)
?"⁶1⁶cc"
if(h(x,y)>0)goto _
?" ⁶t⁶wfound the exit!"