View.Set ("graphics:max,max")
var num : int := 4
var x, y : array 1 .. num of int
var mx, my, mb : int
var circleCount : int := 0

mousewhere (mx, my, mb)

for i : 1 .. upper (x)
    x (i) := my
    y (i) := mx
end for

loop
    mousewhere (mx, my, mb)
    loop
        mousewhere (mx, my, mb)
        if mb = 1 then
            drawfilloval (mx, my, 5, 5, blue)
            drawline (x (2), y (2), mx, my, red)
            
            exit
        end if

    end loop
    for decreasing i : 4 .. 2
        x (i) := x (i - 1)
        y (i) := y (i - 1)
    end for


    x (1) := mx
    y (1) := my

end loop