Graphics 800,600
SetBuffer BackBuffer()

Type Tstar
	Field x#
	Field y#
	Field speed#
End Type

Function create_stars(count)
	For i=1 To count
		star.Tstar=New Tstar
		star\x#=Rand(799)
		star\y#=Rand(600)
		star\speed#=Rand(1,5)
	Next
End Function 
	
Function draw_stars()
	LockBuffer BackBuffer()
	For star.Tstar=Each Tstar
		star\y#=star\y#+star\speed#
		If star\y#>599 Then star\y#=star\y#-599
		Farbe=Grau*$10000+Grau*$100+Grau 
		WritePixelFast star\x#,star\y#,star\speed#*50*$10000+star\speed#*50*$100+star\speed#*50
	Next 	
	UnlockBuffer BackBuffer()	
End Function

create_stars(300)

While Not KeyHit(1)

	Cls
	draw_stars()
	Flip 0
	
Wend

End 

y#(i)= y#(i) Mod 480 
WritePixelFast x(i), Floor y#(i),Col

Graphics 640 ,480,0,1
SetBuffer BackBuffer ()
Dim X (299) , Y# (299) , V# (299)
For i = 0 To 299
    X (i) = Rnd (0 ,639)
    Y# (i) = Rnd (0 ,479)
    V# (i) = Rnd (1 ,5)
Next
Color 0 ,0,0

While KeyHit (1) = 0
    Rect 0 ,0,640,480
    LockBuffer BackBuffer ()
    For i = 0 To 299
        Y# (i) = Y# (i) + V# (i)
        If Y# (i) > 479 Then X (i) = Rand (0 ,639) : Y# (i) = Y# (i) Mod 480 : V# (i) = Rnd (1 ,5)
        Grau = Int (v# (i) ) * 50
        Farbe = Grau * $10000 + Grau * $100 + Grau
        y# (i) = y# (i) Mod 480
        WritePixelFast x (i) , Floor (y# (i) ) ,Farbe
    Next
    UnlockBuffer BackBuffer ()
    Flip
Wend

End

Graphics 640,480,0,2
SetBuffer BackBuffer()
LockBuffer BackBuffer()
WritePixelFast -1,100,$FFFFFF
UnlockBuffer BackBuffer()
Flip
WaitKey
End

Graphics 800, 600, 32, 1 
SetBuffer BackBuffer() 

;Types 
Type Bomb 
  Field x#, y#, xs#, ys#, time# 
End Type 
Type Explosion 
  Field x#, y#, xs#, ys#, col#[3] 
End Type 

While Not KeyHit(1) Or MouseXSpeed() < -3 Or MouseYSpeed() < -3 
  Cls 
  LockBuffer() 
  If Rand(1, 10) = 5 Then AddBomb() 
  UpdateExplosions() 
  UpdateBombs() 
  UnlockBuffer() 
  Flip 
Wend 
End 

Function AddBomb() 
    b.Bomb = New Bomb 
    b\x# = Rand(1, GraphicsWidth()) 
    b\x# = Rand(10, GraphicsWidth() - 10) 
    b\y# = GraphicsHeight() 
    b\xs# = Rand(-100, 100) 
    b\ys# = Rand(-250, -300) 
End Function 

Function UpdateBombs() 
    For b.Bomb = Each Bomb 
      b\time# = b\time# + 1 
      Rectangle(b\x#, b\y#) 
      b\x# = b\x# + b\xs# / 30 
      b\y# = b\y# + b\ys# / 30 
      b\ys# = b\ys# + 3 
      If b\x# < 0 Or b\x# > GraphicsWidth() Then b\xs# = -b\xs# 
      If b\time# > 100 Then 
        For i = 1 To 500 
          AddExplosion(b\x#, b\y#) 
        Next 
        Delete b 
      EndIf 
    Next 
End Function 

Function UpdateExplosions() 
    For e.Explosion = Each Explosion 
      e\x# = e\x# + e\xs# / 100 
      e\y# = e\y# + e\ys# / 100 
      e\ys# = e\ys# + 10 
      ;WritePixel e\x#, e\y#, e\col#[1] * $10000 + e\col#[2] * $100 + e\col#[3]
      If Floor(e\x#)> 0 And  Floor(e\x#)< GraphicsWidth()
        If Floor(e\y#)> 0 And  Floor(e\y#)< GraphicsHeight()
        WritePixelFast Floor(e\x#), Floor(e\y#), e\col#[1] * $10000 + e\col#[2] * $100 + e\col#[3]
      End If
     End If 
      For i = 1 To 3 
        e\col#[i] = e\col#[i] - 2 
        If e\col#[i] < 0 Then e\col#[i] = 0 
      Next 
      If e\col#[1] < 1 And e\col#[2] < 1 And e\col#[3] < 1 Or e\y# > GraphicsHeight() Or e\x# < 0 Or e\x# > GraphicsWidth() Then Delete e 
    Next 
End Function 

Function AddExplosion(x#, y#) 
    e.Explosion = New Explosion 
    e\x# = x# 
    e\y# = y# 
    e\xs# = Tan(Rand(-1000, 1000)) * 60 
    e\ys# = Tan(Rand(-1000, 1000)) * 60 
    For i = 1 To 3 
      e\col#[i] = Rand(100, 255) 
    Next 
End Function 

Function Rectangle(x1, y1) 
    For x = -2 To 2 
      For y = -2 To 2
      If x1 + x >0 And x1 + x < GraphicsWidth()
      If y1 + y>0 And y1 + y < GraphicsHeight()
        WritePixelFast x1 + x, y1 + y, 16777215
        End If
        End If 
      Next 
    Next 
End Function