How many characters of code did you use?
559

Include your code here, if you'd like to show it off!
d=25u=22k=58h=25v=28g=28p=0l=25y=56i=32q=127w=30s=1z=0m=115 a=3600t=0o=0n=line r=rectfill::_::if a>0 then cls(3)rect(1,1,q,q,7)n(33,1,33,q,7)n(65,1,65,q,7)n(97,1,97,q,7)r(30,95,52,98,8)r(53,95,75,98,11)r(76,95,98,98,8)n(w,96,w,97,0)if z==0 then w=mid(30,w+s,98)h=d v=g if(w>=98 or w<=30)s=-s else h=99v=60 end if btnp()>0then z=1%z s+=abs(s)\s*1.1*z p=pget(w,95)t=2*(p-8)if t>0 and z>0 then o+=t t=0u=105k=62 else u=22k=58 end end ?"2 0",g,2,7 ?"1 0",60,2,7 ?"g",92,2,7 ?"웃",h,v,6 ?"웃",16,y,6 ?"웃",l,y,6 pset(u,k,4) ?o,99,m,7 ?a\30,3,m,7 a-=1 flip()end goto _