[QBASIC] Welcome to the Matrix

09-01-2012, 09:05 PM #1

MLB

Guest

n/a

Posts

n/a

Reputation

n/a

Credits

Member

Once upon a time...

NextGenUpdate

(adsbygoogle = window.adsbygoogle || []).push({}); Here is a simple QBASIC code to make Matrix text :p

    REM Welcome to the Matrix

10 MATRIX:

20 COLOR 2

30 RAND = CINT(RND * 9)

40 RAND2 = CINT(RND * 7)

50 RAND3 = CINT(RND * 

60 RAND4 = CINT(RND * 6)

70 RAND5 = CINT(RND * 5)

80 RAND6 = CINT(RND * 4)

90 RAND7 = CINT(RND * 3)

100 RAND8 = CINT(RND * 2)

110 RAND9 = CINT(RND * 1)

120 PRINT RAND; RAND2; RAND3; RAND4; RAND5; RAND6; RAND7; RAND8; RAND9; RAND; RAND2; RAND3; RAND4; RAND5; RAND6; RAND7; RAND8; RAND9; RAND; RAND2; RAND3; RAND4; RAND5; RAND6; RAND7; RAND8; RAND9; RAND; RAND2; RAND3; RAND4; RAND5; RAND6; RAND7; RAND8; RAND9;

130 GOTO MATRIX

Enjoy

Screenshots:

You must login or register to view this content.

(adsbygoogle = window.adsbygoogle || []).push({});

09-06-2012, 11:52 PM #2

JHuntz

Grunt

65

Posts

367

Reputation

0

Credits

Member

Aug 2012

NextGenUpdate

I actually had that as an assignment when I took Structured Programming in high school, that alone with coding a blackjack game. Fun times!

09-07-2012, 12:20 AM #3

Jakes625

Guest

n/a

Posts

n/a

Reputation

n/a

Credits

Member

Once upon a time...

NextGenUpdate

Originally posted by MLB

Here is a simple QBASIC code to make Matrix text :p

    REM Welcome to the Matrix

10 MATRIX:

20 COLOR 2

30 RAND = CINT(RND * 9)

40 RAND2 = CINT(RND * 7)

50 RAND3 = CINT(RND * 

60 RAND4 = CINT(RND * 6)

70 RAND5 = CINT(RND * 5)

80 RAND6 = CINT(RND * 4)

90 RAND7 = CINT(RND * 3)

100 RAND8 = CINT(RND * 2)

110 RAND9 = CINT(RND * 1)

120 PRINT RAND; RAND2; RAND3; RAND4; RAND5; RAND6; RAND7; RAND8; RAND9; RAND; RAND2; RAND3; RAND4; RAND5; RAND6; RAND7; RAND8; RAND9; RAND; RAND2; RAND3; RAND4; RAND5; RAND6; RAND7; RAND8; RAND9; RAND; RAND2; RAND3; RAND4; RAND5; RAND6; RAND7; RAND8; RAND9;

130 GOTO MATRIX

Enjoy

Screenshots:

You must login or register to view this content.

    

for( ;; )

{

    cout<<Rand()->Next(0,9)<<"\n";

    Thread->Sleep(1000);

}

C++ :fa:

09-07-2012, 12:22 AM #4

MLB

Guest

n/a

Posts

n/a

Reputation

n/a

Credits

Member

Once upon a time...

NextGenUpdate

Originally posted by GAMER

    

for( ;; )

{

    cout<<Rand()->Next(0,9)<<"\n";

    Thread->Sleep(1000);

}

C++ :fa:

Haven't taken that yet, just now taking QBASIC, I take C++ next semester and JAVA prog next year Winky Winky

09-07-2012, 12:24 AM #5

Jakes625

Guest

n/a

Posts

n/a

Reputation

n/a

Credits

Member

Once upon a time...

NextGenUpdate

Originally posted by MLB

Haven't taken that yet, just now taking QBASIC, I take C++ next semester and JAVA prog next year Winky Winky

Oh shit I didn't even know you posted the thread :lol:

oh and that's basic C++, what do you want to do as a profession?

09-07-2012, 12:26 AM #6

MLB

Guest

n/a

Posts

n/a

Reputation

n/a

Credits

Member

Once upon a time...

NextGenUpdate

Originally posted by GAMER

Oh shit I didn't even know you posted the thread :lol:

oh and that's basic C++, what do you want to do as a profession?

Law Enforcement, I'm taking those classes just to have extra skills in life. :p