Characters/Bytes used
1024 bytes

Source Code
::a::
z=0
t=pset
k=pget
cls()poke(24364,5)
b=127x,y=1,32w,h=16,0r=63w=12s=1f=16d=8g=10v=0
::d::
v+=1if (v%(s*8)==0) pal(g,9,1)
if (v%(s*13)==0) pal(g,10,1)
if v%s==0 then
z+=0.02line(0,0,0,z,14)if z>126 then
?"wo\n ❎\a",56,58,15
while not btnp(5) do end
goto a
end
if rnd()>0.81 then
for c=54,r do
if (rnd()>0.91) t(c,1,w) end
end
if v%(s*18)==0 then
if rnd()>0.7 then d+=2
elseif rnd()<0.3 then d-=2end
d=mid(10,d,f)
for rw=b-f-13,b do
for c=0,62 do
p=k(c+1,rw)t(c,rw,p)t(c+1,rw,0)end
if rw+10>b-f+d then t(r,rw,g)
else if(k(r,rw)==g)t(r,rw,0)end
end
end
for rw=b-1,1,-1 do
for c=1,r do
p=k(c,rw)if c==1 and p==g then
?"de\n ❎\a",56,58,8
while not btnp(5) do end
goto a
end
if p==w then
q=k(c,rw+1)if q==0 or q==g then
t(c,rw+1,w)t(c,rw,0)
else
q=k(c-1,rw+1)if q==0 then
t(c-1,rw+1,w)t(c,rw,0)
else
q=k(c-1,rw)
if(q==0)t(c-1,rw,w)t(c,rw,0)end
end
end
end
end
end
line(0,y,x+w,y+h,0)if v%s==0 then
if(btn(0))x-=1
if(btn(1))x+=1x=mid(-w,x,r-w)
if(btn(2))y-=1
if(btn(3))y+=1y=mid(0,y,b-f-h)end
line(0,y,x+w,y+h,6)goto d