Graphics 800,600
Dim star_x(2000),star_y(2000),star_z(2000),star_br(2000)
SeedRnd MilliSecs()
timer=CreateTimer(80)
Global speed=1
ru=0
breit#=30
hinher=1
setup_stars()
 
While Not KeyHit(1)
    FreeImage rad
    rad=CreateImage(breit,breit)
    If MilliSecs()-h>1000 h=MilliSecs():If breit<270 breit=breit+8
       SetBuffer ImageBuffer(rad)
       Cls
       Color 88,100,255
       Oval 0,0,breit,breit,1
       Color 164,164,255
       Oval 0,0,breit,breit,0
       Color 96,96,128 
       Oval 1,1,breit-3,breit-3,0
       Color 88,124,255
       Oval breit/2-breit/3,breit/2-breit/3,breit/1.5,breit/1.5,1
       Color 80,116,192
       Oval breit/2-breit/3-1,breit/2-breit/3-1,(breit/1.5)+2,(breit/1.5)+2,0
       Color 0,0,0
       ru1=ru
          For i=1 To 6
              Oval (breit/2)-((breit/4)/2)+Sin(ru1+30)*breit/2,(breit/2)-((breit/4)/2)+Cos(ru1+30)*breit/2,breit/4,breit/4
              Oval (breit/2)-((breit/8)/2)+Sin(ru1)*Breit/4,(breit/2)-((breit/8)/2)+Cos(ru1)*Breit/4,breit/8,breit/8
              ru1=ru1+60
          Next
       ru=(ru+1) Mod 360
    SetBuffer BackBuffer()
    Cls
    Update_stars()
    If hinher=1 hin=hin+1 Else hin=hin-1
    If hin>300 hinher=2
    If hin<-75 hinher=1
    Color 0,0,192:Rect 210+hin,100,150,400,1
    Color 192,96,0:Rect 440-hin,100,150,400,1
    DrawImage rad,400-(breit/2),300-(breit/2)

    Flip
    WaitTimer timer
Wend
End

Function setup_stars()
   For i=0 To 2000
       star_x(i)=Rand(-100,100) Shl 9
       star_y(i)=Rand(-70,70) Shl 9
       star_z(i)=Rand(speed,255)
       star_br(i)=Rand(2,5)
   Next
End Function

Function Update_Stars()
   For i=0 To 2000
       star_z(i)=star_z(i)-speed
       If star_z(i)<=speed star_z(i)=255:star_br(i)=Rand(2,5)
       s_x=(star_x(i)/star_z(i))+400
       s_y=(star_y(i)/star_z(i))+300
       col=255-star_z(i)
       Color col,col,col
       Rect s_x,s_y,star_br(i),star_br(i)
   Next
End Function