How many characters of code did you use?
559

Include your code here, if you'd like to show it off!
::z:: y,yd,s,d,t,g,w,c,u=40,0,0,0,0,63,30,{},{} for i=0,130 do add(c,{x=i,y=63}) end ::_:: cls(10) t+=0.03 if(btnp(4))yd=-3 if(rnd(100)<1)add(u,{x=-5,y=0}) if(t>.25 and yd<3)yd+=.4 y+=yd l=(t+20)/10 if(w>15)w=30-(t) q=rnd(l)-l/2 g+=q if(g>103 or g<25)g-=q for v in all(c)do v.x-=1 if(v.x<-2)v.x,v.y,d=128,g,d+.25 line(v.x,v.y-w,v.x,v.y+w,0)end ?flr(d).."m",3,3 if(pget(13,y)==10 or pget(13,y+3)==10)goto z ?"●",10,y,10 for v in all(u)do v.x-=1 n=g-w/2+rnd(w) if(v.x<-3)v.x,v.y=130,n if(pget(v.x+3,v.y+2)==10)d,v.x,v.y=d+5,130,n ?"★",v.x,v.y,9 end flip()goto _