Ball bouncing around the screen

[lufthansa747]

Here is my program that makes a ball bounce around

View.Set ("graphics:max;max,offscreenonly,nobuttonbar")
var x : int := maxx div 2
var y : int := maxy div 2
var radius : int := 20
var xint, yint : int := 5
var upState, sideState : int := -1
Draw.FillBox (0, 0, maxx, maxy, black)
Draw.FillOval (x, y, radius, radius, white)
loop
if x - xint <= 0 and sideState = -1 then %Check left wall
sideState := 1
end if
if x + xint >= maxx and sideState = 1 then % check right wall
sideState := -1
end if
if y + yint >= maxy and upState = 1 then %check top wall
upState := -1
end if
if y - yint <= 0 and upState = -1 then % check bottom wall
upState := 1
end if
Draw.FillOval (x, y, radius, radius, black)
x += xint * sideState
y += yint * upState
Draw.FillOval (x, y, radius, radius, white)
View.Update
delay (10)
end loop

[Kharybdis]

Congrats. Now try to make a ping pong game

[apomb]

For the love of all things holy, do not make another pong game... PLEASE think of something a little more inspired.