Characters/Bytes used
1023 bytes

Source Code
poke(0x5f2d,1)
s="∧ taipe1k ∧"
p=0
a={}
b={}
z=80
t=0
g=130
for i=0,1048 do
poke(0x3100+i,i%12+i%7+sin(i)*10+i)
end
for i=0,4092 do
d=12
o=256
if(i>2*o)d=i%2
if(i>3*o)d=i%7
if(i>4*o)d=i%73+1001
if(i>5*o)d=i*i
poke(i,d)
end
c=0
function _update()
cls(c)
circ(64,128,40,7)
circ(30,148,39)
c-=1
if(c<0)c=0
local x,y=stat(32)-1,stat(33)-1
print("+",x,y)
if(stat(34)==1)then
t=0
s=""
end
if(t==0)then
t=1
p=0
l=13
music(0)
for i=0,z do
a[i]=10+rnd(110)
b[i]=-rnd(500)
end
end
if(t==2)s="game over"
for i=0,z do
e=a[i]
f=b[i]
f+=0.5+(i%2)*0.4+p/200
v=0
if(i<6)v=1
if(i>z/2)v=2
if(v==0)then
spr(16+(i%8)*8,e,f)
e+=sin(f%100/100)*1
end
if(v==1)circ(e+4,f+4,f%3)
if(v==2)pset(f,e,9)
if(l<0)t=2
if(s=="")then
if(abs(x-e)<8 and abs(y-f)<8)then
if(v==0)then
circ(e+4,f+4,7,9)
e=20+rnd(100)
f=-512
p+=1
end
if(v==1)then
l-=1
f-=256
c=2
end
end
if(f>120)then
f-=256
if(v==0)then
c=5
l-=1
end
end
end
a[i]=e
b[i]=f
d=17
if(i<l)d=40
spr(d,i*8,120)
end
print(s,40,40,10)
print(g.."∧"..p,0,0)
if(p>g)g=p
if(s!="")print("click",55,50)
end