ピンポンゲームの練習としてこんなの作ったんですけど

bx=4 : by=4 : lx=640 : ly=480
*main
redraw 1
color 0,0,0 : boxf : color 255,255,0 : pos x,y : mes "●"
line lx,0,lx,480 : line 0,ly,640,ly
x+=bx : y+=by
gosub *ball : gosub *bar
redraw 0 : await 1
goto *main
*ball
if x<0 : bx=4
if x+16>lx : bx-=4
if y<0 : by=4
if y+16>ly : by-=4
return
*bar
stick ky,15
if ky=1 : lx-=4 : if lx<200 : lx=200
if ky=4 : lx+=4 : if lx>640 : lx=640
if ky=2 : ly-=4 : if ly<200 : ly=200
if ky=8 : ly+=4 : if ly>480 : ly=480
return

→●　│←　こういう動きでぶつかった場合ボールの移動速度が増えてしまうんですけど
速度を一定にするにはどうしたらいいでしょう？