;
; Matrix version 2.0
;   
; A matrix in Blitz3D
;
; by Max Cohen   
;
; e-mail: mamba_mambaovich@bk.ru
;

Graphics(640, 480, 16, 2)

SetBuffer(BackBuffer())

SetFont(LoadFont("Courier", 14, 0, 0, 0))

Global a1%, a2%, a3%, a4%

Dim b1%(9), b2%(62)

b1(0) = 22
b1(1) = 19
b1(2) = 16
b1(3) = 13
b1(4) = 11

b1(5) = 10
b1(6) = 9
b1(7) = 8
b1(8) = 8
b1(9) = 7

c1()

a1 = CreateTimer(10)

While Not KeyHit(1)

   a2 = WaitTimer(a1)
     
   For a3 = 1 To a2
     
   Next
     
   If a4 < 92 Then
     
    a4 = a4 + 1
      
    c1()
      
   End If
     
   c2()
      
   Flip
      
   Cls
     
Wend

End

Type d1

   Field x%, y%, l%, c%
     
End Type

Function c1()

   Local a%
     
   b.d1 = New d1
     
    Repeat
      
     a = Rand(1, 63)
       
    Until b2(a - 1) = 0
      
    b2(a - 1) = 1
      
    b\x = a * 10
     
    b\y = 0
      
    b\l = Rand(5, 14)
     
    b\c = b\l - 5

End Function

Function c2()

   Local a%, b%
     
   For c.d1 = Each d1
     
    For b = 1 To c\l
      
     a = Rand(65, 90)
       
     Color(0, Abs(137 - (b * b1(c\c))), 0)
       
     Text(c\x, (c\y - (b * 12)), Chr(a), 1, 1)
       
    Next

    a = Rand(65, 90)
      
    Color(0, 255, 0)
      
    Text(c\x, c\y, Chr(a), 1, 1)

    If c\y > 400 Then b2((c\x / 10) - 1) = 0
      
    If c\y < 650 Then
     
     c\y = c\y + 12
      
    Else
     
     Delete c
         
     c1()
      
    End If
     
   Next
     
End Function