1 REM ===== CAVERN OF MORLOCKS ===== 2 REM Author : FRANCOIS COULON 3 REM L'OI HS 77 - Decembre 1985 4 REM English version for MC-10 : JIM GERRIE 5 REM Adapted to Apple II : DOMINIQUE RIOUAL 6 REM Version 1.0 - 28th July 2018 7 REM 8 REM 9 REM 10 TEXT : HOME 20 VTAB 3 : HTAB 15 : PRINT "THE CAVERN OF" 25 HTAB 8 : PRINT "* T H E M O R L O C K S *" : GOSUB 12000 30 PRINT : PRINT:PRINT"By Francois Coulon,":PRINT "L'Ordinateur Individuel Hors Serie 77" 35 PRINT "Decembre 1985." 36 PRINT : PRINT "English version for MC-10" : PRINT "By Jim Gerrie" 37 PRINT : PRINT "Adapted to Apple II by D. Rioual,":PRINT "July 2018." 40 DIM A(6,10),A$(6,10) 45 X1 = INT(RND(1)*6) + 1 : Y1 = INT(RND(1)*10) + 1 50 X3 = INT(RND(1)*6) + 1 : Y3 = INT(RND(1)*10) + 1 : IF X3 = 2 AND Y3 = 8 THEN 50 45 X1 = RND (6):Y1 = RND (10) 50 X3 = RND (6):Y3 = RND (10): IF X3 = 2 AND Y3 = 8 THEN 50 60 X = 1:Y = 1 70 FOR X2 = 1 TO 6: FOR Y2 = 1 TO 10: READ A$(X2,Y2): NEXT Y2 : NEXT X2 80 PRINT : PRINT : PRINT "DO YOU WANT TO SEE THE RULES?"; 90 GOSUB 4970: PRINT : IF FL = 0 THEN 370 100 HOME : PRINT " ------* RULES OF THE GAME *-----" 110 VTAB 5 120 M$ = "APRIL 18, 1934. YOU ARE IN THE JUNGLE. YOU ARRIVE AT THE ENTRY OF A CAVE." 130 GOSUB 11000 140 PRINT : PRINT 150 M$ = "THIS IS THE DEN OF HORRIBLE MORLOCKS WHERE THEY KEEP ALL THEIR PRISONERS. YOU DECIDE TO ATTEMPT TO RESCUE THEM AND DESCEND..." 160 GOSUB 11000 : GOSUB 10000 200 M$ = "AT EACH STAGE THE COMPUTER WILL DESCRIBE THE ROOM YOU ARE IN AND YOU MAY THEN ALSO BE POSED A QUESTION WHICH YOU CAN ANSWER WITH A YES OR NO (Y OR N)." 210 GOSUB 11000 : GOSUB 10000 260 M$= "YOU WILL THEN BE ABLE TO CHOOSE A DIRECTION YOU WANT TO GO:N, S, E, OR W." 270 GOSUB 11000 280 PRINT : PRINT 310 M$ = "TO GET AN INVENTORY OF ITEMS YOU ARE CARRYING, TYPE I. THEY CAN BE HELPFUL OR HARMFUL." 320 GOSUB 11000 340 VTAB 12 : HTAB 16 350 PRINT "GOOD LUCK!": PRINT : GOSUB 10000 370 GOTO 550 380 XX = X:YY = Y 390 PRINT 400 PRINT "WHICH DIRECTION DO YOU CHOOSE?" 410 GET D$ 420 IF D$ = "I" THEN PRINT D$: GOTO 5040 430 IF D$ < > "N" AND D$ < > "S" AND D$ < > "E" AND D$ < > "W" THEN 410 440 F1 = 1 450 FOR ZZ = 1 TO LEN (A$(X,Y)): IF MID$ (A$(X,Y),ZZ,1) = D$ THEN F1 = 0 460 NEXT ZZ 470 IF F1 = 1 THEN PRINT : PRINT "YOU CANNOT GO THAT DIRECTION":X = XX:Y = YY: GOTO 400 490 IF D$ = "N" THEN D$ = "NORTH":Y = Y + 1 500 IF D$ = "S" THEN D$ = "SOUTH":Y = Y - 1 510 IF D$ = "W" THEN D$ = "WEST":X = X - 1 520 IF D$ = "E" THEN D$ = "EAST":X = X + 1 525 REM 530 PRINT D$ 540 GOSUB 12000 550 DD$ = "" 560 FOR ZZ = 1 TO LEN (A$(X,Y)):G$ = MID$ (A$(X,Y),ZZ,1): GOSUB 5440:DD$ = DD$ + G$ + " ": NEXT ZZ 570 PRINT "POSSIBLE DIRECTIONS:": PRINT : PRINT TAB(8);DD$: PRINT 580 IF NOT (X = 1 AND Y = 1) THEN 660 590 M$ = "A ROOM THAT IS COVERED IN BLOOD. THREE CORPSES ARE SPREAD ON THE GROUND.": GOSUB 11000 600 IF CO THEN 660 620 M$ = "A KNIFE IS STILL PLANTED IN THE BREAST OF ONE OF THEM.": GOSUB 11000 640 PRINT "DO YOU TAKE THE KNIFE?" 650 GOSUB 4970: IF FL THEN CO = 1 660 IF NOT (X = 1 AND Y = 2) THEN 710 670 M$ = "A MORLOCK RUNS TOWARDS YOU PREPARING TO ATTACK...": GOSUB 11000 690 IF CO = 1 THEN PRINT "YOU KILL IT WITH YOUR KNIFE!": GOTO 710 700 M$ = "YOU'VE BEEN STRANGLED. THIS IS THE END...": GOSUB 11000: GOTO 5210 710 IF NOT (X = 1 AND Y = 3) THEN 770 720 M$ = "A SKELETON SITS IN A CORNER OF THIS AREA. HE ASKS YOU YOUR NAME!": GOSUB 11000 740 PRINT "DO YOU RESPOND TO HIM?" 750 GOSUB 4970: IF FL THEN M$ = "YOU FEEL YOURSELF TURNING INTO A MORLOCK!": GOSUB 11000: GOTO 5210 760 PRINT "NOTHING HAPPENS ..." 770 IF NOT (X = 1 AND Y = 4) THEN 860 780 M$ = "A BEAUTIFUL GIRL STANDS BEFORE YOU. SHE IS A SLAVE.": GOSUB 11000 790 IF BI = 1 THEN 860 810 M$ = "SHE SAYS 'TAKE THIS GEM, IT WILL HELP YOU IN YOUR QUEST.'": GOSUB 11000 830 PRINT "DO YOU TAKE THIS JEWEL?" 840 GOSUB 4970: IF FL = 1 THEN BI = 1:M$ = "SHE LOOKS AT YOU WITHOUT SAYING ANYTHING, BUT HER EYES IMPLORE YOU.": GOSUB 11000 850 IF BI = 0 THEN M$ = "SHE SITS LOOKING SAD, PERHAPS BECAUSE SHE BELIEVES THAT WITHOUT THE JEWEL YOU ARE RISKING YOUR LIFE.": GOSUB 11000 860 IF NOT (X = 1 AND Y = 5) THEN 910 870 M$ = "A TABLE TOP. ON IT A MESSAGE TELLS YOU NOT TO FEAR THE NOISE, SNAKES AND THAT THE TREASURE MUST BE OPEN.": GOSUB 11000 910 IF NOT (X = 1 AND Y = 6) THEN 970 920 M$ = "SOME INSCRIPTIONS ARE PAINTED ON THE WALLS AS WELL AS DESIGNS THAT SEEM PREHISTORIC.": GOSUB 11000 950 PRINT "EXAMINE THE INSCRIPTIONS?" 960 GOSUB 4970: IF FL = 1 THEN PRINT "NOTHING SPECIAL." 970 IF NOT (X = 1 AND Y = 7) THEN 1040 980 PRINT "ELVES DANCE AROUND A WELL..." 990 M$ = "THEY ARE VERY HAPPY AND INVITE YOU TO WATCH.": GOSUB 11000 1010 PRINT "DO YOU WATCH?" 1020 GOSUB 4970: IF FL = 1 THEN M$ = "THEY RUSH AT YOU CHEERFULLY...": GOSUB 11000: GOTO 5210 1030 PRINT "THEY CONTINUE THEIR DANCE..." 1040 IF NOT (X = 1 AND Y = 8) THEN 1110 1050 IF VD = 1 THEN PRINT "AN EMPTY CRYPT.": GOTO 1110 1060 M$ = "A VAMPIRE STANDS BEFORE YOU. HE IS DETERMINED TO MAKE A GOOD MEAL OF YOU...": GOSUB 11000 1070 IF AI = 1 THEN M$ = "HE NOTICES THE GARLIC THAT YOU HOLD AND DROPS DEAD...":VD = 1: GOSUB 11000: GOTO 1110 1080 M$ = "DESPITE A STRONG RESISTANCE (I.E. YOUR TOUGH SKIN) HE BITES YOU AND SUCKS YOUR BLOOD. IT'S OVER, GOODBYE...": GOSUB 11000 1100 GOTO 5210 1110 IF NOT (X = 1 AND Y = 9) THEN 1210 1120 M$ = "YOU SUDDENLY FIND YOURSELF FACE TO FACE WITH YOUR PERFECT DOUBLE WHO ASKS IF YOU'RE OKAY.": GOSUB 11000 1150 PRINT "ARE YOU OKAY?" 1160 GOSUB 4970: IF FL = 1 THEN M$ = "HE RESPONDS: ME TOO, IT'S GOING WELL.'": GOSUB 11000: GOTO 1210 1170 M$ = "YOU SEE YOUR DOUBLE AGE RAPIDLY! LOOKING AT YOUR HANDS YOU UNDERSTAND THAT YOU ARE DOING THE SAME!": GOSUB 11000 1190 M$ = "TEN SECONDS LATER YOU'VE BECOME A SKELETON...": GOSUB 11000: GOTO 5210 1210 IF NOT (X = 1 AND Y = 10) THEN 1300 1220 M$ = "A CRYSTAL ORB IN WHICH YOU CAN SEE A VIEW OF THE JUNGLE.": GOSUB 11000 1230 IF MR = 0 THEN 1300 1240 M$ = "WILL YOU TRY TO BREAK THE ORB WITH YOUR HAMMER IN A BID TO ESCAPE?": GOSUB 11000 1260 GOSUB 4970: IF FL = 0 THEN 1300 1270 M$ = "IN THIS JUNGLE THERE IS AN UNBREATHABLE ATMOSPHERE, YOU DIE OF SUFFOCATION.": GOSUB 11000 1290 GOTO 5210 1300 IF NOT (X = 2 AND Y = 1) THEN 1360 1310 M$ = "A VOICE TELLS YOU 'PRESS THE GREEN BUTTON TO KNOW MORE.'": GOSUB 11000 1330 PRINT "DO YOU TAP THE BUTTON?" 1340 GOSUB 4970: IF FL = 1 THEN M$ = "SHE RESPONDS 'IT JUST SAVED YOUR LIFE.'": GOSUB 11000 1350 IF FL = 0 THEN M$ = "WATER FILLS THE ROOM, THE EXITS ARE BLOCKED. YOU ARE DROWNED...": GOSUB 11000: GOTO 5210 1360 IF NOT (X = 2 AND Y = 2) THEN 1410 1370 M$ = "YOU ARE IN A LONG CORRIDOR. THE WALLS ARE LINED WITH TORCHES.": GOSUB 11000 1390 PRINT "WILL YOU TAKE ONE?" 1400 GOSUB 4970: IF FL = 1 THEN TR = 1 1410 IF NOT (X = 2 AND Y = 3) THEN 1450 1420 IF TR = 0 THEN M$ = "A DARK CAVE. YOU CANNOT FIND AN EXIT. YOU STAY ENTOMBED FOREVER...": GOSUB 11000: GOTO 5210 1430 M$ = "A HUGE ROOM LIT DIMLY BY YOUR TORCH.": GOSUB 11000 1450 IF NOT (X = 2 AND Y = 4) THEN 1550 1460 M$ = "A STRANGE MACHINE... INSIDE, THERE IS A RED LEVER.": GOSUB 11000 1480 PRINT "TRY TO USE THIS MACHINE?" 1490 GOSUB 4970: IF FL = 0 THEN 1550 1500 M$ = "IT CAN DISAPPEAR AND REAPPEAR IN ANOTHER ROOM AT RANDOM...": GOSUB 11000 1530 FOR JH = 1 TO 1500: NEXT JH:X = RND (5) + 1:Y = RND (9) + 1 1540 GOTO 540 1550 IF NOT (X = 2 AND Y = 5) THEN 1620 1560 M$ = "YOU ARE IN A ROOM WHERE YOU FIND AN ANVIL AND TOOLS.": GOSUB 11000 1580 IF MR = 1 THEN 1620 1590 PRINT "YOU NOTICE A HAMMER." 1600 PRINT "DO YOU TAKE THIS HAMMER?" 1610 GOSUB 4970: IF FL = 1 THEN MR = 1 1620 IF NOT (X = 2 AND Y = 6) THEN 1690 1630 M$ = "A LARGE GREENHOUSE FILLED WITH FLOWERS YOU HAVE NEVER SEEN BEFORE...": GOSUB 11000 1640 PRINT "DO YOU LINGER HERE?" 1660 GOSUB 4970: IF FL = 0 THEN 1690 1670 M$ = "THE DOOR OF THE DUNGEON OPENS UNDER YOUR FEET. TOO BAD...!": GOSUB 11000 1680 GOTO 5210 1690 IF NOT (X = 2 AND Y = 7) THEN 1740 1700 M$ = "YOU ARE IN A ROOM WHERE YOU FIND A TRAPDOOR.": GOSUB 11000 1710 PRINT "DO YOU TRY TO OPEN IT?" 1730 GOSUB 4970: IF FL = 1 THEN M$ = "SOME RATS COME OUT...": GOSUB 11000 1740 IF NOT (X = 2 AND Y = 8) THEN 1790 1750 M$ = "YOU NOTICE A NEWSPAPER FROM 1835 WHICH CONTAINS A CLUE LEADING YOU TO A SECRET PASSAGE.": GOSUB 11000 1770 PRINT "DO YOU FOLLOW IT?" 1780 GOSUB 4970: IF FL = 1 THEN X = X3:Y = Y3: GOTO 540 1790 IF NOT (X = 2 AND Y = 9) THEN 1850 1800 M$ = "TWO MORLOCKS ARE ABOUT TO POUNCE ON YOU!": GOSUB 11000 1810 IF TR = 1 THEN M$ = "BUT THEY ARE TOO AFRAID OF THE FIRE OF YOUR TORCH.": GOSUB 11000: GOTO 1850 1820 IF CO = 1 THEN M$ = "DESPITE YOUR KNIFE, THEY MANAGE TO KILL YOU.": GOSUB 11000: GOTO 5210 1830 IF MR = 1 THEN M$ = "YOU KILL THE FIRST WITH YOUR HAMMER BUT THE SECOND IS TOO STRONG FOR YOU.": GOSUB 11000: GOTO 5210 1840 M$ = "UNARMED, YOU COULD NOT DO ANYTHING... YOU ARE DEAD!": GOSUB 11000 1850 IF NOT (X = 2 AND Y = 10) THEN 1890 1860 M$ = "A ROBOT SAYS TO YOU 'AIAHABAYAOADATAY'": GOSUB 11000 1870 IF CS = 1 THEN M$ = "YOU HAVE THE KEY FOR THE SECRET CODE, BUT SOMEONE ARRIVES, YOU MUST FLEE WITHOUT TRANSLATING IT.": GOSUB 11000 1875 IF CS = 0 THEN M$ = "OF COURSE, WITHOUT THE KEY CODE, IT IS IMPOSSIBLE TO DECIPHER THE MESSAGE...": GOSUB 11000 1890 IF NOT (X = 3 AND Y = 1) THEN 1980 1900 M$ = "YOU ARE IN A ROOM WHERE THREE WOLVES ATTACK YOU.": GOSUB 11000 1920 IF TR = 1 THEN M$ = "FORTUNATELY, THEY ARE AFRAID OF YOUR TORCH.": GOSUB 11000: GOTO 1980 1930 M$ = "YOU REALIZE THE LEASHES ATTACHED TO THEM ARE NOT LONG ENOUGH TO KEEP THEM FROM REACHING YOU! " 1940 M$ = M$ + "THEY DEVOUR YOU... TOO BAD FOR YOU!": GOSUB 11000 1950 GOTO 5210 1980 IF NOT (X = 3 AND Y = 2) THEN 2010 1990 M$ = "YOU ARE IN A ROOM WITH A DEEP WELL.": GOSUB 11000 2000 IF TR = 1 THEN M$ = "YOU TRIP AND DROP YOUR TORCH IN THE WATER.": GOSUB 11000:TR = 0 2010 IF NOT (X = 3 AND Y = 3) THEN 2110 2020 PRINT "A HENRI II BUFFET" 2030 IF AI = 1 THEN 2070 2040 M$ = "A CLOVE OF GARLIC HAS BEEN LEFT HERE.": GOSUB 11000 2050 PRINT "DO YOU TAKE THE GARLIC?" 2060 GOSUB 4970: IF FL = 1 THEN AI = 1 2070 IF AZ = 1 THEN 2110 2080 M$ = "THERE IS ALSO A BOOK ENTITLED: 'COOKING FROM A TO Z'": GOSUB 11000 2090 PRINT "DO YOU TAKE THIS BOOK?" 2100 GOSUB 4970: IF FL = 1 THEN AZ = 1 2110 IF NOT (X = 3 AND Y = 4) THEN 2220 2120 M$ = "YOU ARE IN A DARK ROOM WITH A CHEST WITH A HEAVY PADLOCK": GOSUB 11000 2150 PRINT "DO YOU WANT TO OPEN IT?" 2160 GOSUB 4970: IF FL = 0 THEN 2220 2170 IF MR = 0 THEN PRINT "YOU CAN'T OPEN IT..." 2180 IF MR = 1 THEN M$ = "HURRAY! THE TRUNK IS OPEN BUT MORLOCKS STARTLED BY THE NOISE BURST INTO THE " 2190 IF MR = 1 THEN M$ = M$ + "ROOM AND SLIT YOUR THROAT.": GOSUB 11000: GOTO 5210 2220 IF NOT (X = 3 AND Y = 5) THEN 2300 2230 M$ = "A FOUNTAIN IN THE SHAPE OF A LION.": GOSUB 11000 2240 IF BI = 0 THEN FL = 0: GOTO 2290 2250 M$ = "YOU NOTICE A SMALL HOLE THAT WOULD PERFECTLY FIT YOUR JEWEL.": GOSUB 11000 2270 PRINT "SET THE JEWEL IN THE HOLE?" 2280 GOSUB 4970: IF FL = 1 THEN M$ = "THE FOUNTAIN SEEMS TO SPEAK. YOU HEAR A VOICE SAYING 'YOU'RE LUCKY'": GOSUB 11000 2285 PRINT "RETRIEVE YOUR JEWEL?": GOSUB 4970 2290 IF FL = 0 THEN M$ = "YOU'RE HIT BY A JET OF BOILING WATER... YOU ARE DEAD.": GOSUB 11000: GOTO 5210 2300 IF NOT (X = 3 AND Y = 6) THEN 2360 2310 M$ = "YOU ARE IN A ROOM WITH OIL ALL OVER THE FLOOR. THERE IS A STRONG SMELL OF GAS.": GOSUB 11000 2330 PRINT "DO YOU LINGER IN THIS ROOM?" 2340 GOSUB 4970: IF FL = 1 AND TR = 1 THEN M$ = "THERE'S A POWERFUL EXPLOSION (YOUR TORCH!). YOU'RE DEAD.": GOSUB 11000 2350 PRINT "YOU SEE NOTHING OF INTEREST." 2360 IF NOT (X = 3 AND Y = 7) THEN 2460 2370 M$ = "A MORLOCK COOK LOOKS AT YOU STRANGELY...": GOSUB 11000 2390 IF AZ = 0 THEN 2440 2400 M$ = "SHE TEARS YOUR COOKBOOK FROM YOUR HANDS AND LOOKS AT THE PAGE ON CARROTS HOMMEAUX.": GOSUB 11000 2410 M$ = "NEEDLESS TO SAY, YOU WILL DIE.": GOSUB 11000: GOTO 5210 2440 M$ = "THERE IS A GLIMMER OF DISAPPOINTMENT IN HER BIG BLACK EYES...": GOSUB 11000 2460 IF NOT (X = 3 AND Y = 8) THEN 2500 2470 M$ = "A VOICE TELLS YOU 'YOU HAVE BEFORE YOU A POTION.'": GOSUB 11000 2480 PRINT "DO YOU DRINK IT?" 2490 GOSUB 4970: IF FL = 1 THEN PRINT "NOTHING..." 2500 IF NOT (X = 3 AND Y = 9) THEN 2550 2510 M$ = "A LONG ROOM WHERE MANY SKELETONS ARE CRAMMED. SMELLS VERY BAD.": GOSUB 11000 2520 M$ = "APART FROM THAT, THERE ARE ALSO SOME SPIDERS.": GOSUB 11000 2550 IF NOT (X = 3 AND Y = 10) THEN 2620 2560 M$ = "A LONG CORRIDOR... A MAN ASKS: 'HAVE YOU THE MESSAGE?'": GOSUB 11000 2580 IF ME = 0 THEN M$ = "AS YOU DO NOT, HE CALLS THE GUARDS WHO SLAUGHTER YOU...": GOSUB 11000: GOTO 5210 2590 M$ = "FORTUNATELY, YOU SHOW HIM AND HE WHISPERS IN YOUR EAR": GOSUB 11000 2600 M$ = "'IT'S A HARD LIFE BEING AN ARTIST.'": GOSUB 11000 2620 IF NOT (X = 4 AND Y = 1) THEN 2690 2630 M$ = "YOU ARE IN A LIBRARY WITH BOOKS FULL OF DUST...": GOSUB 11000 2650 IF ME THEN 2690 2660 M$ = "YOU NOTICE AN INCOMPREHENSIBLE MESSAGE.": GOSUB 11000 2670 PRINT "WILL YOU MEMORIZE IT?" 2680 GOSUB 4970: IF FL = 1 THEN ME = 1 2690 IF NOT (X = 4 AND Y = 2) THEN 2740 2700 M$ = "A CELL WITH SLAVES BOUND IN IRON CHAINS... " 2710 M$ = M$ + "THEY BEG YOU TO DELIVER THEM.": GOSUB 11000 2720 PRINT "DO YOU TRY?" 2730 GOSUB 4970: IF FL = 1 THEN M$ = "HOW? MAYBE BY BITING THE CHAINS?": GOSUB 11000 2740 IF NOT (X = 4 AND Y = 3) THEN 2790 2750 M$ = "A SMALL EMPTY ROOM. IN A CORNER IS A SMALL PACKAGE.": GOSUB 11000 2770 PRINT "WILL YOU OPEN IT?" 2780 GOSUB 4970: IF FL = 1 THEN M$ = "UNFORTUNATELY, IT IS BOOBY-TRAPPED, YOU ARE SHREDDED IN THE BLAST.": GOSUB 11000: GOTO 5210 2790 IF NOT (X = 4 AND Y = 4) THEN 2830 2800 M$ = "YOU ARE INSIDE A SMALL DIMLY LIT CHAPEL. ON THE GROUND, SOME DEAD RATS...": GOSUB 11000 2830 IF NOT (X = 4 AND Y = 5) THEN 2950 2840 M$ = "YOU ARE IN FRONT OF A HUGE TREE TRUNK. GIVING IT A KICK, YOU REALIZE THAT IT IS HOLLOW.": GOSUB 11000 2880 PRINT "WILL YOU LOOK MORE CLOSELY?" 2890 GOSUB 4970: IF FL = 0 THEN 2950 2900 M$ = "THERE ARE THE REMAINS OF A BEEHIVE...": GOSUB 11000 2910 IF MI = 1 THEN 2950 2920 PRINT "WITH A LITTLE HONEY." 2940 PRINT "DO YOU TAKE SOME?": GOSUB 4970: IF FL = 1 THEN MI = 1 2950 IF NOT (X = 4 AND Y = 6) THEN 3040 2960 PRINT "AN EMPTY ROOM." 2970 IF CT = 1 THEN 3040 2980 M$ = "SUDDENLY YOU FEEL A KNIFE AT YOUR THROAT. YOU ARE ORDERED TO HAND OVER ALL YOUR GOLD.": GOSUB 11000 2990 IF GO = 0 THEN M$ = "YOU DON'T HAVE ANY, SO YOUR ATTACKER KILLS YOU.": GOSUB 11000: GOTO 5210 3000 M$ = "YOU DO... YOUR ATTACKER SAYS: 'YOU'RE LUCKY!' HE RUNS AWAY...": GOSUB 11000:GO = 0:CT = 1 3040 IF NOT (X = 4 AND Y = 7) THEN 3100 3050 M$ = "A HUGE BEAR IS READY TO ATTACK YOU.": GOSUB 11000 3060 IF MI = 0 THEN M$ = "HE JUMPS ON YOU AND EATS YOU...": GOSUB 11000: GOTO 5210 3070 M$ = "LUCKILY FOR YOU, IT'S THE HONEY HE EATS AND NOT YOU.": GOSUB 11000:MI = 0 3100 IF NOT (X = 4 AND Y = 8) THEN 3160 3110 PRINT "A SMALL ROOM WITH A CHEST." 3120 IF GO = 1 THEN 3160 3130 PRINT "THERE'S GOLD IN IT." 3140 PRINT "DO YOU TAKE IT?" 3150 GOSUB 4970: IF FL = 1 THEN GO = 1 3160 IF NOT (X = 4 AND Y = 9) THEN 3230 3170 M$ = "A ROOM WITH AN APPLE II ON A TABLE SITUATED IN THE MIDDLE OF THE ROOM. ON ITS SCREEN IS WRITTEN:": GOSUB 11000 3200 D = ABS (X - X1) + ABS (Y - Y1) 3210 M$ = "ONLY" + STR$ (D) + " MORE ROOM(S) AND YOU WIN. THERE IS ALSO A SOFTWARE GAME...": GOSUB 11000 3230 IF NOT (X = 4 AND Y = 10) THEN 3290 3240 M$ = "A HUGE IDOL... ON AN ALTAR OF SACRIFICE, A STATUE OF A MORLOCK.": GOSUB 11000 3260 PRINT "DO YOU TAKE IT WITH YOU?" 3280 GOSUB 4970: IF FL = 1 THEN ST = 1 3290 IF NOT (X = 5 AND Y = 1) THEN 3380 3300 M$ = "A MUDDY HALLWAY, LIT ONLY BY THE DAYLIGHT COMING A FROM FIREPLACE WITH AN OPENNING TO THE OUTSIDE.": GOSUB 11000 3330 PRINT "DO YOU LOOK IN THE FIREPLACE?" 3340 GOSUB 4970: IF FL = 0 THEN 3380 3350 M$ = "THE MORLOCKS SEIZE YOU WHILE YOU ARE LAYING ON THE STONE SURFACE... GOODBYE!": GOSUB 11000 3360 GOTO 5210 3380 IF NOT (X = 5 AND Y = 2) THEN 3480 3390 M$ = "A LARGE BANQUET HALL (ODD IN MORLOCK DEN). THERE IS A GOOD SMELL OF FOOD. YOU FEEL TIRED...": GOSUB 11000 3430 PRINT "DO YOU SIT?" 3440 GOSUB 4970: IF FL = 0 OR TR = 0 THEN 3480 3450 M$ = "YOU DOZE OFF. YOUR TORCH IGNITES THE ROOM. YOU PERISH IN A BEAUTIFUL FIRE...": GOSUB 11000: GOTO 5210 3480 IF NOT (X = 5 AND Y = 3) THEN 3550 3490 M$ = "A PLAYPEN FULL OF SHELLS AND SAND...": GOSUB 11000 3509 IF SB = 1 THEN 3529 3510 PRINT "DO YOU TAKE A BIT OF SAND?" 3520 GOSUB 4970: IF FL = 1 THEN SB = 1 3529 IF CQ = 1 THEN 3550 3530 PRINT "DO YOU TAKE ONE OF THE SHELLS?" 3540 GOSUB 4970: IF FL = 1 THEN CQ = 1 3550 IF NOT (X = 5 AND Y = 4) THEN 3640 3560 M$ = "YOU ARE IN FRONT OF A LARGE CLOCK THAT STILL SEEMS TO WORK AS A TICK CAN BE HEARD AS THE PENDULUM MOVES." 3570 GOSUB 11000 3600 PRINT "DO YOU KEEP WATCHING?" 3610 GOSUB 4970: IF FL = 0 THEN 3640 3620 M$ = "YOU REALIZE THAT THE HANDS MOVE IN REVERSE!": GOSUB 11000 3640 IF NOT (X = 5 AND Y = 5) THEN 3720 3650 M$ = "A SALON WITH CHAIRS ARRANGED AROUND A TABLE. (ODD FOR MORLOCKS!)": GOSUB 11000 3655 IF CS = 1 THEN GOTO 3720 3660 M$ = "IN THE CENTRE OF THE TABLE THERE'S A SHEET OF PAPER ON WHICH IS WRITTEN: 'SECRET CODE KEY'": GOSUB 11000 3700 PRINT "DO YOU TAKE THE PAPER?" 3710 GOSUB 4970: IF FL = 1 THEN CS = 1 3720 IF NOT (X = 5 AND Y = 6) THEN 3810 3730 M$ = "AN EMPTY ROOM EXCEPT FOR A FEW COCKROACHES...": GOSUB 11000 3740 IF CS = 0 THEN 3810 3750 M$ = "YOU HEAR A SCREAM BEHIND YOU: 'THE CODE KEY HAS DISAPPEARED!'": GOSUB 11000 3770 M$ = "A MAN SURPRISES YOU, HE SAYS YOU'RE A THIEF. HE KILLS YOU AND TAKES THE CODE KEY.": GOSUB 11000 3800 GOTO 5210 3810 IF NOT (X = 5 AND Y = 7) THEN 3900 3820 M$ = "A MAN, WHO LOOKS CHINESE, SAYS TO YOU: 'LOGIC IS THE ART OF IDENTIFYING WHAT IS HIDDEN.'": GOSUB 11000 3840 PRINT "DO YOU AGREE?" 3850 GOSUB 4970: IF FL THEN 3890 3860 M$ = "HE SAYS, 'BE DAMNED!' TENS OF MORLOCKS SURGE INTO THE ROOM AND KILL YOU.": GOSUB 11000: GOTO 5210 3890 M$ = "HE SAYS, 'YOU ARE VERY WISE'": GOSUB 11000 3900 IF NOT (X = 5 AND Y = 8) THEN 3960 3910 PRINT "A PHONOGRAPH...": IF DI = 1 OR RG = 1 THEN 3960 3920 M$ = "THERE IS ALSO TINO ROSSI'S DEBUT ALBUM.": GOSUB 11000 3940 PRINT "DO YOU TAKE THE RECORD?" 3950 GOSUB 4970: IF FL = 1 THEN DI = 1 3960 IF NOT (X = 5 AND Y = 9) THEN 3990 3970 M$ = "NOTHING, EXCEPT FETTERS, CERTAINLY FOR FUTURE SLAVES.": GOSUB 11000 3990 IF NOT (X = 5 AND Y = 10) THEN 4100 4000 M$ = "A TRANQUIL UNDERGROUND LAKE, THE WATER LOOKS VERY DIRTY. THERE IS ALSO A REVOLVER ON THE OTHER SIDE.": GOSUB 11000 4010 M$ = "IT IS POSSIBLE TO FETCH IT BY FOLLOWING THE LAKE'S EDGE.": GOSUB 11000 4050 PRINT "DO YOU DO THAT?" 4060 GOSUB 4970: IF FL = 0 THEN 4100 4070 M$ = "YOU SLIP ON A ROCK AND YOU FALL IN THE WATER. IT'S SO COLD THAT YOU ARE FROZEN IN THREE SECONDS.": GOSUB 11000 4090 GOTO 5210 4100 IF NOT (X = 6 AND Y = 1) THEN 4190 4110 M$ = "BEHIND YOU, YOU HEAR THE SOUND OF A SNAKE. YOU DO NOT HAVE TIME TO SAVE YOURSELF. IT BITES YOU ...": GOSUB 11000 4140 IF TR = 1 AND CO = 1 THEN 4160 4150 M$ = "YOU DIE IN TERRIBLE CONVULSIONS. FAREWELL...": GOSUB 11000: GOTO 5210 4160 M$ = "YOU CAUTERIZE THE WOUND WITH YOUR TORCH AND YOUR KNIFE. IT HURTS BUT YOU SURVIVE.": GOSUB 11000 4190 IF NOT (X = 6 AND Y = 2) THEN 4210 4200 M$ = "THE MONKS' CLOTHES ON HANGERS.": GOSUB 11000 4210 IF NOT (X = 6 AND Y = 3) THEN 4300 4220 M$ = "AN ASSEMBLY OF MONKS. THEY ALL CARRY TORCHES IN HAND. THEY ARE SITTING.": GOSUB 11000 4240 IF TR = 1 THEN 4280 4250 M$ = "ONE APPROACHES YOU. IT HAS A SKELETON FACE! IT SHOVES A DAGGER IN YOUR SIDE...": GOSUB 11000: GOTO 5210 4280 M$ = "THEY CRY TOGETHER: 'GREETINGS BROTHER!'": GOSUB 11000 4300 IF NOT (X = 6 AND Y = 4) THEN 4400 4310 M$ = "AN OLD RUSTY HANDLE. YOU CAN PULL TOWARDS YOU.": GOSUB 11000 4330 PRINT "DO YOU DO THAT?" 4340 GOSUB 4970: IF FL = 0 THEN 4400 4350 M$ = "PART OF THE FLOOR OPENS BENEATH YOUR FEET. YOU FALL INTO A PIT FULL OF SNAKES AND SPIDERS. " 4370 M$ = M$ + "YOU CANNOT GO BACK...": GOSUB 11000: GOTO 5210 4400 IF NOT (X = 6 AND Y = 5) THEN 4460 4410 PRINT "A ROOM FULL OF STONES." 4420 IF DI = 0 THEN 4460 4430 M$ = "SUDDENLY, YOU STUMBLE AND DROP YOUR TINO ROSSI RECORD. IT BREAKS.": GOSUB 11000 4450 DI = 0 4460 IF NOT (X = 6 AND Y = 6) THEN 4500 4470 M$ = "AN EMPTY ROOM WITH DIRTY GREY WALLS. A PARTICULARLY NAUSEOUS ODOR MAKES YOU THINK OF A SEWER.": GOSUB 11000 4500 IF NOT (X = 6 AND Y = 7) THEN 4620 4510 M$ = "A LABORATORY WITH MANY PIECES OF EQUIPMENT, GLASS TUBES AND MULTITUDE OF JARS FILLED WITH STRANGE LIQUIDS...": GOSUB 11000 4520 IF RG = 1 THEN 4620 4540 M$ = "A MAN IN A WHITE COAT APPROACHES AND SAYS: 'DO YOU HAVE MY FAVOURITE RECORD?'": GOSUB 11000 4560 IF DI = 0 THEN PRINT "YOU DO NOT...": GOTO 4600 4570 M$ = "HE SEES THE TINO ROSSI RECORD AND TRIES TO GRAB IT.": GOSUB 11000 4580 PRINT "DO YOU RELEASE IT?" 4590 GOSUB 4970: IF FL = 1 THEN DI = 0:RG = 1: GOTO 4620 4600 M$ = "HE RELEASES A KIND OF GAS IN THE ROOM.": GOSUB 11000 4610 PO = 1 4620 IF NOT (X = 6 AND Y = 8) THEN 4660 4630 M$ = "A LARGE ROOM FULL OF DUST. THERE ARE SOME DISFIGURED BODIES COVERED IN BLOOD...": GOSUB 11000 4660 IF NOT (X = 6 AND Y = 9) THEN 4750 4670 IF TR = 1 THEN 4710 4680 M$ = "A ROOM THAT'S SO GLOOMY YOU DON'T EVEN SEE THE MORLOCK WHO SETS UPON YOU AND KILLS YOU.": GOSUB 11000 4690 GOTO 5210 4710 M$ = "A DARK ROOM, LIT JUST ENOUGH BY YOUR TORCH THAT YOU SPOT A MORLOCK WHO WANTS TO ATTACK YOU. HE FLEES.": GOSUB 11000 4750 IF NOT (X = 6 AND Y = 10) THEN 4770 4760 M$ = "A ROOM WITH AN ELAVATOR. DO YOU ATTEMPT TO USE IT?": GOSUB 11000 4762 GOSUB 4970: IF FL = 0 THEN GOTO 4770 4764 M$ = "THE ELEVATOR STARTS BY ITSELF... IT GOES DOWN, DOWN...": GOSUB 11000 4765 FOR T = 1 TO 1300: NEXT T: PRINT :M$ = "IT STOPS... THE DOOR OPENS... IN HELL!": GOSUB 11000 4766 GOTO 5210 4770 IF X1 = X AND Y1 = Y THEN FOR T = 1 TO 1500: NEXT T: GOTO 4790 4780 GOTO 380 4790 F$ = "********************************" 4800 PRINT F$;"* YOU WIN! *";F$: FOR T = 1 TO 2500: NEXT T 4810 M$ = "LOOKING AT THE ROOM WHERE YOU ARE, YOU NOTICE A MESSAGE CONTAINING A MAGIC FORMULA TO MAKE THE MORLOCKS, " 4820 M$ = M$ + "AS WELL AS THE OTHER DENIZENS OF THE CAVE, HARMLESS! YOU ALSO NOTICE THE KEY TO OPEN ALL THE PASSAGES!": GOSUB 11000 4890 IF BI = 0 THEN 4920 4900 M$ = "YOU FREE THE GIRL, WHO BECOMES THE LOVE OF YOUR LIFE!": GOSUB 11000 4920 IF PO = 0 THEN 4950 4930 M$ = "BUT A STRANGE DISEASE TAKES YOU IN A FEW WEEKS!...": GOSUB 11000 4950 M$ = "A SECRET PASSAGE LEADS TO THE OUTSIDE.": GOSUB 11000 4960 GOTO 5210 4970 GET A$ : IF A$ < > "N" AND A$ < > "Y" AND A$ < > CHR$ (13) THEN 4970 4990 PRINT 5000 IF A$ = "Y" OR A$ = CHR$ (13) THEN FL = 1:A$ = "YES" 5010 IF A$ = "N" THEN FL = 0:A$ = "NO" 5020 PRINT "->";A$ 5030 RETURN 5040 PRINT : PRINT "------- INVENTORY ITEMS --------" 5060 IF CO THEN PRINT "A KNIFE" 5070 IF BI THEN PRINT "A GEM" 5080 IF TR THEN PRINT "A TORCH" 5090 IF MR THEN PRINT "A HAMMER" 5100 IF AI THEN PRINT "A CLOVE OF GARLIC" 5110 IF AZ THEN PRINT "A BOOK: THE KITCHEN FROM A TO Z" 5120 IF ME THEN PRINT "A CODED MESSAGE" 5130 IF MI THEN PRINT "SOME HONEY" 5140 IF GO THEN PRINT "SOME GOLD" 5150 IF ST THEN PRINT "A STATUE OF A MORLOCK" 5160 IF SB THEN PRINT "A LITTLE SAND" 5170 IF CQ THEN PRINT "A SEASHELL" 5180 IF CS THEN PRINT "THE KEY TO THE SECRET CODE" 5190 IF DI THEN PRINT "A TINO ROSSI RECORD" 5200 GOTO 390 5210 PRINT:PRINT:PRINT TAB(10);:INVERSE:PRINT "*** YOU ARE DEAD ***":NORMAL 5220 PRINT : PRINT "DO YOU WANT TO TRY AGAIN?" 5230 GOSUB 4970: IF FL = 1 THEN CLEAR : GOTO 10 5240 HOME : PRINT : PRINT TAB( 12)"GOODBYE!" 5250 END 5260 DATA NE,NS,NSE,NSE,NS,NSE,NSE,NSE,NSE,S 5290 DATA EW,NE,EWS,W,E,NW,SEW,NEW,NSEW,S 5320 DATA NW,NSEW,SEW,NE,NSW,SE,NW,NSW,NSEW,S 5350 DATA E,EW,NEW,WS,NE,NSEW,NS,SE,NEW,SE 5380 DATA NEW,NSEW,SEW,NE,NSEW,NSW,NS,NSEW,NSEW,SEW 5410 DATA NW,SW,NW,NSW,NSW,NS,NS,SW,NW,SW 5440 IF G$ = "W" THEN G$ = "WEST" 5450 IF G$ = "E" THEN G$ = "EAST" 5460 IF G$ = "S" THEN G$ = "SOUTH" 5470 IF G$ = "N" THEN G$ = "NORTH" 5480 RETURN 9999 REM ---- Sub to hit enter ---- 10000 HTAB 10 : VTAB 24 : INVERSE : PRINT "HIT ENTER TO CONTINUE";: NORMAL 10010 GET G$ 10020 HOME : RETURN 10999 REM ---- Sub to print text M$ within 40 columns ---- 11000 C1 = 1:CC = 40 11010 IF MID$ (M$,CC,1) < > "" AND MID$ (M$,CC,1) < > " " THEN CC = CC - 1: GOTO 11010 11020 PRINT MID$ (M$,C1,CC - C1):C1 = CC + 1:CC = C1 + 39: IF C1 < = LEN (M$) THEN 11010 11030 RETURN 11999 REM ---- Sub to print a full line ---- 12000 PRINT "________________________________________" 12010 RETURN