For a1.TT = Each TT
    For a2.TT = Each TT
        If a1.TT <> a2.TT Then
        ;If Colli....a1.....a2 ..Then
        EndIf
    Next
Next

Graphics 800,600,16,1

Global backGround = CreateImage(800,600)
SetBuffer ImageBuffer(backGround)
For i = 1 To 255
Color 0,0,i*5
Rect 1,i*20,800,20
Next

Color 255,255,255

SetBuffer BackBuffer()

AppTitle "Schneefall - Simulator"

SeedRnd MilliSecs()

Dim HideX(10)
Dim HideY(10)

For i = 1 To 10
HideX(i) = Rand(600)
HideY(i) = Rand(400)
Next

Type s
Field x#,y#,ox#,oy#
Field s
Field ri
Field gr
Field alt
Field fang
End Type

Global s.s

FlushKeys()

Repeat

DrawImage BackGround,1,1


s.s = New s
s\x = Rand(800)
s\s = Rand(1,2)
s\ri= Rand(-1,1)
s\gr = Rand(5,10)
s\y = (-s\gr)-5
s\alt = MilliSecs()
s\fang = False

For s.s = Each s
Color s\gr*100,s\gr*100,s\gr*100
Oval s\x,s\y,s\gr,s\gr
If s\alt <= MilliSecs() - 1500 Then
s\ri = Rand(-1,1)
s\alt = MilliSecs()
EndIf
s\y = s\y + s\gr/2
If s\y < 600-s\gr Then s\x = s\x - s\ri
If s\x < 0 Then s\x = 0
If s\x > 800-s\gr Then s\x = 800-s\gr
If s\y > 600-s\gr Then s\y = 600-s\gr
If s\gr = 10 Then
For i = 1 To 10
If RectsOverlap(s\x,s\y,s\gr,s\gr,HideX(i),HideY(i),50,20) Then s\y = s\oy:s\x = s\ox
Next
EndIf
If s\fang = True Then s\x = MouseX()+s\ox/10:s\y = MouseY()+s\oy/10
s\oy = s\y:s\ox = s\x
Next
If MouseHit(1) Then Delete Each s
For i = 1 To 10
Color 255,0,0:Rect HideX(i),HideY(i),50,20:Color 255,255,255
Next

Flip
Cls
Until KeyHit(1)
End