Static starfield:
ink rgb(255,255,255),0
for i=1 to 100
dot int(rnd(640)),int(rnd(480))
next i
Moving starfield (towards camera):
sync on
sync rate 60
hide mouse
dim stars(100,7)
for i=0 to 99
stars(i,0)=int(rnd(4000)-2000)
stars(i,1)=int(rnd(4000)-2000)
stars(i,2)=int(rnd(4000)+1000)
next i
speed=10
do
for i=0 to 99
stars(i,2)=stars(i,2)-speed
if stars(i,2)<=0
stars(i,0)=int(rnd(4000)-2000)
stars(i,1)=int(rnd(4000)-2000)
stars(i,2)=int(rnd(4000)+1000)
endif
stars(i,3)=(stars(i,0)*100)/stars(i,2)
stars(i,4)=(stars(i,1)*100)/stars(i,2)
stars(i,5)=(stars(i,0)*100)/(stars(i,2)+(speed*4))
stars(i,6)=(stars(i,1)*100)/(stars(i,2)+(speed*4))
`dot 320+stars(i,3),240+stars(i,4)
line 320+stars(i,3),240+stars(i,4),320+stars(i,5),240+stars(i,6)
next i
sync
cls
loop