0 REM USELESS TOOL BY MR.QUARK/OOO 2001
10 PRINT"[147]":POKE53280,6:POKE53281,6
20 PRINT"         REACTIONTESTER DELUXE          "
25 PRINT"     SPECIALLY DONE FOR OOO-PARTYS      "
30 PRINT"         HIT ANY KEY TO START"
40 POKE198,0:WAIT198,1
50 INPUT"[147]TYPE YOUR HANDLE PLEASE:";A$
60 IFA$="MAC"THENPRINT"DO YOU WANNA DANCE TONIGHT?"
61 IFA$="SCORPE"THENPRINT"BEAT THE POSCHMAN!"
62 IFA$="SATAN KLAUS"THENPRINT"WHEN WILL YOU RELEASE ROY SHELDON?"
63 IFA$="ZEALOT"THENPRINT"PAINTALOT :)"
64 IFA$="KATAKIS"THENPRINT"ALLES GUELL!"
65 IFA$="MR.TEC"THENPRINT"PLASMAMEN!"
66 IFA$="TEC"THENPRINT"PLASMAMEN!"
67 IFA$="AWAR"THENPRINT"MAILMADNESS RULEZ! YEAH CRACK THE MD!"
68 IFA$="MR.MUSEUM"THENPRINT"MAILMADNESS & PACKED RADIO RULEZ"
69 IFA$="LORD NIKON"THENPRINT"HI DUDE!"
70 IFA$="CATWEAZLE"THENPRINT"HI FETTKIESEL!"
71 IFA$="MURPHY"THENPRINT"SHE'S EATING SHIT! BAHHH!"
72 IFA$="FLOYD"THENPRINT"HI OLD FRIEND! WILLOW RULEZ!"
73 IFA$="BUGJAM"THENPRINT"DO YOU REMEMBER SYMEK 97? :)"
74 IFA$="NINJA"THENPRINT"THE DREAMS, ALWAYS FRESH AND COOL!"
76 IFA$="DIZZY DEVIL"THENPRINT"HOW ABOUT SOME ROY SHELDON CODE? ;)"
77 IFA$="DOC BACARDI"THENPRINT"ALWAYS FRESH AND COOL!"
80 PRINT"NOW PLEASE PRESS THE SPACEBAR IF THE    "
90 PRINT"SCREEN WILL FLASH"
100 FORT= 0TO 3000:NEXTT
110 PRINT"[147]"
120 GOSUB 200
130 FORB=0TO400
135 GETB$:IFB$=""THENNEXTB
140 GOSUB 200
141 FORC=0TO400
142 GETC$:IFC$=""THENNEXTC
150 GOSUB 200
151 FORD=0TO400
152 GETD$:IFD$=""THENNEXTD
160 PRINT"[147] YOUR RESULTS ";A$
165 PRINT"[176][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178]"
166 PRINTTAB(INT(B/10))"[218]"
167 PRINTTAB(INT(C/10))"[218]"
168 PRINTTAB(INT(D/10))"[218]"
169 PRINT"[173][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][189]"
170 PRINT"[194]GOOD[194]??[194]NO COMMENT[194]     VERY STONED   [194]"
175 PRINT" HIT A KEY TO RESTART"
180 POKE198,0:WAIT198,1
190 RUN
200 T=INT(200*RND(6))
201 FORA=0TO(T*10):NEXTA
202 POKE53281,1:POKE53281,6:RETURN