Characters/Bytes used
1024

Source Code
::i::d=")RF*RF,RF*TF(TF*TF(YRF)YQ<V2P(R2Q2R<P<S<W<U(=S(=S*P<QF*=)Q(=)Q*Q(R"b=btnp
f=flr
g=30q=127u=20e=0y=0m={}x=0for i=0,16384do
m[i]=0end
n=0o=0t=0v=sset
p={x=0,y=g,d=1}w={x=u,y=g,d=1}pal({1,5,6,13})for j=1,#d do
c=ord(d,j)r=f(c/10)l=c%(r*10)for k=0,l do
v(x,y,r-4)v(x,y+9,r-4)x+=1if(x>23)x=0y+=1end
end
poke2(960,0x2200,0x0044,0x4220,0x0004)function a(r)d,x,y=r.d,r.x,r.y
n=nil
if(d==0and y>28)r.y-=2
if(d==1and x<126)r.x+=2
if(d==2and y<126)r.y+=2
if(d>2)then
n=1d=1if(x>2)r.x-=2end
s=y*.2+5if(d==2and o>0)n=1
sspr(d*8,o,8,8,x-s/2,y-s+1,s,s,n)
end?"\ac3g4"
::l::cls(14)circfill(97,9,5,7)?"\^w\n " ..e
rectfill(0,u,q,q,15)for i=0,#m do
if(m[i]>0)pset(i%q,f(i/q),8+m[i])end
if(w.x<3or w.y<29or w.x>125or w.y>125)w.d+=1
if(g<1)g=f(rnd(u)+u)w.d+=rnd({-1,1})
if(w.d<0)w.d=3
if(w.d>3)w.d=0
if(b(0))p.d-=1
if(b(1))p.d+=1
if(p.d<0)p.d=3
if(p.d>3)p.d=0
a(p)a(w)m[w.x+q*w.y]=2z=p.x+q*p.y
if(m[z]>1)e+=5
m[z]=1g-=1
if(t%8==4)o=0
if(t%8==0)o=8?"\ai6c0"
if(t>145)?"\ac5"
if(t>149)goto g
t+=.5flip()
goto l
::g::
if(b(4))goto i
goto g