Cartridge code (263 chars):

::★::cls(12)r=rnd
x=r(64)+32w=1s=16+r(32)l=128
for y=s,l do
line(x-w,y,x+w,y,6)line(x-r(w/8),y,x+w,y,1)w+=r(1.8)x+=y/256end
for y=0,l do
for x=0,l do
c=pget(x,y)b=r(160)>y
if(c==6 and b)pset(x,y,7)
if(c==1 and b)pset(x,y,13)
end
end
for i=0,32 do
flip()end
goto ★