Character Count
499

Game Code
::d::x=0y=0f=.003r=.015m=64srand(m)b=btn
for i=0,65 do
for j=8,15 do
if i>m then
sset(j,i,6)
else
sset(j,i,rnd({12,14,0,0,0}))
end
end
end
n=-2.5o=100z=0p=6
::q::cls()z+=y
if(b(0))x+=.75
if(b(1))x-=.75
if(b(2))y+=r
if(b(3))y-=r
p+=x
x*=.85y*=.85n+=.125o+=n
for i=1,m do
d=1/cos(.07+i*.0028)sspr(8,d+z,8,1,m-75/d+(p*((m-i)/m)),128-i,150/d,1)end
if o>99 then
if(z>63.4)?"win!\^7",61,62,8
if(pget(m,103)<9)then
?"\^6"
goto d
end
n=-2.5end
circfill(m,o,3,5)circ(m,o,3,6)line(61,103,67,103,0)flip()goto q