Character Count
499

Code
x=0j=0h=0웃=1u=0r=128p=0k=20l=line::s::cls(5)pal(10,9)f=rectfill
for c=0,r do
l(61,0,32*c-512+x,r,4)end
if(x<1)g=u
for c=1,6do
i=r-c*10l(0,i,r,i,6)end
for i=0,3do
l(64,0,x-r,r-5*i,9-i)end
for i=0,3do
f(0,0,r,64-18*i,9+i)end
for i=0,1do
b=g+97f(x-r,80+g,x,b-k*i,12+i)l(0,29,r,29,3)l(x-r,b,x,b,1)end?웃<6and"웃"or"★",40,u-h+88,7
p+=1?p
if(웃>8)웃=0
c=btnp
if(c(🅾️))if(j<1)j=k
if(j>0)j-=1if(h<j)h+=1
if(h>j)h-=1
if(c(⬆️))u-=k
if(c(⬇️))u+=k
u=mid(-k,u,k)x-=4x%=512웃+=1if(x==160)if(h<6or u==g)stop()
flip()goto s