This is a 3D starfield

This starfield has been placed here for anyone to use for free. I would like a mention in the credits of your program though.

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    Sync on
sync rate 30
autocam off
Input "set number of stars ", starvalue
Print "set size of starfield"
Input "x = ", xsize
Input "y = ", ysize
Input "z = ", zsize
cls
backdrop on
set camera range 1,1000
If starvalue>10000 then starvalue = 10000
color backdrop rgb(0,0,0)
for s= 1 to starvalue
make object plain s,0.1,0.1
color object s,rgb(255,255,255)
position object s,rnd(xsize),rnd(ysize),rnd(zsize)
Next s

position camera 0,0,0



do
If leftkey()=1 then wrapvalue(angley#+5)
If rightkey()=1 then wrapvalue(angley#-5)
If upkey()=1 then wrapvalue(anglex#+5)
If downkey()=1 then wrapvalue(anglex#-5)
If controlkey()=1 then move camera 10
yrotate camera angley#
xrotate camera anglex#

sync
loop