>>863こんな感じ？

bx=4 : by=4 : lx=640 : ly=480
*main

title ""+bx+"/"+by+"//"+x+"/"+y;速度と位置表示
redraw 0;描画開始は１じゃなくて０or２　終了は１

color 0,0,0 : boxf : color 255,255,0 : pos x,y : mes "●"
line lx,0,lx,480 : line 0,ly,640,ly

if (bx<0)&(bx<-4): x=x+(bx+4):bx=-4;速度４以上なら位置からバーの進んだ分を引いて速度を４に修正
if (by<0)&(by<-4): y=y+(by+4):by=-4

x+=bx : y+=by
gosub *ball : gosub *bar
redraw 1 : 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