×
INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Contact US

Log In

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

redo on the matrix saver

redo on the matrix saver

redo on the matrix saver

(OP)
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.

RE: redo on the matrix saver

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

RE: redo on the matrix saver

(OP)
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.

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Tek-Tips Forums free from inappropriate posts.
The Tek-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Tek-Tips forums is a member-only feature.

Click Here to join Tek-Tips and talk with other members! Already a Member? Login

Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close