Starfeld

SCREEN 13

TYPE star
  x AS SINGLE
  y AS SINGLE
  s AS SINGLE
  v AS INTEGER
END TYPE

DIM st(320) AS star

FOR i = 0 TO 320
  st(i).x = RND * 320
  st(i).y = RND * 200
  st(i).s = RND * 2
  st(i).v = RND * 15 + 16
NEXT

DO
FOR i = 0 TO 320

  PSET (st(i).x, st(i).y), 0
  st(i).x = st(i).x - st(i).s
  IF st(i).x < 0 THEN st(i).x = 319
  PSET (st(i).x, st(i).y), st(i).v

NEXT
LOOP WHILE INKEY$ = ""