Characters/Bytes used
1022

Source Code
memcpy(0,24591,384)
?"\as❎l0wi7x4c1ccg0aaaeffff#ggg#g#aaadeeegffff#ggg#g#"
?"\asgl0wi5x5v2e2eedeefeeddcccddeeddeeffeddccddd"
music(0,0,7)c=cos
function g()a=.75z=0w=0◆=32h=61🅾️={}end
camera(-64,-64)♪={"\a0scx5v6i5c4g3c4fv1f",[-5]="\a1i6bc0"}g()d=sin
function _update60()b=btn()s=◆>>9
if(b&32>0)g()
while #🅾️<10 do w+=1 srand(flr(w/5))add(🅾️,{p=rnd()+w/8*(rnd()-0.5),x=d(w/100)*8,y=d(w/61)*5,m=1-6*flr(rnd(2)),d=w,k=sqrt(w+4000)%1==0})end
if(h>.1)z+=s h-=1/60 a+=(flr(b/2)%2-b%2)/90+(🅾️[1].y>>8)*c(a)*s-(🅾️[1].x>>8)*d(a)*s
if z>1 then
z-=1
deli(🅾️,1)t=🅾️[1]
if(t.k)h+=10?"\a2sai2cg2g3e"
if(abs((t.p-a+.5)%1-.5)<.05)t.g=1◆+=t.m?♪[t.m]
end end
function _draw()cls()t=🅾️[1]➡️,⬇️=-t.x*z,-t.y*z
❎=-t.x
▤=-t.y
for i=1,#🅾️ do
t=🅾️[i]➡️+=t.x
⬇️+=t.y
❎+=➡️
▤+=⬇️
q=i-z
█=❎/q
▒=▤/q
r=60/q
for i=0,1,.1 do pset(█+c(i)*r,▒+d(i)*r,8+t.d%8)end
if(t.k)circ(█,▒,r,7)
x,y=(❎+c(t.p)*56)/q,(▤+d(t.p)*56)/q
r=8/q
if(not t.g)pal(7,t.m+6)sspr(1,1,5,5,x-r,y-r,r*2+1,r*2+1)
pal()end
circfill(c(a)*56,d(a)*56,4,7)?flr(◆+w/10-33).."\n⧗"..flr(h),-10,-64,8.5+h/20
end