MATRIX screen saver 4

[Guest_imported]

have you seen the movie the matrix? if you have maybe you can help me. You know when there are all of those zero's and one's in green writing going all over the screen? thats what i want the screen saver to look like.

When the sreen saver stops I want the words: "THE MATRIX HAS YOU"
blinking on the screen.

please help me, this would be a realy cool screen saver.

thanks

 

[Guest_imported]

in the program, how EXACTLY would you use the /AH command?

 

[logiclrd]

Assuming you have QuickBASIC version 7.1, which is required, you would invoke QuickBASIC like this:
[tt]
C:\QB71>qbx /ah
[/tt]
(you type the underlined text)

 

[Guest_imported]

i got an error that says out of data and i dont know how to remedy that ti was on the line: "READ thisset$"

 

[logiclrd]

It means that you accidentally did not copy all the data correctly. The following URL should get you to a web site where you can download it directly:

http://polarity.logiclrd.cx:81/~logiclrd/matrix/

There is also a C version that uses the library SDL (and a working Windows binary). Be aware, though, that SDL is extremely flaky, and may not work properly on your machine. Trust me; any bizarre behaviour that occurs is not a result of my code, but a result of SDL misbehaving. The SDL version assumes that the system will allow it to set mode 1024x768 in 256 colours.

 

[quebasic]

SCREEN 13
DIM SHARED zero%(50), one%(50)
DRAW "bm0,0c10brrdufnddddgnllhr1l1nuuuu"
GET (0, 0)-(3, 5), zero%
LINE (0, 0)-(10, 10), 0, BF
DRAW "bm0,0c2r1u1d5l1r2"
GET (0, 0)-(3, 5), one%
LINE (0, 0)-(10, 10), 0, BF
PUT (316, 186), one%, PSET
RANDOMIZE TIMER
COLOR 2
DO
wait$ = INKEY$
number = INT(RND * 2) + 1
numberget:
v = INT(RND * 104) + 1
w = INT(RND * 208) + 1
x = INT(RND * 310) + 1
FOR t = 1 TO 7
IF v + t = x OR v + t = w THEN GOTO numberget:
IF w + t = v OR w + t = x THEN GOTO numberget:
NEXT
y = y + 7
IF y > 186 THEN CLS : y = 1
IF number = 1 THEN PUT (v, y), zero%, PSET: PUT (w, y), zero%, PSET: PUT (x, y), zero%, PSET
IF number = 2 THEN PUT (v, y), one%, PSET: PUT (w, y), one%, PSET: PUT (x, y), one%, PSET
FOR i = 1 TO 70000
NEXT i
LOOP WHILE wait$ = ""
CLS
LOCATE 12, 11
PRINT "The Matrix Has You!"
COLOR 0

Here is a graphic on I made.