var grid : array 1 .. 8, 1 .. 8 of
  record
    colour : int
    other_information : string
    even_more_information : real
  end record

setscreen ("offscreenonly")
type object : array 1 .. 3 of
    record
        x : int
        y : int
        vx : int
        vy : int
        radius : int
        clr : int
    end record


proc initObj (var obj : object, i, x, y, vx, vy, radius, clr : int)
    obj (i).x := x
    obj (i).y := y
    obj (i).vx := vx
    obj (i).vy := vy
    obj (i).radius := radius
    obj (i).clr := clr
end initObj

proc moveObj (var obj : object, i, boundaryLeft, boundaryBottom, boundaryRight, boundaryTop : int)
    obj (i).x += obj (i).vx
    obj (i).y += obj (i).vy
    if obj (i).x + obj (i).radius > boundaryRight or obj (i).x - obj (i).radius < boundaryLeft then
        obj (i).vx *= -1
    end if
    if obj (i).y + obj (i).radius > boundaryTop or obj (i).y - obj (i).radius < boundaryBottom then
        obj (i).vy *= -1
    end if
end moveObj

proc drawObj (var obj : object, i : int)
    drawfilloval (obj (i).x, obj (i).y, obj (i).radius, obj (i).radius, obj (i).clr)
end drawObj

var circle : object
for i : 1 .. upper (object)
    initObj (circle, i, Rand.Int (0, maxx), Rand.Int (0, maxy), Rand.Int (-3, 3), Rand.Int (-3, 3), Rand.Int (5, 25), Rand.Int (1, 15))
end for

loop
    for i : 1 .. upper (object)
        moveObj (circle, i, 0, 0, maxx, maxy)
    end for

    cls
    for i : 1 .. upper (object)
        drawObj (circle, i)
    end for
    View.Update
    delay (10)

end loop