x = 10
y = 10
r = 20
c = 9
xvel = 10
yvel = 20

x1 = 1
y1 = 1

screenx=640
screeny=480
page1 = 0
page2 = 1
SCREEN 18,,2
a$ = inkey$
WHILE NOT a$ = "q"
    IF x1 < 1 THEN:x1 = 1:ENDIF
    IF y1 < 1 THEN:y1 = 1:ENDIF
    screenset page1,page2
    screenset page2,page1
    GETMOUSE x1,y1
    xvel = xvel + x1
    yvel = yvel + y1
    a$ = inkey$
    x = x + xvel
    y = y + yvel
    IF x > screenx - r THEN
        xvel = -xvel
        x = screenx - r
    ELSEIF x < r THEN 
        x = r
        xvel = -xvel
    ENDIF
    IF y > screeny - r THEN
        yvel = -yvel
        y = screeny - r
    ELSEIF y < r THEN
        y = r
        yvel = -yvel
    ENDIF

    GOSUB drawball
WEND
END
drawball:
CLS
GOSUB printstuff
CIRCLE (x,y),r,c,,,,F
sleep 20
screencopy
RETURN

printstuff:
LOCATE 2,4
PRINT "Xvel: "; xvel
LOCATE 3,4
PRINT "Yvel: "; yvel
LOCATE 4,4
PRINT "X: "; x
LOCATE 5,4
PRINT "Y: "; y

LOCATE 29,2
PRINT "Press 'q' key to exit"
RETURN