How many characters of code did you use?
557

Include your code here, if you'd like to show it off!
_set_fps(60)h=0::s::a={}p={}m=.7s=0n=0 for i=1,40do p[i]={x=64,y=32-i*64,c=11+rnd(4)\1,u=0,v=1,d=0}end for i=1,4 do a[i]={y=32+16*i,c=10+i,d=i%2*2-1} end::_::cls()for b in all(a)do x,y,u,v=64+8*b.d,b.y,64+64*b.d,b.y+12fillp(░)rectfill(x,y,u,v,b.c)z=btn()d=(z&2)/2-(z&1)for q in all(p)do if(b.d==d and q.u==0and mid(y,q.y,v)==q.y)q.d=q.c==b.c and 1or 0 q.v=0q.u=d end end ?s.."/"..n ?h for q in all(p)do q.x+=q.u*m q.y+=q.v*m ?"●",q.x-3,q.y-2,q.y<16and 8or q.c if(q.x!=mid(q.x,128)or q.y>128)n+=1m+=.02del(p,q)s+=q.d end if(#p<1)h=max(h,s)goto s flip()goto _