'I wrote this game when I just started QBASIC. I only made one floor, 'because I realized that it sucked. Back then, I knew only about 10 commands, 'and stuff, and I thought that every line needed a line #. 'If you use this source code, or distribute it over the internet, give 'me credit. made in 1996, released August 98 ' Peter Berg ' courier@spectra.net 5 REM *** AREA 51 6 REM *** STARTUP 7 PRINT : PRINT : PRINT : PRINT : PRINT : PRINT 10 PRINT "AT THE AGE OF FIVE YOU WERE ABDUCTED BY ALIENS. DURING YOUR ABDUCTION," 11 PRINT "THE ALIENS IMPLANTED A SMALL COMPUTER CHIP INTO THE BACK OF YOUR NECK." 12 PRINT "THE COMPUTER CHIP SCRAMBLED YOUR DNA, AND MADE IT POSSIBLE FOR YOU TO" 13 PRINT "TO RECOUPERATE FROM ILLNESSES VERY QUICKLY, GROW BACK LOST TISSUE AND " 14 PRINT "FOR YOUR MUSCLE TISSUE TO GROW FASTER, AND BIGGER THEN AN AVERAGE HUMAN'S." 15 PRINT 16 FOR T = 1 TO 20000: NEXT T 17 PRINT "WHEN YOU WERE A TEENAGER, YOU WERE THE BIGGEST, AND STRONGEST PERSON" 18 PRINT "IN YOUR SCHOOL. AT THE AGE OF 18, YOU WERE DIAGNOSED WITH LUKEMIA, AND" 19 PRINT "SENT TO THE HOSPITAL. DURING YOUR STAY THERE, THE DOCTORS HAD TO TAKE " 20 PRINT "WHITE BLOOD CELL COUNTS, AND DISCOVERED YOUR SCRAMBLED DNA. SOON, THE " 21 PRINT "FBI, AND THE CIA FOUND OUT ABOUT YOUR RARE DISEASE." 22 PRINT 23 FOR T = 1 TO 20000: NEXT T 24 PRINT "YOUR LUKEMIA WAS STOPPED BEFORE IT BECAME TOO SERIOUS, AND YOU SOON " 25 PRINT "RETURNED HOME. THE FOLLOWING YEAR, YOU WENT TO COLLEGE, AND GOT A " 26 PRINT "DORM ROOM. " 27 PRINT " ONE NIGHT, TWO MEN BROKE INTO YOUR ROOM, AND CARRIED YOU AWAY. THEY " 28 PRINT "TOOK YOU TO A MODERN, HIGH TECH CENTER WHERE YOU WERE LOCKED UP IN A " 29 PRINT "JAIL CELL." 30 PRINT 31 PRINT " PRESS RETURN TO CONTINUE": INPUT B$ 32 CLS 39 PRINT : PRINT : PRINT 40 PRINT " **** ****** ****** **** ****** *** " 41 PRINT "** ** ** ** ** ** ** ** ** " 42 PRINT "****** ****** **** ****** ****** ** " 43 PRINT "** ** ** ** ** ** ** * **" 44 PRINT "** ** ** ** ****** ** ** ****** ****" 45 PRINT " WRITTEN BY PETER BERG" 46 PRINT : PRINT : PRINT 47 PRINT "1.) DIRECTIONS" 48 PRINT "2.) PASSWORD" 49 PRINT "3.) START GAME" 50 PRINT "PLEASE ENTER YOUR SELECTION. 1, 2, OR 3"; : INPUT C$ 51 IF C$ = "1" THEN GOSUB 100 52 IF C$ = "2" THEN 200 53 IF C$ <> "3" THEN 40 54 IF C$ = "3" THEN 300 100 REM *** DIRECTIONS 101 PRINT : PRINT 102 PRINT : PRINT " DIRECTIONS " 103 PRINT "AREA 51 IS A LONG, FUN ADVENTURE GAME. IN THIS GAME, YOU ARE AN INMATE" 104 PRINT "IN A TOP SECRET, HIGH TECH GOVERNMENT BUILDING. THE OBJECT IS TO ESCAPE" 105 PRINT "FROM THE BUILDING WITHOUT BEING CAUGHT. THERE ARE MANY TRAPS AND PEOPLE" 106 PRINT "TO SLOW YOU DOWN, AND A LOT OF PUZZLES FOR YOU TO FIGURE OUT. GOOD LUCK!!" 107 PRINT : PRINT 108 PRINT "IN THIS GAME, YOU ARE ARMED WITH A SMALL PHOTON GUN, A COMMUNICATOR, AND " 109 PRINT "YOUR SUPER STRENGTH." 110 PRINT : PRINT " NAVIGATING AROUND THE BUILDING" 111 PRINT "A. WALKING- TO WALK AROUND THE BUILDING, AT THE NOW WHAT? COMMAND, " 112 PRINT " TYPE GO, AND A DIRECTION COMMAND. (NORTH, SOUTH, EAST, WEST)" 113 PRINT " WHEN YOU TYPE A DIRECTION, YOU MUST ONLY USE THE FIRST LETTER OF IT" 114 PRINT " (NORTH=N). YOU CAN ONLY GO IN A DIRECTION IF THERE IS A DOORWAY IN " 115 PRINT " THAT DIRECTION. FOR EXAMPLE TO GO SOUTH, YOU WOULD TYPE GO S." 116 PRINT 117 PRINT "B. SHOOTING- TO SHOOT YOUR GUN, YOU TYPE THE WORD SHOOT, AND" 118 PRINT " THE DIRECTION YOU WOULD LIKE TO SHOOT. (N, S, E, OR W). FOR EXAMPLE" 119 PRINT " IF YOU WANTED TO SHOOT TO THE WEST, YOU WOULD TYPE SHOOT W." 120 PRINT : FOR T = 1 TO 150000: NEXT T 121 PRINT "C. LOOK- TO LOOK CLOSER AT A CERTAIN OBJECT, TYPE LOOK, AND THE OBJECT" 122 PRINT " THAT YOU WOULD LIKE TO EXAMINE. FOR EXAMPLE, IF YOU WANTED TO LOOK" 123 PRINT " AT A NOTEPAD LAYING ON A TABLE, TYPE LOOK NOTEPAD. IF YOU DON'T KNOW" 124 PRINT " WHAT NOUN TO USE AFTER YOUR LOOK COMMAND, USE THE ONE THAT WAS" 125 PRINT " USED IN THE DESCRIPTION OF THE ROOM." 126 PRINT 127 PRINT "D. OPERATING ELEVATORS- IN AREA 51, THERE ARE SEVENSTORIES, WHICH ARE " 128 PRINT " ACCESSIBLE BY ELEVATORS. WHEN YOU ARE IN AN ELEVATOR, YOU CAN GO TO" 129 PRINT " ANY OF THE FLOORS THAT THE ELEVATOR SERVICES. (MOST ELEVATORS ONLY CAN" 130 PRINT " TAKE YOU YOU TO TWO OR THREE FLOORS.) TO OPERATE AN ELEVATOR, TYPE" 131 PRINT " GO FOLLOWED BY THE FLOOR NUMBER THAT YOU WANT TO GO TO. FOR EXAMPLE" 132 PRINT " IF YOU WANTED TO GO TO FLOOR 3, TYPE GO 3.": PRINT 133 PRINT "E. OPERATING YOUR COMMUNICATOR- YOUR PERSONAL COMMUNICATOR IS A VERY USEFUL" 134 PRINT " TOOL IN INTERCEPTING ENEMY CONVERSATIONS. IT HAS 2000 DIFFERENT " 135 PRINT " FREQUENCIES ON WHICH THE BUILDING OFFICIALS COMMUNICATE. YOU CAN" 136 PRINT " GAIN VALUABLE INFORMATION FROM CHECKING YOUR COMMUNICATOR OFTEN." 137 PRINT " TO OPERATE YOUR COMMUNICATOR, TYPE COM, AND THE FREQUENCY (1-2000) YOU" 138 FOR T = 1 TO 150000: NEXT T 139 PRINT " WANT TO LISTEN TO. FOR EXAMPLE, IF YOU WANTED TO LISTEN TO FREQUENCY" 140 PRINT " 1837, THEN YOU WOULD TYPE COM 1837." 141 PRINT 142 PRINT "F. TALK-IF THERE IS A PERSON IN ONE OF THE ROOMS THAT YOU ENTER, TYPE" 143 PRINT " TALK, AND YOU WILL ASK THE PERSON . THEY WILL TELL" 144 PRINT " SOMETHING, IT MAY BE USEFUL, OR NOT. FOR EXAMPLE, IF THERE WAS A MAN" 145 PRINT " IN THE ROOM THAT YOU ENTERED, YOU WOULD HAVE TO TYPE TALK TO TALK TO HIM." 146 PRINT 147 PRINT "G. PUSH-THERE ARE OFTEN BUTTONS, OR PANEL BOARDS WITH NUMBER BOARDS ON" 148 PRINT " THEM IN ROOMS, AND HALLWAYS. TO PUSH THESE BUTTONS, TYPE PUSH " 149 PRINT " IF IT IS A SINGLE BUTTON, OR TYPE PUSH # (1-9999) IF IT IS A PANEL." 150 PRINT " TO GET NUMBER PASSWORDS TO PANELS, YOU CAN TALK TO PEOPLE, OR LISTEN" 151 PRINT " TO YOUR COMMUNICATOR. IF YOU WANTED TO TO TYPE 1279 INTO A PANEL YOU " 152 PRINT " WOULD TYPE PUSH 1279." 153 PRINT 154 PRINT "TO ACCESS THIS INFORMATION DURING GAME PLAY, TYPE DIRECT. TO GET A " 155 PRINT "QUICK VERSION OF THIS INFO. TYPE QDIRECT." 156 FOR T = 1 TO 150000: NEXT T 157 PRINT 158 PRINT "IN AREA 51, EACH ROOM HAS A NUMBER. THESE ROOMS ARE IMPORTANT FOR FINDING " 159 PRINT "THINGS THAT YOU HEAR ON YOUR COMMUNICATOR, OR FROM OTHER PEOPLE. THE ROOM" 160 PRINT "NUMBERS AREN'T IN ANY ORDER, ROOM 67 MIGHT BE RIGHT NEXT TO ROOM 12." 161 PRINT 162 PRINT "AFTER YOU GET THROUGH EACH FLOOR, YOU WILL BE GIVEN A CODE TO RETURN" 163 PRINT "TO THE BEGINNING OF THE FLOOR THAT YOU JUST BEAT." 167 PRINT 168 PRINT "STRATEGY- LIKE IN ALL ADVENTURE GAMES, YOU SHOULD MAKE A MAP AS YOU " 169 PRINT "GO ALONG. WRITE DOWN THE CONVERSATIONS YOU HAVE WITH PEOPLE, AND THE " 170 PRINT "ONES YOU INTERCEPT WITH YOUR COMMUNICATOR. YOUR PHOTON GUN WILL TEMPORARILY" 171 PRINT "KNOCK OUT A PERSON UNTIL YOU RETURN TO THAT ROOM. IF YOU SHOOT A PERSON" 172 PRINT "THAT IS VERY IMPORTANT, IT WILL SET OFF ALARMS, AND GAURDS WILL COME AND" 173 PRINT "ARREST YOU. TRY NOT TO GO INTO ROOMS WITH IMPORTANT PEOPLE, BECAUSE THEY" 174 PRINT "MIGHT SHOOT BACK, AND GET YOU ARRESTED." 175 FOR T = 1 TO 150000: NEXT T 176 PRINT 177 PRINT "TO QUIT THE PROGRAM ANY TIME TYPE QUIT." 178 PRINT 179 RETURN 185 REM *** QUICK DIRECTIONS 186 PRINT 187 PRINT " QUICK DIRECTIONS" 188 PRINT "A.VERBS-GO + N,S,E,W= LETS YOU WALK AROUND THE BUILDING." 189 PRINT " SHOOT + N,S,E,W= LETS YOU SHOOT AT SOMETHING WITH YOUR GUN." 190 PRINT " LOOK + NOUN= LETS YOU GET A MORE DETAILED LOOK AT SOMETHING." 191 PRINT " GO + #(1-5)= WHEN YOU ARE IN AN ELEVATOR LETS YOU GO TO A FLOOR." 192 PRINT " COM + #(1-2000)= LETS YOU LISTEN TO YOUR COMMUNICATOR." 193 PRINT " TALK= TYPE TALK TO TALK TO A PERSON IN A ROOM." 194 PRINT " PUSH (+ #1-9999)= TYPE THIS TO PRESS A BUTTON OR A PANEL." 195 PRINT "B.COMMANDS-DIRECT= LETS YOU VIEW THE DIRECTIONS." 196 PRINT " QDIRECT=LETS YOU VIEW THE QUICK DIRECTIONS." 197 PRINT " QUIT=LETS YOU QUIT THE GAME." 199 RETURN 200 REM *** PASSWORD 201 PRINT : PRINT "WELCOME TO THE PASSWORD ROOM. ENTER THE PASSWORD THAT YOU WERE GIVEN WHEN" 202 PRINT "AT THE END OF THE LEVEL." 203 PRINT : PRINT "WHAT IS YOUR PASSWORD"; : INPUT E$ 204 PRINT 205 REM *** !!!REMEMBER TO FINISH PASSWORD PROGRAM!!! 300 REM *** FLOOR 1 301 PRINT 302 PRINT "EARLY THIS MORNING, A NIGHT WATCHMAN WALKED BY YOUR JAIL CELL, AND TRIPPED." 303 PRINT "WHILE HE WAS DOWN, YOU QUICKLY GRABBED THE KEYS THAT HAD DROPPED OFF OF HIS" 304 PRINT "BELT. QUICKLY, YOU UNLOCKED THE LOCK TO YOUR JAIL CELL, AND KNOCKED DOWN THE" 305 PRINT "GAURD DOWN AGAIN. YOU QUICKLY PUSHED THE GAURD INTO YOUR CELL, AND LOCKED" 306 PRINT "THE DOOR. BEFORE YOU CONTINUED, YOU PICKED UP THE GAURDS TEMPORARY KNOCK-" 307 PRINT "GUN, AND HIS PERSONAL COMMUNICATOR. NOW YOU MUST ESCAPE FROM THE AREA 51" 308 PRINT "HEADQUARTERS BUILDING!!!" 309 PRINT 310 PRINT : PRINT "YOU ARE IN THE MAIN HALLWAY OF FLOOR 1. THE HALLWAY RUNS EAST TO WEST," 311 PRINT "THERE ARE THREE JAIL CELLS TO THE SOUTH. DIRECTLY TO THE SOUTH IS YOUR" 312 PRINT "OLD JAIL CELL WITH AN ANGRY GAURD IN IT, TO THE EAST ABOUT TEN FEET IS A" 313 PRINT "AND SOUTH THERE IS A JAIL CELL, AND TO THE WEST ABOUT TEN FEET, AND SOUTH" 314 PRINT "THERE IS ANOTHER JAIL CELL. AT THE END OF THE HALLS ON EACH SIDE THERE IS AN" 315 PRINT "CORNER, TURNING SOUTH." 316 PRINT : PRINT "NOW WHAT"; : INPUT A$ 317 IF A$ = "GO E" THEN 400 318 IF A$ = "GO W" THEN 410 319 GOSUB 320: GOTO 310 320 IF A$ = "GO N" THEN 342 321 IF A$ = "GO E" THEN 342 322 IF A$ = "GO W" THEN 342 323 IF A$ = "GO S" THEN 342 324 IF A$ = "SHOOT N" THEN 344 325 IF A$ = "SHOOT S" THEN 344 326 IF A$ = "SHOOT E" THEN 344 327 IF A$ = "SHOOT W" THEN 344 328 IF A$ = "GO 1" THEN 343 329 IF A$ = "GO 2" THEN 343 330 IF A$ = "GO 3" THEN 343 331 IF A$ = "GO 4" THEN 343 332 IF A$ = "GO 5" THEN 343 333 IF A$ = "GO 6" THEN 343 334 IF A$ = "GO 7" THEN 343 335 IF A$ = "PUSH" THEN 345 336 IF A$ = "TALK" THEN 346 337 IF A$ = "LOOK" THEN 347 338 IF A$ = "QUIT" THEN 348 339 IF A$ = "DIRECT" THEN 100 340 IF A$ = "QDIRECT" THEN 185 341 GOTO 349 342 PRINT : PRINT "YOU CAN'T GO THAT WAY.": GOTO 398 343 PRINT : PRINT "YOU ARE NOT ON AN ELEVATOR THAT SERVICES THAT FLOOR.": GOTO 398 344 PRINT : PRINT "THERE IS NOTHING TO SHOOT THERE.": GOTO 398 345 PRINT : PRINT "THERE IS NO BUTTON IN THIS ROOM.": GOTO 398 346 PRINT : PRINT "THERE IS NO ONE TO TALK TO.": GOTO 398 347 PRINT : PRINT "WHAT DO YOU WANT TO LOOK AT?": GOTO 398 348 PRINT : PRINT "GOODBYE!": END 349 IF A$ <> "LOOK PAD" THEN 351 350 GOTO 360 351 IF A$ = "COM 7655" THEN 710 352 IF A$ <> "COM 9334" THEN 356 353 GOSUB 720 355 RETURN 356 IF A$ = "COM 1234" THEN 359 357 IF A$ <> "QQKFP" THEN 357 358 PRINT : PRINT "THAT WON'T HELP.": GOTO 398 359 GOSUB 730: GOTO 398 360 GOTO 560 398 PRINT 399 RETURN 400 PRINT : PRINT "YOU ARE IN THE MAIN HALL WHICH RUNS EAST TO WEST. TO THE SOUTH THERE IS" 401 PRINT "A JAIL CELL WITH A MAN IN THE CORNER. HE IS STARING AT THE TV SCREEN OF HIS" 402 PRINT "PERSONAL TELEVISION. TO THE EAST IS A CORNER THAT TURNS TO THE SOUTH, AND TO" 403 PRINT "WEST, IS A HALLWAY THAT HAS A CORNER TURNING SOUTH, WITH TWO JAIL CELLS" 404 PRINT "TO THE SOUTH IN BETWEEN.": PRINT 405 PRINT "NOW WHAT"; : INPUT A$ 406 IF A$ = "GO S" THEN 420 407 IF A$ = "GO E" THEN 430 408 IF A$ = "GO W" THEN 310 409 GOSUB 320: GOTO 400 410 PRINT : PRINT "YOU ARE IN THE MAIN HALL WHICH RUNS EAST TO WEST. TO THE SOUTH THERE IS A" 411 PRINT "JAIL CELL WITH A MAN READING IN HIS ROOM. ON THE WALL, THERE IS A " 412 PRINT "PANEL. TO THE EAST THERE IS A CORNER WHICH TURNS TO THE SOUTH. BETWEEN WHERE" 413 PRINT "WHERE YOU ARE AND THE CORNER THERE ARE TWO JAIL CELLS. TO THE WEST THERE IS A" 414 PRINT "CORNER WHICH TURNS TO THE SOUTH.": PRINT 415 PRINT "WHAT NEXT"; : INPUT A$ 416 IF A$ = "GO S" THEN 440 417 IF A$ = "GO E" THEN 310 418 IF A$ = "GO W" THEN 450 419 GOSUB 320: GOTO 410 420 PRINT : PRINT "#16-YOU USE YOUR KEYS TO OPEN UP THE JAIL CELL. THE MAN IN THE JAIL CELL LOOKS " 421 PRINT "AT YOU, AND SMILES. 'I AM SAVED!! FINALLY SAVED!!' SAID THE MAN. ": PRINT 422 PRINT "NOW WHAT"; : INPUT A$ 423 IF A$ = "TALK" THEN 460 424 IF A$ = "SHOOT S" THEN 428 425 IF A$ = "GO N" THEN 400 426 IF A$ = "PUSH 1872" THEN 500 427 GOSUB 320: GOTO 420 428 GOSUB 470: GOTO 400 430 PRINT : PRINT "YOU ARE AT A CORNER IN THE MAIN HALL. TO THE WEST IS A HALL WAY WITH THREE" 431 PRINT "JAIL CELLS. TO THE SOUTH IS A HALLWAY THAT HAS ONE JAIL CELL, AND A CORNER" 432 PRINT "THAT TURNS TO THE WEST.": PRINT 433 PRINT "NOW WHAT"; : INPUT A$ 434 IF A$ = "GO S" THEN 480 435 IF A$ = "GO W" THEN 400 436 GOSUB 320: GOTO 430 440 PRINT : PRINT "#5-YOU OPEN THE JAIL CELL DOOR, AND THE MAN READING LOOKED AT YOU. 'WHAT ARE" 441 PRINT "YOU DOING HERE?' IN THE CORNER OF THE ROOM, THERE IS A PANEL ON THE WALL.": PRINT 442 PRINT "NOW WHAT"; : INPUT A$ 443 IF A$ = "TALK" THEN 490 444 IF A$ = "GO N" THEN 410 445 IF A$ = "SHOOT S" THEN 448 446 IF A$ = "PUSH 6399" THEN 500 447 GOSUB 320: GOTO 440 448 GOSUB 470: GOTO 410 450 PRINT : PRINT "YOU ARE AT A CORNER IN THE MAIN HALL. TO THE EAST IS A HALLWAY WITH THREE JAIL" 451 PRINT "CELLS, AND TO THE SOUTH IS A LONG HALLWAY WITH ANOTHER JAIL CELL AT THE END.": PRINT 452 PRINT "NOW WHAT"; : INPUT A$ 453 IF A$ = "GO E" THEN 410 454 IF A$ = "GO S" THEN 510 455 GOSUB 320: GOTO 450 460 PRINT : PRINT "'CAN YOU HELP ME?'" 461 PRINT "'YES. THE PANEL CODE TO THE OFFICIAL'S LOUNGE IS 4505.'" 462 GOTO 420 470 PRINT : PRINT "THE MAN LAYS KNOCKED OUT ON THE FLOOR." 471 RETURN 480 PRINT : PRINT "YOU ARE IN THE MAIN HALL BY A JAIL CELL. IN THE JAIL CELL, THERE IS A FAT" 481 PRINT "MAN SLEEPING. TO THE SOUTH THERE IS A CORNER THAT TURNS TO THE WEST, AND TO " 482 PRINT "AND TO THE NORTH THERE IS A CORNER THAT TURNS TO THE WEST. THE JAIL CELL IS TO " 483 PRINT "THE WEST.": PRINT 484 PRINT "NOW WHAT"; : INPUT A$ 485 IF A$ = "GO N" THEN 430 486 IF A$ = "GO S" THEN 520 487 IF A$ = "GO W" THEN 530 488 GOSUB 320: GOTO 480 490 PRINT : PRINT "'CAN YOU HELP ME?'" 491 PRINT "'NO, BUT YOU CAN USE MY PANEL ANYTIME. I DON'T KNOW THE CODE.'" 492 GOTO 440 500 PRINT : PRINT "#72-YOU TYPE THE PASSWORD INTO THE PANEL, AND THE WALL SLIDES OPEN. BEHIND" 501 PRINT "THE WALL, THERE IS A SMALL ROOM.IN THE ROOM, THERE IS A TABLE WITH A SMALL" 502 PRINT "NOTEPAD LAYING ON IT, AND A WOODEN CHAIR.": PRINT 503 PRINT "NOW WHAT"; : INPUT A$ 504 IF A$ = "GO N" THEN 440 505 IF A$ = "LOOK PAD" THEN 560 506 IF A$ = "PUSH" THEN 540 507 GOSUB 320: GOTO 500 510 PRINT : PRINT "YOU ARE STANDING IN FRONT OF A JAIL CELL WITH A MAN EATING HIS DAILY RATIONS" 511 PRINT "INSIDE. TO THE NORTH IS A LONG HALLWAY WITH A CORNER TURNING EAST AT THE END." 512 PRINT "THE MAN TURNS HIS HEAD AND LOOKS AT YOU. 'PSST. COME HERE, KID'...": PRINT 513 PRINT "NOW WHAT"; : INPUT A$ 514 IF A$ = "GO N" THEN 450 515 IF A$ = "GO S" THEN 550 516 GOSUB 320: GOTO 510 520 PRINT : PRINT "YOU ARE STANDING AT A CORNER IN THE MAIN HALL. TO THE NORTH, THERE IS A " 521 PRINT "A HALLWAY WITH A CORNER TURNING TO THE WEST, AND TO THE WEST, THERE IS A " 522 PRINT "HALLWAY WITH AN OFFICIALS LOUNGE AT THE END.": PRINT 523 PRINT "NOW WHAT"; : INPUT A$ 524 IF A$ = "GO N" THEN 480 525 IF A$ = "GO W" THEN 590 526 GOSUB 320: GOTO 520 530 PRINT : PRINT "#99-YOU USE YOUR KEY TO OPEN UP THE JAIL CELL, AND STEP INSIDE. IN THE" 531 PRINT "PROCESS, YOU WOKE UP THE SLEEPING FAT MAN. 'WHA... OH, I'VE BEEN EXPECTING YOU'": PRINT 532 PRINT "NOW WHAT"; : INPUT A$ 533 IF A$ = "GO E" THEN 480 534 IF A$ = "TALK" THEN 570 535 IF A$ = "SHOOT W" THEN 537 536 GOSUB 320: GOTO 530 537 GOSUB 470: GOTO 480 540 PRINT "CONGRATULATIONS!! YOU HAVE FOUND THE SECRET ELEVATOR TO ALL 7 FLOORS OF THE" 541 PRINT "BUILDING!!": PRINT : PRINT "WHAT FLOOR DO YOU WANT TO GO TO?"; : INPUT F$ 542 IF F$ = "GO 2" THEN 548 543 IF F$ = "GO 3" THEN 548 544 IF F$ = "GO 4" THEN 548 545 IF F$ = "GO 4" THEN 548 546 IF F$ = "GO 5" THEN 548 547 IF F$ = "GO 6" THEN 548 548 IF F$ = "GO 7" THEN 548: 549 PRINT "THESE FLOORS AREN'T COMPLETED YET, SORRY. THE LEVEL WILL RESTART.": GOTO 310 550 PRINT : PRINT "#801-YOU OPEN UP THE LOCK, AND STEP INSIDE. THE MAN PUTS DOWN A HOTDOG, AND " 551 PRINT "STEPS CLOSER TO YOU.": PRINT 552 PRINT "NOW WHAT"; : INPUT A$ 553 IF A$ = "GO N" THEN 510 554 IF A$ = "TALK" THEN 580 555 IF A$ = "SHOOT S" THEN 557 556 GOSUB 320: GOTO 550 557 GOSUB 470: GOTO 510 560 PRINT : PRINT "SCRAWLED ON THE PAD ARE THE PANEL CODES OF ALL OF THE 2ND FLOOR PANELS." 561 REM *** PUT LEVEL TWO CODES HERE!!!! 568 PRINT "YOU CAN READ THIS PAD ANY TIME BY TYPING LOOK PAD." 569 RETURN 570 PRINT : PRINT "'CAN YOU HELP ME?'" 571 PRINT "'YES. THE LEVEL 1 ELEVATOR CODE IS 3349.'" 572 GOTO 530 580 PRINT : PRINT "'CAN YOU HELP ME?'" 581 PRINT "'YOU MUST FIND THE PAD TO PASS FLOOR 2. THE PANEL CODE IS ON THE 5TH FLOOR." 582 GOTO 550 590 PRINT : PRINT "YOU ARE NOW STANDING IN FRONT OF THE OFFICIAL'S LOUNGE. BEHIND YOU IS A HALL" 591 PRINT "RUNNING EAST, WHICH HAS A CORNER TURNING TO THE NORTH. THE OFFICIALS LOUNGE" 592 PRINT "IS TO THE WEST.": PRINT 593 PRINT "NOW WHAT"; : INPUT A$ 594 IF A$ = "GO W" THEN 600 595 IF A$ = "GO E" THEN 520 596 GOSUB 320: GOTO 580 600 PRINT : PRINT "#4444-YOU ARE STANDING IN THE OFFICIALS LOUNGE. ON THE WALL, THERE IS" 601 PRINT "A PANEL. IN THE CORNER, THERE IS AN OLD COUCH, A COMPUTER, AND " 602 PRINT "A WASTEBASKET.": PRINT 603 PRINT "NOW WHAT"; : INPUT A$ 604 IF A$ = "GO E" THEN 590 605 IF A$ = "PUSH 4505" THEN 620 606 IF A$ <> "LOOK COMPUTER" THEN 608 607 PRINT : PRINT "ON THE COMPUTER'S MONITOR, IT SAYS JOE- LISTEN TO FREQUENCY 9344.-BOB": GOTO 600 608 IF A$ <> "LOOK WASTEBASKET" THEN 611 609 PRINT : PRINT "THE WASTEBASKET IS ALMOST EMPTY, EXCEPT FOR ONE CRUMPLED UP PAPER IN THE" 610 PRINT "BOTTOM.": GOTO 600 611 IF A$ <> "LOOK COUCH" THEN 613 612 PRINT : PRINT "THE COUCH IS A NORMAL, WORN OUT COUCH. NOTHING SPECIAL ABOUT IT.": GOTO 600 613 IF A$ <> "LOOK PAPER" THEN 615 614 GOTO 630 615 GOSUB 320: GOTO 600 620 PRINT : PRINT "A DOOR IN THE WALL SLIDES OPEN, AND YOU STEP IN. IT REVEALS A HALLWAY RUNNING " 621 PRINT "NORTH TO SOUTH. AT THE NORTH END OF THE CORRIDOR, THERE IS AN OFFICIAL WALKING" 622 PRINT "TOWARDS YOU, AND HE IS ARMED! TO THE EAST, THERE IS A DOOR LEADING TO ANOTHER HALLWAY": PRINT 623 PRINT "NOW WHAT"; : INPUT A$ 624 IF A$ = "SHOOT N" THEN 629 625 IF A$ = "GO E" THEN 640 626 IF A$ = "GO S" THEN 600 627 IF A$ = "TALK" THEN 700 628 GOSUB 320: GOTO 695 629 GOSUB 470: GOTO 695 630 PRINT : PRINT "WHEN YOU PICK UP THE PAPER, YOU REVEAL A SMALL RED BUTTON. ON THE " 631 PRINT "PAPER, THERE WAS A CODED MESSAGE:" 632 PRINT " ISDNGMTIDHFJEMBFYJIFHFIITDMHBBFNKLPEOJMOBCRCR" 633 PRINT " EKKLBNEXCVDGAYOTBNOMMR,HGTJJHREEMVRASENBAFGRBNE" 634 PRINT " JKTBNWMHOGIDFJOEEOXDRFHS.": PRINT 635 PRINT "NOW WHAT"; : INPUT A$ 636 IF A$ = "PUSH" THEN 650 637 GOTO 604 640 PRINT : PRINT "YOU ARE IN A HALL RUNNING NORTH TO SOUTH. ON THE NORTH END, THERE IS A SIGN," 641 PRINT "AND ON THE SOUTH END, THERE IS AN EMPTY ROOM WITH A SIGN BESIDE THE DOOR." 642 PRINT "HALF WAY DOWN THE HALL TO THE NORTH IS A DOOR AND A PANEL.": PRINT 643 PRINT "NOW WHAT"; : INPUT A$ 644 IF A$ = "GO N" THEN 660 645 IF A$ = "GO S" THEN 670 646 IF A$ = "GO W" THEN 620 647 GOSUB 320: GOTO 640 650 PRINT : PRINT "A LARGE SECTION OF THE WALL SLID OUT OF THE WAY, AND REVEALED A STAIRCASE." 651 PRINT "THE STAIRCASE LED UP TO THE THIRD FLOOR. (TO GO UP THE STAIRS JUST TYPE GO.)"; : INPUT A$ 652 IF A$ <> "GO" THEN 604 653 REM *** CONNECT TO FLOOR 3!!! 654 PRINT "SORRY, FLOOR 3 IS NOT COMPLETED YET. YOU WILL BE SENT TO THE OFFICIAL'S LOUNGE." 655 GOTO 600 660 PRINT : PRINT "YOU ARE STANDING BESIDE THE ELEVATOR DOOR AND PANEL. TO THE NORTH IS" 661 PRINT "A SIGN ON THE WALL, AND TO THE SOUTH, THERE IS A DOOR, WITH A SIGN BESIDE IT.": PRINT 662 PRINT "NOW WHAT"; : INPUT A$ 663 IF A$ = "PUSH 3349" THEN 680 664 IF A$ = "GO N" THEN 690 665 IF A$ = "GO S" THEN 640 666 GOSUB 320: GOTO 660 670 PRINT : PRINT "YOU ARE STANDING IN FRONT OF THE DOOR OF AN EMPTY ROOM WITH A SIGN NEXT TO IT." 671 PRINT "THE SIGN SAYS . THE DOOR IS TO THE SOUTH.": PRINT 672 PRINT "NOW WHAT"; : INPUT A$ 673 IF A$ = "GO S" THEN 676 674 IF A$ = "GO N" THEN 640 675 GOSUB 320: GOTO 670 676 PRINT : PRINT "YOU ENTER THE ROOM, AND THE DOOR SHUTS BEHIND YOU. YOU'RE TRAPPED!" 677 PRINT "THREE HOURS LATER, YOU RUN OUT OF OXYGEN TO BREATH, AND DIE." 678 PRINT " GAME OVER": PRINT 679 GOTO 40 680 PRINT : PRINT "THE ELEVATOR DOOR SLIDES OPEN, AND YOU GET IN. THIS ELEVATOR ONLY GOES" 681 PRINT "ONE WAY, AND TAKES YOU TO THE FIFTH FLOOR." 682 REM *** !!!SET UP AFTER LEVEL 5 IS COMPLETE!!! 683 GOTO 40 690 PRINT : PRINT "YOU ARE STANDING AT THE NORTH END OF THE HALL. IN FRONT OF YOU, THERE IS A" 691 PRINT "SIGN THAT SAYS: DO NOT USE FREQUENCY 7655!! TO YOUR SOUTH, IS THE ELEVATOR DOOR.": PRINT 692 PRINT "NOW WHAT"; : INPUT A$ 693 IF A$ = "GO S" THEN 660 694 GOSUB 320: GOTO 690 695 PRINT : PRINT "YOU ARE STANDING IN A HALLWAY RUNNING FROM NORTH TO SOUTH. TO THE SOUTH, " 696 PRINT "IS THE OFFICIAL'S LOUNGE, AND TO THE NORTH THERE IS AN ARMED OFFICIAL, AND " 697 PRINT "TO THE EAST, THERE IS A DOOR TO ANOTHER HALLWAY PARRALLEL TO THIS ONE": PRINT 698 GOTO 623 700 PRINT : PRINT "'CAN YOU HELP ME?'" 701 PRINT "'NO, I AM AN ESCAPED PRISONER. I STOLE A GAURDS SUIT. YOU CAN COMMUNICATE WITH" 702 PRINT "ME ON FREQUENCY 1234.'" 703 GOTO 695 710 PRINT : PRINT "THIS FREQUENCY IS DANGEROUS!! GET OUT IMMEDIATELY!! WILL SELF DE...": PRINT 711 PRINT "BEFORE YOU HAD THE CHANCE TO TURN OFF YOUR COMMUNICATOR, YOU WERE BLOWN TO" 712 PRINT "SMITHEREENS!!" 713 PRINT " GAME OVER" 714 GOTO 40 720 PRINT : PRINT "HELLO, BUILDING DIRECTORY. WHAT EXTENSION WOULD YOU LIKE?"; : INPUT G$ 728 PRINT : PRINT "I'M SORRY, THAT EXTENSION IS NO LONGER ACTIVE." 729 RETURN 730 PRINT "'I DIDN'T THINK THAT YOU WOULD CALL. I HEAR THAT THE WAY OUT IS ON THE 7TH FLOOR'": PRINT 736 GOTO 741 737 PRINT "'MEET ME ON THE 2ND FLOOR. I'M IN A SECRET ROOM WITH A PANEL CODE OF 4578.'" 738 GOTO 741 739 PRINT "I'M STILL IN THE SECOND FLOOR SECRET ROOM. COME AND FIND ME!!" 741 RETURN