var chars : array char of boolean
var x, y, c : int
x := 4
y := 4
c := Rand.Int (0, maxcolor)



loop


    Input.KeyDown (chars)

    if chars (KEY_UP_ARROW) then
        y := y + 5
        delay (5)

    elsif chars (KEY_RIGHT_ARROW) then
        x := x + 5
        delay (5)

    elsif chars (KEY_LEFT_ARROW) then
        x := x - 5
        delay (5)

    elsif chars (KEY_DOWN_ARROW) then
        y := y - 5
        delay (5)

    elsif chars (KEY_ALT) then
        if y>0 then drawfilloval (x, y, 10, 10, Rand.Int (0, maxcolor))
        end if
delay (500)
    end if

    drawfilloval (x, y, 4, 4, c)
    delay (5)

end loop

elsif chars (KEY_ALT) then
    c := Rand.Int(0,maxcolor)
else ...