Characters/Bytes used
996 characters

Source Code
_set_fps(60)r=rectfill::s::for i=0,127do v=ord("CF((/F1/CF$&U+'B+3O+a#",i\6+1)-35v=v\2^(i%6)%2*4sset(i%8,i\8,v)sset(14-i%8,i\8,v)end
s=30p={}for i=0,999do
x=i*22y=56+rnd(8)\1*8add(p,{x=x,y=y})end
x=0y=0u=0v=0g=0h=0z=.1k=0f=20l=0m=25w=circfill::_::cls(1)k+=.05camera(m*22)
if(m>l)m-=.1
if(m<l)m+=.1
for i=1,#p do
q=p[i]a=q.x-m*22
if a>=-22and a<128then
r(q.x,q.y,q.x+21,128,15-i%6)srand(i)for j=0,31do
a=q.x+j%2*9+4b=q.y+j\2*8+4
if(b<119)r(a,b,a+4,b+4,6+rnd(2))end
end
end
if g>0then
x+=u
y+=v
u-=h
v+=g
if(pget(x,y)>1or y>128)g=0s-=1?"\as0g1ec"
q=p[l+6]w(x,y,2,10)w(x+2*cos(k),y+2*sin(k),2,1)
if(abs(q.x+11-x)<6and abs(q.y-8-y)<6)g=0l+=5h=rnd(.01)?"\as8cdefg"
else
b=btn()z-=((b&2)/2-(b&1))/800f-=((b&8)/8-(b&4)/4)/8a=f*cos(z)b=f*sin(z)q=p[l+1]c=q.x+11d=q.y-17line(c,d,c+a,d+b,9)
if(btnp(4))x,y,u,v,g=c,d,a/10,b/10,.05?"\as2cdefgab"
end
for i=1,#p do
if(i%5==1)q=p[i]spr(0,q.x+3,q.y-16,2,2)
end
camera()
?"\^ps:"..(l\5).." w:"..((1000*h)\1).." b:"..s,16,1,7
if(s<1)print("\^7")goto s
flip()goto _