Matrix

[Dr_Davenstein]

Here... I ran this through the Sooper Dooper Code Scrambler, and this is what popped out! :lol:

Code:

Randomize Timer
ScreenRes 640,480,32,,1
NumberOfLetters = 50

Dim letters(NumberOfLetters, 3) '0 is xpos, 1 is ypos, 2 speed, 3 is character

For i = 1 To NumberOfLetters
    letters(i, 0) = Int(Rnd * 79) + 1
    letters(i, 1) = Int(Rnd * 10) + 1
    letters(i, 2) = Rnd * 1.5 + .1
    If Int(Rnd * 2) = 0 Then
        letters(i, 3) = 48 'ascii character number
    Else
        letters(i, 3) = 49
    End If
Next

Dim OldTime As Single
Dim Ink As String*1
Dim As Integer i2, newY


Do
    Ink = Inkey$
    For i = 1 To NumberOfLetters
        letters(i, 1) = letters(i, 1) + letters(i, 2)
        
        For i2 = 6 To 0 Step -1
            newY = Letters(i,1)+i2
            If newY>0 and newY< 60 Then
                Color RGB(0,64+i2*24,0)
                Locate newY, letters(i, 0)
                Print Chr$(letters(i, 3))
            End If
        Next
                
        
        If letters(i, 1) > 59 Then
                letters(i, 1) = Int(Rnd * 79) + 1
                letters(i, 1) = 1
                letters(i, 2) = Rnd * .9 + .1
                If Int(Rnd * 2) = 0 Then
                    letters(i, 3) = 48
                Else
                    letters(i, 3) = 49
                End If
        End If
    Next
    
    Oldtime = Timer +.1
    Do
    Loop Until Timer > OldTime
Loop While Ink<>Chr$(27)