' Bewegter Sternenhimmel

DECLARE FUNCTION floatMod! (z!, q!)

DIM px!(1 TO 300), py!(1 TO 300)

FOR i% = 1 TO 300
  px!(i%) = 320! * RND
  py!(i%) = 200! * RND
NEXT i%

SCREEN 7, , 0, 1
t0! = TIMER
WHILE INKEY$ = ""
  CLS
  p! = -50! * (TIMER - t!)   ' 50 Pixel pro Sekunde
  FOR i% = 1 TO 300
    PSET (floatMod(px!(i%) + p!, 320!), py!(i%)), 14
  NEXT i%
  PCOPY 0, 1
WEND

SCREEN 0
WIDTH 80, 25

FUNCTION floatMod! (z!, q!)
  floatMod! = z! - q! * INT(z! / q!)
END FUNCTION