<%Assignment 5
View.Set ("graphics:max,max,offscreenonly,nobuttonbar")
var x, y : int
var r : int := 10
x := 100
y := 100
var chars : array char of boolean
if y + 20 > maxy then
    y := y - 5
end if
loop
    drawfilloval (x, y, r, r, red)
    Input.KeyDown (chars)

    if chars (KEY_UP_ARROW) then
        y := y + 8
    end if
    if chars (KEY_RIGHT_ARROW) then
        x := x + 8
    end if
    if chars (KEY_LEFT_ARROW) then
        x := x - 8
    end if
    if chars (KEY_DOWN_ARROW) then
        y := y - 8
    end if

    if chars ('1') then
        r := r + 5
    end if

    if chars ('2') then
        r := r - 4
    end if
    View.Update
    delay (20)
    cls
    if r = maxx then
        r := r - 10
    end if

    if r = maxy then
        r := r - 10
    end if
end loop
>