DH Comp: Win an EXTREMELY RARE signed Dave Orton ATI card.

IvanV · Jan 27, 2006, 05:43 AM

Driverheaven, the No1 tech support site in the world!

IvanV · Jan 27, 2006, 05:47 AM

Driverheaven, the No1 tech support site in the world!

IvanV · Jan 27, 2006, 05:49 AM

Driverheaven, the No1 tech support site in the world!

Mr.Floppy · Jan 27, 2006, 06:29 AM

QBASIC is ur friend ^^

Quote:

00 CLS
01
02 COLOR 10, 0: LOCATE 10, 30: PRINT "Knock. Knock.": INPUT k$
03 COLOR 10, 0: LOCATE 11, 30: PRINT "Wake up, Mr.Floppy.": INPUT k$
04 COLOR 10, 0: LOCATE 12, 30: PRINT "The Matrix has you.": INPUT k$
05 COLOR 10, 0: LOCATE 13, 30: PRINT "Follow the white rabbit.": INPUT k$
06
10 CLS
11
12 COLOR 11, 0: LOCATE 8, 15: PRINT "[color=deepskyblue]Driverheaven, the No1 tech support site in the world![/color]"
13 COLOR 10, 0: LOCATE 17, 1: PRINT ""
14 PRINT "Maybe i'm in this time.": PRINT ""
15 COLOR 2, 0: PRINT "[nosycophantusertext=0]"
16 COLOR 10, 0: PRINT "And lurking around DH for more than three years and a half now,"
17 PRINT "i can truly claim, that DH really IS the No1!"
18 COLOR 2, 0: PRINT "[nosycophantusertext=1]"
19
20 INPUT k$: CLS
21 LOCATE 18, 1: COLOR 10, 0
22 PRINT "[?] To be answered by authorized staff:"
23 PRINT "---------------------------------------"
24 PRINT "[1] nothing happened yet"
25 PRINT "[2] post has been noticed/read"
26 PRINT "[3] considered possible winner"
27 PRINT "[4] chosen for winning card"
28 PRINT "": INPUT answer
30
40 IF answer = 1 THEN GOTO 50
41 IF answer = 2 THEN GOTO 52
42 IF answer = 3 THEN GOTO 54
43 IF answer = 4 THEN GOTO 56
44
45
50 CLS : LOCATE 10, 20: PRINT "i won't give up - i'll spam till i've won": INPUT k$
51 GOTO 10
52 CLS : LOCATE 10, 22: PRINT "Thanks for reading this ugly post :)": INPUT k$
53 GOTO 10
54 CLS : LOCATE 10, 20: PRINT "Uh, uh - i'm in, really? *thumbsup,grin*": INPUT k$
55 GOTO 70
56 CLS : LOCATE 6, 10: PRINT "Wwwoooooaaarrrr!!!!": LOCATE 9, 25: PRINT "Just can't believe this:"
57 LOCATE 12, 42: PRINT "i've actually won sth. *kissuall*": INPUT k$: GOTO 74
58
70 LOCATE 22, 1: PRINT "Shall i continue posting? [YES/NO]"
71 INPUT cont$
72 IF cont$ = "YES" THEN GOTO 10
73 IF cont$ = "NO" THEN LOCATE 13, 20: PRINT "Fine, then i'll be wating (=": GOTO 74: ELSE GOTO 10
74
75 i = 500
76 DO WHILE INKEY$ = ""
77 SOUND i, .05
78 IF i = 900 THEN si = 1
79 IF i = 500 THEN si = 0
80 IF si = 0 THEN i = i + 1
81 IF si = 1 THEN i = i - 1
82 LOOP
83
84 CLS : LOCATE 10, 28: PRINT "This Programm ends here :)*"
85 INPUT k$: CLS
86 LOCATE 6, 21: PRINT "Did you _really_ think, i'ld forget? :P"
87 LOCATE 10, 34: PRINT "Hello World ^^": PRINT "": PRINT "": LOCATE 13, 38: PRINT "-Fin-"
88 'this is really, really the end. it's after 7.oc am, so good night (:

(this took me around 3 hours to do O.o - "fine tuning" took over half an hour.
yea, "some" years have gone by since the g'old of QBASIC *hehe*
and my memory of it was more like data on a 3,5"-Disk after "meeting" with a 200W subwoofer magnet.
at last i had been to lazy to correct the line numbers, so plz forgive me that lil mess)

oh and btw: this is [color=royalblue]actually working code[/color] (if that term is adequate for this ^^)
and for all the lazy types out there: grab this lil RARchive and get ur gorilla.bas skills up

Mr.Floppy · Jan 27, 2006, 06:34 AM

QBASIC is ur friend ^^

Quote:

00 CLS
01
02 COLOR 10, 0: LOCATE 10, 30: PRINT "Knock. Knock.": INPUT k$
03 COLOR 10, 0: LOCATE 11, 30: PRINT "Wake up, Mr.Floppy.": INPUT k$
04 COLOR 10, 0: LOCATE 12, 30: PRINT "The Matrix has you.": INPUT k$
05 COLOR 10, 0: LOCATE 13, 30: PRINT "Follow the white rabbit.": INPUT k$
06
10 CLS
11
12 COLOR 11, 0: LOCATE 8, 15: PRINT "[color=deepskyblue]Driverheaven, the No1 tech support site in the world![/color]"
13 COLOR 10, 0: LOCATE 17, 1: PRINT ""
14 PRINT "Maybe i'm in this time.": PRINT ""
15 COLOR 2, 0: PRINT "[nosycophantusertext=0]"
16 COLOR 10, 0: PRINT "And lurking around DH for more than three years and a half now,"
17 PRINT "i can truly claim, that DH really IS the No1!"
18 COLOR 2, 0: PRINT "[nosycophantusertext=1]"
19
20 INPUT k$: CLS
21 LOCATE 18, 1: COLOR 10, 0
22 PRINT "[?] To be answered by authorized staff:"
23 PRINT "---------------------------------------"
24 PRINT "[1] nothing happened yet"
25 PRINT "[2] post has been noticed/read"
26 PRINT "[3] considered possible winner"
27 PRINT "[4] chosen for winning card"
28 PRINT "": INPUT answer
30
40 IF answer = 1 THEN GOTO 50
41 IF answer = 2 THEN GOTO 52
42 IF answer = 3 THEN GOTO 54
43 IF answer = 4 THEN GOTO 56
44
45
50 CLS : LOCATE 10, 20: PRINT "i won't give up - i'll spam till i've won": INPUT k$
51 GOTO 10
52 CLS : LOCATE 10, 22: PRINT "Thanks for reading this ugly post :)": INPUT k$
53 GOTO 10
54 CLS : LOCATE 10, 20: PRINT "Uh, uh - i'm in, really? *thumbsup,grin*": INPUT k$
55 GOTO 70
56 CLS : LOCATE 6, 10: PRINT "Wwwoooooaaarrrr!!!!": LOCATE 9, 25: PRINT "Just can't believe this:"
57 LOCATE 12, 42: PRINT "i've actually won sth. *kissuall*": INPUT k$: GOTO 74
58
70 LOCATE 22, 1: PRINT "Shall i continue posting? [YES/NO]"
71 INPUT cont$
72 IF cont$ = "YES" THEN GOTO 10
73 IF cont$ = "NO" THEN LOCATE 13, 20: PRINT "Fine, then i'll be wating (=": GOTO 74: ELSE GOTO 10
74
75 i = 500
76 DO WHILE INKEY$ = ""
77 SOUND i, .05
78 IF i = 900 THEN si = 1
79 IF i = 500 THEN si = 0
80 IF si = 0 THEN i = i + 1
81 IF si = 1 THEN i = i - 1
82 LOOP
83
84 CLS : LOCATE 10, 28: PRINT "This Programm ends here :)*"
85 INPUT k$: CLS
86 LOCATE 6, 21: PRINT "Did you _really_ think, i'ld forget? :P"
87 LOCATE 10, 34: PRINT "Hello World ^^": PRINT "": PRINT "": LOCATE 13, 38: PRINT "-Fin-"
88 'this is really, really the end. it's after 7.oc am, so good night (:

(this took me around 3 hours to do O.o - "fine tuning" took over half an hour.
yea, "some" years have gone by since the g'old of QBASIC *hehe*
and my memory of it was more like data on a 3,5"-Disk after "meeting" with a 200W subwoofer magnet.
at last i had been to lazy to correct the line numbers, so plz forgive me that lil mess)

oh and btw: this is [color=royalblue]actually working code[/color] (if that term is adequate for this ^^)
and for all the lazy types out there: grab this lil RARchive and get ur gorilla.bas skills up

IvanV · Jan 27, 2006, 07:15 AM

Driverheaven, the No1 tech support site in the world!

IvanV · Jan 27, 2006, 07:18 AM

Driverheaven, the No1 tech support site in the world!

IvanV · Jan 27, 2006, 07:19 AM

Driverheaven, the No1 tech support site in the world!

IvanV · Jan 27, 2006, 07:26 AM

Driverheaven, the No1 tech support site in the world!

IvanV · Jan 27, 2006, 07:30 AM

Driverheaven, the No1 tech support site in the world!

IvanV · Jan 27, 2006, 07:30 AM

Driverheaven, the No1 tech support site in the world!

Customgamer1 · Jan 27, 2006, 07:39 AM

Driverheaven, the No1 tech support site in the world!

Resistor · Jan 27, 2006, 08:38 AM

Driverheaven, the No1 tech support site in the world!

Driverheaven, the No1 tech support site in the world!

Driverheaven, the No1 tech support site in the world!

Erroneus · Jan 27, 2006, 09:09 AM

Driverheaven, the No1 tech support site in the world!

sbrehm72255 · Jan 27, 2006, 09:13 AM

"Driverheaven, the No1 tech support site in the world!"

sbrehm72255 · Jan 27, 2006, 09:15 AM

"Driverheaven, the No1 tech support site in the world!"

Erroneus · Jan 27, 2006, 09:16 AM

Driverheaven, the No1 tech support site in the world!

random date... yeah 28/2

sbrehm72255 · Jan 27, 2006, 09:16 AM

"Driverheaven, the No1 tech support site in the world!"

sbrehm72255 · Jan 27, 2006, 09:19 AM

"Driverheaven, the No1 tech support site in the world!"

Erroneus · Jan 27, 2006, 09:29 AM

Driverheaven, the No1 tech support site in the world!

!!

Erroneus · Jan 27, 2006, 09:32 AM

Driverheaven, the No1 tech support site in the world!

talk talk

Erroneus · Jan 27, 2006, 09:45 AM

Driverheaven, the No1 tech support site in the world!

weee

LeanWolf · Jan 27, 2006, 09:58 AM

Driverheaven, the No1 tech support site in the world!

LeanWolf · Jan 27, 2006, 10:00 AM

Driverheaven, the No1 tech support site in the world!

Diskeater · Jan 27, 2006, 10:01 AM

Driverheaven, the No1 tech support site in the world!

Diskeater · Jan 27, 2006, 10:02 AM

Driverheaven, the No1 tech support site in the world!
rt