SCREEN 13
RANDOMIZE TIMER

TYPE coord
  x AS SINGLE
  y AS SINGLE
  z AS SINGLE
END TYPE

speed = 50
num = 20

DIM points(1 TO num) AS coord

FOR x% = 1 TO num
  points(x%).x = RND * 320
  points(x%).y = RND * 200
  points(x%).z = RND
NEXT x%

DO
  FOR x% = 1 TO num
    PSET (points(x%).x, points(x%).y), 0
    points(x%).x = points(x%).x + (points(x%).z * speed)
    IF points(x%).x > 320 THEN points(x%).x = points(x%).x - 320: points(x%).y = RND * 200
    PSET (points(x%).x, points(x%).y), INT(points(x%).z * 16) + 16
  NEXT x%
LOOP UNTIL INKEY$ = CHR$(27)