A colorful, no media trip through the stars.

This is a simple, fun trek among the stars. Use arrow keys for navigation. Hit the Space Bar for extra speed, and if you get "lost," hit Control to bring you back to the starting point.

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    Rem Project: ToBoldlyGo
Rem Created: 6/7/2004 8:46:47 PM

Rem ***** Main Source File *****

set display mode 800,600,32
color backdrop 0,RGB(0,0,0)
backdrop on : sync on
randomize timer()
autocam off : hide mouse
hide light 0

for t=1 to 1000
 c=rnd(2) : d=rnd(2) : e=rnd(2)
 x#=1+rnd(10000) : y#=1+rnd(10000) : z#=10+rnd(10000)
 r=rnd(255) : g=rnd(255) : b=rnd(255)

if c=1 then x#=-x#
if d=1 then y#=-y#
if e=1 then z#=-z#

 make object sphere t,4+rnd(80),28,28
 set object emissive t,RGB(r,g,b)
 position object t,x#,y#,z#
next t

set camera range 0,1,8000:position camera 0,0,0,0

ScX#=4:ScT#=0.2

do

if rightkey()=1
 turn camera right 0,ScT#
 roll camera right 0,ScT#
endif

if leftkey()=1
 turn camera left 0,ScT#
 roll camera left 0,ScT#
endif

if upkey()=1 then pitch camera down 0,ScT#

if downkey()=1 then pitch camera up 0,ScT#

if spacekey()=0:move camera 0,ScX#:else:move camera 0,12:endif

if controlkey()=1 then position camera 0,0,0,0

sync

loop