Here's a pulsing starfield generator. It's crude, but maybe you can use it. This version is for DBC, I have a DBPro version too. Best of luck.
Rem Project: Starfield Generator
Rem Created: 10/24/2009 10:47:59 PM
Rem ***** Main Source File *****
cls rgb(0,0,0)
`0 to 100, higher = more stars
density=50
`brightnesss max, 1 to 255, higher = brighter stars
brightmax=255
`brightness minimum, 0 to 254, higher = brighter stars
`not recommended to go over ~ 100
brightmin=80
`distribution bias in pixels, positive = further left, 0 ~ even
disx=0
`distribution bias in pixels, positive = further down, 0 ~ even
disy=0
`star pulse speed, higher = slower, 1 to 10
`recommended ~ 3-5
pulse=3
dim stars(density*10,1)
dim starsx(density*10,1)
dim starsy(density*10,1)
dim starss(density*10,1)
dim starsm(density*10,1)
sync on
sync rate 0
rem make stars
for x=1 to density*10
make_star(x,brightmax,brightmin,disx,disy)
next x
rem MAIN LOOP===================================================================
do
a=rnd(pulse)
if a=1
for x=1 to density*10
pulse_star(x,brightmax,brightmin,starsx(x,1),starsy(x,1),starss(x,1),starsm(x,1))
next x
sync
endif
loop
wait mouse
rem FUNCTIONS===================================================================
function pulse_star(n,brightmax,brightmin,x,y,stage,move)
if move=1
if stage<brightmax
stage=stage+rnd(5)
endif
if stage>=brightmax
stage=brightmax
move=-1
endif
endif
if move=-1
if stage>brightmin
stage=stage-rnd(5)
endif
if stage<=brightmin
stage=brightmin
move=1
endif
endif
ink rgb(stage,stage,stage),1
dot x,y
starss(n,1)=stage
starsm(n,1)=move
endfunction
function make_star(n,brightmax,brightmin,disx,disy)
if disx>0
temp=screen width()-disx
disx=disx+rnd(temp)
else
disx=rnd(screen width())
endif
if disy>0
temp=screen height()-disy
disy=disy+rnd(temp)
else
disy=rnd(screen height())
endif
bright=rnd((brightmax+brightmin)/2)+rnd(brightmin)
if bright<brightmin
repeat
bright=bright+rnd(brightmin)
until bright>brightmin
endif
if bright>255 then bright=255
ink rgb(bright,bright,bright),1
dot disx,disy
starsx(n,1)=disx
starsy(n,1)=disy
starss(n,1)=bright
if bright>127
starsm(n,1)=1
else
starsm(n,1)=-1
endif
endfunction
EDIT: I forgot to mention, I do have an x and y bias, but they don't really work too well..I need to make a percentage based bias system.