Heart Defense!

Use cursor to avoid the colourful columns.

Source code (277 characters):

poke(0x5f2d,1)h=80th=80ts=.02m=stat

dm=.1v=0d=0t=1s=0l=line::_::flip()

d=th-h

v+=(d*ts)-(dm*v)h+=v

if(t%30==0)th=rnd(50)+60

cls()for i=0,160 do

l(i,160-h,i,160,i%15+t)l(i,130-h,i,0,i%15+t)end

y=m(33)?'♥',m(32),y

if(s<t)s=t

if(y<130-h or y>160-h)t=0

?t,60,140-h,7

?s

t+=1

goto _