Name: Anonymous 2006-11-04 4:04
9 ON ERROR GOTO 100
10 PRINT "HI, YOU NEED TO GUESS MY NUMBER."
11 PRINT "IF YOU RUN OUT OF TRIES, I GET TO RAPE YOU."
12 PRINT "EVEN THOUGH TECHNICALLY IT'S NOT RAPE SINCE YOU GIVE IMPLIED CONSENT BY CONTINUNING AND NOT INTERRUPTING THIS PROGRAM."
13 PRINT "ANYWAY, LET'S GET STARTED."
14 PRINT "PRESS ENTER NOW: ";
20 DO:LOOP WHILE INKEY$=""
30 NUM=INT(RND(1)*100)+1:G=0
31 PRINT "THE NUMBER IS BETWEEN 1 AND 100. TRY TO GUESS IT."
32 INPUT "WHAT IS YOUR GUESS?";A$
40 A=VAL(A$)
41 G=G+1
43 IF A<0 THEN PRINT "NEGATIVE NUMBERS ARE FOR GAY JEWS. GTFO AND RETRY ASSHOLE.":GOTO 31
44 IF A<>FIX(A) THEN PRINT "INTEGERS BITCH. GET A LIFE.":GOTO 31
45 IF A=0 THEN PRINT "NUMBERS MOTHERFUCKER DO YOU USE IT? LEARN2TYPEKTHXBAI. IF YOU TYPED A ZERO YOU'RE A FAG.":GOTO 31
46 IF A>100 THEN PRINT "STOP THAT SHIT. JUST FOR THAT I'M PICKING A DIFFERENT NUMBER.":GOTO 30
47 IF A>G THEN PRINT "DUMBFUCK. MY NUMBER IS HIGHER.":GOTO 31
48 IF A<G THEN PRINT "BE AN HERO. GO LOWER.":GOTO 31
49 IF G>9 THEN 200
50 PRINT "YOU WIN. BIG DEAL."
51 PRINT "PRESS ANY KEY TO CONTINUE WITH YOUR FUTILE EXISTENCE"
52 DO:LOOP WHILE INKEY$=""
99 PRINT "OK DONE.":END
100 PRINT "YOU FUCKED SOMETHING UP. SO I'M PRETENDING NOTHING'S WRONG."
101 RESUME NEXT
200 PRINT "WELL, YOU FAILED."
201 PRINT "MY NUMBER WAS ";NUM;"."
202 PRINT "WELL, TIME TO BE RAPED. PLEASE BEND OVER AND PRESS ENTER."
203 DO:LOOP WHILE INKEY$=""
204 PRINT "WOW UR ANUS FEELS GOOD. PRESS A KEY."
203 DO:LOOP WHILE INKEY$=""
204 GOTO 99
10 PRINT "HI, YOU NEED TO GUESS MY NUMBER."
11 PRINT "IF YOU RUN OUT OF TRIES, I GET TO RAPE YOU."
12 PRINT "EVEN THOUGH TECHNICALLY IT'S NOT RAPE SINCE YOU GIVE IMPLIED CONSENT BY CONTINUNING AND NOT INTERRUPTING THIS PROGRAM."
13 PRINT "ANYWAY, LET'S GET STARTED."
14 PRINT "PRESS ENTER NOW: ";
20 DO:LOOP WHILE INKEY$=""
30 NUM=INT(RND(1)*100)+1:G=0
31 PRINT "THE NUMBER IS BETWEEN 1 AND 100. TRY TO GUESS IT."
32 INPUT "WHAT IS YOUR GUESS?";A$
40 A=VAL(A$)
41 G=G+1
43 IF A<0 THEN PRINT "NEGATIVE NUMBERS ARE FOR GAY JEWS. GTFO AND RETRY ASSHOLE.":GOTO 31
44 IF A<>FIX(A) THEN PRINT "INTEGERS BITCH. GET A LIFE.":GOTO 31
45 IF A=0 THEN PRINT "NUMBERS MOTHERFUCKER DO YOU USE IT? LEARN2TYPEKTHXBAI. IF YOU TYPED A ZERO YOU'RE A FAG.":GOTO 31
46 IF A>100 THEN PRINT "STOP THAT SHIT. JUST FOR THAT I'M PICKING A DIFFERENT NUMBER.":GOTO 30
47 IF A>G THEN PRINT "DUMBFUCK. MY NUMBER IS HIGHER.":GOTO 31
48 IF A<G THEN PRINT "BE AN HERO. GO LOWER.":GOTO 31
49 IF G>9 THEN 200
50 PRINT "YOU WIN. BIG DEAL."
51 PRINT "PRESS ANY KEY TO CONTINUE WITH YOUR FUTILE EXISTENCE"
52 DO:LOOP WHILE INKEY$=""
99 PRINT "OK DONE.":END
100 PRINT "YOU FUCKED SOMETHING UP. SO I'M PRETENDING NOTHING'S WRONG."
101 RESUME NEXT
200 PRINT "WELL, YOU FAILED."
201 PRINT "MY NUMBER WAS ";NUM;"."
202 PRINT "WELL, TIME TO BE RAPED. PLEASE BEND OVER AND PRESS ENTER."
203 DO:LOOP WHILE INKEY$=""
204 PRINT "WOW UR ANUS FEELS GOOD. PRESS A KEY."
203 DO:LOOP WHILE INKEY$=""
204 GOTO 99