How many characters did you use?
555

Include your code here, if you'd like to show it off!
::z::
x,y,xd,yd,s,w,p,c,e,u,o,m=64,64,-1,0,3,-3,0,1,{},0,{},rectfill
::_::
cls(0)
m(53,0,76,128,7)
if(btnp(4))w=1
if w>0 then
p+=.02
if (p>u) add(e,{x=53+rnd(20),y=-5}) u+=1
q=pget(x+xd*3,y)
if(btnp(4) and q==0)xd*=-1 yd=-2 x+=xd w=1
for v in all(e) do
m(v.x,v.y,v.x+2,v.y+4,8)
v.y+=1
if(v.y>128)del(e,v)
end
r=pget(x+xd,y)
if q==7 then
x+=xd*s
y+=yd
add(o,{x=x,y=y,t=3})
else
y+=2
end
if(r==8 or y>128)goto z
end
for v in all(o) do
circ(v.x,v.y,2,8-v.t)
v.t-=.5
if(v.t<1)del(o,v)
end
circfill(x,y,2,7)
circ(x,y,2,0)
?"score: "..flr(p),2,2,7
flip()
goto _