Repeat

For stars = 0 To 200
Color 255,255,255
stars_x =Rnd(0,320)
stars_y =Rnd(0,240)
Plot stars_x,stars_y
Next

Forever

anzahl=100
Dim sterne(anzahl,1)

For i=0 To anzahl
sterne(i,0)=Rand(0,320)
sterne(i,1)=Rand(0,240)
Next

Dim testvariable(2)

testvariable(0)=5
testvariable(1)=16
testvariable(2)=3

For i=0 To 2
 Print testvariable(i)
Next
WaitKey
End

Const screen_width=1024
Const screen_height=768
Const Num_of_stars =400			; Anzah Sterne
Dim stars(Num_of_stars,2) 		; 0=x, 1=y, 2=speed#
SeedRnd MilliSecs()
For i=0 To Num_of_stars    		; Vorberechnen der Positionen/Geschwindigkeiten
	stars(i,0)=Rand(screen_width-1)
	stars(i,1)=Rand(screen_height-1)
	stars(i,2)=Rand(1,5)
Next
Graphics screen_width,screen_height,32,1
SetBuffer BackBuffer()
While Not KeyDown(1)
	Cls
	For i=0 To Num_of_stars					;Alle Sterne durchgehen
		stars(i,0)=stars(i,0)+stars(i,2) 	; Geschwindigkeit zur X-Position adieren
		If stars(i,0)>screen_width-1 Then stars(i,0)=0
		LockBuffer BackBuffer
			WritePixelFast stars(i,0),stars(i,1),$ffffff; Sterne Zeichnen
		UnlockBuffer
	Next
	Flip
Wend

Const scr_x=320
Const scr_y=240
sterne=scr_x*scr_y*0.002

Graphics scr_x,scr_y
bg=CreateImage(scr_x,scr_y)

SetBuffer ImageBuffer(bg)

For i=1 To sterne
farbe=Rand(100,255)
Color farbe-50,farbe-50,farbe
Plot Rand(scr_x),Rand(scr_y)
Next


SetBuffer BackBuffer()

bg_counter=0
Repeat
Cls
TileImage bg,0,bg_counter
bg_counter=bg_counter+1
Flip


Until KeyHit(1)
End

Const sterne_anzahl = 300
Const ebenen=5
Const beschleunigung#=0.02
Const maxspeed# = 2.2
Const gx = 1024
Const gy = 768


Graphics gx,gy,32,2
SetBuffer BackBuffer()



Dim stern#(sterne_anzahl,2) ;drei spalten für x,y,ebene

;startwerte zuweisen
For i=0 To sterne_anzahl
	stern(i,0)=Rand(0,gx-1)
	stern(i,1)=Rand(0,gy-1)
	stern(i,2)=Rand(ebenen)
Next

Repeat
	Cls
	
	LockBuffer BackBuffer()
	For i=0 To sterne_anzahl
		stern(i,0) = stern(i,0) + Cos(richtung) * stern(i,2) * speed#
		stern(i,1) = stern(i,1) - Sin(richtung) * stern(i,2) * speed
	
		
		If stern(i,0) < 0 Then stern(i,0) = gx-1
		If stern(i,0) >= gx Then stern(i,0) = 0
		If stern(i,1) < 0 Then stern(i,1) = gy-1
		If stern(i,1) >= gy Then stern(i,1) = 0
		
		
		grau = (255/ebenen)*stern(i,2)
		WritePixelFast Floor(stern(i,0)),Floor(stern(i,1)),grau*$10000+grau*$100+grau
	Next
	UnlockBuffer BackBuffer()
	
	
	If KeyDown(203) Then richtung=richtung+1
	If KeyDown(205) Then richtung=richtung-1
	If KeyDown(200) Then speed# = speed - beschleunigung
	If KeyDown(208) Then speed# = speed + beschleunigung
	If speed > maxspeed Then speed = maxspeed
	If speed < -maxspeed Then speed = -maxspeed
	
	Text 0,0,\"Steuern mit den Cursortasten!\"
	
	Text 0,20,\"Richtung: \"+richtung
	Text 0,35,\"Speed: \"+speed
	
	Flip
Until KeyHit(1)
End