setscreen ("graphics, offscreenonly")

var x, y : int := 40
var r := 5
var vx, vy := 6
var vr := 1

loop
    vx += Rand.Int (-3, 3)
    vy += Rand.Int (-3, 3)
    vr += Rand.Int (-1, 1)
    if vx > 10 then
        vx := 10
    end if
    if vy > 10 then
        vy := 10
    end if
    if vr > 3 then
        vr := 3
    end if
    x += vx
    y += vy
    r += vr

    if x <= abs (r) then
        x := abs (r)
        vx := abs (vx)
    end if
    if x >= maxx - abs (r) then
        x := maxx - abs (r)
        vx := -abs (vx)
    end if
    if y <= abs (r) then
        y := abs (r)
        vy := abs (vy)
    end if
    if y >= maxy - abs (r) then
        y := maxy - abs (r)
        vy := -abs (vy)
    end if
    if r >= 50 then
        vr := -abs (vr)
    end if
    if r <= -50 then
        vr := abs (vr)
    end if
    drawfilloval (x, y, r, r, black)
    View.Update
    delay (30)
    cls
end loop