SYSTEMPOINTER TRUE
SETSCREEN 640,480,1
TYPE star
x
y
ENDTYPE
LOCAL S AS star
LOCAL stars[] AS star
WHILE TRUE
starX = RND(640)
S.x = starX
S.y = -10
DIMPUSH stars[], S
FOREACH check IN stars[]
INC check.y,RND(3)
SETPIXEL check.x, check.y, RGB(RND(255),RND(255),RND(255))
IF check.y > 480 THEN DELETE check
NEXT
SHOWSCREEN
WEND
END