Buoyancy

Blitz3D Forums/Blitz3D Beginners Area/Buoyancy

Alright so I've been working on this for a bit and decided its time to come on here.
Basically I have a cube, and a plane of "water", I want the cube to go underwater a little bit, come up, then go back under, in smaller and smaller amounts, untill finally it stops.
Like a boat in water, Im trying to make it buoyant.
So I got the Cube to bounce up and down, by simply applying, with some gravity.
If CUBEY#<WATERLEVEL
TranslateEntity CUBE,0,-(GRAVITY*DENSITY*CUBEVOLUME),0
endif 

That makes it bounce, but it never Stops.
So how would you go about making an object "Stop" bouncing eventaully?