x=64
y=30

r=5

g=0.1

dx=2
dy=0

floor=100

elastic=0.95 
air_res=0.999       

function _update()

 dx=dx*air_res

    dy=dy+g

    x=x+dx
    y=y+dy

 if y>(floor-r) then

    dy=-(dy*elastic)
    y=(floor-r)
 end

 if x<r then
    dx=-(dx*elastic)
    x=r
 end
 if x>(128-r) then
    dx=-(dx*elastic)
    x=128-r

    --mouse check
if stat(32)==x then print("aaaaaaaaa")
 end
end

function _draw()
            cls()
    rectfill(0,floor,128,128,5)
    circfill(x,y,r,8)

        poke(0x5f2d, 1)
    spr(0,stat(32)-1,stat(33)-1)
    print(stat(34))

end