View.Set ("graphics:300;300,offscreenonly")
const numdots := 2000
var x, y, angle, d, spd : array 1 .. numdots of real
var c := 35

for i : 1 .. numdots
    x (i) := 0.0
    angle (i) := 0.0
    y (i) := 0.0
    angle (i) := 0.0
    d (i) := 0.1 * i
    spd (i) := 0.01 * i
end for

loop
    drawfillbox (0, 0, maxx, maxy, black)
    for i : 1 .. numdots
        x (i) := d (i) * (cos (angle (i))) + (maxx div 2)
        y (i) := d (i) * (sin (angle (i))) + (maxy div 2)
        angle (i) += spd (i)
        drawdot (round (x (i)), round (y (i)), c)
    end for

    if c >= 104 then
        c := 35
    end if
    c += 1

    delay (60)
    View.Update
end loop