ZXASCII
AUTO -1
PROG demos:3d/starfield
CHANGED FALSE
10 np=500:
	over 8:
	for f=0 to 255:
	   palette f,f,f,f:
	next f:
	DIM p(np,4)
20 FOR f=1 TO np:
	   p(f,1)=RND*SCRw:
				p(f,2)=RND*SCRh:
				p(f,3)=rnd*255,
				p(f,4)=1+(p(f,3)/128):
	NEXT f
30 PAPER 0: CLS: SCREEN LOCK
40 FOR f=1 TO np
50    p(f,1)-=p(f,3)/64:
				IF p(f,1)<0 THEN
				   p(f,1)=SCRw,
							p(f,2)=RND*SCRh,
							p(f,3)=rnd*255:
60 NEXT f
70 PLOT p()
80 WAIT SCREEN: CLS: GO TO 40