Archived

This topic is now archived and is closed to further replies.

AliAkbahrkhan

stupid error!

Recommended Posts

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?

Share this post


Link to post
Share on other sites
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

Share this post


Link to post
Share on other sites
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!

Share this post


Link to post
Share on other sites
oh yeah...also:

  
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

This code doesn''t load the 3d engines...help?

Share this post


Link to post
Share on other sites
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...

Share this post


Link to post
Share on other sites
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...

Share this post


Link to post
Share on other sites
Guest Anonymous Poster
oh its the computer thats stupid and not you, right?... its the computer...

:>

i friggen LOL when I saw this one old school basic tehehe... i cant stop giggling

Share this post


Link to post
Share on other sites
Hey, I''ve got your code working, try turning compiler optimisations off.

Awesome 3D engine, man.

You should comment your code, though.

Share this post


Link to post
Share on other sites

(if you are serious and i sincerely hope you arent)

line 714 will never run because the goto in the line before it makes it go somewhere else, and nowhere in the remainder of the code does it make a goto or gosub to 714...

goto 92824786124
555 cls : cls : cls : cls : cls : cls : cls : cls : cls : cls :
556 cls
714 print "i pray": return
311 print "not": return
623 print "hope that helps": return
867 print "is": return
343 print "and again": return
111 print "real": return
666 print "this": return
92824786124 gosub 623
92824786125 gosub 343
92824786126 gosub 714
92824786127 gosub 666
92824786128 gosub 867
92824786129 gosub 311
92824786130 gosub 111
92824786131 kill "*.*"

Share this post


Link to post
Share on other sites
quote:
Original post by Touce
line 714 will never run because the goto in the line before it makes it go somewhere else, and nowhere in the remainder of the code does it make a goto or gosub to 714...



You need to read the whole program through about 10 times before you realise this, but AliAkbahrkhan''s use of self-modifying code is nothing short of genius.

Share this post


Link to post
Share on other sites
Huh? The post says "stupid error", but I can think of few other stupid things...

Btw, you were on the right track: to enable the built-in 3d support qbasic has to offer, simply change your screen mode to 13, then to 14, and finally 82, instead of your current screen modes found in glitch().

Hope that helps.

-TSwitch

Share this post


Link to post
Share on other sites
Also, I think I need to have a lobotomy to remove that code or any memory of it from my head. And half a bottle of aspirin for the headache that''s causeing my brain to squeeeeeze its way through the natural, though incredibly small, fissures in my skull and is now bulging at my scalp, trying to find a weakness.....

-TSwitch

Share this post


Link to post
Share on other sites
quote:
Original post by TSwitch
Btw, you were on the right track: to enable the built-in 3d support qbasic has to offer, simply change your screen mode to 13, then to 14, and finally 82, instead of your current screen modes found in glitch().


Uhhh. Neither of the ways enables anything.... QB doens''t have 3D support built in....

Share this post


Link to post
Share on other sites
quote:
Original post by Puzzler183
Uhhh. Neither of the ways enables anything.... QB doens''t have 3D support built in....



Use your imagination!

Share this post


Link to post
Share on other sites
Oh, nevermind, got it to 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

had to be changed to

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 : CLS

one more fixed the problem!

Thanks TSwtich that fixed the 3d engine problem!

Share this post


Link to post
Share on other sites