Allegro.cc - Online Community

Allegro.cc Forums » Off-Topic Ordeals » QBasic Nerd

This thread is locked; no one can reply to it. rss feed Print
 1   2 
QBasic Nerd
le_y_mistar
Member #8,251
January 2007
avatar

when i first started programming (9), i liked making making my computer fill the screen with random colours and output random sounds, seizure type of stuff.

for(;;)
{
   fill screen with random color;
   output random pitch
}

-----------------
I'm hell of an awesome guy :)

Mark Oates
Member #1,146
March 2001
avatar

My first computer class was Basic, and we would all write programs that flashed colors on the screen and write "VIRUS!!" :P

--
Visit CLUBCATT.com for cat shirts, cat mugs, puzzles, art and more <-- coupon code ALLEGRO4LIFE at checkout and get $3 off any order of 3 or more items!

AllegroFlareAllegroFlare DocsAllegroFlare GitHub

Matthew Leverton
Supreme Loser
January 1999
avatar

Quote:

I dare others to post their own, if they have any.

First off, your source code was truncated because it exceeded the size limit. But if anybody wants a good laugh, my Monopoly source code is very funny.

I started it when I was 11 or 12 in GW-BASIC. There was no Internet and I didn't know anybody that programmed. Everything I knew was from C64 books, which obviously wasn't the same as GW-BASIC.

The great part is half the code is GW-BASIC with line numbers and absolutely no concept of programming. It starts out:

10 SCREEN 0: WIDTH 80, 43: COLOR 11, 7: CLS : RANDOMIZE TIMER: DIM SHARED p$(40), p(40), po(40), dola, dolb, n, alch(14), alche(15), mortgage(40)
13 cl$ = "                                                                 "
15 FOR n = 1 TO 40: po(n) = 3: NEXT n: xxx = 20: yyy = 20: bbb = xxx: ccc = yyy
17 dola = 1500: dolb = 1500:

I had no idea what an array was (nor that they even existed), thus you see "dola" and "dolb" for player 1's and player 2's cash respectively. But at some point I had a revelation, and started using arrays. (Thank-you, QBASIC online help.)

I enjoyed making patterns with QBASIC, since it had such a cool IDE:

12450 FOR n = 1 TO 2
22460 IF n = 1 THEN q = z: LOCATE xxx, yyy: PRINT " "
32470 IF n = 2 THEN q = y: LOCATE bbb, ccc: PRINT " "
42480 IF q = 1 THEN LOCATE 27, 78: xx = 27: yy = 78
52490 IF q = 2 THEN LOCATE 27, 72: xx = 27: yy = 72
62500 IF q = 3 THEN LOCATE 27, 66: xx = 27: yy = 66
72510 IF q = 4 THEN LOCATE 27, 60: xx = 27: yy = 60
82520 IF q = 5 THEN LOCATE 27, 54: xx = 27: yy = 54
92530 IF q = 6 THEN LOCATE 27, 48: xx = 27: yy = 48
102540 IF q = 7 THEN LOCATE 27, 42: xx = 27: yy = 42
112550 IF q = 8 THEN LOCATE 27, 36: xx = 27: yy = 36
122560 IF q = 9 THEN LOCATE 27, 30: xx = 27: yy = 30
132570 IF q = 10 THEN LOCATE 27, 24: xx = 27: yy = 24
142580 IF q = 11 THEN LOCATE 27, 18: xx = 27: yy = 18
152590 IF q = 12 THEN LOCATE 27, 12: xx = 27: yy = 12
162600 IF q = 13 THEN LOCATE 27, 6: xx = 27: yy = 6
172610 IF q = 14 THEN LOCATE 24, 6: xx = 24: yy = 6
182620 IF q = 15 THEN LOCATE 21, 6: xx = 21: yy = 6
192630 IF q = 16 THEN LOCATE 18, 6: xx = 18: yy = 6
202640 IF q = 17 THEN LOCATE 15, 6: xx = 15: yy = 6
212650 IF q = 18 THEN LOCATE 12, 6: xx = 12: yy = 6
222660 IF q = 19 THEN LOCATE 9, 6: xx = 9: yy = 6
232670 IF q = 20 THEN LOCATE 6, 6: xx = 6: yy = 6
242680 IF q = 21 THEN LOCATE 3, 6: xx = 3: yy = 6
252690 IF q = 22 THEN LOCATE 3, 12: xx = 3: yy = 12
262700 IF q = 23 THEN LOCATE 3, 18: xx = 3: yy = 18
272710 IF q = 24 THEN LOCATE 3, 24: xx = 3: yy = 24
282720 IF q = 25 THEN LOCATE 3, 30: xx = 3: yy = 30
292730 IF q = 26 THEN LOCATE 3, 36: xx = 3: yy = 36
302740 IF q = 27 THEN LOCATE 3, 42: xx = 3: yy = 42
312750 IF q = 28 THEN LOCATE 3, 48: xx = 3: yy = 48
322760 IF q = 29 THEN LOCATE 3, 54: xx = 3: yy = 54
332770 IF q = 30 THEN LOCATE 3, 60: xx = 3: yy = 60
342780 IF q = 31 THEN LOCATE 3, 66: xx = 3: yy = 66
352790 IF q = 32 THEN LOCATE 3, 72: xx = 3: yy = 72
362800 IF q = 33 THEN LOCATE 3, 78: xx = 3: yy = 78
372810 IF q = 34 THEN LOCATE 6, 78: xx = 6: yy = 78
382820 IF q = 35 THEN LOCATE 9, 78: xx = 9: yy = 78
392830 IF q = 36 THEN LOCATE 12, 78: xx = 12: yy = 78
402840 IF q = 37 THEN LOCATE 15, 78: xx = 15: yy = 78
412850 IF q = 38 THEN LOCATE 18, 78: xx = 18: yy = 78
422860 IF q = 39 THEN LOCATE 21, 78: xx = 21: yy = 78
432870 IF q = 40 THEN LOCATE 24, 78: xx = 24: yy = 78
442880 IF y <> z THEN COLOR n + 10: PRINT CHR$(2)
452890 IF y = z THEN COLOR 10: PRINT CHR$(2)
462891 IF n = 1 THEN xxx = xx: yyy = yy
472892 IF n = 2 THEN bbb = xx: ccc = yy
482900 NEXT n
492910 COLOR 15: RETURN

I love it! 8-)

jhuuskon
Member #302
April 2000
avatar

Ouch. My ears bleed thanks to the Microsoft/Roland GM/GS software synthesizer sounds. Maybe in 20 years this'll have some camp value, right now it's just another viable torture method for the Abu Ghraib guards.

You don't deserve my sig.

 1   2 


Go to: