Characters/Bytes used
1024 characters

Source Code
_set_fps(60)h=0r=rectfill::s::for i=0,59do v=ord("#;?#;8#88#58*B4*B1)*1#*0#**)**",i\2+1)-35v=v\6^(i%2)%6sset(2+i%6,i\6,v)sset(12-i%6,i\6,v)end
s=0n=3p={}pal({[0]=1,0,13,15,9,7,4,6},1)x=64z=0k=0y=x::_::cls()k+=.014b=btn()x+=(b&2)/2-(b&1)y+=(b&8)/8-(b&4)/4x=mid(x,127)y=mid(y,127)z-=.1sspr(0,0,16,16,34,34,64,64)
if(#p<1)n+=.5for i=1,n do e=rnd()f=e+rnd(.1)-.05l=90+rnd(20)add(p,{a=64+l*cos(e),b=64+l*sin(e),u=cos(f),v=sin(f),l=0,r=-1})end
if(z<0and btnp(4))z=2add(p,{a=x,b=y,u=0,v=0,l=0,r=.1})
?"?\vc-\vc-",63+1.5*sin(k/2),43,6
c=cos(k)for i=-4,4,8do
d=60+i*6.5r(d,54,d+7,68+i*c,1)
d=58+i*3r(d,70,d+11,90-i*c)end
for q in all(p)do
q.l+=.1q.x=q.a-q.l*q.u
q.y=q.b-q.l*q.v
c=pget(q.x,q.y)
if(c>0and c<8and q.r<0)h=max(s,h)goto s
if(q.l>128)del(p,q)
end
for q in all(p)do
for j=0,q.l do
pset(q.a-j*q.u,q.b-j*q.v,3)end
if q.r>0then
q.r+=.2circfill(q.x,q.y,q.r,5)for r in all(p)do
a=(q.x-r.x)/8b=(q.y-r.y)/8c=q.r/8
if(r.r<0and a*a+b*b<c*c)del(p,r)s+=1?"\as1ae"
end
if(q.r>5)del(p,q)
end
end
?"+",x-1,y-2,11
?s,1,1,5
?h
flip()goto _