f=rectfill
cls()f(0,1,0,3,6)pset(1,2,8)f(2,0,3,4)f(2,2,5,3)f(6,1,7,2)memcpy(0,24576,512)poke(24364,3)w=64y=8d=0r=64s=0p={}h=-9m=w::_::cls(12)b=btn()y+=b\8%2-b\4%2pal(6,5+d%2)
?s,1,1,7
f(0,50,w,w,3)y=mid(0,y,32)spr(0,8,y,1,1,1)h-=.5d-=1if(d<0)d,r=r,max(r-1,9)add(p,{x=w,y=rnd(36)})
pal(8,2)for i in all(p)do
i.x-=1x,z=i.x,i.y
spr(0,x,z-2)
if(x<-8)del(p,i)
if(x==32)q=pget(12,z)f(x,z,0,z,9)
end
if(h<-8)h=w+rnd(32)g="⌂"
?g,h,58,7
m+=2
if(b>15)m=y+4
?"♥",9,m,14
if(pget(12,m+5)==7)g="♥"s+=1m=w
pal()flip()
if(q!=8)goto _
while btn()<16do
?"*",11,y,10
end
run()