Graphics 1024,768,32,1
SetBuffer BackBuffer()
AppTitle "Matrix by TheProgrammer"

Global LENGTH# = 30
Global SPEED# = 1

Dim matrix$(73,55)
Dim point#(73)

For Y = 1 To 55
 For X = 1 To 73
  matrix(X,Y) = Chr(Rnd(33,126))
 Next
Next
For X = 1 To 73
 point(X) = Rand(0,55+LENGTH)
Next

While Not KeyHit(1)
 Cls

 For Y = 1 To 55
  For X = 1 To 73
   Color 0,0,0 : draw = 0
   If Y = point(X) Then
    Color 255,255,255 : draw = 1
   EndIf
   If Y < point(X) Then
    Color 0,255-(point(X)-Y)*(255.0/LENGTH),0 : draw = 1
    If point(X)-Y => LENGTH Then Color 0,0,0
   EndIf
   If draw Then Text X*14-14,Y*14-14,matrix(X,Y)
  Next
 Next
 For X = 1 To 73
  point(x) = point(x) + SPEED
  If point(x) > 55+LENGTH Then
   point(x) = 0
   For Y = 1 To 55
    matrix(X,Y) = Chr(Rnd(33,126))
   Next
  EndIf
 Next

 Flip
Wend
End