#Include<GUIConstants.au3>
Opt('GUIOnEventMode', 1)
Global $a = 48; Anzahl der Spalten
Global $sp[$a+1], $w = @DesktopWidth, $h = @DesktopHeight
GUICreate('Matrix', $w, $h, -1, -1, BitOr($WS_MAXIMIZE,$WS_POPUP))
GUISetOnEvent($GUI_EVENT_CLOSE, 'Ende'); ESC zum Beenden
GUISetBKColor(0x000000)
For $i = 0 To $a
	$sp[$i] = GUICtrlCreateLabel('', 10+$i*Ceiling($w/($a)), 0, 18, $h, $SS_RIGHT)
	GUICtrlSetFont(-1, 12, 800, 0, 'Verdana')
	GUICtrlSetColor(-1, 0x00ff00)
Next
GUISetState()
GUISetCursor(16,1); Mauszeiger verstecken
$f = 0
While 1
	If $f = 0 Then
		$y = Random(0, $a, 1)
		$y1 = Random(0, $a, 1)
		$y2 = Random(0, $a, 1)
	EndIf
	If Not($y=$y1 And $y=$y2) Then
		$r = StringLeft(GUICtrlRead($sp[$y]), 160)
		Switch Mod($y, 2)
			Case 0
				$c = StringRegExpReplace(Chr(Random(32, 122, 1)), '[@]', ' ' & @LF & ' ')
			Case Else
				$c = StringMid('123 456 789', Random(1, 11, 1), 1)
		EndSwitch
		$x = $y
	Else
		$f += 1
		If $f = 160 Then $f = 0
		$c = ' '
		$x = Random(0, $a, 1)
		$r = StringLeft(GUICtrlRead($sp[$x]), 160)
	EndIf
	GUICtrlSetData($sp[$x], $c & @LF & $r)
WEnd
Func Ende()
	GUISetCursor(2,0)
	Exit
EndFunc