Compressed Bytes used
1024

Source Code (OPTIONAL)
G=5function r(S,t)cls()F={line,ovalfill,rect,rectfill}X=0
for i=0,#S-1 do
V=ord(S,i+1)-35
poke(i%G,V)
if(i%G>G-2)do
X+=V\11*8
for j=0,0^(@0\48)*7do
map(@0\6,@1\14,X+j*384,V%11*8+24,@1%14+@1%14\13*35,@0%6*2+1)
end
if(t)F[V\16](@0,@1,@2,@3,V)end
end
if(t)for n=0,3^8 do t(n%88,n\88,pget(n%88,n\88))t(n\51%16,n\51\16,n\51)
end
end
r("k;zs`3#:*r4#I3DC#Z*j5%8(jR$B*TJ&B(TD%F#4D)J#4H)H)4K#Q(lL$Q(jQ&N'<O#N*4T$Y)lU%X'XW)W)XU'V'\\c3i8ml3yrfn3qrnx;xrnj3yz^l:ysXk3z:Xl:y:TO6^>ET3Z;ET4Z;IP7]=I3#:*:ON^VETKZSEPO]UKTLZRK+JBjG&OGeG#SJeGr#z*o",sset)
r("3$@&g6#8%Y3(=0E;%;&6#2R3h?)A/m++1/Y",mset)
for n=0,311do
sset(n%40+88,n\40,ord("7>9",ord("d」X⁶Tヒ\0\0きᵉeYX UヒX&そちふ^Xᶠよ;Xレケ\rにッh/にj`レツャにッそ*▤Zき¥ョU((き⁵eZし&ル?⁘⁘…⁵し\0し(` ‖TP◀¹\0¹T",n\4+1)\4^(n%4)%4))
end
p=55y=108v=0G=3?"⁶!5f10<05⬅️3574;97;<<8"
function _update60()r"$ル-$`+BB|AlY*PWˇ$*BBD◆65ˇ$<Al8BB[Z3+BB{ZAAAlN[3`[3けアyね◆4🐱⬇️UGアzo⬇️5]⬇️2K⬇️3lSそl[⬆️G⬇️2♪⬇️4G⬇️Qsˇ%1⬇️3*✽_`に_k✽f▒ウyaZ3▥웃5aZ3さ✽d?✽nRU@はUN)そ6Wひ&3は@@"
g=0v+=.13d=btn()\2%2-btn()%2y+=v
for i=-1,1do
if(pget(p+i*3.9,y+v+sgn(v)*3.9*2)%2>0)y=(y+v+1)\8*8v=0g=1
if(pget(p+d+sgn(d)*3.9,y+i*3.9*2)%2>0)d=0
end
s=13-g*2
if(d!=0)f=d<0p=max(p+d)s+=g*ˇ\4%3+g
camera(max(p-60))ˇ+=1
if(g*btnp()>31)v=-3
spr(15,p-3.9,y+s\14-7,1,1,f)
spr(s,p-3.9,y,1,1,f)
end?"⁶!5f5c◝"