stupid error!
What is the error in my code?
DECLARE SUB products ()
DECLARE SUB epi ()
DECLARE SUB thanks ()
DECLARE SUB glitch ()
INPUT "What is you name"; name$
0 CALL glitch
1 CLS
2 SCREEN 8
3 PRINT "Hic Bill 2"
4 SLEEP 1
5 CLS
6 PRINT "Thanks to M.C. Soft and anyone associated in any way"
7 SLEEP 2
8 CLS
9 PRINT "1.> Play"
10 PRINT "2.> Options"
11 PRINT "3.> Quit"
12 SLEEP 1
13 INPUT "The million dollar question.... ", mil$
14 IF mil$ = "1" THEN GOTO 31
15 IF mil$ = "2" THEN GOTO 26
16 IF mil$ = "3" THEN GOTO 25
17 SLEEP 1
18 CLS
19 IF q% = 1 THEN GOTO 24
20 q% = q% + 1
21 PRINT "If you don'' t chose 1-3 again the game will exit."
22 SLEEP 2
23 GOTO 8
24 CLS : PRINT "Told you!": END
25 END
26 CLS
27 PRINT "This game is very self explanitory, the computer gives you options,"
28 PRINT "and you choose an answer based on your judgement."
29 DO WHILE INKEY$ = "": LOOP
30 GOTO 8
31 CLS : PRINT "Hic Bill starts his adventure with Prego! in his house..."
32 PRINT "Over the years Prego! has grown old.. And told Hic Bill for"
33 PRINT "his last request was for him to get some ''items''."
34 PRINT "Upon being presented with an item to find you will be"
35 PRINT "breifed on how to get them. Each item should be as"
36 PRINT "long and as hard to get as in the original game."
37 INPUT "Do you exept the chalenges of gathering the ''items''"; w$
38 IF w$ = "yes" THEN GOTO 43
39 IF w$ = "no" THEN END
40 CLS
41 PRINT "A simple ''yes'' or ''no'' would do.": DO WHILE INKEY$ = "": LOOP
42 GOTO 31
43 CLS
44 PRINT "The first item you must find is the spork of the plastic mountain."
45 PRINT "It is at the top, you start at the base. This mountain has a heater,"
46 PRINT "so it'' s better than any other mountain."
47 DO WHILE INKEY$ = "": LOOP
48 CLS
49 PRINT "Hic Bill is at the base, where the heater is. He sees a cave, and a"
50 PRINT "jagged path leading up..."
51 PRINT "1.> Hic Bill can turn the heater way up."
52 PRINT "2.> Hic Bill can go in the cave."
53 PRINT "3.> Hic Bill can head up the path."
54 INPUT "CatDog is my favorite show. ", e$
55 IF e$ = "1" THEN GOTO 62
56 IF e$ = "2" THEN GOTO 78
57 IF e$ = "3" THEN GOTO 110
58 CLS
59 PRINT "I like apples"
60 DO WHILE INKEY$ = "": LOOP
61 GOTO 48
62 CLS
63 PRINT "By turning the heater up Hic Bill has caused the mountain to melt,"
64 INPUT "revealing the SPORK! Do you want to take it"; r$
65 IF r$ = "no" THEN GOTO 76
66 IF r$ = "yes" THEN GOTO 71
67 CLS
68 PRINT "Fine, you can just go to the beggining of the game!"
69 DO WHILE INKEY$ = "": LOOP
70 GOTO 1
71 CLS
72 PRINT "Well today is opposite day, so Hic Bill doesn'' t get it. Big Foot comes"
73 PRINT "and sits on him."
74 DO WHILE INKEY$ = "": LOOP
75 GOTO 1
76 PRINT "Well today is opposite day. Hic Bill grabs it!"
77 DO WHILE INKEY$ = "": LOOP: GOTO 316
78 CLS
79 PRINT "Hic Bill enters the deep dark scary mysterious strange bad smelling,"
80 PRINT "bone chilling goosebumps cave. He can go back to the entrance"
81 PRINT "or continue on...."
82 PRINT "1.> Continue on"
83 PRINT "2.> Go to entrance"
84 PRINT "3.> Not continue"
85 INPUT "Regis has fake teeth. ", t$
86 IF t$ = "1" THEN GOTO 97
87 IF t$ = "2" THEN GOTO 48
88 IF t$ = "3" THEN GOTO 93
89 CLS
90 PRINT "My toes taste like cheese"
91 DO WHILE INKEY$ = "": LOOP
92 GOTO 78
93 CLS
94 PRINT "Your choice"
95 DO WHILE INKEY$ = "": LOOP
96 GOTO 1
97 CLS : PRINT "Hic Bill is now are deep in the deep dark scary mysterious strange bad"
98 PRINT "smelling bone chilling goosebumps cave. He can go back or continue."
99 PRINT "1.> Continue"
100 PRINT "2.> Go back"
101 INPUT "Snow White is EVIL ", y$
102 IF y$ = "1" THEN GOTO 97
103 IF y$ = "2" THEN GOTO 78
104 CLS
105 PRINT "Press any mime followed by an enter. ", u$
106 CLS
107 PRINT "HEY I SAID PRESS ANY MIME, NOT A KEY!!!"
108 DO WHILE INKEY$ = "": LOOP
109 GOTO 97
110 CLS
111 PRINT "So he decides to head up the path......"
112 DO WHILE INKEY$ = "": LOOP
113 CLS
114 PRINT "He walks up a ways, he comes to a fork in the path."
115 PRINT "The right path has a danger sign and a fence but he"
116 PRINT "could climb it. The left path is a big one that has"
117 PRINT "a ''walk'' sign on the side of it... Hard decision..."
118 PRINT "1.> Walk the left path"
119 PRINT "2.> Walk the right path"
120 INPUT "I can talk to my dogs. ", I$
121 IF I$ = "1" THEN GOTO 132
122 IF I$ = "2" THEN GOTO 164
123 IF I$ = "69" THEN GOTO 128
124 CLS
125 PRINT "Don'' t type in 69!"
126 DO WHILE INKEY$ = "": LOOP
127 GOTO 113
128 CLS
129 PRINT "Hey! I said DON'' T type in 69!!"
130 DO WHILE INKEY$ = "": LOOP
131 GOTO 1
132 CLS
133 PRINT "Did I say Hic Bill could walk the left or the right path?"
134 PRINT "I meant the left or the RIGHT path. He chose the wrong"
135 PRINT "path. There are two things you can do."
136 PRINT "1.> Go back"
137 PRINT "2.> Go foward"
138 INPUT "All we really need is love. ", o$
139 IF o$ = "1" THEN GOTO 113
140 IF o$ = "2" THEN GOTO 145
141 CLS
142 PRINT "Hey, it'' s not right to screw monkeys!"
143 DO WHILE INKEY$ = "": LOOP
144 GOTO 132
145 CLS
146 PRINT "Hic Bill has stumbled upon a thick forest. It'' s dark."
147 PRINT "You can'' t really see around you. It might be dangerous"
148 PRINT "to continue."
149 PRINT "1.> Go back"
150 PRINT "2.> Go foward"
151 INPUT "My keyboard tastes bad! ", P$
152 IF P$ = "1" THEN GOTO 132
153 IF P$ = "2" THEN GOTO 158
154 CLS
155 PRINT "HEY! I SAID MY KEYBOARD TASTES BAD!"
156 DO WHILE INKEY$ = "": LOOP
157 GOTO 145
158 CLS
159 PRINT "Stumbling along almost blind Hic Bill trips on a gnarled tree root"
160 PRINT "sticking out of the ground. But soon he realizes...... He"
161 PRINT "hasn'' t hit the ground.... Hic Bill stumbled into a pit!!"
162 PRINT "Good-bye!"
163 DO WHILE INKEY$ = "": LOOP: GOTO 1
164 CLS : PRINT "Ah he took the RIGHT path. The left path was the wrong one."
165 PRINT "following this path Hic Bill meets an odd fella. Triloc, at least"
166 PRINT "he thinks. He just kind of follows Hic Bill around and mumbles to"
167 PRINT "himself about space, and starships, or something. But that'' s"
168 PRINT "all Hic Bill can get out of him..."
169 PRINT "1.> Sock this kid so he'' ll shut up."
170 PRINT "2.> Ignore him and continue on."
171 PRINT "3.> Restart the game."
172 INPUT "I wouldn'' t pick 3. ", asd$
173 IF asd$ = "1" THEN GOTO 180
174 IF asd$ = "2" THEN 184
175 IF asd$ = "3" THEN GOTO 1
176 CLS
177 PRINT "I'' ll tell you what I want, no more stupid coments!"
178 DO WHILE INKEY$ = "": LOOP
179 GOTO 164
180 CLS : PRINT "WHAM!! Boy was he not expecting that! Now he'' s pissed!"
181 PRINT "But that felt good!"
182 DO WHILE INKEY$ = "": LOOP
183 GOTO 164
184 CLS
185 COLOR 4: PRINT "Shut up!": DO WHILE INKEY$ = "": LOOP
186 CLS
187 COLOR 15: PRINT "Of course he doesn'' t listen but Mr. Bill continues on.": DO WHILE INKEY$ = "": LOOP
188 CLS
189 PRINT "Sir Hic Bill runs into a hole. It looks kind of deep, well"
190 PRINT "mabey thats because he can'' t see the bottom."
191 PRINT "1.> Hike around the hole."
192 PRINT "2.> Throw a coin in to hear how deep it is."
193 PRINT "3.> Jump in."
194 INPUT "Guess what. ", s$
195 IF s$ = "1" THEN GOTO 212
196 IF s$ = "2" THEN GOTO 206
197 IF s$ = "3" THEN GOTO 202
198 CLS
199 PRINT "Hey! I heard that!"
200 DO WHILE INKEY$ = "": LOOP
201 GOTO 188
202 CLS
203 PRINT "Hic Bill is in a cave. It looks familiar for some reason...."
204 DO WHILE INKEY$ = "": LOOP
205 GOTO 97
206 PRINT "Hic Bill drops a coin in carlessly. Waiting for the sound of it hitting"
207 PRINT "the ground.": DO WHILE INKEY$ = "": LOOP
208 CLS : PRINT "Waiting": SLEEP 2
209 CLS : PRINT "Waiting even more...": SLEEP 2
210 CLS : PRINT "And more but give up. You won'' t hear the sound..": DO WHILE INKEY$ = "": LOOP
211 GOTO 188
212 CLS
213 PRINT "Carfully edging his way around the pit, Hic Bill gets an idea."
214 PRINT "Suddenly he turn to Triloc and pushs him in the pit! Hic Bill"
215 PRINT "soon looses sight of him.": DO WHILE INKEY$ = "": LOOP
216 CLS
217 PRINT "Hic Bill is almost at the top where the spork is!"
218 DO WHILE INKEY$ = "": LOOP
219 CLS
220 PRINT "The trail Hic Bill was following abruptly stops. Rocks surround him."
221 PRINT "1.> Try to find a way through the rocks."
222 PRINT "2.> Try to climb the rocks."
223 PRINT "3.> Ask the big guy behind you for help."
224 INPUT "I don'' t want to grow up, I'' a ..... kid. ", d$
225 IF d$ = "1" THEN GOTO 239
226 IF d$ = "2" THEN GOTO 233
227 IF d$ = "3" THEN GOTO 244
228 CLS
229 SLEEP 30
230 PRINT "Thought the game froze, didn'' t you?!?"
231 DO WHILE INKEY$ = "": LOOP
232 GOTO 219
233 CLS
234 PRINT "When Hic Bill atempts to climb the rocks his foot slips, he"
235 PRINT "falls and falls and falls three feet. That wasn'' t a good"
236 PRINT "idea."
237 DO WHILE INKEY$ = "": LOOP
238 GOTO 219
239 CLS
240 PRINT "Hic Bill searchs as far left as he can, then as far right"
241 PRINT "finding no holes in the rocks big enough to climb through."
242 DO WHILE INKEY$ = "": LOOP
243 GOTO 219
244 CLS
245 PRINT "''hey, can you help me here?'' Hic Bill says with a shaky voice."
246 PRINT "''uhhh'' he grunts... IT'' S BIG FOOT! ''Please?'' Whines Hic Bill, now"
247 PRINT "really freaked out. ''Sure babe. Just relax, man. I'' ll"
248 PRINT "show you the way.'' Talking in a deep voice."
249 DO WHILE INKEY$ = "": LOOP
250 CLS
251 PRINT "Hic Bill follows Big Foot back aways, then through a thicket of"
252 PRINT "trees. He was leading to a trail Hic Bill didn'' t even know of."
253 DO WHILE INKEY$ = "": LOOP
254 CLS
255 PRINT "There is a fairly easy trail to see. It leads almost straight"
256 PRINT "up towards the top of the mountain. Hic Bill turn to say thanks to"
257 PRINT "Big Foot but he'' s mooning Bill!"
258 PRINT "1.> Go up the trail."
259 PRINT "2.> Kick Big Foot in the butt."
260 INPUT "I wouldn'' t chose 2.. ", Z$
261 IF Z$ = "1" THEN 276
262 IF Z$ = "2" THEN GOTO 267
263 CLS
264 PRINT "Don'' t eat worms, they'' re bad for you."
265 DO WHILE INKEY$ = "": LOOP
266 GOTO 254
267 CLS
268 PRINT "He'' s are going to kick Big Foot in the butt! Talk about"
269 PRINT "stupid! Geez!"
270 DO WHILE INKEY$ = "": LOOP
271 CLS
272 PRINT "Well he doesn'' t take it easily... He takes"
273 PRINT "Hic Bill by the head and breaks his neck!"
274 DO WHILE INKEY$ = "": LOOP
275 GOTO 1
276 CLS
277 PRINT "Good Hic Bill ignored Big Foot... Well heading up the"
278 PRINT "path is actually pretty easy. Hic Bill thinks ''thanks"
279 PRINT "Big Foot.'' The trail stops about 50 feet from the"
280 PRINT "top."
291 PRINT "1.> Climb back down to the bottom."
292 PRINT "2.> Go to the top."
293 INPUT "The deciding question. ", x$
294 IF x$ = "1" THEN 48
295 IF x$ = "2" THEN 300
296 CLS
297 PRINT "At this point I'' ve done 297 lines of coding!"
298 DO WHILE INKEY$ = "": LOOP
299 GOTO 276
300 CLS
301 PRINT "He'' s done it! He'' s at the summit! The spork.."
302 PRINT "It'' s right there!"
303 PRINT "1.> Take it."
304 PRINT "2.> Don'' t take it."
305 INPUT "The last question. ", c$
306 IF c$ = "1" THEN GOTO 316
307 IF c$ = "2" THEN GOTO 312
308 CLS
309 PRINT "Just stop!"
310 DO WHILE INKEY$ = "": LOOP
311 GOTO 300
312 CLS
313 PRINT "Then you just deserve to die!"
314 DO WHILE INKEY$ = "": LOOP
315 GOTO 1
316 CLS
317 PRINT "Yes! Hic Bill has the spork! Now for Prego!s house to"
318 PRINT "get the next assignment."
319 DO WHILE INKEY$ = "": LOOP: CLS : PRINT "(From now on ''Hic Bill'' will be called ''you''!)": DO WHILE INKEY$ = "": LOOP: CLS
320 PRINT "''Thank you cough, cough, now I can eat my apple sauce."
321 PRINT "The next thing I need to claim (or reclaim) is my plate."
322 PRINT "My license plate. Heck stole it. That #%!&$^@^#(@&#*!^*#*$"
323 PRINT "guy took my plate, so I can'' t drive my car. Please get"
324 PRINT "it back.''"
325 DO WHILE INKEY$ = "": LOOP
326 CLS
327 PRINT "You start at the beggining of Heck. A guy named"
328 PRINT "Triloc..... He'' s here, and threatening to beat you up."
329 PRINT "1.> Kick his butt."
330 PRINT "2.> Run!"
331 PRINT "3.> Ignore him.": PRINT "4.> Exit the game."
332 INPUT "Oh pickles! ", gh$
333 IF gh$ = "1" THEN GOTO 349
334 IF gh$ = "2" THEN GOTO 340
335 IF gh$ = "3" THEN GOTO 345
IF gh$ = "4" THEN END
336 CLS
337 PRINT "He'' s weak, kick his butt!!"
338 DO WHILE INKEY$ = "": LOOP
339 GOTO 326
340 CLS
341 PRINT "You are such a mistake if you run from Triloc. Well you run,"
342 PRINT "and run yourself right into a lava pool and die."
343 DO WHILE INKEY$ = "": LOOP
344 GOTO 326
345 PRINT "You decide to ignore him but that proves to be a herculean task."
346 PRINT "You soon give up."
347 DO WHILE INKEY$ = "": LOOP
348 GOTO 326
349 CLS
350 PRINT "Since you are bigger, you decide it would just be mean to beat"
351 PRINT "up Triloc, and just leave him behind."
352 DO WHILE INKEY$ = "": LOOP
353 CLS
354 PRINT "Walking along looking for Heck (not the place, the bad person)"
355 PRINT "your path splits in three."
356 PRINT : PRINT : PRINT : PRINT : PRINT
357 PRINT " \ | /"
358 PRINT " \ | /"
359 PRINT " \ | /"
360 PRINT " \ | /"
361 PRINT " \ | /"
362 PRINT " \ | /"
363 PRINT " \ | /"
364 PRINT " \ | /"
365 PRINT " |/ "
366 PRINT " |"
367 DO WHILE INKEY$ = "": LOOP
368 CLS
369 PRINT "1.> Take the left path."
370 PRINT "2.> Take the right path."
371 PRINT "3.> Take the middle path."
372 PRINT "4.> Get a hint."
373 INPUT "I wouldn'' t choose 4. ", as$
374 IF as$ = "1" THEN GOTO 391
375 IF as$ = "2" THEN GOTO 385
376 IF as$ = "3" THEN GOTO 410
377 IF as$ = "4" THEN 381
378 CLS
379 PRINT "Can'' t you see! You chose 1-4!"
380 DO WHILE INKEY$ = "": LOOP: GOTO 368
381 CLS
382 PRINT "The right answer is divisible by 1"
383 DO WHILE INKEY$ = "": LOOP
384 GOTO 368
385 CLS
386 PRINT "Were you thinking the right path was the RIGHT path??"
387 DO WHILE INKEY$ = "": LOOP
388 COLOR 4: PRINT "Well your wrong!"
389 COLOR 15
390 GOTO 326
391 CLS
392 PRINT "This path goes on for a long time...."
393 DO WHILE INKEY$ = "": LOOP
394 CLS
395 PRINT "1.> Continue"
396 PRINT "2.> Go back"
397 PRINT "3.> Not continue"
398 INPUT "If you choose 3 I ma gonna slap you mmm boy! ", pm$
399 IF pm$ = "1" THEN GOTO 391
400 IF pm$ = "2" THEN GOTO 368
401 IF pm$ = "3" THEN GOTO 406
402 CLS
403 PRINT "You know what? You suck more than Clatons mom on New Years 2000"
404 DO WHILE INKEY$ = "": LOOP
405 GOTO 394
406 CLS
407 PRINT "Have your way...."
408 DO WHILE INKEY$ = "": LOOP
409 GOTO 1
410 CLS
411 PRINT "Good you kept on the path you were going. YOU didn'' t sell"
412 PRINT "out to those other paths!"
413 DO WHILE INKEY$ = "": LOOP
414 CLS
415 INPUT "You want some old school style"; os$
416 IF os$ = "no" THEN PRINT "Too bad I'' m doin'' it anyways": DO WHILE INKEY$ = "": LOOP: GOTO 420
417 IF os$ = "yes" THEN PRINT "Like the original game.": DO WHILE INKEY$ = "": LOOP: GOTO 420
418 CLS
419 PRINT "''yes'' or ''no''": DO WHILE INKEY$ = "": LOOP: GOTO 414
420 CLS
421 PRINT "On this path you meet Prego!s great great great grandpa."
422 DO WHILE INKEY$ = "": LOOP
423 CLS
424 PRINT "Here you find a glowing purple apple."
425 PRINT "1.> Eat it."
426 PRINT "2.> Leave it."
427 PRINT "3.> Consult Prego!s great great great grandpa."
428 INPUT "Hey! ", sw$
429 IF sw$ = "1" THEN GOTO 490
430 IF sw$ = "2" THEN GOTO 440
431 IF sw$ = "3" THEN GOTO 436
432 CLS
433 PRINT "Hey!"
434 DO WHILE INKEY$ = "": LOOP
435 GOTO 423
436 CLS
437 PRINT "Shut up you stupid *&!^. I'' m not listening to one more thing you"
438 PRINT "say!": DO WHILE INKEY$ = "": LOOP
439 GOTO 423
440 CLS
441 PRINT "Going on the path you notice up ahead some things, they are very"
442 PRINT "large. They look kinda of like they are killing each other...."
443 DO WHILE INKEY$ = "": LOOP
444 CLS
445 PRINT "Coming closer you notice that it''s about 300 football players!"
446 PRINT "Ohhh crap! They'' ve noticed you. Too late. Like a herd of animals"
447 PRINT "protecting thier teritory they strike! You think ''Poor saps. They"
448 PRINT "think I didn'' t play any football back in the day! Well I played"
449 PRINT "with rhinos when the elephants were on vacation!''"
450 PRINT "1.> Rely on skills."
451 PRINT "2.> RUN!!"
452 PRINT "3.> Pray for big foot to help."
453 PRINT "4.> Consult Prego!s great great great grandpa."
454 INPUT "Raise your hand if you think this game sucks. ", mh$
455 IF mh$ = "1" THEN GOTO 508
456 IF mh$ = "2" THEN GOTO 498
457 IF mh$ = "3" THEN GOTO 503
458 IF mh$ = "4" THEN GOTO 494
459 CLS
460 DO WHILE INKEY$ = "": LOOP
461 PRINT "Thought it froze, didn'' t you?"
462 DO WHILE INKEY$ = "": LOOP
463 PRINT "Well as soon as you listen to this music you can go"
464 PRINT "back to where you were in the game."
465 DO WHILE INKEY$ = "": LOOP
466 FOR t = 450 TO 750 STEP 5
467 SOUND t, 2
468 NEXT t
469 FOR t = 750 TO 450 STEP -5
470 SOUND t, 2
471 NEXT t
472 CLS
473 PRINT "How'' d ya'' like it?"
474 PRINT "1.> Sucked!"
475 PRINT "2.> It was alright"
476 PRINT "3.> You need to get a life!"
477 INPUT "The ''''!'''' means it'' s the wrong answer. ", h$
478 IF h$ = "1" THEN GOTO 486
479 IF h$ = "2" THEN GOTO 490
480 IF h$ = "3" THEN GOTO 485
481 IF h$ = "4" THEN GOTO 485
482 CLS
483 PRINT "I'' m not stupid, I'' m just an idiot."
484 DO WHILE INKEY$ = "": LOOP
485 GOTO 472
486 CLS
487 PRINT "With that attitude you can just not talk!"
488 DO WHILE INKEY$ = "": LOOP
489 GOTO 444
490 CLS
491 PRINT "By eating the apple you sprout wings and fly to the license plate."
492 PRINT "You beat the mission."
493 DO WHILE INKEY$ = "": LOOP: GOTO 621
494 CLS
495 PRINT "Huh? You again! Stop following me!"
496 DO WHILE INKEY$ = "": LOOP
497 GOTO 444
498 CLS
499 PRINT "RUN!!! You run the only direction you can, back! Towards the"
500 PRINT "beggining!"
501 DO WHILE INKEY$ = "": LOOP
502 GOTO 326
503 CLS
504 PRINT "''HELP ME BIG FOOT!'' The sky opens up.... It''s big foot! ''Yeah"
505 PRINT "babe, what'' s goin'' down. Oh I see, come with me to the mountain.''"
506 DO WHILE INKEY$ = "": LOOP
507 GOTO 276
508 CLS
509 PRINT "Oh yeah! We got the skills going on here! You run blindly into battle."
510 PRINT "They kill you... But your in Heck so there is no difference."
511 PRINT "You get out of the battle and continue on the path."
512 DO WHILE INKEY$ = "": LOOP
513 CLS
514 PRINT "As you'' re walking along you notice a dam to your right."
515 PRINT "''Sure got some kooky things in Heck''. Well a couple of"
516 PRINT "minutes later you come to a dip in the path."
517 DO WHILE INKEY$ = "": LOOP
518 CLS
519 PRINT "BOOOOOOOOOOOOM!!!!!"
520 PLAY "bl16dl8bl16d"
521 PRINT "The dam just exploded and lava is flowing everywhere!"
522 DO WHILE INKEY$ = "": LOOP
523 CLS : PRINT "It'' s flooded the dip in the path ahead! No! You can'' t"
524 PRINT "cross the path anymore."
525 PRINT "1.> Use the rope you found earlier."
526 PRINT "2.> Go across on the invisible path to your upper left."
527 PRINT "3.> Jump across."
528 INPUT "This is probably the most important question in the game. ", g$
529 IF g$ = "1" THEN GOTO 542
530 IF g$ = "2" THEN GOTO 626
531 IF g$ = "3" THEN GOTO 536: IF g$ = "9gfrk3" THEN GOTO 552
532 CLS
533 PRINT "Don'' t type in 9qfrk3"
534 DO WHILE INKEY$ = "": LOOP
535 GOTO 523
536 CLS
537 PRINT "Yes! I believe you can make the jump. Everyone thinks you could."
538 PRINT "EXEPT GRAVITY. The minor essence of gravity pushes you down. Into"
539 PRINT "the lava."
540 DO WHILE INKEY$ = "": LOOP
541 GOTO 326
542 CLS
543 PRINT "Sorry I forgot to mention that you found a nice sturdy rope at the"
544 PRINT "mountain. Tying one end to one side and the other end to the other"
545 PRINT "side you then climb across. Wait you think ''I'' m already dead, lava"
546 PRINT "can'' t hurt me! But you probably know that if you fall I'' ll make"
547 PRINT "it hurt you."
548 DO WHILE INKEY$ = "": LOOP
549 CLS
550 PRINT "As soon as you get off the rope everything disappears and a castle"
551 PRINT "appears before you."
552 DO WHILE INKEY$ = "": LOOP
553 CLS
554 COLOR 4: PRINT "But before I tell you the importance of this, you must decode this message:"
555 COLOR 15: PRINT "uoy rof yrros leef I siht gnidoced emit ruoy etsaw uoy fI"
556 INPUT "The message is: ", ms$
557 IF ms$ = "If you waste your time decoding this I feel sorry for you" THEN GOTO 560
558 CLS
559 PRINT "Sorry, also capitilization counts.": GOTO 553
560 CLS
561 PRINT "Yay! Now I can explain the importance of the castle before you."
562 PRINT "(Well, pretend the castle is there!)"
563 DO WHILE INKEY$ = "": LOOP
564 CLS
565 PRINT "This is Heck''s domain. He lives in a castle."
566 INPUT "Wanna see it"; se$
567 IF se$ = "yes" THEN GOTO 573
568 IF se$ = "no" THEN GOTO 573
569 CLS
570 PRINT "wrong answer."
571 DO WHILE INKEY$ = "": LOOP
572 GOTO 560
573 CLS
574 PRINT "Well I would show you the castle but I''m not."
575 PRINT "Don'' t tell me you don'' t have an imagination?"
576 PRINT "Just imagine a castle with a M.C. logo."
577 DO WHILE INKEY$ = "": LOOP
578 CLS
579 PRINT "1.> Go in the castle."
580 PRINT "2.> Turn the plasma shield off, then enter."
581 PRINT "3.> Go to the back entrance."
582 INPUT "Wow you accually got this far! ", th$
583 IF th$ = "1" THEN GOTO 590
584 IF th$ = "2" THEN GOTO 595
585 IF th$ = "3" THEN GOTO 606
586 CLS
587 PRINT "This is line 587!"
588 DO WHILE INKEY$ = "": LOOP
589 GOTO 578
590 CLS
591 PRINT "Oh! Too bad! You ran into the plasma shield! In no time you"
592 PRINT "disappear to the dimention of the fetal pigs!"
593 DO WHILE INKEY$ = "": LOOP
594 GOTO 326
595 CLS : PRINT "You walk over to the switch that turns of the shield and you read"
596 PRINT "notice: DO NOT SWITCH THE SWITCH OR THE SHIELD WILL TURN OFF!"
597 PRINT "You think ''pull switch''. The shield turns of but just then you"
598 PRINT "realize, ''The draw bridge is up, hmmmmm.''"
599 PRINT "1.> Take the back entrance."
600 INPUT "Really"; po$
601 IF po$ = "1" THEN GOTO 606
602 CLS
603 PRINT "This is line 603."
604 DO WHILE INKEY$ = "": LOOP
605 GOTO 595
606 CLS
607 PRINT "You enter the dark gloomy castle, ohhhhh, so scary!"
608 PRINT "Almost right away you see Heck. Whoa! He'' s playing"
609 PRINT "this game! He'' s so involved he doesn'' t notice you."
610 PRINT "The license plate comes to your attention on the wall."
611 PRINT "You steathily sneak over and take the plate."
612 DO WHILE INKEY$ = "": LOOP
613 CLS
614 PRINT "The plate is is in your possesion for now. You imediatly transport"
615 PRINT "over to Prego!s house."
616 DO WHILE INKEY$ = "": LOOP
617 CLS
618 PRINT "''Thank you now I can go run over Heck but before that"
619 PRINT "I need to explain what you have to do next.''"
620 DO WHILE INKEY$ = "": LOOP
621 CLS
622 PRINT "''I need you to rescue my dog, Bug. That guy across town has"
623 PRINT "him and won'' t give me Bug. You must slay this beast, then"
624 PRINT "get Bug.''"
625 DO WHILE INKEY$ = "": LOOP: GOTO 730
626 CLS
627 PRINT "The old invisible path trick to avoid walking through lava."
628 PRINT "The path goes to an old cave. It looks pretty deep."
629 SLEEP 3: PLAY "<>"
630 PRINT "There''s a monster in there! I wouldn'' t go in if I were you."
631 PRINT "1.> Go back."
632 PRINT "2.> Go forward."
633 PRINT "3.> Find the license plate."
634 INPUT "Thanks for buyin'' this. ", fr$
635 IF fr$ = "1" THEN GOTO 523
636 IF fr$ = "2" THEN GOTO 653
637 IF fr$ = "3" THEN GOTO 648
638 CLS
639 PRINT "Choose 2 dude."
640 DO WHILE INKEY$ = "": LOOP
641 CLS
642 PRINT "Choose 1 dude."
643 DO WHILE INKEY$ = "": LOOP
644 CLS
645 PRINT "Choose 3 dude."
646 DO WHILE INKEY$ = "": LOOP
647 GOTO 626
648 CLS
649 PRINT "Hey that''s a great idea! You should have thought of that long ago!"
650 PRINT "Get back to the game Sherlock."
651 DO WHILE INKEY$ = "": LOOP
652 GOTO 626
653 CLS
654 PRINT "You enter the cave unknowing what is ahead....."
655 DO WHILE INKEY$ = "": LOOP
656 CLS
657 PRINT "1.> Go back."
658 PRINT "2.> Go foward."
659 INPUT "efo[efnhjio[dfvuiwenne3342t5= csdfl;nh ", er$
660 IF er$ = "1" THEN GOTO 626
661 IF er$ = "2" THEN GOTO 666
662 CLS
663 PRINT "NO!"
664 DO WHILE INKEY$ = "": LOOP
665 GOTO 656
666 CLS
667 PRINT "Inside the cave you see...... Nothing. It'' s pitch black. But."
668 PRINT "You do hear moaning though. On the cave wall you see ancient"
669 PRINT "pictures of a giant monster eating people... Hmmm I wonder what"
670 PRINT "it means..."
671 DO WHILE INKEY$ = "": LOOP
672 PRINT "1.> Continue."
673 PRINT "2.> Go back."
674 PRINT "3.> Guzzle a soda."
675 INPUT "Go for the soda! ", soda$
676 IF soda$ = "1" THEN GOTO 688
677 IF soda$ = "2" THEN GOTO 656
678 IF soda$ = "3" THEN GOTO 683
679 CLS
680 PRINT "Go for the soda!"
681 DO WHILE INKEY$ = "": LOOP
682 GOTO 666
683 CLS
684 PRINT "You pick up a soda and start guzzling. This gives the monster in"
685 PRINT "front of you time to strike, slicing your throat. Bye-bye."
686 DO WHILE INKEY$ = "": LOOP
687 GOTO 326
688 CLS
689 PRINT "Coming along the cave splits in two."
690 PRINT "1.> Go back."
691 PRINT "2.> Take the left path."
692 PRINT "3.> Take the right path."
693 INPUT "Left, right. ", yu$
694 IF yu$ = "1" THEN GOTO 666
695 IF yu$ = "2" THEN GOTO 723
696 IF yu$ = "3" THEN GOTO 701
697 CLS
698 PRINT "Let'' s put it this way, 1, 2, or 3"
699 DO WHILE INKEY$ = "": LOOP
700 GOTO 688
701 CLS
702 PRINT "Going down the right path."
703 DO WHILE INKEY$ = "": LOOP
704 I% = 100
705 I% = I% - 1
706 IF I% = 1 THEN GOTO 719
707 CLS : PRINT "You get to a big rock. It says ''choose this path "; I%; " times and you"
708 PRINT "will get to the end."
709 PRINT "1.> Go back."
710 PRINT "2.> Go foward."
711 INPUT "Nothing is real. ", ty$
712 IF ty$ = "1" THEN GOTO 688
713 IF ty$ = "2" THEN GOTO 705
714 CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS _
: CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS
715 CLS
716 PRINT "Really, that'' s very interesting."
717 DO WHILE INKEY$ = "": LOOP
718 GOTO 707
719 CLS
720 PRINT "To do that meant you want to die right? Well the license plate is yours!"
721 DO WHILE INKEY$ = "": LOOP
722 GOTO 621
723 CLS
724 PRINT "Going down the right path."
725 DO WHILE INKEY$ = "": LOOP
726 CLS
727 PRINT "(The right path is the wrong path.)"
728 DO WHILE INKEY$ = "": LOOP
729 GOTO 326
730 CLS
731 PRINT "You start in the underground city of the floating heads."
732 PRINT "You see many shops and houses with many interesting (looking)"
733 PRINT "people."
734 PRINT "1.> Talk to people."
735 PRINT "2.> Go in a shop."
736 PRINT "3.> Walk along the street."
737 PRINT "4.> Run away.": PRINT "5.> Exit."
738 INPUT "So what cha'' what cha'' what cha'' want, what cha want"; pr$
739 IF pr$ = "1" THEN GOTO 756
740 IF pr$ = "2" THEN GOTO 808
741 IF pr$ = "3" THEN GOTO 782
742 IF pr$ = "4" THEN GOTO 747
IF pr$ = "5" THEN END
743 CLS
744 PRINT name$; " I am your step father!!!"
745 DO WHILE INKEY$ = "": LOOP
746 GOTO 730
747 CLS
748 PRINT "You run and run and run you find yourself....................."
749 SLEEP 3
750 PRINT "At the beggining of the game!!!"
751 DO WHILE INKEY$ = "": LOOP
752 CLS
753 PRINT "Just kidding!"
754 DO WHILE INKEY$ = "": LOOP
755 GOTO 730
756 CLS
757 PRINT "''Um do you know where to find a guy that stole a dog named Bug?''"
758 PRINT "The person just looks at you and floats on. You decide to"
759 PRINT "try someone else. Before you can utter a word they yell for"
760 PRINT "the police! On the grounds that you harrassed this person."
761 PRINT "1.> RUN!"
762 PRINT "2.> Go back to the last option screen."
763 PRINT "3.> Explain what happend."
764 INPUT "Don'' t run from the law. ", law$
765 IF law$ = "1" THEN GOTO 774
766 IF law$ = "2" THEN GOTO 730
767 IF law$ = "3" THEN GOTO 778
768 CLS
769 SCREEN 13
770 PRINT "NOOOOOOOOOOOOOOOOOOOOOOO THE SCREEN!"
771 DO WHILE INKEY$ = "": LOOP
772 SCREEN 8
773 GOTO 756
774 CLS
775 PRINT "Boy, you don'' t run from the law!"
776 DO WHILE INKEY$ = "": LOOP
777 GOTO 756
778 CLS
779 PRINT "'' It wasn'' t me!'' As he puts the cuffs of. You should have run."
780 DO WHILE INKEY$ = "": LOOP
781 GOTO 730
782 CLS
783 PRINT "Strolling down the street you make quite a scene. You'' re the only"
784 PRINT "one in the city with a body and cannot float! The road splits into"
785 PRINT "the main road and an alley."
786 PRINT "1.> Go in to alley."
787 PRINT "2.> Stay on the main road."
788 INPUT "3.> Type in your answer. ", yu$
789 IF yu$ = "1" THEN GOTO 795
790 IF yu$ = "2" THEN GOTO 852
791 CLS
792 PRINT "4.> Go to heck."
793 DO WHILE INKEY$ = "": LOOP
794 GOTO 782
795 CLS
796 PRINT "In the back alley way there is a back door to a building."
797 PRINT "The other side has a road."
798 PRINT "1.> Guzzle a pop."
799 PRINT "2.> Go in the building."
800 PRINT "3.> Go in the road."
801 INPUT "This is my 801st line! Aren'' t you proud of me! ", gy$
802 IF gy$ = "1" THEN GOTO 827
803 IF gy$ = "2" THEN GOTO 811
804 IF gy$ = "3" THEN GOTO 782
805 CLS
806 PRINT "Why do you ask?"
807 DO WHILE INKEY$ = "": LOOP
808 CLS
809 PRINT "You have entered a shop."
810 DO WHILE INKEY$ = "": LOOP
811 CLS
812 PRINT "It'' s a video game store. And not just any! It sells M.C. Software"
813 PRINT "games! Look at the huge selection! Hic Bill 1 and 2, and the space"
814 PRINT "game Bryce made (a.k.a Unload). There seems to be a back door."
815 PRINT "1.> Go back to the street."
816 PRINT "2.> Go through the back entrance."
817 PRINT "3.> Buy a game."
818 PRINT "4.> (This is not an option!)"
819 INPUT "Number 4 IS NOT an option, DO NOT pick number 4. ", hun$
820 IF hun$ = "1" THEN GOTO 730
821 IF hun$ = "2" THEN GOTO 795
822 IF hun$ = "3" THEN GOTO 833
823 IF hun$ = "4" THEN GOTO 838
824 CLS
825 INPUT "Think your a wise guy, eh"; eh$
826 GOTO 811
827 CLS
828 PRINT "If you chose the invisible path in Heck and chose to guzzle the"
829 PRINT "pop, I just want to smack you! You start guzzling a pop when a"
830 PRINT "mugger comes out and slashes your throat."
831 DO WHILE INKEY$ = "": LOOP
832 GOTO 730
833 CLS
834 PRINT "You seem to be a strong supporter of this company. You can skip"
835 PRINT "the rest of this game!"
836 PRINT "You win!"
837 END
838 CLS
839 PRINT "You got cheese in your head? N-U-M-B-E-R 4 (F-O-U-R) I-S N-O-T A-N"
849 PRINT "O-P-T-I-O-N!!"
850 DO WHILE INKEY$ = "": LOOP
851 GOTO 730
852 CLS
853 PRINT "Did you stop by the store? Oh well, on this street, you come across"
854 PRINT "a guy walking his dog."
855 PRINT "1.> Talk to the man."
856 PRINT "2.> Give him ''THE LOOK''."
857 PRINT "3.> Don'' t even pay atention."
858 INPUT "ui23480tg5u3iwebgfu4ow6gt78vrhkiq39ptjuqe45uagj8ioy;43l/qtu..... ", qr$
859 IF qr$ = "1" THEN GOTO 866
860 IF qr$ = "2" THEN GOTO 866
861 IF qr$ = "3" THEN GOTO 874
862 CLS
863 PRINT qr$; "??"
864 DO WHILE INKEY$ = "": LOOP
865 GOTO 852
866 CLS
867 PRINT "He senses what you are trying to do and he runs into an"
868 PRINT "alley. You run over to the alley but he is already gone."
869 e% = 1
870 PRINT "1.> Continue on the main path."
871 INPUT "", fhg$
872 IF fhg$ = "1" THEN GOTO 874
873 GOTO 866
874 CLS
875 PRINT "Walking along the road you see more shops and odd things."
876 PRINT "There'' s a guy make balloons out of dogs. And a weapons store."
877 PRINT "1.> Talk to the balloon guy."
878 PRINT "2.> Go in the weapons store."
879 PRINT "3.> Skip it all and continue walking."
880 PRINT "4.> Choose number 5"
881 INPUT "There is no number 5, so don'' t choose it. ", nofi$
882 IF nofi$ = "1" THEN GOTO 895
883 IF nofi$ = "2" THEN GOTO 904
884 IF nofi$ = "3" THEN GOTO 921
885 IF nofi$ = "4" THEN GOTO 891
886 IF nofi$ = "5" THEN GOTO 891
887 CLS
888 PRINT "Workin'' on the highway dum dum dum dum dum dum."
889 DO WHILE INKEY$ = "": LOOP
890 GOTO 874
891 CLS
892 PRINT "Don'' t pick 4 OR 5!!"
893 DO WHILE INKEY$ = "": LOOP
894 GOTO 730
895 balloon% = 1
896 CLS
897 PRINT "You want a dog balloon? Here let me make you one."
898 DO WHILE INKEY$ = "": LOOP
899 CLS
900 IF weapon% = 1 THEN END
901 PRINT "1.> Go on the main road."
902 PRINT "2.> Go to the weapons store."
903 INPUT "Hmmmmmmmmm... ", hm$
904 IF hm$ = "1" THEN GOTO 921
905 IF hm$ = "2" THEN GOTO 908
906 GOTO 899
907 END
908 CLS
909 PRINT "Would you like a poket knife? Here let me get one."
910 SLEEP 3
911 CLS
912 PRINT "Here ya go!": weapon% = 1
913 IF balloon% = 1 THEN GOTO 921
914 CLS
915 PRINT "1.> Go to the balloon guy."
916 PRINT "2.> Go on the main road."
917 INPUT "No more chicken! ", fgh$
918 IF fgh$ = "1" THEN GOTO 896
919 IF fgh$ = "2" THEN GOTO 921
920 GOTO 914
921 CLS
922 PRINT "Going past those two shops, the main road splits into two less important roads. The"
923 PRINT "left road is blocked off. The right road is not. To the left of the left"
924 PRINT "road is a shop."
925 PRINT "1.> Go in the shop."
926 PRINT "2.> Go back."
927 PRINT "3.> Go on the right road."
928 INPUT "Yuppy. ", mustI$
929 IF mustI$ = "1" THEN GOTO 936
930 IF mustI$ = "2" THEN GOTO 874
931 IF mustI$ = "3" THEN GOTO 981
932 CLS
933 PRINT "You is the dope."
934 DO WHILE INKEY$ = "": LOOP
935 GOTO 921
936 CLS
937 PRINT "Inside the shop (which is accually a bar) the bartender welcomes you"
938 PRINT "in. You look around and see a back entrance, and beer."
939 PRINT "1.> Go through the back entrance."
940 PRINT "2.> Go through the front entrance."
941 PRINT "3.> Go for the beer!"
942 INPUT "DON'' T GO FOR THE BEER! ", nob$
943 IF nob$ = "1" THEN GOTO 953
944 IF nob$ = "2" THEN GOTO 921
945 IF nob$ = "3" THEN GOTO 949
946 CLS
947 DO WHILE INKEY$ = "": LOOP
948 GOTO 936
949 CLS
950 PRINT "Beer is bad. This will learn you."
951 DO WHILE INKEY$ = "": LOOP
952 GOTO 730
953 CLS
954 PRINT "''Hey that'' s a restricted area.'' Claims the bartender. ''But if you"
955 PRINT "can get me one of those balloon animals I'' d gladly let you pass.''"
956 PRINT "1.> Give him balloon animal."
957 PRINT "2.> Go back one screen."
958 INPUT "", bs$
959 IF bs$ = "1" THEN GOTO 965
960 IF bs$ = "2" THEN GOTO 936
961 CLS
962 PRINT name$; " shut up!"
963 DO WHILE INKEY$ = "": LOOP
964 GOTO 953
965 IF balloon% = 1 THEN GOTO 969
966 CLS
967 PRINT "Sorry, you need a balloon animal."
968 DO WHILE INKEY$ = "": LOOP: GOTO 953
969 CLS
970 PRINT "Oh, thanks so much! I love these things!"
971 DO WHILE INKEY$ = "": LOOP
972 CLS
973 PRINT "In the alley behind the bar you look around. You see a road to the"
974 PRINT "to the right. And a pop."
975 PRINT "1.> Go right."
976 PRINT "2.> Guzzle a pop."
977 INPUT "Friends forever! ", muste$
978 IF muste$ = "1" THEN GOTO 1057
979 IF muste$ = "2" THEN GOTO 1052
980 GOTO 972
981 CLS
982 PRINT "This road has different things on it. Instead of shops, there are"
983 PRINT "barrier type things. This road seems to go for a while."
984 PRINT "1.> Continue."
985 INPUT "THis could take a while... ", nmb$
986 IF nmb$ = "1" THEN GOTO 988
987 GOTO 981
988 CLS
989 PRINT "This area looks much the same as the last. The only difference is"
990 PRINT "that the barriers'' roofs are jagged."
991 PRINT "1.> Continue."
992 PRINT "2.> Try to scale the wall."
993 INPUT "I believe in yesterday. ", mannama$
994 IF mannama$ = "1" THEN GOTO 1005
995 IF mannama$ = "2" THEN GOTO 1000
996 CLS
997 PRINT "HeY HeY MoNkEy sCrEw!"
998 DO WHILE INKEY$ = "": LOOP
999 GOTO 988
1000 CLS
1001 PRINT "I was going to make you die because you chose this but I just"
1002 PRINT "broke 1000 lines of coding sooooo you can live."
1003 DO WHILE INKEY$ = "": LOOP
1004 GOTO 988
1005 CLS
1006 PRINT "This road sucks! Well besides that you see a tunnel about 100 feet"
1007 PRINT "away. Well might as well continue. Are you getting a feeling that this"
1008 PRINT "is the wrong way??"
1009 DO WHILE INKEY$ = "": LOOP
1010 CLS
1011 PRINT "Now at the tunnel you see it is very long. Longer than you can see"
1012 PRINT "1.> Continue."
1013 PRINT "2.> Sit and wait for a car to pass by."
1014 INPUT "Monkey see doggy doo. ", msdd$
1015 IF msdd$ = "1" THEN GOTO 1018
1016 IF msdd$ = "2" THEN GOTO 1026
1017 GOTO 1010
1018 CLS
1019 PRINT "This tunnel is long!"
1020 PRINT "1.> Go to the beggining of part III."
1021 PRINT "2.> Continue."
1022 INPUT "Getting despirate... ", mnh$
1023 IF mnh$ = "1" THEN GOTO 730
1024 IF mnh$ = "2" THEN GOTO 1018
1025 GOTO 1018
1026 CLS : o% = 1
1027 PRINT "Sitting down."
1028 DO WHILE INKEY$ = "": LOOP
1029 CLS : o% = o% + 1
1030 PRINT "You just noticed that your not in the city anymore...."
1031 PRINT "1.> Keep waiting."
1032 PRINT "2.> Get up."
1033 INPUT "", hu$
1034 IF hu$ = "1" THEN GOTO 1029
1035 IF hu$ = "2" THEN GOTO 1010
1036 IF o% = 10 THEN GOTO 1038
1037 GOTO 1029
1038 CLS
1039 PRINT "Intent on waiting, eh? Well being stubborn pays off sometimes. Sure"
1040 PRINT "enough two cars come by. One going to the city and one leaving the"
1041 PRINT "city."
1042 PRINT "1.> Go back to the city."
1043 PRINT "2.> Go out of the city."
1044 INPUT "", hus$
1045 IF hus$ = "1" THEN GOTO 921
1046 IF hus$ = "2" THEN GOTO 1048
1047 GOTO 1038
1048 CLS
1049 PRINT "Going out of the city you see a big mountain...."
1050 DO WHILE INKEY$ = "": LOOP
1051 GOTO 48
1052 CLS
1053 PRINT "Picking up the pop, you start to drink it..... This isn'' t pop..."
1054 PRINT "It'' s poison!"
1055 DO WHILE INKEY$ = "": LOOP
1056 GOTO 730
1057 CLS
1058 PRINT "On this road you see the alley way and in front of you is a housing"
1059 PRINT "area. You walk along to the road up to these houses. You sense the dog"
1060 PRINT "might be close. But you are not sure..."
1061 PRINT "1.> Try the house on the lower left corner."
1062 PRINT "2.> Try the house on the lower right corner."
1063 PRINT "3.> Try the house on the left middle."
1064 PRINT "4.> Try the house on the right middle."
1065 PRINT "5.> Try the house on the upper left corner."
1066 PRINT "6.> Try the house on the upper right corner."
1067 PRINT "7.> Don'' t try any houses, continue on."
1068 INPUT "Get it right! ", rt$
1069 IF rt$ = "1" THEN GOTO 1077
1070 IF rt$ = "2" THEN GOTO 1077
1071 IF rt$ = "3" THEN GOTO 1077
1072 IF rt$ = "4" THEN GOTO 1082
1073 IF rt$ = "5" THEN GOTO 1077
1074 IF rt$ = "6" THEN GOTO 1077
1075 IF rt$ = "7" THEN GOTO 1105
1076 GOTO 1057
1077 CLS
1078 PRINT "The door! It is locked. You double check and even triple check"
1079 PRINT "but it'' s locked."
1080 DO WHILE INKEY$ = "": LOOP
1081 GOTO 1057
1082 CLS
1083 PRINT "This door is opening.... It looks like no one is home."
1084 PRINT "Inside this house it'' s almost pitch black. But you can"
1085 PRINT "make out a figure in the darkness. It looks like a dog."
1086 PRINT "You take a step foward and the dog starts barking and"
1087 PRINT "charges at you!"
1088 DO WHILE INKEY$ = "": LOOP
1089 IF weapon% = 1 THEN GOTO 1096
1090 CLS
1091 PRINT "The dog jumps on you, you have nothing to defend yourself with"
1092 PRINT "so he rips you to shreds."
1093 DO WHILE INKEY$ = "": LOOP
1094 GOTO 730
1095 CLS
1096 PRINT "You pull out the pocket knife and the dog stops. It comes up to you"
1097 PRINT "and wags it'' s tail. Then sudenly it runs into the other room. It"
1098 PRINT "comes back moments later and drops a key out of it'' s mouth like"
1099 PRINT "wants you to take it."
1100 mookeymoo% = 1
1101 DO WHILE INKEY$ = "": LOOP
1102 CLS
1103 PRINT "You leave the house and go on your merry way though the area."
1104 DO WHILE INKEY$ = "": LOOP
1105 CLS
1106 PRINT "Along this way the houses start to turn, well kind of crappy."
1107 PRINT "There gets to be a lot of for sale signs and uncut shrubs."
1108 PRINT "You get a feeling that your close to Bug. There are two houses"
1109 PRINT "at the end of this road and your pretty sure Bug is in one."
1110 PRINT "1.> Go in the left one."
1111 PRINT "2.> Go in the right one."
1112 INPUT "", des$
1113 IF des$ = "1" THEN GOTO 1116
1114 IF des$ = "2" THEN GOTO 1131
1115 GOTO 1106
1116 CLS
1117 PRINT "Entering the left one you see a ''Do not tresspass'' sign."
1118 PRINT "Still want to go?"
1119 PRINT "1.> Go back."
1120 PRINT "2.> Continue."
1121 INPUT "", hunf$
1122 IF hunf$ = "1" THEN GOTO 1105
1123 IF hunf$ = "2" THEN GOTO 1125
1124 GOTO 1116
1125 CLS
1126 PRINT "You enter the house and it looks a little familiar.... Wait it'' s"
1127 PRINT "your house! Not Hic Bills'' house but your house! Your parents jump"
1128 PRINT "out and kick Hic Bill out."
1129 DO WHILE INKEY$ = "": LOOP
1130 GOTO 1105
1131 CLS
1132 IF mookeymoo% = 1 THEN GOTO 1137
1133 PRINT "You walk up to the house and jiggle the knob but it won'' t move."
1134 PRINT "The door is locked."
1135 DO WHILE INKEY$ = "": LOOP
1136 GOTO 1105
1137 CLS : PRINT "You walk up to the door but it'' s lock! Then remembering ''Hey the"
1138 PRINT "key that dog gave me might work'' you whip out the key and try it"
1139 PRINT "out, amazingly it fits! You now have access to the house. Wait it"
1140 PRINT "still won'' t open, oh yeah you have to turn the key!"
1141 PRINT "1.> Turn key."
1142 INPUT "", keyt$
1143 IF keyt$ = "1" THEN GOTO 1148
1144 CLS
1145 PRINT "THERE IS ONE F*ING OPTION!"
1146 DO WHILE INKEY$ = "": LOOP
1147 GOTO 1137
1148 CLS
1149 PRINT "Slowly turning the key for a dramatic affect, you step in the house."
1150 PRINT "It'' s more like a long hall way. So you walk along this hallway, and"
1151 PRINT "come to a row of doors on each side."
1152 PRINT "1.> Try the lower left door."
1153 PRINT "2.> Try the lower right door."
1154 PRINT "3.> Try the upper left door."
1155 PRINT "4.> Try the upper right door."
1156 PRINT "5.> Try one of the middle left doors."
1157 PRINT "6.> Try one of the middle right doors."
1158 PRINT "7.> Try the other middle left door."
1159 PRINT "8.> Try the other middle right door."
1160 PRINT "9.> Ignore the doors."
1161 INPUT "", doro$
1162 IF doro$ = "1" THEN GOTO 1172
1163 IF doro$ = "2" THEN GOTO 1172
1164 IF doro$ = "3" THEN GOTO 1172
1165 IF doro$ = "4" THEN GOTO 1172
1166 IF doro$ = "5" THEN GOTO 1172
1167 IF doro$ = "6" THEN GOTO 1172
1168 IF doro$ = "7" THEN GOTO 1172
1169 IF doro$ = "8" THEN GOTO 1176
1170 IF doro$ = "9" THEN GOTO 1197
1171 GOTO 1148
1172 CLS
1173 PRINT "The door is locked..."
1174 DO WHILE INKEY$ = "": LOOP
1175 GOTO 1148
1176 CLS
1177 PRINT "This door is locked..."
1178 SLEEP 4
1179 PRINT "But the key will fit in it."
1180 PRINT "1.> Use key."
1181 INPUT "", hey$
1182 IF hey$ = "1" THEN GOTO 1184
1183 GOTO 1176
1184 CLS
1185 PRINT "This room is.... The hidden disko room!! With dj Soheck on board."
1186 PRINT "Oh yeah! You see Vic here, along with Huck!"
1187 PRINT "1.> Look around."
1188 PRINT "2.> LEAVE!"
1189 INPUT "", gyp$
1190 IF gyp$ = "1" THEN GOTO 1193
1191 IF gyp$ = "2" THEN GOTO 1148
1192 GOTO 1184
1193 CLS
1194 PRINT "You walk up to someone and asks what going on and they reply": PRINT "Hey babe just lighten up, here this will help, (he hands you some clay).": pill% = 1
1195 DO WHILE INKEY$ = "": LOOP
1196 GOTO 1184
1197 CLS
1198 PRINT "Continuing you walk up to one door straight ahead. It'' s locked and your"
1199 PRINT "key doesn'' t fit."
1200 DO WHILE INKEY$ = "": LOOP
1201 IF pill% = 1 THEN GOTO 1206
1202 CLS
1203 PRINT "Guess your at a dead end and have to restart."
1204 DO WHILE INKEY$ = "": LOOP
1205 GOTO 730
1206 CLS
1207 PRINT "I know! Use the clay that person gave you! You pull out the clay"
1208 PRINT "and mold it into a key, wait for it to dry then open the door with"
1209 PRINT "it!"
1210 DO WHILE INKEY$ = "": LOOP
1211 CLS
1212 PRINT "That must have been the back door because you look outside and see"
1213 PRINT "a huge forest, thats strange, your still in the underground city"
1214 PRINT "of the floating heads."
1215 PRINT "1.> Go in the forest."
1216 PRINT "2.> Go back to line 730."
1217 INPUT "", st$
1218 IF st$ = "1" THEN GOTO 1221
1219 IF st$ = "2" THEN GOTO 730
1220 GOTO 1211
1221 CLS
1222 PRINT "Inside the forest you come to a tree. It feels kind of like... Metal??"
1223 PRINT "With a button on the side pointing up..."
1224 PRINT "1.> Press button."
1225 PRINT "2.> Don'' t press the button."
1226 INPUT "", met$
1227 IF met$ = "1" THEN GOTO 1236
1228 IF met$ = "2" THEN GOTO 1264
1229 IF met$ = "3" THEN GOTO 1231
1230 GOTO 1221
1231 CLS
1232 PRINT "Choosing three you look down and get a key card."
1233 keycard% = 1
1234 DO WHILE INKEY$ = "": LOOP
1235 GOTO 1221
1236 CLS
1237 PRINT "Pressing button..."
1238 DO WHILE INKEY$ = "": LOOP
1239 CLS
1240 PRINT "You hear a humming inside the tree. The humming stops, the tree opens"
1241 PRINT "up! It'' s an elevator of fish scales!"
1242 PRINT "1.> Go in and ride."
1243 PRINT "2.> Don'' t go in."
1244 INPUT "", nut$
1245 IF nut$ = "1" THEN GOTO 1248
1246 IF nut$ = "2" THEN GOTO 1221
1247 GOTO 1239
1248 CLS
1249 PRINT "You go in and see fish scales all over!"
1250 PRINT "1.> Go up."
1251 PRINT "2.> Go down."
1252 INPUT "", down$
1253 IF down$ = "1" THEN GOTO 1260
1254 IF down$ = "2" THEN GOTO 1256
1255 GOTO 1248
1256 CLS
1257 PRINT "You go down and find yourself...."
1258 DO WHILE INKEY$ = "": LOOP
1259 GOTO 326
1260 CLS
1261 PRINT "Going up."
1262 DO WHILE INKEY$ = "": LOOP
1263 GOTO 1261
1264 CLS
1265 PRINT "Good you didn'' t press the button. Walking past that tree thing you"
1266 PRINT "suddenly disappear. And reappear in a part of the floating head city"
1267 PRINT "you'' ve never been to before."
1268 DO WHILE INKEY$ = "": LOOP
1269 CLS
1270 PRINT "This part has all the big companies. Plus many turns..."
1271 PRINT "1.> Go in the building right in front of you."
1272 PRINT "2.> Go in the building on you left."
1273 PRINT "3.> Take the road to your right."
1274 INPUT "Cheese is yellow. ", che$
1275 IF che$ = "1" THEN GOTO 1284
1276 IF che$ = "2" THEN GOTO 1487
1277 IF che$ = "3" THEN GOTO 1279
1278 GOTO 1269
1279 CLS
1280 PRINT "Walking along this road you see many people. But some of them are"
1281 PRINT "tough looking people, so you decide to go back."
1282 DO WHILE INKEY$ = "": LOOP
1283 GOTO 1269
1284 CLS : IF oute% = 1 THEN GOTO 1308
1285 PRINT "The building right in front of you is the largest you can see..."
1286 PRINT "It kind of intimidating. But you walk in anyways. Inside you see"
1287 PRINT "many guards, and people. But the only way up is through and elevator"
1288 PRINT "in the far wall. There seems to be a person at the info center too."
1289 PRINT "1.> Go to the elevator."
1290 PRINT "2.> Talk to the person at the info center."
1291 PRINT "3.> Try to find another way up."
1292 INPUT "", doe$
1293 IF doe$ = "1" THEN GOTO 1312
1294 IF doe$ = "2" THEN GOTO 1297
1295 IF doe$ = "3" THEN GOTO 1303
1296 GOTO 1284
1297 CLS
1298 PRINT "''Hello, what would you question be?'' The info person says. ''How do"
1299 PRINT "go up?'' You say. ''Well this building has heavy security, you need a"
1300 PRINT "card key.''"
1301 DO WHILE INKEY$ = "": LOOP
1302 GOTO 1284
1303 CLS
1304 PRINT "Scouring the build for other ways up you find nothing but you get the"
1305 PRINT "the guards atention, they escort you out.": oute% = 1
1306 DO WHILE INKEY$ = "": LOOP
1307 GOTO 1269
1308 CLS
1309 PRINT "You may not enter."
1310 DO WHILE INKEY$ = "": LOOP
1311 GOTO 1269
1312 CLS
1313 PRINT "You go up to the elevator, and press the up button, but then a card"
1314 PRINT "reader thing on the wall lights up."
1315 PRINT "1.> Put a card in."
1316 PRINT "2.> Leave the building."
1317 INPUT "", gor$
1318 IF gor$ = "1" THEN GOTO 1321
1319 IF gor$ = "2" THEN GOTO 1269
1320 GOTO 1312
1321 IF keycard% = 1 THEN GOTO 1326
1322 CLS
1323 PRINT "You have no such thing."
1324 DO WHILE INKEY$ = "": LOOP
1325 GOTO 1312
1326 CLS
1327 PRINT "You slide the card that you found in the woods through the card key"
1328 PRINT "check thing and a green light turns on and the elevator opens. You"
1329 PRINT "go in, and the doors close and the elevator goes up, you don'' t even"
1330 PRINT "press any buttons."
1331 DO WHILE INKEY$ = "": LOOP
1332 CLS
1333 PRINT "The elevator suddenly stops and opens, you see a cubicle, you go in"
1334 PRINT "it and see nothing of too much interest. There is an interesting looking"
1335 PRINT "cd, but that'' s about it."
1336 PRINT "1.> Go back in the elevator."
1337 PRINT "2.> Grab the cd, then go in the elevator."
1338 INPUT "", hur$
1339 IF hur$ = "1" THEN cd% = 0: GOTO 1346
1340 IF hur$ = "2" THEN cd% = 1: GOTO 1342
1341 GOTO 1332
1342
1343 CLS
1344 PRINT "You get the cd, and then head for the elevator."
1345 DO WHILE INKEY$ = "": LOOP
1346 CLS
1347 PRINT "In the elevator you now get a choice to go up or down."
1348 PRINT "1.> Go down."
1349 PRINT "2.> Go up."
1350 INPUT "", mr$
1351 IF mr$ = "1" THEN GOTO 1354
1352 IF mr$ = "2" THEN GOTO 1370
1353 GOTO 1346
1354 CLS
1355 PRINT "Going down..."
1356 DO WHILE INKEY$ = "": LOOP
1357 CLS
1358 IF cd% = 1 THEN GOTO 1362
1359 PRINT "You get to the bottom level, and the door opens."
1360 DO WHILE INKEY$ = "": LOOP
1361 GOTO 1284
1362 CLS
1363 PRINT "The elevator stops at the bottom, the doors open, and there is a"
1364 PRINT "squad of security gaurds waiting for you. They claim you stole the"
1365 PRINT "top secret cd for over riding the German virus that was suppost to"
1366 PRINT "be unleashed today at noon. Congradulations! You are a German spy."
1367 PRINT "They shoot you.."
1368 DO WHILE INKEY$ = "": LOOP
1369 GOTO 730
1370 CLS : IF cd% = 0 THEN GOTO 1482
1371 PRINT "While heading up you hear an alarm."
1372 r% = 1
1373 DO
1374 r% = r% + 1
1375 SOUND 500, 5
1376 SOUND 400, 5
1377 LOOP UNTIL r% = 5
1378 DO WHILE INKEY$ = "": LOOP
1379 CLS
1380 PRINT "Over a loud speaker you hear: Suspect of stealing a top secret military device"
1381 PRINT "in elevator 1b, heading up to the roof, capture by any means needed."
1382 DO WHILE INKEY$ = "": LOOP
1383 CLS
1384 PRINT "You look up at your elevator number and see elevator 1b!!!"
1385 DO WHILE INKEY$ = "": LOOP
1386 CLS
1387 PRINT "The elevator stops at the top, and the doors open, no one is around."
1388 PRINT "You see a parachute."
1389 PRINT "1.> Turn yourself in."
1390 PRINT "2.> Try to find another way down."
1391 PRINT "3.> Use the parachute."
1392 INPUT "", GYE$
1393 IF GYE$ = "1" THEN GOTO 1397
1394 IF GYE$ = "2" THEN GOTO 1407
1395 IF GYE$ = "3" THEN GOTO 1416
1396 GOTO 1386
1397 CLS
1398 PRINT "Yeah, thats right, they'' ll understand, I didn'' t know what I was"
1399 PRINT "doing. They can'' t be mad. Oh could you ever be more wrong."
1400 DO WHILE INKEY$ = "": LOOP
1401 DO WHILE INKEY$ = "": LOOP
1402 DO WHILE INKEY$ = "": LOOP
1403 DO WHILE INKEY$ = "": LOOP
1404 DO WHILE INKEY$ = "": LOOP
1405 DO WHILE INKEY$ = "": LOOP
1406 GOTO 730
1407 CLS
1408 PRINT "You run over to the edge to look for a ladder or something along"
1409 PRINT "those lines, but nothing you could find."
1410 DO WHILE INKEY$ = "": LOOP
1411 CLS
1412 PRINT "Looking for another way out bought the guards enough time to find"
1413 PRINT "you. The end."
1414 DO WHILE INKEY$ = "": LOOP
1415 GOTO 730
1416 CLS
1417 PRINT "You grab the parachute and put it on but you notice a magazine was"
1418 PRINT "under the parachute."
1419 PRINT "1.> Leave it."
1420 PRINT "2.> Read it."
1421 PRINT "3.> Take it."
1422 INPUT "", go$
1423 IF go$ = "1" THEN maga% = 0: GOTO 1435
1424 IF go$ = "2" THEN GOTO 1431
1425 IF go$ = "3" THEN maga% = 1: GOTO 1427
1426 GOTO 1416
1427 CLS
1428 PRINT "You grab the magazine, and quickly put it in your pocket."
1429 DO WHILE INKEY$ = "": LOOP
1430 GOTO 1435
1431 CLS
1432 PRINT "There'' s no time!!"
1433 DO WHILE INKEY$ = "": LOOP
1434 GOTO 1416
1435 CLS
1436 PRINT "''Time to jump!'' As you strap the parachute on and run for the edge"
1437 PRINT "of the building."
1438 DO WHILE INKEY$ = "": LOOP
1439 CLS
1440 PRINT "You fall for about one second and pull the rip cord, the parachute"
1441 PRINT "opens and you suddenly get jerked up. Then slowly fall."
1442 DO WHILE INKEY$ = "": LOOP
1443 PRINT "You land safely."
1444 DO WHILE INKEY$ = "": LOOP
1445 CLS
1446 PRINT "You find yourself on the street you were warped to."
1447 PRINT "1.> Go in the building on your left."
1448 PRINT "2.> Talk to the people passing by."
1449 IF cd% = 1 THEN PRINT "3.> Look at cd."
1450 INPUT "", don$
1451 IF don$ = "1" THEN GOTO 1482
1452 IF don$ = "2" THEN GOTO 1455
1453 IF don$ = "3" THEN GOTO 1461
1454 GOTO 1445
1455 CLS
1456 PRINT "''You have nothing that concerns me.'' Someone says. Man, people aren'' t"
1457 PRINT "too friendly."
1458 DO WHILE INKEY$ = "": LOOP
1459 GOTO 1445
1460 CLS
1461 PRINT "You look at the cd and realize those people are going to try and"
1462 PRINT "kill you to get it back."
1463 PRINT "1.> Throw it away."
1464 IF maga% = 1 THEN PRINT "2.> Put it in the magazine you picked up and give it to someone."
1465 INPUT "", nuE$
1466 IF nuE$ = "1" THEN GOTO 1469
1467 IF nuE$ = "2" THEN GOTO 1473
1468 GOTO 1460
1469 CLS
1470 PRINT "You go to a near by garbage can and throw it away."
1471 DO WHILE INKEY$ = "": LOOP
1472 GOTO 1476
1473 CLS
1474 PRINT "You put the cd in the magazine and give it to a person."
1475 DO WHILE INKEY$ = "": LOOP
1476 CLS
1477 PRINT "Now that you have done everything."
1478 PRINT "1.> Go in the building on your left."
1479 INPUT "", bul$
1480 IF bul$ = "1" THEN GOTO 1487
1481 GOTO 1476
1482 CLS
1483 PRINT "The elevator stops at the roof, you walk out and over to the edge."
1484 PRINT "And someone pushes you over. You fall to your death."
1485 DO WHILE INKEY$ = "": LOOP
1486 GOTO 730
1487 CLS
1488 PRINT "Going to the building on the left (or right, depending on where"
1489 PRINT "you are facing)."
1490 DO WHILE INKEY$ = "": LOOP
1491 CLS
1492 PRINT "The boss of this company comes out and welcomes you. ''Hello I am"
1493 PRINT "O-Bert, nice to have you at this fine establishment.''"
1494 PRINT "1.> Look around."
1495 PRINT "2.> Hang with O-Bert."
1496 PRINT "3.> Ask what his company does."
1497 INPUT "", jue$
1498 IF jue$ = "1" THEN END
1499 IF jue$ = "2" THEN GOTO 1513
1500 IF jue$ = "3" THEN GOTO 1502
1501 GOTO 1491
1502 CLS
1503 PRINT "''Ah! That'' s a very fine question in deed!'' He answers. ''My company"
1504 PRINT "sells robot dogs. Our newest model just came in, if you were to give"
1505 PRINT "someone this model without them knowing it'' s a fake dog, they would"
1506 PRINT "never find out!''"
1507 PRINT "1.> Take one back for Prego!."
1508 PRINT "2.> Keep searching for the real bug."
1509 INPUT "", bug$
1510 IF bug$ = "1" THEN GOTO 1516
1511 IF bug$ = "2" THEN GOTO 1526
1512 GOTO 1502
1513 CLS
1514 PRINT "''Oh, you want to stay with me, well I'' m very busy today.'' He replies."
1515 GOTO 1491
1516 CLS
1517 PRINT "''Very fine choice!'' O-Bert says. You take the dog and head for Prego!s."
1518 DO WHILE INKEY$ = "": LOOP
1519 CLS
1520 PRINT "You make it there shortly and give the dog to Prego!. He seems very"
1521 PRINT "pleased. ''You have finished you mission, good job!'' Without knowing"
1522 PRINT "it, Prego! flipped the defense mode and the dog sprang into action."
1523 PRINT "Defending Prego! he jumps on you and bites you..... A lot. The end."
1524 DO WHILE INKEY$ = "": LOOP
1525 GOTO 730
1526 CLS
1527 PRINT "''I must be on my way'' You say."
1528 DO WHILE INKEY$ = "": LOOP
1529 CLS
1530 PRINT "You exit the building to find yourself in a residential area!?!"
1531 DO WHILE INKEY$ = "": LOOP
1532 CLS
1533 PRINT "There'' s a row of houses right in front of you, at least 15, you"
1534 PRINT "must choose one."
1535 PRINT "1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22"
1536 INPUT "Which one"; qq$
1537 IF qq$ = "1" THEN GOTO 1560
1538 IF qq$ = "2" THEN GOTO 1570
1539 IF qq$ = "3" THEN GOTO 1581
1540 IF qq$ = "4" THEN GOTO 1570
1541 IF qq$ = "5" THEN GOTO 1581
1542 IF qq$ = "6" THEN GOTO 1560
1543 IF qq$ = "7" THEN GOTO 1570
1544 IF qq$ = "8" THEN GOTO 1585
1545 IF qq$ = "9" THEN GOTO 1570
1546 IF qq$ = "10" THEN GOTO 1570
1547 IF qq$ = "11" THEN GOTO 1560
1548 IF qq$ = "12" THEN GOTO 1570
1549 IF qq$ = "13" THEN GOTO 1581
1550 IF qq$ = "14" THEN GOTO 1581
1551 IF qq$ = "15" THEN GOTO 1570
1552 IF qq$ = "16" THEN GOTO 1570
1553 IF qq$ = "17" THEN GOTO 1560
1554 IF qq$ = "18" THEN GOTO 1560
1555 IF qq$ = "19" THEN GOTO 1570
1556 IF qq$ = "20" THEN GOTO 1560
1557 IF qq$ = "21" THEN GOTO 1560
1558 IF qq$ = "22" THEN GOTO 1560
1559 GOTO 1532
1560 CLS
1561 PRINT "You walk up to house number "; qq$; ", the knob on the door doesn'' t"
1562 PRINT "turn, but you know this is the house... They'' ve got to have a window"
1563 PRINT "that'' s unlocked, or something! You wonder around to the side of the"
1564 PRINT "house. Sure enough there'' s and open window. You climb through it, and"
1565 PRINT "trip a security sensor, an alarm goes off. You jump out the window"
1566 PRINT "and land in the trash can you used to climb through the window. It"
1567 PRINT "falls over, so do you. You jump out and run to the row of houses again."
1568 DO WHILE INKEY$ = "": LOOP
1569 GOTO 1532
1570 CLS
1571 PRINT "You walk up to house number "; qq$; ". The door is wide open. You walk"
1572 PRINT "in, and hear a dog wimpering upstairs. I guess you should head upstairs."
1573 PRINT "This place is really dark though. No lights are turned on. You have"
1574 PRINT "a bad feeling."
1575 DO WHILE INKEY$ = "": LOOP
1576 CLS
1577 PRINT "Heading upstairs you hear some one scream. Thats enough, let''s leave."
1578 PRINT "as you head back down the stairs a huge guy tackles you, and kills you."
1579 DO WHILE INKEY$ = "": LOOP
1580 GOTO 730
1581 CLS
1582 PRINT "This house has a do not enter sign. Better not enter."
1583 DO WHILE INKEY$ = "": LOOP
1584 GOTO 1532
1585 IF e% = 1 THEN GOTO 1591
1586 CLS
1587 PRINT "You open the door, and the guy walking his dog runs out the back door,"
1588 PRINT "leaving Bug behind! You have bug! Now for Prego!s house."
1589 DO WHILE INKEY$ = "": LOOP
1590 GOTO 1605
1591 IF weapon% = 1 THEN GOTO 1599
1592 CLS
1593 PRINT "You open the door, and walk in. It seems empty. You hear a barking."
1594 PRINT "Bug!! Bug'' s here! He'' s locked up, so you walk over to him, and a"
1595 PRINT "guys jumps out and stabs you in the back!"
1596 DO WHILE INKEY$ = "": LOOP
1597 GOTO 730
1598 CLS
1599 PRINT "Good thing you picked up that pocket knife, as you pull it out. You"
1600 PRINT "hear some barking. Bug it must be him. You run in that direction."
1601 PRINT "A guy jumps out from behind and tackles you. You land on the pocket"
1602 PRINT "knife, and kill yourself."
1603 DO WHILE INKEY$ = "": LOOP
1604 GOTO 730
1605 CLS
1606 PRINT "''Oh bug, I missed you soooooo much!! Thanks Hic Bill!! There, you'' ve"
1607 PRINT "done the last mission, but while you were out some guy came by and"
1608 PRINT "said you will be warp to a island off the coast of New Guinea. The"
1609 PRINT "specific islands'' name is The Hermit Island.''"
1610 DO WHILE INKEY$ = "": LOOP
1611 CLS
1612 PRINT "That'' s a load of bs!! (You think)....."
1613 DO WHILE INKEY$ = "": LOOP
1614 CLS
1615 PRINT "Stay tune for....."
1616 DO WHILE INEKY$ = "": LOOP
1617 CLS
1618 PRINT "T"
1619 SLEEP 1
1620 LOCATE 1, 2: PRINT "h"
1621 SLEEP 1
1622 LOCATE 1, 3: PRINT "e"
1623 SLEEP 1
1624 LOCATE 1, 5: PRINT "a"
1625 SLEEP 1
1626 LOCATE 1, 6: PRINT "d"
1627 SLEEP 1
1628 LOCATE 1, 7: PRINT "v"
1629 SLEEP 1
1630 LOCATE 1, 8: PRINT "e"
1631 SLEEP 1
1632 LOCATE 1, 9: PRINT "n"
1633 SLEEP 1
1634 LOCATE 1, 10: PRINT "t"
1635 SLEEP 1
1636 LOCATE 1, 11: PRINT "u"
1637 SLEEP 1
1638 LOCATE 1, 12: PRINT "r"
1639 SLEEP 1
1640 LOCATE 1, 13: PRINT "e": SLEEP 1: LOCATE 1, 14: PRINT "s"
1641 SLEEP 1
1642 LOCATE 1, 16: PRINT "o"
1643 SLEEP 1
1644 LOCATE 1, 17: PRINT "f"
1645 SLEEP 1
1646 LOCATE 1, 19: PRINT "H"
1647 SLEEP 1
1648 LOCATE 1, 20: PRINT "i"
1649 SLEEP 1
1650 LOCATE 1, 21: PRINT "c"
1651 SLEEP 1
1652 LOCATE 1, 23: PRINT "B"
1653 SLEEP 1
1654 LOCATE 1, 24: PRINT "i"
1655 SLEEP 1
1656 LOCATE 1, 25: PRINT "l"
1657 SLEEP 1
1658 LOCATE 1, 26: PRINT "l"
1659 SLEEP 1
1660 LOCATE 1, 28: PRINT "t"
1661 SLEEP 1
1662 LOCATE 1, 29: PRINT "h"
1663 SLEEP 1
1664 LOCATE 1, 30: PRINT "e"
1665 SLEEP 1
1666 LOCATE 1, 32: PRINT "h"
1667 SLEEP 1
1668 LOCATE 1, 33: PRINT "e"
1669 SLEEP 1
1670 LOCATE 1, 34: PRINT "r"
1671 SLEEP 1
1672 LOCATE 1, 35: PRINT "m"
1673 SLEEP 1
1674 LOCATE 1, 36: PRINT "i"
1675 SLEEP 1
1676 LOCATE 1, 37: PRINT "t"
1677 SLEEP 1
1678 COLOR 4: LOCATE 1, 39: PRINT "3"
1679 SLEEP 1
1680 LOCATE 1, 40: PRINT "!"
1681 SLEEP 1
1682 LOCATE 1, 41: PRINT "!"
1683 SLEEP 1
1684 DO WHILE INKEY$ = "": LOOP
1685 CLS : COLOR 15
1686 PRINT "This is a product of M.C.S. (M.C. Software)"
1687 DO WHILE INKEY$ = "": LOOP
1688 CLS
1689 PRINT "Programming: Ali Akbahrkhan, Aron Mayers, Tom Edin, Bill Huerm"
1690 SLEEP 3
1691 PRINT
1692 PRINT "Ideas: Mike Munro, Muzlak Oofmay, Ali Akbahrkhan, Andy Sern, Greg Hertes"
1693 SLEEP 3
1694 PRINT
1695 PRINT "Producer: M.C. Software"
1696 SLEEP 3
1697 PRINT
1698 PRINT "Managing Done by: Ali Akbahrkhan, Muzlak Oofmay, Bill Huerm"
1699 SLEEP 3
1700 PRINT
1701 PRINT "Game Design: Ali Akbahrkhan, Muzlak Oofmay, Aron Mayers, Bill Huerm"
1702 SLEEP 3
1703 PRINT
1704 PRINT "Music Composition Done By: Ali Akbahrkhan, Tom Edin"
1705 SLEEP 3
1706 PRINT
1707 PRINT "Graphic Design: Ali Akbahrkhan, Mike Munro, Muzlak Oofmay, Greg Hertes"
1708 SLEEP 3
1709 PRINT
1710 PRINT "Screen Play: Ali Akbahrkhan"
1711 SLEEP 3
1712 PRINT
1713 PRINT "Director: Ali Akbahrkhan, Greg Hertes, Erik Fornt"
1714 SLEEP 3
1715 PRINT
1716 PRINT "Original Idea: Mike Munro, Ali Akbahrkhan, Muzlak Oofmay, Bill Huerm"
1717 SLEEP 3
1718 PRINT
1719 PRINT "Actors: Ali Akbahrkhan, Mike Munro, Muzlak Oofmay, Soheck, Paul Newbahram"
1720 SLEEP 15
1721 PRINT "Oh yeah, Dan Munro, for doing nothing at all."
1722 DO WHILE INKEY$ = "": LOOP
1723 CLS
1724 PRINT "Hope you had fun."
1725 DO WHILE INKEY$ = "": LOOP
1726 DO WHILE INKEY$ = "": LOOP
1727 CLS
1728 PRINT "Oh how could I forget the Testing people!!"
1729 DO WHILE INKEY$ = "": LOOP
1730 CLS
1731 PRINT "Testing done by: "
1732 PRINT "Soraya Aalami"
1733 PRINT "Soheil Aalami"
1734 PRINT "Muzlak Oofmay"
1735 PRINT "That Russian Guy"
1736 PRINT "Sigmund"
1737 PRINT "Scooby Do"
1738 DO WHILE INKEY$ = "": LOOP
1739 CLS
1740 CALL thanks
1741 CALL epi: CALL products
1742 DO
1743 CLS
1744 LOCATE 1, 1: PRINT "Sorry no refunds."
1745 SOUND 300, 1
1746 SLEEP 1
1747 CLS
1748 SLEEP 1
1749 LOOP WHILE INKEY$ = ""
1750 CLS
1751 PRINT "Type the word ''hic'' to get out."
1752 DO UNTIL INKEY$ = "h": LOOP
1753 DO UNTIL INKEY$ = "i": LOOP
1754 DO UNTIL INKEY$ = "c": LOOP
1755 CLS
1756 END
SUB epi
CLS
PRINT "Epilog:"
PRINT "After the sad event that took place at Prego!s house after returning his dog,"
PRINT "Prego! warned Bill of a man putting a curse on you to send you to The Hermit"
PRINT "Island. Of course Hic Bill didn'' t believe him but soon later. He found"
PRINT "himself on The Hermit Island. All alone and afraid, Hic Bill didn'' t know"
PRINT "what to do so he searched around and found a village. He build his hut there"
PRINT "and this is where the adventures of Hic Bill 3 (c)(tm)(r)(okay, I'' m serious"
PRINT "about the (c)(tm)and(r) ok?) begins."
DO WHILE INKEY$ = "": LOOP
END SUB
SUB glitch
SCREEN 8
PRINT "Setting up 3d engines do not be alarmed."
PRINT "When ready for setup press any key."
DO WHILE INKEY$ = "": LOOP
I% = 37
DO
I% = I% + 1
SCREEN 1
SCREEN 13
SCREEN 11
SCREEN 8
SOUND I%, 1
LOOP UNTIL I% = 150
PRINT "3d engine setup complete, press any key to be amazed."
DO WHILE INKEY$ = "": LOOP
END SUB
SUB products
CLS
PRINT "Games that you might want to know about:"
PRINT "Ali'' s Escape from Testicle Island (we might change this for obvious reasons)"
PRINT "Trash Man"
PRINT "SGTBM"
DO WHILE INKEY$ = "": LOOP
END SUB
SUB thanks
CLS
PRINT "Just some thanks I'' d like to say..."
DO WHILE INKEY$ = "": LOOP
CLS
PRINT "Thanks to Paul (You know which Paul) for being a all around jerk."
DO WHILE INKEY$ = "": LOOP
CLS
PRINT "Thanks to all the stupid people out for making me look smart."
DO WHILE INKEY$ = "": LOOP
CLS
PRINT "Thanks to the car we used in a prototype game cover."
DO WHILE INKEY$ = "": LOOP
CLS
PRINT "Thanks to my mom and dad, because they'' re cool."
DO WHILE INKEY$ = "": LOOP
CLS
PRINT "Thanks to Mike because he'' s cool."
DO WHILE INKEY$ = "": LOOP
CLS
PRINT "Thanks to Muzlak because he'' s cool."
DO WHILE INKEY$ = "": LOOP
CLS
PRINT "Thanks to that guy in my backyard because he keeps the wild dogs out."
DO WHILE INKEY$ = "": LOOP
CLS
PRINT "thanks to the guy across the street for countless good times."
DO WHILE INKEY$ = "": LOOP
CLS
PRINT "Thanks to you, the gamer."
DO WHILE INKEY$ = "": LOOP
CLS
PRINT "Thought that was it huh? Well your wrong!!"
DO WHILE INKEY$ = "": LOOP
CLS
PRINT "Thanks to the programmer(s)."
DO WHILE INKEY$ = "": LOOP
CLS
PRINT "Thanks to the testers."
DO WHILE INKEY$ = "": LOOP
CLS
PRINT "I guess that'' s it."
DO WHILE INKEY$ = "": LOOP
CLS
PRINT "Oh wait!! Thnaks to Hic Bill the hermit!"
DO WHILE INKEY$ = "": LOOP
END SUB
Help?
Again, please use the source tags, and if IE keeps on crapping out then upgrade it.
Also, please be more specific about what the error is. I for one wouldn''t want to sift through ~2000 lines of code looking for an error of a vague type. By being more specific maybe I''ll only have to look through 200 lines of code that the error probably occurs in.
The hackers must have gotten into the system through the hyperlink!!
Invader''s Realm
Also, please be more specific about what the error is. I for one wouldn''t want to sift through ~2000 lines of code looking for an error of a vague type. By being more specific maybe I''ll only have to look through 200 lines of code that the error probably occurs in.
The hackers must have gotten into the system through the hyperlink!!
Invader''s Realm
I have newest IE. And I''ll tell you the problem, it doesn''t work.
714 CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS _
: CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS
715 CLS
doesn''t clear the screen!
please help me! I need your help!
714 CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS _
: CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS : CLS
715 CLS
doesn''t clear the screen!
please help me! I need your help!
oh yeah...also:
This code doesn''t load the 3d engines...help?
SUB glitchSCREEN 8PRINT "Setting up 3d engines do not be alarmed."PRINT "When ready for setup press any key."DO WHILE INKEY$ = "": LOOPI% = 37DOI% = I% + 1SCREEN 1SCREEN 13SCREEN 11SCREEN 8SOUND I%, 1LOOP UNTIL I% = 150PRINT "3d engine setup complete, press any key to be amazed."DO WHILE INKEY$ = "": LOOPEND SUB
This code doesn''t load the 3d engines...help?
I''ll start by giving you some advice. Line numbers suck. If you want ot find errors, you should toss the number lines and dd labels. I think you''ll get a much better response then. Also, what was the error number, and the line it was on? Try doing an error handling system...
I''ll start by giving you some advice. Line numbers suck. If you want ot find errors, you should toss the number lines and dd labels. I think you''ll get a much better response then. Also, what was the error number, and the line it was on? Try doing an error handling system...
This topic is closed to new replies.
Advertisement
Popular Topics
Advertisement