redo on the matrix saver

i got bored and there arent very many threads posted so try this out


SCREEN 12
COLOR 2
RANDOMIZE 509
WIDTH , 60

DO
x = RND
x = INT(x * 79) + 1

y = RND
y = INT(y * 60) + 1


bit = RND
bit = INT(bit * 3)
IF bit = 0 THEN bit$ = "0"
IF bit = 1 THEN bit$ = "1"
IF bit = 2 THEN bit$ = " "
LOCATE y, x
FOR I = 1 TO 100: NEXT I
PRINT bit$;
LOOP WHILE INKEY$ = ""


DO
a = RND
a = INT(a * 79) + 1

b = RND
b = INT(b * 60) + 1
bit = RND
bit = INT(bit * 3)
IF bit = 0 THEN bit$ = " "
IF bit = 1 THEN bit$ = " "
IF bit = 2 THEN bit$ = " "

LOCATE b, a
PRINT bit$;






TheMatrixMsg:
LOCATE 59, 40
PRINT "O";
LOCATE 14, 40
PRINT "H";
LOCATE 29, 43
PRINT "X";
LOCATE 29, 41
PRINT "R";
LOCATE 14, 39
PRINT "T";
LOCATE 29, 38
PRINT "M";
LOCATE 44, 40
PRINT "A";
LOCATE 29, 40
PRINT "T";
LOCATE 44, 39
PRINT "H";
LOCATE 14, 41
PRINT "E";
LOCATE 29, 42
PRINT "I";
LOCATE 44, 41
PRINT "S";
LOCATE 59, 39
PRINT "Y";
LOCATE 29, 39
PRINT "A";
LOCATE 59, 41
PRINT "U";
LOOP WHILE INKEY$ = ""




i did use a few peices from other programs that i saw.

 

[tsh73]

Nice job. Reminds me why I loved (and used) Qbasic so much

 

[zolken1]

Thanks but i have changed it a bit since i posted that i have a fwe otehr programs that i have created. Im only a newbie, lol.