1 SET MODE "GRAPHICS"

2 SET WINDOW 0,100,0,100

1000 CLEAR

2000 SET COLOR 10

3000 PRINT "WORD UP KIDS?"

4000 PRINT ""

5000 PRINT "PLEASE ENTER YOUR NAME"

6000 INPUT NAME$

7000 SET COLOR 6

8000 PRINT ""

9000 PRINT "WORD UP " ; NAME$

10000 PRINT""

11000 PRINT "PRESS (N) TO ENTER THE REALM!!!"

12000 INPUT N$

12100 IF N$="BEER" THEN

12500 PRINT "YOU HAVE BEEN CHOSEN MY SON..."

12510 PAUSE 1

12520 PRINT "                     -T-H-E--S-E-C-R-E-T--A-R-E-A-"

12530 PAUSE .5

12540 PRINT "WELCOME THA SECRET AREA"

12550 RANDOMIZE

12560 LET A=INT(RND*50)

12570 DO

12580 LET COUNTER=COUNTER+1

12590 INPUT PROMPT "PROVE YOUR WORTH BY GUESSING A NUMBER 1-50:":G

12600 IF G=A THEN

12610 IF COUNTER>4 THEN PRINT "YOU MUST CHOSE THE NUMBER IN LESS TRIES"

12620 IF COUNTER<=4 THEN PRINT "YOU HAVE PROVEN YOUR WORTH"

12630 EXIT DO

12640 END IF

12650 IF G<>A THEN PRINT "NO, GUESS AGAIN WEAK ONE"

12660 PAUSE .5

12670 LOOP

12700 END IF

12800 PAUSE 2

12900 IF KANE <> 1 THEN

13000 IF N$="N" THEN

14000 DO

14500 SET COLOR 20

15000 PRINT "                       T  H  E    R  E  A  L  M"

16000 PAUSE 2

17000 SET COLOR 6

18000 PRINT ""

19000 PRINT "AHH YES, SOME HOW I KNEW YOU'D SHOW UP AT MWAHAHHA...THE REALM!!!"

20000 SET COLOR 10

21000 PRINT ""

22000 PRINT "WHAT WOULD YOU LIKE TO DO AT THE REALM????????"

23000 PRINT " "

23500 SET COLOR 1

24000 PRINT "<G>ET OUT OF HERE  <R>ELOAD THE REALM  <P>LAY WITH YOUR COCKS"

24500 PRINT "<E>NTER CHEAT <Q>UIZ"

25000 INPUT CHOICE$

25020 IF CHOICE$="Q" THEN

25040 SET COLOR 18

25060 PRINT "WELCOME TO THE QUIZ!"

25080 SET COLOR 7

25100 PRINT "WHAT IS THE ANSWER TO EVERY LAFFY TAFFY JOKE?"

25110 PRINT "A: KELLY IS A PIMP"

25120 PRINT "B: ROOT BEER"

25130 PRINT "C: HOT DOG"

25140 PRINT "D: WIZSHIZMACKSNORDIGEWORDIGEMCFLIGORDIAGE"

25150 INPUT ANSWER$

25160 IF ANSWER$="C" THEN PRINT "YES, THAT IS CORRECT"

25165 GOTO 25201

25170 IF ANSWER$="A" THEN PRINT "SORRY, WE ALL KNOW THAT KELLY IS A PIMP, BUT THAT IS NOT THE ANSWER"

25180 IF ANSWER$="B" THEN PRINT "YOU SUCK, STRAIGHT UP, YOU SUCK"

25190 IF ANSWER$="D" THEN PRINT "NO, BUT HERE IS HOW YOU WOULD RESPOND TO THAT:  WIZSHISMIZMCONETWOTHREEFOURSNOOPDOGGYDOGGYFINSTAWORDISH"

25195 PAUSE 2

25200

25201 CLEAR

25205 PRINT "IF KELLY WAS NOT SUCH A PIMP, THEN WHO WOULD HE BE?"

25210 PRINT "A: BRIAN JAMES"

25220 PRINT "B: PETER HOETELS"

25230 PRINT "C: EMMA"

25240 PRINT "D: LIL UNDIES"

25250 INPUT ANSWER2$

25260 IF ANSWER2$="D" THEN PRINT "OF COURSE HE WOULD BE LIL UNDIES, I MEAN, GOD!!"

25270 IF ANSWER2$="A" THEN PRINT "HAHAHA YEAH RIGHT, BRIAN JAMES COULD NEVER BE A KELLY"

25280 IF ANSWER2$="B" THEN PRINT "HEHE PETER....NO."

25290 IF ANSWER2$="C" THEN PRINT "EMMA OWNS YE!!, I MEAN JOHN!!, BUT THATS NOT THE ANSWER."

25292 END IF

25295 IF CHOICE$="P" THEN

25300 SET COLOR 6

25400 PRINT "SOOO...YA WANNA PLAY WITH YO COCKS EH?"

25500 PAUSE 2

25600 CLEAR

25700 SET COLOR 8

25800 PRINT "I WILL GIVE YOU A COUPLE SECS TO PLAY WITH YO COCKS..."

26000 PAUSE 10

26200 PRINT ""

26300 PRINT "I HOPE THAT WAS FUN!!!"

26400 PAUSE 3

26500 SET COLOR 19

26600 PRINT "PSYCH!!!!!!!!!!!!!!!!!!!!!!!!!!!!"

26700 PAUSE 2

26900 CLEAR

27900 END IF

28000 IF CHOICE$ = "G" THEN GOTO 10000

28500 IF CHOICE$= "E" THEN GOTO 1000

29000 IF CHOICE$="R" THEN

29580 CLEAR

29990 PRINT "THE REALM IS RELOADING....PLEASE WAIT...."

30000 SET COLOR 20

30010 PLOT 5,75;

30020 PLOT 85,75;

30030 PLOT 85,70;

30040 PLOT 5,70;

30050 PLOT 5,75

30060 FOR BARLOAD=5 TO 85 STEP .001

30070 PLOT BARLOAD,75;

30080 PLOT BARLOAD,70

30090 FLOOD BARLOAD-.0005,72

30100 NEXT BARLOAD

30400 CLEAR

31000 END IF

40000 LOOP

80000 SET COLOR 4

90000 PRINT ""

100000 CLEAR

101000 PAUSE 2

110000 PRINT "I SAID PIECE"

112000 SET COLOR 24

120000 PRINT ""

130000 PRINT "<<PRESS ENTER TO LEAVE YA COCKS>>"

140000 LET LEAVE=1

145000 END IF

147500 IF LEAVE <> 1 THEN

150000 SET COLOR 19

155000 PRINT"      YOU LITTLE NUT! YOU MUST THINK YOU MISTA TWISTA  "

160000 PRINT ""

161000 PRINT ""

161500 PAUSE 2

162000 SET COLOR 7

163000 PRINT "CONGRADULATIONS!"

164000 PAUSE 2

165000 PRINT ""

166000 PRINT "CREDITS:"

167000 PRINT ""

168000 PRINT "BONE, JS, MEDIUM, JR"

169000 PRINT ""

172000 PRINT ""

173000 PRINT "NO THANKS TO JAMAAL AND KYLE"

174000 END IF

176000 END IF

200000 END