DIM s(100)
DIM c(100)
DIM r(100)
CLS
RANDOMIZE TIMER

LOCATE 25, 1
COLOR 2
PRINT "Exit the Matrix = 9"

FOR i = 1 TO 50
	c(i) = INT(RND * 80) + 1
	s(i) = INT(RND * 9) + 1
NEXT i

DO
t = t + 1
IF t = 10000 THEN
	t = 0
	FOR i = 1 TO 50
		col = INT(RND * 2) + 1
		rndchr = INT(RND * 9) + 1
		SELECT CASE rndchr
			CASE 1
				chr = 15
			CASE 2
				chr = 20
			CASE 3
				chr = 145
			CASE 4
				chr = 146
			CASE 5
				chr = 157
			CASE 6
				chr = 233
			CASE 7
				chr = 236
			CASE 8
				chr = 238
			CASE 9
				chr = 240
		END SELECT
		IF col = 1 THEN
			COLOR 2
		ELSEIF col = 2 THEN COLOR 10
		END IF
		r(i) = r(i) + s(i)
		IF r(i) > s(i) THEN
			LOCATE r(i) - s(i), c(i)
			PRINT " "
			IF r(i) > 20 THEN
				r(i) = 1
				c(i) = INT(RND * 80) + 1
				s(i) = INT(RND * 2) + 1
			END IF
			LOCATE r(i), c(i)
			PRINT CHR$(chr)
		END IF
	NEXT i
END IF

LOOP UNTIL INKEY$ = "9"