View.Set ("offscreenonly")
var l : array 1 .. 64 of
    record
        x : int
        y : int
    end record
for i : 1 .. upper (l)
    l (i).x := maxx
    l (i).y := maxy
end for
for i : 1 .. upper (l)
    loop
        Draw.Dot (round (10 * cosd (l (i).x) + i * 20), round (l (i).y), black)
        l (i).x -= i
        l (i).y -= i
        View.Update
        if l (i).y < 0 then
            l (i).y := maxy
        end if
    end loop
end for