move a circle

[Crazya]

%Aaron Hazley

var keys : array char of boolean
var x, y,r, xSize, ySize : int
r := 10
x := r + 16
y := maxy div 2 + 185
xSize := 5
ySize := 5
colourback (black)
cls
View.Set ("offscreenonly")
loop
delay (10)
Draw.FillOval (x, y, r, r, black)
Input.KeyDown (keys)
if keys (KEY_UP_ARROW) and whatdotcolour (x, y + r + 1) ~= brightred and y < maxy - ySize then
y := y + 3
end if
if keys (KEY_LEFT_ARROW) and whatdotcolour (x - r - 1, y) ~= brightred and x > 0 then
x := x - 3
end if
if keys (KEY_RIGHT_ARROW) and whatdotcolour (x + r + 1, y) ~= brightred and x < maxx - xSize then
x := x + 3
end if
if keys (KEY_DOWN_ARROW) and whatdotcolour (x, y - r - 1) ~= brightred and y > ySize then
y := y - 3
end if
Draw.FillOval (x, y, r, r, brightgreen)
View.Update
end loop