chessplaer: is this what you meant?
Game:
rem position variables
ypos=200
xpos=25
ballxpos=275
ballypos=205
rem clear the screen
cls
rem begin loop
do
rem set sync rate
sync on
sync rate 0
rem create paddle
sprite 1, xpos, ypos, 1
size sprite 1, 15, 100
rem create ball
sprite 2, ballxpos, ballypos, 1
size sprite 2, 25, 25
rem bottom edge
sprite 3, 0, 450, 1
stretch sprite 3, 249, 10
rem top edge
sprite 4, 0, 1, 1
stretch sprite 4, 243, 10
rem left edge
sprite 5, 0, 1, 1
stretch sprite 5, 7, 180
rem right edge
sprite 6, 620, 1, 1
stretch sprite 6, 7, 180
rem keyboard input
if upkey()=1 then dec ypos,4
if downkey()=1 then inc ypos,4
if rightkey()=1 then inc xpos,4
if leftkey()=1 then dec xpos, 4
rem get the ball moving
inc ballxpos,3
inc ballypos,3
if sprite hit(2,3) then dec ballxpos,-5: dec ballypos,-5
loop
if so it didnt work.
the ball just kept going.
"Thou hast only to follow the wall far enough and there will de a door in it."