How many characters of code did you use?
559

Include your code here, if you'd like to show it off!
y=128z=16s={{6,1546,2590,7740,5166,7197,6203,3106},{3,13,31,26,15,31,57,32}}for
n=1,4do l=s[n\3+1]for i=1,8do
a=4*(n+z*i-z)r=0
for j=0,7do
if(l[i]>>8*(n&1)>>j&1>0)r+=12>>4*j-12end
poke4(a,r)end end
d=1w=40v=2c=1f={}h=2a=add
for i=0,z do a(f,1)end
::u::
?"\^c0\f7"..c
for i=0,z do l=i*8-h rectfill(l,80,l+8,y,f[c+i])end
s=4d+=.4w+=d
g=w<78and pget(3,w+8)>0if(g)then
w=w\8*8d=0s=1<<(c&1)d-=btn()&4end
if(pget(8,w+7)>0)v=0
spr(s,0,w)h+=v
if(8<h)then
c+=1l=rnd(c)&7h=0
if(l<2)for i=-1,rnd(c\z)do a(f,0)end
a(f,5)a(f,5)
if(l<3 and g)v+=3/y
end
flip()
if(w<y)goto u