29 lines
601 B
Plaintext
29 lines
601 B
Plaintext
Sub d(p As Ulong, s As Ulong, x As Long, y As Long)
|
|
Color p, s
|
|
If y > 0 And y < 24 Then Locate y, x: Print Chr(33 + (x * y) Mod 200);
|
|
End Sub
|
|
|
|
Dim As Long t(80)
|
|
For i As Integer = 1 To 80
|
|
t(i) = Int(-50 * Rnd)
|
|
Next
|
|
Dim As Double s = Timer
|
|
|
|
Cls
|
|
Do
|
|
For i As Integer = 1 To 80
|
|
If t(i) > 28 Then t(i) = 0
|
|
t(i) += 1
|
|
Dim As Long y = t(i)
|
|
d( 0, 0, i, y - 6)
|
|
d( 2, 0, i, y - 5)
|
|
d( 2, 0, i, y - 4)
|
|
d(10, 0, i, y - 2)
|
|
d(11, 0, i, y - 1)
|
|
d( 0, 2, i, y)
|
|
Next i
|
|
|
|
Dim As Double l = Timer
|
|
While l = Timer: Wend
|
|
Loop
|