'Generate stars
CONST N = 25000
REDIM starx(N), stary(N), starz(N), starR!(N), starG!(N), starB!(N)
' REDIM makes the arrays $DYNAMIC (far allocation) -> no 64k limit
FOR c = 1 TO N
'Random RGB color 'Random 3D position
starR!(c) = RND + .01: starx(c) = CINT(RND * 1000) - 500
starG!(c) = RND + .01: stary(c) = CINT(RND * 1000) - 500
starB!(c) = RND + .01: starz(c) = CINT(RND * 400) + 1