o=128x,y,u,v,h,p,s,d=o,0,0,0,0,32,sin,circfill::_::
?"\^1\^c"
for i=-o,384do
j,l,b=x\1+i,h,btn()h,a=s(j/o)+s(j/93),p+i/4
line(a,0,a,h*2.1+p)h=p+h*5*max(s(j/3^7))
if(i==0and y>h)then
if v>0then
u+=v*(h-l)v*=-.7else v+=u*(h-l)end y=h
if(b>9)v=-4
end for z=0,2,.2do
pset(p+i/z,67+h/z,12+(h-l)*4)end end
for i=-o+x&-p,x+o,p do
a=-t()/(4+i^2%29)m,n=o+i+cos(a)*p-x,s(i/999)*80+s(a)*p
d(m,n,8,7)end
v+=.2u*=.7x+=u y+=v
if pget(p,64+y)==7then::w::circ(p,64+y,v,v)v+=1
for i=24576,32767do
poke(i,@i/1.2)end 
?"\^1\^jef"..x\1
goto w end
d(p,64+y,2,7)u-=b&1u+=b&2goto _