It flies through space
Alone with no face
With only a ghosty effect,
A string of spheres! Your arrowkey steers!
Everyone knows it's... space-worm thingy? 
DEMO WITH SOUND FOR THE EXTRA BORED
set camera range .1,10000:starz=1000
randomize timer():w=1024:h=768:set display mode w,h,32:set window size w,h:maximize window:set window layout 0,0,3:for starr=1 to 150:c=85+rnd(70):dot rnd(w),rnd(h),rgb(c,c,c,):next:get image 1,0,0,w,h,3:autocam off:make object sphere starz,-100:texture object starz,1:set object light starz,0:scale object texture starz,4,4:sync on:sync rate 30
autocam off:move camera -30
r#=rnd(155):g#=rnd(155):b#=rnd(155)
make object sphere 1,1,5,5
ghost object on 1,4:color object 1,rgb(r#,g#,b#)
for c=2 to 100
clone object c,1:ghost object on c,4
NEXT
rSTEP=1:gSTEP=1:bSTEP=1
set point light 0,0,0,0
t#=timer()+3000
Speed#=.75
Torque#=.2
hide mouse
do
`RECYCLE SPHERES
inc cycle:if cycle>100 then cycle=1
position object cycle,Newx#,Newy#,Newz#
rotate object cycle,ax#,ay#,az#
pitch object up cycle,-mousemovey()*Torque#
turn object left cycle,-mousemovex()*Torque#
move object cycle,Speed#
Newx#=object position x(cycle)
Newy#=object position y(cycle)
Newz#=object position z(cycle)
move object cycle,-Speed#
ax#=ax#+wrapvalue((rnd(300)*.01)-(rnd(300)*.01))
ay#=ay#+wrapvalue((rnd(300)*.01)-(rnd(300)*.01))
az#=az#+wrapvalue((rnd(300)*.01)-(rnd(300)*.01))
`COLOR
if rSTEP=1 then r#=r#+rnd(100)*.01:if r#>155 then rSTEP=-1:r#=155
if gSTEP=1 then g#=g#+rnd(100)*.0125:if g#>155 then gSTEP=-1:g#=155
if bSTEP=1 then b#=b#+rnd(100)*.015:if b#>155 then bSTEP=-1:b#=155
if rSTEP=-1 then r#=r#-rnd(100)*.015:if r#<0 then rSTEP=1:r#=0
if gSTEP=-1 then g#=g#-rnd(100)*.01:if g#<0 then gSTEP=1:g#=0
if bSTEP=-1 then b#=b#-rnd(100)*.0125:if b#<0 then bSTEP=1:b#=0
color object cycle,rgb(r#,g#,b#)
set object specular cycle, rgb(r#,g#,b#)
set object specular power cycle,1
`CAMERA
ThisRide=cycle-30
if ThisRide<1 then inc ThisRide,100
position camera object position x(ThisRide),object position y(ThisRide)+3,object position z(ThisRide)
point camera object position x(cycle),object position y(cycle),object position z(cycle)
position object starz,camera position x(),camera position y(),camera position z()
position light 0,camera position x(),camera position y(),camera position z()
`PRINT
if t#>timer() then center text screen width()*.5,screen height()*(cycle*.003),"-MOUSE TO MOVE-"
position mouse screen width()*.5,screen height()*.5
sync
LOOP
(EDIT: The mouse steers, not the arrowkeys... forgot I changed it at the last minute)
