I can improve it a bit more as theres a few coding entrys still free but here goes
. A bit of fun, well ... sort of
Rem Project: space - pathfinder ie Greg D
Rem Created: 04/10/2002 12:02:19
Rem ***** Main Source File *****
mapsize = 64
i=0
sync on : sync rate 0 : autocam off: backdrop off : randomize timer()
make light 1: position light 0,5,8,10 : position light 1,5,8,-10 : color light 0,250,250,28 : color light 1,255,28,28
make object sphere 1,2 : rotate object 1,10,10,10 : make object sphere 2,2.1 : rotate object 2,10,10,10
ghost object on 2,5 : position camera 0,6,10 : point camera 0,0,0
for i = 1 to 1000 : temp = rnd(screen width()) : temp2 = rnd(screen height()):ink rgb(rnd(155),rnd(155),rnd(155)),0 : dot temp,temp2 : next i
create bitmap 1,mapsize,mapsize : create bitmap 2,mapsize,mapsize
set current bitmap 1 : ink rgb(rnd(155)+50,rnd(155)+50,rnd(155)+50),0 : box 1,1,mapsize,mapsize
for i = 1 to rnd(30)+5 : temp = rnd(mapsize) :ink rgb(rnd(155)+50,rnd(155)+50,rnd(155)+50),0 : line 0,temp,mapsize,temp: next i
for i = 1 to rnd(1000)+100 : temp = rnd(mapsize) : temp2 = rnd(mapsize):ink rgb(rnd(155)+50,rnd(155)+50,rnd(155)+50),0 : dot temp,temp2 : next i
get image 1,1,1,mapsize,mapsize : texture object 1,1
set current bitmap 2 : cls
for i = 1 to rnd(1000) : temp = rnd(mapsize) : temp2 = rnd(mapsize):ink rgb(rnd(155)+100,rnd(155)+100,rnd(155)+100),0 : dot temp,temp2 : next i
get image 2,1,1,mapsize,mapsize:texture object 2,2:set current bitmap 0
i=0
do
i=i+1 : rotate object 2,1,i,0 : if => 360 then i = 1
sync
loop
