' ' Escape from Hiddenite by UWLabs. ' ' ' Breaking the program for the purposes of cheating is frowned ' upon by the Author. ' ' I went to great deal of trouble to make it difficult for ' people to cheat, but where there's a will... ' ' If you are viewing this before the program has run please exit ' and run EFH.BAS it will chain to the others accordingly. ' ' To continue press [F5] to exit press [Alt], [F], [X]. ' ' ' ' ------------------------------------------------------------------------------ DECLARE SUB HighScores () COMMON SHARED PlaceBeen$, LANTERN, GEM, PICKAXE, LIVES, Turns, POINTS, MONEY, score COMMON SHARED HOUSEKEY, COIN, PUMP, JUG, WATER, BIKECHAIN, BIKE, PHCARD, TICKET, a$ 500 IF UCASE$(PlaceBeen$) = "MINE" THEN 2600 521 '----------------------- game start------------------------- 522 SCREEN 0: COLOR 15, 1: CLS : PRINT : PRINT 539 LET LIVES = 5 540 PRINT " WELCOME TO THE TOWN OF HIDDENITE! (By the way, good luck)." 542 PRINT : PRINT : PRINT " Press `Q' anytime you wish to quit the game.": PRINT : PRINT 550 GOTO 3000 600 '-------------------HOUSE------------------------------------- 601 PRINT " You are standing in front of the Charms residence,the door is locked,and" 602 PRINT " no one is home. You may go in if you have a key." 603 place$ = "House": GOSUB GetInputs: : GOSUB 40000 604 LET RESPONSE = 0 605 IF a$ = "GO NORTH" THEN 3000 606 IF a$ = "GO SOUTH" THEN GOSUB 8010 607 IF a$ = "GO EAST" THEN GOSUB 8010 608 IF a$ = "GO WEST" THEN GOSUB 8010 609 IF a$ = "OPEN DOOR" THEN 620 610 IF a$ = "ENTER" THEN 620 611 IF a$ = "GO IN" THEN 620 612 IF a$ = "LOOK AROUND" THEN PRINT " It looks like a house to me.": GOTO 603 617 IF RESPONSE > 0 THEN 603 618 GOSUB 8020 619 GOTO 603 620 IF HOUSEKEY > 0 THEN 650 630 PRINT " The door is locked remember?": GOTO 603 650 PRINT " With great anxiety you open the door. Looking around inside the house" 651 PRINT " reveals that there is a small lap-top computer. You sit down at the " 652 PRINT " computer and begin to write your own game program. Obviously this will" 653 PRINT " take some time. NOW YOU HAVE NO LIFE!" 654 IF LIVES > 3 THEN 655 ELSE 20000 655 PRINT " You're lucky, because you are new to this I am going to give you a break." 656 PRINT " You can exit the house, but you must leave the key. Now you must go back" 657 PRINT " and get another one." 658 INPUT " Press enter now >", a$: GOSUB 40000 659 LET HOUSEKEY = 0: LET POINTS = POINTS - 100 660 GOTO 600 700 ' -------------------------------HILLTOP---------------------------------- 710 PRINT " You are on a hill top, the road goes in all four directions." 711 place$ = "Hilltop": GOSUB GetInputs: : GOSUB 40000 715 IF a$ = "GO EAST" THEN 800 716 IF a$ = "GO WEST" THEN 3000 717 IF a$ = "GO SOUTH" THEN 1400 718 IF a$ = "GO NORTH" THEN 4700 719 IF a$ = "LOOK AROUND" THEN PRINT " You can't see much from here.": GOTO 710 720 IF a$ = "JUMP" THEN PRINT " We don't jump up and down beside the road.": GOTO 711 724 GOSUB 8020 727 GOTO 711 800 '-------------------------------INTERSECTION------------------------------ 801 PRINT " You are at intersection, there are four choices." 802 place$ = "Intersection": GOSUB GetInputs: : GOSUB 40000 813 IF a$ = "GO EAST" THEN 900 814 IF a$ = "GO WEST" THEN 700 815 IF a$ = "GO SOUTH" THEN 1100 816 IF a$ = "GO NORTH" THEN 1900 817 IF a$ = "LOOK AROUND" THEN PRINT " Looks like another intersection to me.": GOTO 802 818 IF a$ = "JUMP" THEN PRINT " You squat down, then make a lunge for the sky. Isn't this loads of fun?": GOTO 802 827 GOSUB 8020 828 GOTO 802 900 '-------------------------------COUNTRY ROAD------------------------------ 910 PRINT " You are on a country road, to the east you can see a bike shop, to the north" 911 PRINT " you can almost hear the sounds of children playing. there is no road south." 912 PRINT " The road also goes west." 913 GOTO 940 914 place$ = "Country Road": GOSUB GetInputs: : GOSUB 40000 915 LET RESPONSE = 0 916 IF a$ = "GO WEST" THEN 800 917 IF a$ = "GO NORTH" THEN 2000 918 IF a$ = "GO EAST" THEN 1000 919 IF a$ = "GO SOUTH" THEN GOSUB 8010 920 IF a$ = "LOOK AROUND" THEN PRINT " You are on a country road, there's a bike shop east and roads north and west.": GOTO 914 930 IF RESPONSE > 0 THEN 914 931 GOSUB 8020 932 GOTO 914 940 '------------------------ATTACK RABBIT---------------------------- 941 RANDOMIZE TIMER 942 LET RABBIT = INT(RND * 5) + 1 943 PRINT " You have just come up on a very strange looking rabbit. Something isn't" 944 PRINT " right here." 945 PRINT " None the less you reach down to pet it." 946 IF RABBIT < 5 THEN 960 947 PRINT " The rabbit is not the petting kind. In a whirlwind of fur and gnashing " 948 PRINT " teeth, the rabbit attacks you. The rabbit survives, you don't." 949 GOTO 20000 960 PRINT " The rabbit is not the petting kind. In a whirlwind of fur and gnashing" 961 PRINT " teeth, the rabbit attacks you. It was a tough fight but you win." 962 PRINT " You now have a new lucky rabbit's foot.": LET POINTS = POINTS + 25 963 GOTO 914 1000 '-----------------------------BIKE SHOP--------------------------------- 1005 PRINT " The sign says: WELCOME TO MORBERT'S BIKE SHOP and SORRY WE'RE CLOSED" 1006 place$ = "Bikeshop": GOSUB GetInputs: : GOSUB 40000 1007 LET RESPONSE = 0 1008 IF a$ = "ENTER" THEN 1020 1009 IF a$ = "GO WEST" THEN 900 1010 IF a$ = "GO EAST" THEN GOSUB 8010 1011 IF a$ = "GO SOUTH" THEN GOSUB 8010 1012 IF a$ = "GO NORTH" THEN GOSUB 8010 1013 IF a$ = "OPEN DOOR" THEN 1020 1014 IF a$ = "GO IN" THEN 1020 1015 IF a$ = "LOOK AROUND" THEN PRINT " There's the shop and a road west.": GOTO 1006 1017 IF RESPONSE > 0 THEN 1006 1018 GOSUB 8020 1019 GOTO 1006 1020 '--------------------------SHOP ACCESS------------------------------------ 1021 IF HOUSEKEY > 0 THEN 1030 1022 PRINT " The place is closed, and you don't have a key." 1023 GOTO 1006 1030 PRINT " Since you haven't lost your key, you unlock the door and go inside. What a" 1031 PRINT " mess! Morbert must be some kind of slob; there's parts all over the place." 1032 PRINT " From here you see TIRES, SEATS, HANDLE BARS, BIKE CHAINS, EVEN A WATER JUG." 1033 PRINT " Since you're an honest person, you certainly would not take anything without" 1034 PRINT " paying for it. You figure you can just leave the money on the counter." 1035 INPUT " You have money, don't you (YES/NO)"; a$ 1036 IF UCASE$(a$) = "YES" THEN 1041 1037 IF UCASE$(a$) = "Y" THEN 1041 1038 PRINT " Well, what do you know, an honest person after all, still I think you should" 1039 PRINT " leave." 1040 GOTO 1006 1041 IF MONEY > 20 THEN 1043 ELSE GOSUB 8040 1042 GOTO 1006 1043 INPUT " Buy something. >", a$ 1044 LET RESPONSE = 0: a$ = UCASE$(a$) 1045 IF a$ = "BIKE CHAIN" AND BIKECHAIN = 1 THEN PRINT " You already bought one.": GOTO 1043 1046 IF a$ = "WATER JUG" AND JUG = 1 THEN PRINT " You already bought one.": GOTO 1043 1047 IF a$ = "BIKE CHAIN" THEN PRINT " Thank you for your purchase.": LET BIKECHAIN = 1: LET POINTS = POINTS + 100 1048 IF a$ = "BIKE CHAIN" THEN LET MONEY = MONEY - 20: GOTO 1043 1049 IF a$ = "WATER JUG" THEN PRINT " Thank you for your purchase.": LET JUG = 1: LET POINTS = POINTS + 100 1050 IF a$ = "WATER JUG" THEN LET MONEY = MONEY - 5: GOTO 1043 1051 IF a$ = "HANDLE BARS" THEN GOSUB 8060 1052 IF a$ = "SEAT" THEN GOSUB 8060 1053 IF a$ = "SEATS" THEN GOSUB 8060 1054 IF a$ = "TIRES" THEN GOSUB 8060 1055 IF a$ = "TIRE" THEN GOSUB 8060 1056 IF a$ = "EXIT" THEN 1006 1057 IF a$ = "LEAVE" THEN 1006 1058 IF a$ = "LOOK AROUND" THEN PRINT " Some mess, huh? There's stuff everywhere.": GOTO 1043 1059 IF RESPONSE > 0 THEN 1043 1060 GOSUB 8020 1061 GOTO 1043 1100 '----------------------------GENERAL STORE (BACK)------------------------- 1110 PRINT " You are standing where the road meets some sort of highway, you can't go" 1111 PRINT " any further south. You can see the back of a store to the west." 1112 place$ = "Behind General Store": GOSUB GetInputs: : GOSUB 40000 1113 IF a$ = "GO EAST" THEN 1200 1114 IF a$ = "GO WEST" THEN 1400 1115 IF a$ = "GO NORTH" THEN 800 1116 IF a$ = "GO SOUTH" THEN PRINT " You obviously don't pay attention, you can't go south": GOTO 1112 1117 IF a$ = "ENTER" THEN PRINT " Entering through the front of the store is usually more appropriate.": GOTO 1112 1119 IF a$ = "JUMP" THEN PRINT " Into traffic?": GOTO 1112 1120 IF a$ = "LOOK AROUND" THEN 1110 1121 IF a$ = "GO IN" THEN PRINT " Go in the front door, stupid.": GOTO 1112 1122 IF a$ = "OPEN DOOR" THEN PRINT " Opening door reveals a large stack of boxes, you can't go in.": GOTO 1112 1123 PRINT " I have no idea what you are saying.": GOTO 1112 1200 '-----------------------------BUSY RD EAST---------------------------------- 1201 PRINT " You are on a busy road that heads east and west. You can only go in two" 1202 PRINT " directions from here. There is a phone booth to the east. Be careful this is a busy road." 1203 RANDOMIZE TIMER 1204 LET ROADKILL = INT(RND * 3) + 1 1205 place$ = "Busy Road(east)": GOSUB GetInputs: : GOSUB 40000 1206 IF a$ = "GO EAST" THEN 1300 1207 IF a$ = "GO WEST" THEN 1100 1208 IF a$ = "GO NORTH" THEN PRINT " You can't go north from here.": GOTO 1205 1209 IF a$ = "GO SOUTH" THEN PRINT " You can't go south from here.": GOTO 1205 1210 IF ROADKILL > 2 THEN 1225 1211 IF a$ = "LOOK AROUND" THEN PRINT " You better watch for traffic.": GOTO 1205 1220 PRINT " I don't understand what you want.": GOTO 1205 1225 PRINT " A speeding truck doesn't see you and slams right into you. The impact sends" 1226 PRINT " your wallet flying. You don,t have a phone card now. The force also sends" 1227 PRINT " you way down the road." 1228 IF PHCARD = 1 THEN LET PHCARD = 0: LET POINTS = POINTS - 500 1229 GOTO 1400 1300 '-----------------------------PHONE BOOTH--------------------------------- 1302 PRINT " You enter the phone booth and close the door." 1304 place$ = "Phone booth": GOSUB GetInputs: : GOSUB 40000 1305 IF a$ = "LOOK AROUND" THEN PRINT " This phone requires a phone card.": GOTO 1304 1306 IF a$ = "GO WEST" THEN 1200 1307 IF a$ = "EXIT" THEN 1200 1308 IF a$ = "TALK" THEN PRINT " You must first put in your phone card.": GOTO 1304 1309 IF a$ = "PUT IN PHONE CARD" THEN 1350 1310 IF a$ = "USE PHONE CARD" THEN 1350 1311 IF a$ = "USE PHONE" THEN PRINT " You must first put in your phone card.": GOTO 1304 1312 IF a$ = "LEAVE" THEN 1200 1313 IF a$ = "CALL OPERATOR" THEN PRINT " I am sorry but all operators are busy at this time.": GOTO 1304 1350 IF PHCARD = 0 THEN 1351 ELSE 1353 1351 PRINT " I am sorry but you don't have a phone card.": GOTO 1304 1353 PRINT " You insert the phone card in the appropriate slot and get a dial tone." 1354 PRINT " Immediately the operator comes on the line. It is Mr. John Chasm." 1355 PRINT " You explain to him that you are trapped in Hiddenite and need to escape." 1356 PRINT " Could he please help. His reply comes as a surprise to you; he says" 1357 PRINT " that you couldn't possibly be in Hiddenite, since his computer says that you" 1358 PRINT " are in Rocky Point. Rocky point? NO! You know you are in Hiddenite." 1359 PRINT " you begin to argue." 1360 PRINT " ROCK POINT": PRINT " HIDDENITE": PRINT " ROCKY POINT": PRINT " HIDDENITE": PRINT " ROCKY POINT." 1361 WHILE COUNT < 5 1362 INPUT ">", a$ 1363 LET J$ = " ROCKY POINT." 1364 IF a$ = "HIDDENITE" THEN PRINT J$ 1365 IF a$ <> "HIDDENITE" THEN PRINT " WHAT?" 1366 IF a$ = "ROCKY POINT" THEN PRINT " That's what I said; ROCKY POINT.": GOTO 1362 1367 LET COUNT = COUNT + 1 1368 WEND 1369 INPUT ">", a$ 1370 IF a$ = "HIDDENITE" THEN PRINT " ROCKY POINT.": GOTO 1369 1371 IF a$ = "ROCKY POINT" THEN 1375 1372 PRINT " WHAT?": GOTO 1369 1375 PRINT " HIDDENITE." 1376 INPUT ">", a$ 1377 IF a$ = "HIDDENITE" THEN PRINT " YES! HIDDENITE!": GOTO 1380 1378 IF a$ = "ROCKY POINT" THEN PRINT " HIDDENITE.": GOTO 1376 1379 PRINT " WHAT?": GOTO 1376 1380 PRINT " I SAID HIDDENITE! AND I MEAN HIDDENITE!" 1381 PRINT " You give Mr. Chasm time to cool off then ask him; `Since I'm in Hiddenite," 1382 PRINT " will you help me to leave?' He asks you if you have a coin to put in the " 1383 PRINT " phone." 1384 IF COIN = 0 THEN PRINT " But you have no coin and he hangs up.": GOTO 1304 1385 INPUT " Press enter to insert coin. >", a$ 1386 LET COIN = 0 1387 PRINT " Something strange happens, AND....FLASH!!! ": INPUT " (press enter)", a$ 1388 GOTO 4600 1400 '----------------------------GENERAL STORE (FRONT)------------------------ 1401 PRINT " You are standing in front of the General Store. You can enter or you can" 1402 PRINT " head off in any direction." 1403 place$ = "In front of General Store": GOSUB GetInputs: : GOSUB 40000 1404 IF a$ = "GO EAST" THEN 1100 1405 IF a$ = "GO WEST" THEN 2700 1406 IF a$ = "GO SOUTH" THEN 1500 1407 IF a$ = "GO NORTH" THEN 700 1408 IF a$ = "GO INSIDE" THEN 1420 1409 IF a$ = "ENTER" THEN 1420 1410 IF a$ = "OPEN DOOR" THEN 1420 1411 IF a$ = "LOOK AROUND" THEN PRINT " You standing in front of a general store, You can go 5 ways here.": GOTO 1403 1419 PRINT " I don't understand.": GOTO 1403 1420 '----------------------------inside store------------------------------- 1421 PRINT " You are now inside the store. You are greeted by Marmbe Charms, she tells" 1422 PRINT " you about all the day's specials , and that she has been looking to " 1423 PRINT " buy some gems from the local mine. Before you can ask any questions she" 1424 PRINT " disappears into the back." 1425 place$ = "Inside Store": GOSUB GetInputs: : GOSUB 40000 1426 IF a$ = "LOOK AROUND" THEN 1430 1427 IF a$ = "EXIT" THEN 1403 1428 PRINT " Please rephrase that.": GOTO 1425 1430 PRINT " As you wander through the store you meet Marmbe again." 1431 place$ = "Marmbe": GOSUB GetInputs: : GOSUB 40000 1432 IF a$ = "SELL GEM" THEN 1440 1433 IF a$ = "EXIT" THEN 1403 1434 IF a$ = "TALK" THEN PRINT " It's too late she has already walked away.": GOTO 1425 1435 PRINT " She doesn't understand, try again.": GOTO 1431 1440 IF GEM = 1 THEN 1443 1442 PRINT " You don't have a gem to sell.": GOTO 1425 1443 PRINT " OH, THIS IS BEAUTIFUL. I always wanted to have a gem like this, would" 1444 place$ = " you really want to sell this (YES/NO)": GOSUB GetInputs 1445 IF UCASE$(a$) = "YES" THEN 1450 1446 IF UCASE$(a$) = "Y" THEN 1450 1447 IF UCASE$(a$) = " YES" THEN 1450 1448 PRINT " I'm sorry you feel that way, come back if you change your mind." 1449 GOTO 1403 1450 PRINT " Marmbe buys the gem from you at the current market rate." 1451 LET MONEY = MONEY + 1000 1452 LET POINTS = POINTS + 1000: LET GEM = 0 1453 GOSUB 8050 1454 GOTO 1403 1500 '-------------------------LONG ROAD SOUTH--------------------------------- 1510 place$ = "Long Highway": GOSUB GetInputs: : GOSUB 40000: GOTO 1512 1511 PRINT " This could be a long walk, so please don't make any side trips.": RETURN 1512 IF a$ = "GO EAST" THEN GOSUB 1511 1513 IF a$ = "GO WEST" THEN GOSUB 1511 1514 IF a$ = "GO NORTH" THEN 1403 1515 IF a$ = "GO SOUTH" THEN 1525 1516 IF a$ = "LOOK AROUND" THEN PRINT " You are on a long highway that runs north and south.": GOTO 1510 1517 IF a$ = "RUN" THEN PRINT " Running won't get you there any faster.": GOTO 1510 1518 IF a$ = "JUMP" THEN PRINT " Jumping beside the road will make you look like a fool.": GOTO 1510 1519 IF a$ = "TALK" THEN PRINT " Talking to yourself is a sign you may be loosing your mind.": GOTO 1510 1520 PRINT "I don,t understand.": GOTO 1510 1525 '-------------------------long rd.A--------------------- 1526 place$ = "Long Highway": GOSUB GetInputs: : GOSUB 40000 1527 IF a$ = "GO EAST" THEN GOSUB 1511: GOTO 1526 1528 IF a$ = "GO WEST" THEN GOSUB 1511: GOTO 1526 1529 IF a$ = "GO SOUTH" THEN 1550 1530 IF a$ = "GO NORTH" THEN 1510 1531 IF a$ = "LOOK AROUND" THEN PRINT " You are on a long highway, it goes north and south.": GOTO 1525 1532 IF a$ = "RUN" THEN PRINT " You are in no shape for exercise.": GOTO 1525 1533 IF a$ = "JUMP" THEN PRINT " You are in no shape for exercise.": GOTO 1525 1534 IF a$ = "TALK" THEN PRINT " Mumble, mumble, mumble.": GOTO 1525 1535 PRINT " I don't understand.": GOTO 1525 1550 '--------------------------long rd.B--------------------- 1551 place$ = "Long Highway": GOSUB GetInputs: : GOSUB 40000 1552 IF a$ = "GO EAST" THEN GOSUB 1511: GOTO 1551 1553 IF a$ = "GO WEST" THEN GOSUB 1511: GOTO 1551 1554 IF a$ = "GO NORTH" THEN 1526 1555 IF a$ = "GO SOUTH" THEN 1575 1556 IF a$ = "LOOK AROUND" THEN PRINT " You are on a long highway, it runs north and south. To the south you see a rainbow.": GOTO 1550 1557 PRINT " I don't understand.": GOTO 1551 1575 '--------------------------long rd.C--------------------- 1576 place$ = "Long Highway": GOSUB GetInputs: : GOSUB 40000 1577 IF a$ = "GO EAST" THEN GOSUB 1511: GOTO 1576 1578 IF a$ = "GO WEST" THEN GOSUB 1511: GOTO 1576 1579 IF a$ = "GO NORTH" THEN 1551 1580 IF a$ = "GO SOUTH" THEN 1600 1581 IF a$ = "LOOK AROUND" THEN PRINT " The north-south highway. There's a bridge to the south.": GOTO 1575 1582 PRINT " I don't understand.": GOTO 1576 1600 '---------------------------BRIDGE---------------------------------------- 1605 PRINT " You are standing on an old bridge. The span runs north and south." 1606 PRINT " To the south is a bait shop. To the north is the road. " 1607 PRINT " The view is breathtaking, to the west you can see Rainbow Falls. The water" 1608 PRINT " rushes down then under the bridge. This is the head waters to Seven Mile lake." 1610 place$ = "Bridge": GOSUB GetInputs: : GOSUB 40000 1611 IF a$ = "GO EAST" THEN 1650 1612 IF a$ = "GO WEST" THEN 1650 1613 IF a$ = "GO NORTH" THEN 1576 1614 IF a$ = "GO SOUTH" THEN 1700 1615 IF a$ = "JUMP" THEN 1650 1616 IF a$ = "RUN" THEN PRINT " Running on this old bridge is unsafe.": GOTO 1610 1617 IF a$ = "FILL JUG" THEN 1620 1618 IF a$ = "TAKE WATER" THEN 1620 1619 PRINT " I don't understand.": GOTO 1610 1620 PRINT " With extreme care you make your way down to the water's edge." 1621 IF JUG = 0 THEN PRINT " When you arrive you remember that you have no jug, so you climb back up.": GOTO 1610 1622 PRINT " When you arrive you take out your water jug and fill it with the cold water." 1623 PRINT " You now have an extra supply of water.": WATER = 1 1624 PRINT " Carefully you make your way back.": GOTO 1610 1650 PRINT " Stepping off the bridge you feel a strange feeling of weightlessness." 1651 PRINT " The feeling lasts only an instant. You plummet to the raging torrent below." 1652 PRINT " The frigid waters draw you down.": GOTO 20000 1700 '---------------------------GRIMLOK'S------------------------------------ 1701 PRINT " You are standing on the south side of Seven Mile Lake. There is a small" 1702 PRINT " bait shop here. To the north is an old bridge. To the south is a winding " 1703 PRINT " uphill road. There is a small sign beside the road." 1704 place$ = "Grimlok's drive": GOSUB GetInputs: : GOSUB 40000 1705 LET SIGN$ = " YOU ARE NOW IN GRIMLOK TERRITORY... BEWARE ! " 1706 IF MONEY < 500 THEN PRINT " Satov Grimlok greets you. Determining that you are but a mere pauper, he bars your entrance to his property.": GOTO 1610 1707 IF a$ = "READ SIGN" THEN PRINT SIGN$: GOTO 1704 1708 IF a$ = "LOOK AT SIGN" THEN PRINT SIGN$: GOTO 1704 1709 IF a$ = "GO NORTH" THEN 1610 1710 IF a$ = "GO WEST" THEN PRINT " You can't go west from here.": GOTO 1704 1711 IF a$ = "GO EAST" THEN 1750 1712 IF a$ = "GO SOUTH" THEN PRINT " You climb the long drive to Grimlok's.": GOTO 1800 1713 IF a$ = "LOOK AROUND" THEN 1701 1714 IF a$ = "RUN" THEN PRINT " In a feat of daring, you hoof it back across the bridge."; 1576 1715 IF a$ = "JUMP" THEN PRINT " This is no time to jump for joy.": GOTO 1704 1716 IF a$ = "GO IN" THEN 1750 1717 IF a$ = "ENTER" THEN 1750 1720 PRINT " Please try to rephrase that.": GOTO 1704 1750 '----------------------------bait shop---------------------- 1751 PRINT " You enter the bait shop." 1752 place$ = "Bait shop": GOSUB GetInputs: : GOSUB 40000 1753 IF a$ = "LOOK AROUND" THEN PRINT " On the wall is a sign that says: `We buy bus tickets. Will pay top dollar.'": GOTO 1752 1754 IF a$ = "GO EAST" THEN PRINT " You can't go east": GOTO 1752 1755 IF a$ = "GO WEST" THEN 1704 1756 IF a$ = "GO SOUTH" THEN PRINT " You can't go south.": GOTO 1752 1757 IF a$ = "GO NORTH" THEN PRINT " You can't go north.": GOTO 1752 1758 IF a$ = "SELL TICKET" THEN 1770 1759 IF a$ = "SELL BUS TICKET" THEN 1770 1760 IF a$ = "LEAVE" THEN 1704 1761 IF a$ = "EXIT" THEN 1704 1762 IF a$ = "BUY BAIT" THEN PRINT " The fish aren't biting.": GOTO 1752 1763 PRINT " Please try to rephrase that.": GOTO 1752 1770 '------------sell ticket------------- 1771 IF TICKET = 0 THEN PRINT " You don't have a bus ticket to sell.": GOTO 1752 1781 PRINT " You place the bus ticket on the counter and imediately it is snatched up by" 1782 PRINT " the shopkeep. He gives you $250.oo for it." 1783 LET TICKET = 0: LET MONEY = MONEY + 250 1784 PRINT " You take your earnings and exit the shop.": GOTO 1704 1800 '-----------------------------Grimlok's PLACE----------------------------- 1805 PRINT " As you enter you are mildly impressed with your surroundings. " 1806 PRINT " Through the window you can see a large boat. There is a coin collection here." 1807 PRINT " There are several bikes in the corner. there is also a gem collection." 1808 PRINT " Mr. grimlok informs you that his hobby is his collections and asks you if" 1809 PRINT " you have anything to add." 1810 place$ = " Pick an item of yours": GOSUB GetInputs: a$ = UCASE$(a$) 1811 IF a$ = "BIKE" AND BIKE = 1 THEN PRINT " He already has several, but takes yours anyway.": LET BIKE = 0: GOTO 1810 1812 IF a$ = "BIKE" AND BIKE = 0 THEN PRINT " You can't lie to him, he knows you have no bike.": GOTO 1810 1813 IF a$ = "GEM" AND GEM = 1 THEN PRINT " He examines it and trades you a phonecard fot it.": LET PHCARD = 1: GOTO 1810 1814 IF a$ = "GEM" AND GEM = 0 THEN PRINT " You can't lie to him, he knows you have no gem.": GOTO 1810 1815 IF a$ = "COIN" AND COIN = 1 THEN PRINT " He takes the coin and puts it with the others.": LET COIN = 0: GOTO 1810 1816 IF a$ = "COIN" AND COIN = 0 THEN PRINT " He is insulted by your offer of pocket change.": GOTO 1810 1817 IF a$ = "NONE" THEN 1850 1818 IF a$ = "EXIT" THEN 1850 1819 IF a$ = "LEAVE" THEN 1850 1820 IF a$ = "NO" THEN 1850 1821 PRINT " He has no idea what you are talking about.": GOTO 1810 1850 IF PHCARD = 1 THEN PRINT " Grimlok offers you a boat ride.": INPUT " Ride (Y/N)"; a$ 1851 IF a$ = "Y" THEN 1875 1852 PRINT " Having concluded your business with Grimlok, you are asked to leave." 1853 PRINT " You follow the drive back to the bait shop.": GOTO 1701 1875 PRINT " You go outside, down to the dock, board the boat, and take off down the lake." 1876 PRINT " After riding several miles, you round a bend and spot a large storm drain." 1877 PRINT " The boat enters and procedes for several more miles." 1878 PRINT " You come to a landing and Grimlok forces you off the boat. He leaves you." 1879 place$ = "Underground boat landing": GOSUB GetInputs: : GOSUB 40000 1880 IF a$ = "LOOK AROUND" THEN PRINT " You are underground, there are passages east and west, and a ladder north.": GOTO 1879 1881 IF a$ = "GO NORTH" THEN PRINT " You climb the ladder.": GOTO 4133 1882 IF a$ = "GO EAST" THEN 4871 1883 IF a$ = "GO WEST" THEN 4880 1884 IF a$ = "GO SOUTH" THEN PRINT " Now's not the time to go swimming.": GOTO 1879 1885 IF a$ = "CLIMB LADDER" THEN 4133 1886 IF a$ = "GO UP" THEN PRINT " You climb the ladder.": GOTO 4133 1887 IF a$ = "JUMP" THEN 1890 1888 PRINT " I don't understand.": GOTO 1879 1890 PRINT " You make a lunge for the boat, jumping clean out of your shoes. You grab " 1891 PRINT " onto a line trailing in the water. You begin to water ski. BAREFOOT!" 1892 PRINT " You manage to hang on for a few miles, but have to let go." 1893 PRINT " You swim ashore, and climb the bank. you emerge near a mining camp.": GOTO 2612 1900 '------------------------------MR. ARKUST-----------------------------------" 1905 place$ = "Mr. Arkust's": GOSUB GetInputs: : GOSUB 40000 1906 LET RESPONSE = 0 1911 IF a$ = "LOOK AROUND" THEN PRINT " Welcome to the famous Mr. Arkust's. Why don't you stop in for a CHAT.": GOTO 1905 1912 IF a$ = "CHAT" THEN 1950 1913 IF a$ = "GO EAST" THEN 2000 1914 IF a$ = "GO SOUTH" THEN 800 1915 IF a$ = "GO WEST" THEN 1950 1916 IF a$ = "GO NORTH" THEN 2300 1918 IF RESPONSE > 0 THEN 1905 1927 GOSUB 8020 1928 GOTO 1905 1950 PRINT " Well hello there, long time no see I thought you'd never stop by .I mean" 1951 PRINT " it's not like I get any company around here. I'm my own company, Union" 1952 PRINT " Carbide I think. Get it? My own company? Hey, do you have any use for a" 1953 PRINT " tire pump? I've had this thing forever, but I never bought a bike, maybe" 1954 PRINT " I should go see Morbert. Unless of course he's invisible then I won't be" 1955 PRINT " able to see him could I? ........." 1956 PRINT " Your mind begins to wander as Mr. Arkust continues to talk, you feel it's" 1957 PRINT " time to make a choice." 1958 place$ = "Mr. Arkust's": GOSUB GetInputs: : GOSUB 40000 1959 IF a$ = "STAY" THEN PRINT " Wrong choice, you'll never get out of here that way.": GOTO 1958 1960 IF a$ = "GO EAST" THEN 2000 1961 IF a$ = "TAKE PUMP" THEN 1980 1962 IF a$ = "GO SOUTH" THEN 800 1963 IF a$ = "GO WEST" THEN PRINT " You are already at Mr. Arkust's" 1964 IF a$ = "GO NORTH" THEN 2300 1965 GOSUB 8020 1966 GOTO 1905 1980 LET PUMP = 1: POINTS = POINTS + 200 1981 PRINT " You now are the proud owner of a used tire pump." 1990 GOTO 1905 2000 '-------------------------NEAR SCHOOL--------------------------- 2010 PRINT " You are at a bend in the road, to the east you can hear the sounds of" 2011 PRINT " children playing. There could possibly be a school near by. The road also" 2012 PRINT " leads south or west." 2013 place$ = "Near school": GOSUB GetInputs: : GOSUB 40000 2014 IF a$ = "GO NORTH" THEN PRINT " You can't go that way.": GOTO 2013 2015 IF a$ = "GO EAST" THEN 2100 2016 IF a$ = "GO WEST" THEN 1900 2017 IF a$ = "GO SOUTH" THEN 900 2018 IF a$ = "LOOK AROUND" THEN 2010 2019 IF a$ = "LOOK AT SCHOOL" THEN PRINT " Look's like class is out today.": GOTO 2013 2038 PRINT " Please try to rephrase that.": GOTO 2013 2100 '--------------------------SCHOOL--------------------------------- 2103 PRINT " You climb the long drive to the school, there is lot of empty space here." 2104 place$ = "School": GOSUB GetInputs: : GOSUB 40000 2105 IF a$ = "GO WEST" THEN 2013 2106 IF a$ = "GO NORTH" THEN PRINT " You are behind the school, there is a ball field here.": GOTO 2120 2107 IF a$ = "GO EAST" THEN PRINT " There seems to be a school in the way.": GOTO 2104 2108 IF a$ = "GO SOUTH" THEN PRINT " There is a parking lot here, but no school buses. No free rides here.": GOTO 2130 2109 PRINT " I don't understand, try again." 2110 GOTO 2104 2120 place$ = "Ball field": GOSUB GetInputs: : GOSUB 40000 2121 IF a$ = "GO EAST" THEN 2150 2122 IF a$ = "GO WEST" THEN 2104 2123 IF a$ = "GO SOUTH" THEN PRINT " To the south is the building, you don't want to walk into it.": GOTO 2120 2124 IF a$ = "GO NORTH" THEN PRINT " This is only an imaginary town, the map has to run out somewhere.": GOTO 2120 2125 PRINT " Please restate that." 2126 GOTO 2120 2130 place$ = "Parking lot": GOSUB GetInputs: : GOSUB 40000 2131 IF a$ = "GO NORTH" THEN PRINT " The school isn't going to move, so you will have to.": GOTO 2130 2132 IF a$ = "GO EAST" THEN 2150 2133 IF a$ = "GO WEST" THEN 2104 2134 IF a$ = "GO SOUTH" THEN PRINT " You can't go South.": GOTO 2130 2135 PRINT " I don't understand.": GOTO 2130 2150 PRINT " You are on the east side of the school, in front of you is a worn out " 2151 PRINT " bike. I think this thing has been here quite a while." 2155 place$ = "East of school": GOSUB GetInputs: : GOSUB 40000 2156 IF a$ = "GO NORTH" THEN 2120 2157 IF a$ = "GO SOUTH" THEN 2130 2158 IF a$ = "TAKE BIKE" THEN 2170 2159 IF a$ = "GO WEST" THEN PRINT " You may be able to climb over the bike rack, but not the school.": GOTO 2155 2160 IF a$ = "GO EAST" THEN PRINT " You can't go any further east.": GOTO 2155 2161 PRINT " I don't understand.": GOTO 2155 2170 PRINT " You take the bike, even though it has no chain. It seems to be in fairly" 2171 PRINT " good shape except for a little rust." 2172 LET BIKE = 1 2173 LET POINTS = POINTS + 75 2174 GOTO 2155 2200 '--------------------------SANDPIT---------------------------------------- 2210 IF COIN = 0 THEN 2221 2211 PRINT " You wander into a sand pit, although it looks like quicksand, you manage to" 2212 PRINT " slog through it. You climb a hill and emerge at a school.": GOTO 2104 2221 PRINT " It seems you have wandered into a sand pit, unlike the sandpits on your " 2222 PRINT " average golf course, this one is much different. As you sink slowly into" 2223 PRINT " the deep dark recesses of some underground cavern, you ask yourself why" 2224 PRINT " did you ever come this way." 2225 GOTO 20000 2300 ' ------------------------mtn view west------------------------------------ 2310 PRINT " You are on a road that leads north and south. To the north is a great" 2311 PRINT " mountain range. To the east is a dirt path." 2312 place$ = "North road": GOSUB GetInputs: : GOSUB 40000 2313 IF a$ = "GO NORTH" THEN 2400 2314 IF a$ = "GO SOUTH" THEN 1900 2315 IF a$ = "GO WEST" THEN PRINT " You can't go that way.": GOTO 2312 2316 IF a$ = "GO EAST" THEN PRINT " You wander off eastward.": GOTO 2200 2317 PRINT " I just can't make out what you want.": GOTO 2312 2400 '---------------------------BASE OF MTN---------------------------------- 2409 PRINT " You are at the base of a large mountain range. A logging road winds through" 2410 PRINT " the mountains to the north. There is a dirt road to the west, a road to the" 2411 PRINT " east, and a road south." 2412 place$ = "Mountain view": GOSUB GetInputs: : GOSUB 40000 2413 IF a$ = "GO EAST" THEN 2600 2414 IF a$ = "GO WEST" THEN 3200 2415 IF a$ = "GO NORTH" THEN 2500 2416 IF a$ = "GO SOUTH" THEN 2300 2417 IF a$ = "LOOK AROUND" THEN PRINT " The view is awesome isn't?": GOTO 2412 2418 PRINT " I don't understand.": GOTO 2412 2500 '---------------------------mountains------------------------------------- 2510 PRINT " The mountains can be very dangerous this time of year. And you have climbed" 2511 PRINT " this road nearly to the top. The only way out is south." 2512 RANDOMIZE TIMER 2513 LET OUTT = INT(RND * 5) + 1 2514 place$ = "Mountain top": GOSUB GetInputs: : GOSUB 40000 2515 IF a$ = "GO SOUTH" THEN 2550 2516 PRINT " What?": GOTO 2514 2550 IF OUTT > 1 THEN 2551 ELSE 2565 2551 IF COIN = 1 THEN PRINT " You fall off a steep cliff,and land in a small brush pile.": GOTO 2400 2555 PRINT " OOOOOOOOOOOOOOOoooooooooooooo............" 2556 PRINT " Looks like we just lost another one." 2557 GOTO 20000 2565 PRINT " CONGRATULATIONS! The odds of you making it out of here were 5to1." 2566 PRINT " You also get a bonus of 1000 points for making it out alive." 2567 LET POINTS = POINTS + 1000 2568 PRINT " You now have "; POINTS; " points." 2570 GOTO 2400 2600 '-------------------------MINE CAMP------------------------------- 2609 PRINT " The sign in front of you says, `Acme Mines'. There is a trail to the north," 2610 PRINT " a path to the south, a road west, and to the east is the mines." 2611 PRINT " There are tools scattered all about." 2612 place$ = "Mine camp": GOSUB GetInputs: : GOSUB 40000 2613 IF a$ = "TAKE PICK" AND PICKAXE = 1 THEN PRINT " You already have one of those.": GOTO 2612 2614 IF a$ = "TAKE LANTERN" AND LANTERN = 1 THEN PRINT " You already have a lantern.": GOTO 2612 2623 IF a$ = "GO NORTH" THEN 2680 2624 IF a$ = "GO SOUTH" THEN 2200 2625 IF a$ = "GO EAST" THEN 5000 2626 IF a$ = "GO WEST" THEN 2400 2627 IF a$ = "LOOK AT TOOLS" THEN PRINT " They're everywhere; shovels, picks, axes, even a lantern.": GOTO 2612 2628 IF a$ = "TAKE TOOLS" THEN PRINT " Which ones?": GOTO 2612 2629 IF a$ = "TAKE PICK" THEN PRINT " Taken.": LET PICKAXE = 1: LET POINTS = POINTS + 50: GOTO 2612 2630 IF a$ = "TAKE SHOVEL" THEN PRINT " A pick works better.": GOTO 2612 2631 IF a$ = "TAKE AXES" THEN PRINT " There's only one of you, why do you want more than one axe?": GOTO 2612 2632 IF a$ = "TAKE AXE" THEN PRINT " You won't be chopping any wood here.": GOTO 2612 2633 IF a$ = "TAKE LANTERN" THEN PRINT " Taken.": LET LANTERN = 1: LET POINTS = POINTS + 50: GOTO 2612 2634 IF a$ = "TAKE LIGHT" THEN PRINT " Bud light?": GOTO 2612 2635 IF a$ = "LOOK AROUND" THEN 2600 2636 PRINT " I have no idea what you're talking about.": GOTO 2612 2680 PRINT " You follow the winding trail north, then it bends to the west, then south." 2681 PRINT " You come out at the base of a mountain." 2682 GOTO 2412 2700 '---------------------BUSY ROAD WEST-------------------------------------- 2710 PRINT " You are on a busy road that leads east and west, to the south is a bus" 2711 PRINT " station. " 2712 place$ = "Busy road (west)": GOSUB GetInputs: : GOSUB 40000 2713 IF a$ = "GO EAST" THEN 1400 2714 IF a$ = "GO WEST" THEN 2900 2715 IF a$ = "GO SOUTH" THEN 2800 2716 IF a$ = "GO NORTH" THEN PRINT " There is no road to the north, but do see a house through the trees." 2717 PRINT " You shouldn't stay here long, this is a busy road." 2720 place$ = "Busy road (west)": GOSUB GetInputs: : GOSUB 40000 2721 IF a$ = "GO EAST" THEN 1400 2722 IF a$ = "GO WEST" THEN 2900 2723 IF a$ = "GO SOUTH" THEN 2800 2724 IF a$ = "GO NORTH" THEN 2750 2725 PRINT " I don't understand": GOTO 2720 2750 PRINT " I told you there wasn't a road north, but you insisted. While crossing the" 2751 PRINT " road you are struck by a moped. Luckily you are not fataly injured, but your" 2752 PRINT " stupity has cost you 500 points, not to mention years off your life." 2753 LET POINTS = POINTS - 500 2754 GOTO 2712 2800 '-------------------------BUS STATION------------------------------------- 2801 PRINT " You have entered the bus station, the schedules posted on the wall show" 2802 PRINT " that there will be no arrivals or departures today, but you can buy a ticket" 2803 PRINT " if you still want to. Looking out back you see a new road under construction." 2804 PRINT " It is nearly completed." 2805 place$ = "Bus station": GOSUB GetInputs: : GOSUB 40000 2806 RANDOMIZE TIMER 2807 LET MUGGER = INT(RND * 3) + 1 2808 IF MUGGER = 1 THEN 2830 2809 IF a$ = "GO NORTH" THEN 2700 2810 IF a$ = "GO SOUTH" THEN 4500 2811 IF a$ = "GO AROUND BACK" THEN 4500 2812 IF a$ = "GO AROUND" THEN PRINT " Around what?": GOTO 2805 2813 IF a$ = "GO EAST" THEN PRINT " You can't go east in here.": GOTO 2805 2814 IF a$ = "GO WEST" THEN PRINT " You can't go west in here.": GOTO 2805 2815 IF a$ = "BUY TICKET" THEN 2820 2816 PRINT " I can't understand a word you are saying.": GOTO 2805 2820 ' ---------TICKET PURCHASE------------------- 2821 IF TICKET = 1 THEN PRINT " You have already bought one.": GOTO 2805 2826 PRINT " You stroll over to the counter and speak to Marmbe Charms. Boy, this girl" 2827 PRINT " gets around. She sells you the ticket for $150." 2828 LET DOLLARS = DOLLARS - 150: LET TICKET = 1 2829 GOTO 2805 2830 '----------MUGGER-------------- 2832 IF BIKE = 1 THEN 2841 2833 PRINT " OH NO, something terrible has just happened. YOU'VE BEEN MUGGED!" 2834 PRINT " He wanted a bike, but since you don't have one, he takes your key instead." 2835 LET HOUSEKEY = 0: LET POINTS = POINTS - 500: GOTO 2847 2841 PRINT " Oh no, something terrible has just happened. YOU'VE BEEN MUGGED!" 2842 PRINT " There's no use in crying about it though. You'll just have to go replace" 2843 PRINT " your bike and it's parts. (Apparently the mugger needed a bike too.)" 2844 LET PUMP = 0: LET POINTS = POINTS - 100 2845 LET BIKE = 0: LET POINTS = POINTS - 200 2846 LET BIKECHAIN = 0: LET POINTS = POINTS - 100 2847 PRINT " You wander out of the bus station.": GOTO 2700 2900 '---------------------HIGHWAY OF DEATH------------------------------------ 2901 PRINT " Walking out of town on this busy highway is not good idea." 2902 place$ = "Busy highway west": GOSUB GetInputs: : GOSUB 40000 2903 IF a$ = "GO EAST" THEN 2700 2904 IF a$ = "GOEAST" THEN PRINT " That's GO EAST": GOTO 2700 2905 IF a$ = "EAST" THEN PRINT " You mean GO EAST": GOTO 2700 2906 INPUT " I hear a truck coming. >", a$: GOSUB 40000 2917 IF a$ = "GO EAST" THEN 2700 2918 INPUT " It seems to be getting closer. >", a$: GOSUB 40000 2919 IF a$ = "GO EAST" THEN 2700 2920 PRINT " OH NO! Now you've done it, just what Hiddenite needed, a colorful road" 2921 PRINT " painting. Yeah, you're a regular work of art now. Maybe we should take" 2922 PRINT " you to the museum and slip you under the door." 2923 GOTO 20000 3000 SCREEN 0'-------------------- MAILBOX------------------------------------------------- 3002 GOTO 3030 3010 place$ = "Mailbox": GOSUB GetInputs: : GOSUB 40000 3020 IF a$ = "LOOK AROUND" THEN 3030 ELSE 3040 3030 PRINT " You are standing beside the road, to the north is a great wilderness to the" 3031 PRINT " east is an uphill road, to the south is a house, and to the west is a road." 3032 PRINT " There is also a mailbox here." 3033 GOTO 3010 3040 IF a$ = "GO NORTH" THEN 3100 3041 IF a$ = "GO SOUTH" THEN 600 3042 IF a$ = "GO WEST" THEN 4100 3043 IF a$ = "GO EAST" THEN 700 3044 IF a$ = "OPEN MAILBOX" AND HOUSEKEY = 0 THEN 3070 3045 IF a$ = "OPEN MAILBOX" AND HOUSEKEY = 1 THEN PRINT " You already have the key.": GOTO 3010 3055 GOSUB 8020 3056 GOTO 3010 3070 ' 3071 PRINT " Opening the mailbox reveals a key and a letter. You place the key in your" 3072 PRINT " pocket and open the letter. It reads:` Thank you for playing Escape From " 3073 PRINT " Hiddenite, but if I were you I would get my butt out of the road before I" 3074 PRINT " got hit! Now STEP BACK!'" 3075 IF HOUSEKEY = 0 THEN LET POINTS = POINTS + 100: LET HOUSEKEY = 1 3079 INPUT ">", a$: GOSUB 40000 3080 IF a$ = "STEP BACK" THEN 3030 3090 PRINT " Apparently you like to play in traffic, I'd STEP BACK if I were you." 3091 INPUT ">", a$: GOSUB 40000 3092 IF a$ = "STEP BACK" THEN 3030 3093 PRINT " Failure to step back has caused Instant-Acceleration-Trauma, that truck did" 3094 PRINT " not need another hood ornament. NOW PRESS ENTER." 3095 INPUT ">", a$ 3096 GOTO 20000 3100 ' ------------------------WILDERNESS-------------------------------------- 3101 PRINT " You have just entered a vast wilderness, the likes of which you have never" 3102 PRINT " encountered before. You have but one choice here." 3103 place$ = "Wilderness": GOSUB GetInputs: : GOSUB 40000 3104 IF a$ = "GO BACK" THEN 3115 3105 IF a$ = "RUN" THEN PRINT " We don't run around here.": GOTO 3103 3106 IF a$ = "HELP" THEN PRINT " Screaming for help will do you no good.": GOTO 3103 3107 IF a$ = "JUMP" THEN PRINT " This is no time to be jumping for joy.": GOTO 3103 3108 IF a$ = "GO WEST" THEN 3114 3109 IF a$ = "GO EAST" THEN 3114 3110 IF a$ = "GO SOUTH" THEN 3114 3111 IF a$ = "GO NORTH" THEN PRINT " You've really messed up here. You wander into bear country only to be killed.": GOTO 20000 3112 IF a$ = "LOOK AROUND" THEN PRINT " Trees, trees, trees, trees, trees, trees, (boy am I dizzy), trees.": GOTO 3103 3113 IF a$ = "YELL" THEN PRINT " AAAAAAAAAAAAAAAAAAAAAaaaaaaaaaaaaaaa!!!, Feel better now?": GOTO 3103 3114 PRINT " Wandering in the forest aimlessly, you die of starvation.": GOTO 20000 3115 PRINT " Wise choice, but unfortunately, I don't know the way back. Instead" 3116 PRINT " you will be sent back the easiest way out." 3117 PRINT " You manage to climb up a hill to see that not far away is another hill top." 3118 PRINT " You emerge at a crossroads." 3119 GOTO 700 3200 '----------------------------MTN VIEW EAST ------------------------------- 3201 RANDOMIZE TIMER 3202 LET LOST = INT(RND * 3) + 1 3210 PRINT " You are standing on a road that goes north and south. In the distance" 3211 PRINT " you can see a great mountain range. It appears that road ahead is unpaved. There is also a trail to the west." 3212 place$ = "Unpaved road": GOSUB GetInputs: : GOSUB 40000 3213 IF a$ = "GO EAST" THEN PRINT " The road only goes north and south.": GOTO 3212 3214 IF a$ = "GO WEST" THEN 4900 3215 IF a$ = "GO NORTH" THEN PRINT " You hit the dusty trail and come out near the base of a mountain.": GOTO 2400 3216 IF a$ = "GO SOUTH" THEN 4700 3217 IF LOST < 1 THEN 3240 3237 PRINT " I know you are trying to say something, I saw your lips move.": GOTO 3212 3240 IF HOUSEKEY = 1 THEN 3280 3241 IF HOUSEKEY = 0 THEN 3212 3280 PRINT " DARN! you just now noticed a hole in your pocket. Now you have no key." 3281 PRINT " It must have fallen out somewhere along the way. Now you'll have to go back" 3282 PRINT " to get another one. " 3283 LET HOUSEKEY = 0: LET POINTS = POINTS - 100 3284 GOTO 3212 3300 '---------------------------wooded path north----------------------------- 3310 PRINT " You are on a wooded path, you can see a clearing to the north and a narrow" 3311 PRINT " trail to the east. You can also go south." 3312 place$ = "Wooded path": GOSUB GetInputs: : GOSUB 40000 3313 IF a$ = "GO NORTH" THEN 3400 3314 IF a$ = "GO SOUTH" THEN 3500 3315 IF a$ = "GO EAST" THEN 3100 3316 IF a$ = "GO WEST" THEN PRINT " The woods are too thick in this direction.": GOTO 3312 3318 IF a$ = "LOOK AROUND" THEN PRINT " You've seen enough of the trees, better watch where you are going.": GOTO 3312 3319 PRINT " I wish you'd be more specific.": GOTO 3312 3400 '--------------------------------well------------------------------------ 3410 PRINT " You emerge in a clearing, looking around you notice that the only way to" 3411 PRINT " leave is the way you came. There is a well here." 3412 place$ = "Well": GOSUB GetInputs: : GOSUB 40000 3413 LET ANSWER$ = " You have only one way out and this is not it." 3414 IF a$ = "GO EAST" THEN PRINT ANSWER$: GOTO 3412 3415 IF a$ = "GO WEST" THEN PRINT ANSWER$: GOTO 3412 3416 IF a$ = "GO NORTH" THEN PRINT ANSWER$: GOTO 3412 3417 IF a$ = "GO SOUTH" THEN 3300 3418 IF a$ = "LOOK AROUND" THEN 3425 3419 IF a$ = "FILL JUG" THEN 3450 3420 IF a$ = "GET WATER" THEN 3450 3421 IF a$ = "DRINK WATER" THEN PRINT " Thanks, I was thirsty.": GOTO 3412 3422 IF a$ = "LOOK IN WELL" THEN PRINT " LOOK! You can see your reflection, aren't you just beautiful?": GOTO 3412 3423 IF a$ = "JUMP IN WELL" THEN PRINT " You can't swim.": GOTO 3412 3424 PRINT " As usual your instructions are as clear as mud.": GOTO 3412 3425 PRINT " You are in a clearing deep in the woods. There is a well here. The water is" 3426 PRINT " clear and cold. It would be good to take some with you." 3427 GOTO 3412 3450 '---------------------qualify jug/water------------------------------- 3451 IF JUG = 1 THEN LET WATER = 1 3452 IF JUG = 0 THEN 3480 3453 PRINT " You take out the water jug you got at the bike shop and fill it with water." 3454 PRINT " You even take a good long drink for right now. The water tastes delicious." 3455 PRINT " After that refreshing break, you head down the path south.": GOTO 3300 3480 PRINT " Once again you did not plan ahead. You have no jug. You might" 3481 PRINT " as well go now.": GOTO 3412 3500 '----------------------------INTRO TO WOODED AREA--------------------------- 3510 PRINT " You are on a wooded path, from here you can go north, west, and also east." 3511 place$ = "Edge of forest": GOSUB GetInputs: : GOSUB 40000 3512 IF a$ = "GO EAST" THEN 4100 3513 IF a$ = "GO WEST" THEN 3600 3514 IF a$ = "GO SOUTH" THEN PRINT " You can't go south from here.": GOTO 3511 3515 IF a$ = "GO NORTH" THEN 3300 3516 IF a$ = "LOOK AROUND" THEN PRINT " You are at the edge of the woods, my the trees look pretty.": GOTO 3511 3517 PRINT " I don't understand.": GOTO 3511 3600 '----------------------------SE WOODED PATH-------------------------------- 3610 PRINT " You are on a trail that winds through the woods, from here you can go north," 3611 PRINT " east, and west. to the west the path looks more traveled." 3612 place$ = "Wooded path": GOSUB GetInputs: : GOSUB 40000 3613 IF a$ = "GO NORTH" THEN 3700 3614 IF a$ = "GO SOUTH" THEN PRINT " This is another spot where you can't go south.": GOTO 3612 3615 IF a$ = "GO EAST" THEN 3500 3616 IF a$ = "GO WEST" THEN 3650 3617 IF a$ = "LOOK AROUND" THEN PRINT " I see alot of trees here.": GOTO 3612 3618 PRINT " I don't understand.": GOTO 3612 3650 PRINT " You have apparently wandered too far into the thicket. Around you lie the" 3651 PRINT " remains of others who have came this way. You must resign yourself to the" 3652 PRINT " same fate.": GOTO 20000 3700 '---------------------------------wooded path north ------------------------ 3701 PRINT " You are on a wooded path, from here you can go west and south." 3710 place$ = "Wooded path": GOSUB GetInputs: : GOSUB 40000 3711 IF a$ = "GO NORTH" THEN PRINT " There are too many trees.": GOTO 3710 3712 IF a$ = "GO EAST" THEN PRINT " There is no path east.": GOTO 3710 3713 IF a$ = "GO WEST" THEN 3800 3715 IF a$ = "GO SOUTH" THEN 3600 3716 IF a$ = "LOOK AROUND" THEN PRINT " Oh look, a tree! Where?": GOTO 3710 3718 PRINT " Please restate that.": GOTO 3710 3800 '--------------------------------wooded path west------------------------ 3810 place$ = "Wooded path": GOSUB GetInputs: : GOSUB 40000 3811 IF a$ = "GO EAST" THEN 3700 3812 IF a$ = "GO NORTH" THEN 3900 3813 IF a$ = "GO SOUTH" THEN PRINT " The trees are too thick here.": GOTO 3810 3814 IF a$ = "GO WEST" THEN PRINT " Wandering into the thicket, you get lost. You are attacked by a spotted owl. Not wanting to harm an endangered species, you do not fight back.": GOTO 20000 3815 IF a$ = "LOOK AROUND" THEN PRINT " Haven't you seen enough trees?": GOTO 3810 3816 PRINT " I don't understand.": GOTO 3810 3900 '-------------------------------wooded path far north--------------------- 3910 place$ = "Wooded path": GOSUB GetInputs: : GOSUB 40000 3920 IF a$ = "GO NORTH" THEN 4000 3922 IF a$ = "GO SOUTH" THEN 3800 3923 IF a$ = "GO WEST" THEN PRINT " There is a large river here, and you can not cross it.": GOTO 3910 3925 IF a$ = "GO EAST" THEN PRINT " Your poor sense of direction has caused you to wander off a steep cliff. You tumble and roll for a great distance. When you come to a halt, you look around. ": GOTO 3300 3926 IF a$ = "LOOK AROUND" THEN PRINT " MORE TREES !!!": GOTO 3910 3927 PRINT " I don't understand.": GOTO 3910 4000 '--------------------------------hermit ----------------------------------- 4001 PRINT " The path emerges in a clearing. There is a small shack here." 4002 place$ = "Outside shack": GOSUB GetInputs: : GOSUB 40000 4003 IF a$ = "GO NORTH" THEN PRINT " You can't go any further north.": GOTO 4002 4004 IF a$ = "GO SOUTH" THEN 3900 4005 IF a$ = "GO EAST" THEN PRINT " You can't go east.": GOTO 4002 4006 IF a$ = "GO WEST" THEN PRINT " You can't go west.": GOTO 4002 4007 IF a$ = "LOOK AROUND" THEN 4001 4008 IF a$ = "LOOK AT SHACK" THEN PRINT " It is a small one room, moss encrusted, log structure.": GOTO 4002 4009 IF a$ = "GO IN" THEN 4020 4010 IF a$ = "ENTER" THEN 4020 4011 IF a$ = "OPEN DOOR" THEN PRINT " There door is open.": GOTO 4002 4012 IF a$ = "JUMP" THEN PRINT " How high?": GOTO 4002 4013 IF a$ = "JUMP HIGH" THEN PRINT " You can't defy the laws of gravity for long, you come back down.": GOTO 4002 4014 IF a$ = "JUMP REAL HIGH" THEN PRINT " You lunge upward and grab a tree branch. The branch breaks and you come down. On the ground next to you spot a small bell. You pick it up.": LET BELL = 1: GOTO 4002 4015 PRINT " I don't understand.": GOTO 4002 4016 PRINT " Looking inside seems to reveal nothing, so you go back outside." 4017 GOTO 4002 4020 '--------------------------------shack------------------------------------ 4021 IF BELL = 0 THEN 4016 4022 place$ = "Inside shack": GOSUB GetInputs: : GOSUB 40000 4023 IF a$ = "LOOK AROUND" THEN PRINT " The room is empty except for a table and two chairs.": GOTO 4022 4024 IF a$ = "SIT" THEN PRINT " You take a seat at the table.": GOTO 4030 4025 IF a$ = "SIT DOWN" THEN PRINT " You take a seat at the table.": GOTO 4030 4026 IF a$ = "TAKE TABLE" THEN PRINT " You wouldn't want this rickety old thing.": GOTO 4022 4027 IF a$ = "EXIT" THEN 4002 4028 IF a$ = "LEAVE" THEN 4002 4029 PRINT " I don't understand.": GOTO 4022 4030 '---------------------------------table---------------------------------- 4031 place$ = "Seated at table": GOSUB GetInputs: : GOSUB 40000 4032 IF a$ = "RING BELL" THEN 4040 4033 IF a$ = "LOOK AROUND" THEN PRINT " You are seated at a table, in a shack, in the woods, far from civilization.": GOTO 4031 4034 IF a$ = "STAND" THEN 4022 4035 IF a$ = "STAND UP" THEN 4022 4036 IF a$ = "EXIT" THEN PRINT " You stand and leave.": GOTO 4002 4037 IF a$ = "LEAVE" THEN PRINT " You stand and leave.": GOTO 4002 4038 PRINT " I don't understand.": GOTO 4031 4039 '------------------------------enter hermit------------------------------ 4040 PRINT " Ringing the bell produces the desired result. In walks Steel Charms, he is " 4041 PRINT " rather unkept. He obviously has been living out here a while. He comes over " 4042 PRINT " to the table and sits down." 4043 place$ = "Hermit": GOSUB GetInputs: : GOSUB 40000 4044 IF a$ = "TALK" THEN 4060 4045 IF a$ = "LEAVE" THEN PRINT " You stand and leave.": GOTO 4002 4046 IF a$ = "EXIT" THEN PRINT " You stand and leave.": GOTO 4002 4047 IF a$ = "SPEAK" THEN 4060 4048 IF a$ = "LOOK AROUND" THEN PRINT " You and Mr. Charms are seated at the table.": GOTO 4043 4050 PRINT " I don't understand.": GOTO 4043 4060 '------------------------------qualify for xtra life ------------------- 4061 IF COIN = 0 THEN PRINT " Surprisingly, he has nothing to say. ": GOTO 4043 4062 PRINT " `I am glad you have come to my little hideaway. This is where I come to get" 4063 PRINT " away from it all. Do you have a coin for me?' ": place$ = " ": GOSUB GetInputs: 4064 PRINT " You take the coin from your pocket and give it to him." 4065 PRINT " `Thank you for the coin, now you have another chance at life.'" 4066 PRINT " With a puzzled look on your face you stand and leave. You figure that you " 4067 PRINT " will come to understand the importance of this transaction when you finally" 4068 PRINT " escape from the lands of Hiddenite." 4069 INPUT " press enter >", a$ 4070 LET LIVES = LIVES + 1: LET POINTS = POINTS + 500: LET COIN = 0: GOTO 4002 4100 '------------------------------FORK IN THE ROAD---------------------------- 4105 PRINT " You have reached a fork in the road, from here there are three choices." 4106 place$ = "Forked road": GOSUB GetInputs: : GOSUB 40000 4108 IF a$ = "GO NORTH" THEN 3500 4109 IF a$ = "GO SOUTH" THEN 4200 4110 IF a$ = "GO EAST" THEN 3000 4111 IF a$ = "LOOK AROUND" THEN PRINT " There also seems to be a sign here.": GOTO 4106 4112 IF a$ = "READ SIGN" THEN 4130 4113 IF a$ = "READ IT" THEN 4130 4120 IF a$ = "GO WEST" THEN PRINT " You can't split the fork, you either take the north road, or the south." 4122 IF a$ = "GO WEST" THEN 4106 4123 IF a$ = "GO DOWN" THEN 4131 4124 GOSUB 8020 4126 GOTO 4106 4130 PRINT " The sign says `NORTH, SOUTH, EAST, & DOWN'": GOTO 4106 4131 PRINT " v": PRINT " v": PRINT " v": PRINT " v": PRINT " v": PRINT " v": PRINT " v": PRINT " v": PRINT " v": PRINT " v": PRINT " v": PRINT " v": PRINT " v" 4132 PRINT : PRINT " You have fallen into an underground tunnel. You stand and head east." 4133 PRINT " When you climb back out you emerge in front of a house." 4134 GOTO 600 4200 '--------------------------CLEARING--------------------------------------- 4201 PRINT " You are in a large clearing, to the north is nothing, to the south is also" 4202 PRINT " nothing. A view to the west reveals a vast desert wasteland, it stretches all" 4203 PRINT " the way to the horizon. To cross this desert you'd need an extra supply of" 4204 PRINT " water." 4205 place$ = "Clearing": GOSUB GetInputs: : GOSUB 40000 4206 IF a$ = "GO NORTH" THEN PRINT " You can't go north from here.": GOTO 4205 4207 IF a$ = "GO SOUTH" THEN PRINT " You can hear a highway to the south, but you can't go south from here.": GOTO 4205 4208 IF a$ = "GO WEST" THEN 4300 4209 IF a$ = "GO EAST" THEN 4100 4210 GOSUB 8020 4211 GOTO 4205 4300 ' --------------------------------DESERT----------------------------------- 4301 PRINT " You are in the desert, boy a drink of water would be good right now." 4302 place$ = "Desert": GOSUB GetInputs: : GOSUB 40000 4303 IF a$ = "DRINK WATER" THEN PRINT " Not now, you may want it later.": GOTO 4302 4304 IF a$ = "GO EAST" THEN 4205 4305 IF a$ = "GO WEST" THEN 4310 4306 IF a$ = "GO NORTH" THEN 4390 4307 IF a$ = "GO SOUTH" THEN 4390 4308 GOSUB 8020 4309 GOTO 4302 4310 PRINT " You are in the desert, boy would a drink of water be good right now." 4311 place$ = "Desert": GOSUB GetInputs: : GOSUB 40000 4312 IF a$ = "GO NORTH" THEN 4390 4313 IF a$ = "GO SOUTH" THEN 4390 4314 IF a$ = "GO EAST" THEN 4302 4315 IF a$ = "DRINK WATER" THEN PRINT " You really should save it.": GOTO 4311 4316 IF a$ = "GO WEST" THEN 4320 4317 GOSUB 8020 4318 GOTO 4311 4320 PRINT " You are in the desert, I think a drink would be most appropriate right now." 4321 IF WATER = 0 THEN 4390 4322 place$ = "Desert": GOSUB GetInputs: : GOSUB 40000 4323 IF a$ = "DRINK WATER" THEN LET WATER = 0: LET POINTS = POINTS + 100 4324 IF a$ = "DRINK WATER" THEN 4400 4325 IF a$ = "GO SOUTH" THEN 4390 4326 IF a$ = "GO NORTH" THEN 4390 4327 IF a$ = "GO EAST" THEN 4311 4328 IF a$ = "GO WEST" THEN 4390 4390 PRINT " Well I guess all this heat has finally gotten to you, thirsty and exhuasted" 4391 PRINT " you fall down. Your last thoughts are of how rotten this whole experience" 4392 PRINT " has been. I'm sorry no one will mourn your passing." 4393 GOTO 20000 4400 ' -------------------------------DESERT CROSSROAD------------------------ 4401 PRINT " You made it through the scorching desert, but it's not over yet." 4402 PRINT " You are now at a crossroads at the edge of the desert, there's no " 4403 PRINT " turning back now. You drank all your water." 4404 LET CHANCE = 2 4405 place$ = "Desert crossroad": GOSUB GetInputs: : GOSUB 40000 4406 LET CHANCE = CHANCE - 1 4407 IF a$ = "GO SOUTH" THEN 4600 4408 IF CHANCE = 0 THEN GOTO 4409 ELSE 4420 4409 PRINT " Apparently you let the searing sun play tricks on your mind. You have gone" 4410 PRINT " the wrong way. The vultures soaring over head now swoop down to pick the" 4411 PRINT " rotting flesh from your bones. What an awful way to go." 4412 GOTO 20000 4420 PRINT " You still have another chance at escape, hopefully you'll make the right" 4421 PRINT " choice." 4422 GOTO 4405 4500 '--------------------------------NEW ROAD--------------------------------- 4501 PRINT " Behind the bus station the new road stretches out east to west." 4510 place$ = "New road": GOSUB GetInputs: : GOSUB 40000 4511 IF a$ = "GO SOUTH" THEN PRINT " What did I just say? The road goes east to west.": GOTO 4510 4512 IF a$ = "GO NORTH" THEN PRINT " You go through the bus station and are now in front.": GOTO 2700 4513 IF a$ = "GO EAST" THEN 4520 4514 IF a$ = "LOOK AROUND" THEN 4501 4515 IF a$ = "GO WEST" THEN 4540 4516 PRINT " I don't understand.": GOTO 4510 4520 '--------------------new rd east-------- 4521 PRINT " The journey you are about to embark upon is long, and the road may not be" 4522 PRINT " completed. " 4523 place$ = "New road east": GOSUB GetInputs: : GOSUB 40000 4524 IF a$ = "GO WEST" THEN 4510 4525 IF a$ = "GO BACK" THEN 4510 4526 IF a$ = "GO NORTH" THEN PRINT " There's a guard rail here.": GOTO 4523 4527 IF a$ = "GO SOUTH" THEN PRINT " There's a guard rail here.": GOTO 4523 4528 IF a$ = "GO EAST" THEN 4530 4529 PRINT " I don't understand.": GOTO 4325 4530 PRINT " You walk way to far east. As a matter of fact you have walked east until" 4531 PRINT " your hat floated. Unfortunately, you did not. You are now a new addition to" 4532 PRINT " Davie Jones' locker.": GOTO 20000 4540 '-------------------new rd west------------ 4541 PRINT " The journey you are about to make will be long. It would be nice to have " 4542 PRINT " a bike." 4543 place$ = "New road west": GOSUB GetInputs: : GOSUB 40000 4544 IF a$ = "RIDE BIKE" THEN 4550 4545 IF a$ = "GO EAST" THEN 4510 4546 IF a$ = "GO WEST" THEN 4550 4547 IF a$ = "GO SOUTH" THEN PRINT " The road only goes in two directions.": GOTO 4543 4548 IF a$ = "GO NORTH" THEN PRINT " The road only goes east and west.": GOTO 4543 4549 PRINT " I do not understand.": GOTO 4543 4550 '-------------------qualify bike------------ 4551 IF BIKE = 0 THEN PRINT " You don't have a bike.": GOTO 4543 4552 IF BIKECHAIN = 0 THEN PRINT " You'll need a chain to make the bike go.": GOTO 4543 4553 PRINT " Well since you have a bike it should make the trip easier, you may want" 4554 PRINT " to put the chain on it though." 4555 place$ = "Standing beside bike": GOSUB GetInputs: : GOSUB 40000 4556 IF a$ = "PUT ON CHAIN" THEN 4560 4557 IF a$ = "INSTALL CHAIN" THEN 4560 4558 IF a$ = "PUT CHAIN ON" THEN 4560 4559 PRINT " Don't you feel like fixing the bike?": GOTO 4555 4560 PRINT " Thank you. This should be a much safer method of transportation now." 4561 PRINT " You are now riding the bike." 4562 place$ = "New road west (on bike)": GOSUB GetInputs: : GOSUB 40000 4563 IF a$ = "GO EAST" THEN PRINT " You take the bike apart, and carry it.": GOTO 4501 4564 IF a$ = "GO WEST" THEN 4570 4565 IF a$ = "GO NORTH" THEN PRINT " Riding this old thing off-road is not a good idea.": GOTO 4562 4566 IF a$ = "GO SOUTH" THEN PRINT " Riding straight into a guard would hurt a great deal.": GOTO 4562 4567 PRINT " I don't really get what you are saying here.": GOTO 4562 4570 PRINT " You launch your newly repaired vehicle down a large hill. You begin to " 4571 PRINT " to increase velocity. This is getting pretty scary. You can't bear it any" 4572 PRINT " more and apply the brakes. " 4573 PRINT " This frightening experience has left you exhausted, and your bike with a flat" 4574 PRINT " tire. I wonder if you have a tire pump?" 4575 INPUT " Press enter >", a$ 4576 IF PUMP = 0 THEN PRINT " I guess you don't. So now you walk back.": GOTO 4501 4577 PRINT " I see that you do. Great! " 4578 PRINT " You pump up the tire and continue on your way, although a little slower" 4579 PRINT " this time." 4580 INPUT " Press enter >", a$ 4581 PRINT " You crest the top of a hill to see a town coming into view." 4582 GOTO 4600 4600 '--------------------------TOWN / GAME WIN-------------------------------- 4602 PRINT : PRINT : PRINT 4605 PRINT " You now have arrived at your ultimate destination." 4610 PRINT " YOU HAVE ESCAPED FROM HIDDENITE!!!" 4612 PRINT : PRINT 4615 PRINT " It has been a real pleasure to watch you succeed." 4629 PRINT : PRINT 4630 GOTO 30040 4700 '--------------------------------mansion--------------------------------- 4701 PRINT " You're standing in front of an old structure, most likely it was very beautiful" 4702 PRINT " in it's day. The front door has almost fallen off it's hinges." 4703 PRINT " Here the road continues north and to the south. There is a dirt path west." 4704 PRINT " To the east is the mansion." 4710 place$ = "Mansion": GOSUB GetInputs: : GOSUB 40000 4711 IF a$ = "GO WEST" THEN 3100 4712 IF a$ = "GO SOUTH" THEN 700 4713 IF a$ = "GO NORTH" THEN 3200 4714 IF a$ = "GO EAST" THEN 4725 4715 IF a$ = "ENTER" THEN 4725 4716 IF a$ = "GO IN" THEN 4725 4717 IF a$ = "LOOK AROUND" THEN 4700 4718 IF a$ = "RUN" THEN PRINT " Run from what?": GOTO 4710 4719 IF a$ = "LOOK INSIDE" THEN PRINT " You'll have to go in first.": GOTO 4710 4720 IF a$ = "TALK" THEN PRINT " Mummble, mummble, mummble.": GOTO 4710 4721 IF a$ = "JUMP" THEN PRINT " You feel froggy today don't you?": GOTO 4710 4724 PRINT " I don't understand.": GOTO 4710 4725 '------------------------------inside mansion----------------------------- 4726 PRINT " Carefully you ease up onto the rickety old porch, as you reach for the door" 4727 PRINT " it falls to the floor with a resounding CRASH. ( Nice job, real quiet.)" 4728 PRINT " You are standing in the front room, there is a door to the left,a door to" 4729 PRINT " the right, and a door behind you on the floor." 4730 place$ = "Front room": GOSUB GetInputs: : GOSUB 40000 4731 IF a$ = "OPEN DOOR" THEN PRINT " Which one?": GOTO 4730 4732 IF a$ = "LOOK AROUND" THEN 4728 4733 IF a$ = "OPEN LEFT DOOR" THEN 4740 4734 IF a$ = "OPEN RIGHT DOOR" THEN 4775 4735 IF a$ = "GO LEFT" THEN 4740 4736 IF a$ = "GO RIGHT" THEN 4775 4737 IF a$ = "EXIT" THEN 4701 4738 IF a$ = "LEAVE" THEN 4701 4739 PRINT " Can you please state that differently?": GOTO 4730 4740 '------------------------------left room---------------------------------- 4741 PRINT " Slowly you push the door open, you are now standing by a open window." 4742 PRINT " It's a long way down. A rat scurries by, carrying something in his mouth." 4743 PRINT " The rat is caught in a trap, dropping what he is carrying. From the other" 4744 PRINT " room someone walks in. He doesn't even notice you. It's Morbert, who takes" 4745 PRINT " the trap, with rat in it, to dispose of it.": IF COIN = 1 THEN 4766 4746 place$ = "Left room": GOSUB GetInputs: : GOSUB 40000 4747 IF a$ = "JUMP" THEN PRINT " Exitting in this manner has caused you to exit life. You are dead.": GOTO 20000 4748 IF a$ = "LOOK AROUND" THEN PRINT " You are in the left room; something's on the floor. The window is open.": GOTO 4746 4749 IF a$ = "EXIT" THEN 4730 4750 IF a$ = "LEAVE" THEN 4730 4751 IF a$ = "PICK IT UP" THEN LET COIN = 1: GOTO 4764 4752 IF a$ = "PICK UP" THEN LET COIN = 1: GOTO 4764 4753 IF a$ = "TAKE IT" THEN LET COIN = 1: GOTO 4764 4754 PRINT " I don't understand.": GOTO 4746 4755 4764 PRINT " You pick up what ever the rat dropped. It looks like a coin. You wipe off" 4765 PRINT " the rat saliva and put in your pocket.": LET POINTS = POINTS + 100 4766 place$ = "Left room": GOSUB GetInputs: : GOSUB 40000 4767 IF a$ = "EXIT" THEN 4730 4768 IF a$ = "LEAVE" THEN 4730 4769 IF a$ = "JUMP" THEN PRINT " Unbelieveably, you make it without so much as a scratch.": LET POINTS = POINTS + 100: GOTO 4700 4770 IF a$ = "GO RIGHT" THEN 4730 4771 IF a$ = "LOOK AROUND" THEN PRINT " The rat really didn't drop anything.": GOTO 4766 4774 PRINT " I don't understand.": GOTO 4766 4775 ' ----------------------------RIGHT ROOM--------------------------------- 4776 place$ = "Right room": GOSUB GetInputs: : GOSUB 40000 4777 IF a$ = "EXIT" THEN 4730 4778 IF a$ = "LEAVE" THEN 4730 4779 IF a$ = "GO LEFT" THEN 4730 4780 IF a$ = "LOOK AROUND" THEN PRINT " Your are in a room in the mansion. There doesn't appear to be anything here.": GOTO 4800 4782 IF a$ = "JUMP" THEN PRINT " You'll hit your head on the ceiling. ": GOTO 4776 4783 PRINT " What? please restate that." 4800 ' ----------------------------secret passage------------------------------ 4810 place$ = "Right room": GOSUB GetInputs: : GOSUB 40000 4811 IF a$ = "EXIT" THEN 4730 4812 IF a$ = "LEAVE" THEN 4730 4813 IF a$ = "GO LEFT" THEN 4730 4814 IF a$ = "LOOK AROUND" THEN 4850 4815 PRINT " Please rephrase that.": GOTO 4810 4850 PRINT " Looking around again reveals something you didn't notice before." 4851 PRINT " There seems to be a crack all the way around the empty bookcase." 4852 PRINT " You walk over to it and press on one side. It opens like a door." 4853 PRINT " There is a ladder going down." 4854 place$ = "Book case": GOSUB GetInputs: : GOSUB 40000 4855 IF a$ = "GO DOWN" THEN 4861 4856 IF a$ = "EXIT" THEN 4730 4857 IF a$ = "LEAVE" THEN 4730 4858 IF a$ = "CLIMB DOWN" THEN 4861 4859 IF a$ = "LOOK AROUND" THEN PRINT " There is open passage before you. You are in a room.": GOTO 4854 4860 PRINT " I don't understand.": GOTO 4854 4861 PRINT " You climb down the ladder." 4862 PRINT " Looking around you see that this is a series of caverns. They could lead" 4863 PRINT " anywhere. There is a passage to the east and one west. There's a ladder too." 4864 place$ = "Caverns": GOSUB GetInputs: : GOSUB 40000 4865 IF a$ = "GO EAST" THEN 4871 4866 IF a$ = "GO WEST" THEN 4880 4867 IF a$ = "LOOK AROUND" THEN 4862 4868 IF a$ = "CLIMB UP" THEN PRINT " Chicken!": GOTO 4854 4869 IF a$ = "EXIT" THEN PRINT " There is no exit, you're underground.": GOTO 4864 4870 PRINT " I don't understand.": GOTO 4864 4871 PRINT " Taking the east passage you crawl a great distance. Eventually you come" 4872 PRINT " upon another ladder. You climb up. Pushing aside a manhole cover you see" 4873 PRINT " that you have gone several blocks. You emerge at a bike shop." 4874 GOTO 1000 4880 PRINT " Taking the passage west you crawl for what seems like miles. eventually" 4881 PRINT " you happen upon another ladder. You climb it. Pushing aside a panel the" 4882 PRINT " dirt above falls all around you. You climb out to see that you are in a " 4883 PRINT " clearing.": GOTO 4200 4900 '----------------------------------QUARRY----------------------------------- 4901 PRINT " You have entered an area which appears to be a quarry. There are broken" 4902 PRINT " boulders strewn all about. There is a sign here." 4910 place$ = "Quarry": GOSUB GetInputs: : GOSUB 40000 4912 IF a$ = "LOOK AT SIGN" THEN PRINT "The sign says: CAUTION FALLING ROCK.": GOTO 4910 4913 IF a$ = "GO NORTH" THEN PRINT " There's a rock wall in the way.": GOTO 4910 4914 IF a$ = "GO SOUTH" THEN PRINT " There's a rock wall in the way.": GOTO 4910 4915 IF a$ = "GO WEST" THEN PRINT " You try to scale the rock face and a large boulder breaks loose. You and the boulder tumble to the bottom. You have left a lasting impression here.": GOTO 20000 4916 IF a$ = "GO EAST" THEN 3200 4917 IF a$ = "YELL" THEN PRINT " HELLO! HELLO HELLO hello hello ello lo o": GOTO 4910 4918 IF a$ = "LOOK AROUND" THEN PRINT " Rock, rock, rock, rock, stone, boulder, rock, pebble, rock, stone, rock.": GOTO 4910 4920 PRINT " I don't understand.": GOTO 4910 5000 '------------------------------HIDDENITE MINE----------------------------- 5001 PRINT " This might take a minute to roll the debris out of the way..." 5002 CHAIN "MINESHFT.BAS" 8000 '-------------------------------- 8010 PRINT " You can't go that way." 8011 LET RESPONSE = 1 8012 RETURN 8020 PRINT " I don't understand.": RETURN 8030 PRINT " This may take a while.": RETURN 8040 PRINT " You don't have enough money.": RETURN 8050 PRINT " You now have "; MONEY; " dollars.": RETURN 8060 PRINT " You don't need that." 8061 LET RESPONSE = 1 8062 RETURN 20000 '-------------------------------death------------------------------- 20005 LET LIVES = LIVES - 1 20010 IF LIVES < 1 THEN 30000 20020 PRINT " You are now dead, but there is still hope for you yet. I can help you but " 20030 PRINT " you now have only "; LIVES; " more chance(s)." 20040 INPUT " Would you still like to continue, or are you a chicken (Y/N)"; a$ 20060 IF UCASE$(a$) = "Y" THEN 20200 ELSE 30000 20070 IF LIVES = 4 THEN GOTO 3000 'MAILBOX 20080 IF LIVES = 3 THEN GOTO 2000 'SCHOOL 20090 IF LIVES = 2 THEN GOTO 3500 'WOODED PATH 20100 IF LIVES = 1 THEN GOTO 1200 'BUSY RD. EAST 20200 ' 20202 GOTO 20070 30000 INPUT " YOU'RE DEAD FOR SURE NOW, THERE IS NO GOING BACK (press enter)", q 30005 CLS 30010 PRINT : PRINT : PRINT : PRINT 30020 PRINT " It has been a pleasure watching you fail, we will have to do this " 30030 PRINT " again sometime.": PRINT : PRINT 30040 PRINT SPC(10); " YOUR FINAL SCORE IS "; POINTS; " POINTS.": PRINT 30042 PRINT SPC(10); " YOU TOOK "; Turns; " STEPS TO GET THIS FAR.": PRINT 30045 LET score = POINTS + DOLLARS 30050 IF score < 500 THEN PRINT SPC(10); " YOUR RANK IS IDIOT." ELSE 30060 30055 GOTO 99999 30060 IF score < 1500 THEN PRINT SPC(10); " YOUR RANK IS AMATUER." ELSE 30070 30065 GOTO 99999 30070 IF score < 2000 THEN PRINT SPC(10); " YOUR RANK IS NOVICE." ELSE 30080 30075 GOTO 99999 30080 IF score < 3000 THEN PRINT SPC(10); " YOUR RANK IS WANDERER." ELSE 30090 30085 GOTO 99999 30090 IF score < 4000 THEN PRINT SPC(10); " YOU ARE HARRY HOUDINI." ELSE 30100 30095 GOTO 99999 30100 IF score < 5000 THEN PRINT SPC(10); " NO PLACE CAN HOLD YOU, CHAMP." ELSE 30110 30105 GOTO 99999 30110 PRINT SPC(10); " YOU ARE A GOD!": GOTO 99999 40000 '-----------------------corrections---------------------------------- 40002 LET a$ = UCASE$(a$) 40003 IF a$ = "SCORES" THEN HighScores 40004 IF a$ = "N" THEN a$ = "GO NORTH" 40005 IF a$ = "S" THEN a$ = "GO SOUTH" 40006 IF a$ = "W" THEN a$ = "GO WEST" 40007 IF a$ = "E" THEN a$ = "GO EAST" 40008 IF a$ = "NORTH" THEN a$ = "GO NORTH" 40009 IF a$ = "SOUTH" THEN a$ = "GO SOUTH" 40010 IF a$ = "WEST" THEN a$ = "GO WEST" 40011 IF a$ = "EAST" THEN a$ = "GO EAST" 40012 IF a$ = "QUIT" THEN 41000 40013 IF a$ = "Q" GOTO 41000 40015 IF a$ = "MAP" THEN 42000 40016 IF a$ = "D" THEN a$ = "GO DOWN" 40017 IF a$ = "DOWN" THEN a$ = "GO DOWN" 40018 IF a$ = "TURNS" THEN PRINT "You have taken "; Turns; " turns.": a$ = "LOOK AROUND" 40019 IF a$ = "INVENTORY" THEN 40020 ELSE 40100 40020 '---------inventory------- 40021 J$ = ", " 40022 IF HOUSEKEY = 1 THEN J1$ = "a key" ELSE J1$ = "" 40023 IF COIN = 1 THEN J2$ = ", a coin" ELSE J2$ = "" 40024 IF PUMP = 1 THEN J3$ = ", a tire pump" ELSE J3$ = "" 40025 IF JUG = 1 THEN J4$ = ", a water jug" ELSE J4$ = "" 40026 IF WATER = 1 THEN J5$ = " (the jug is full)" ELSE J5$ = "" 40027 IF WATER = 0 AND JUG = 1 THEN J5$ = " (the jug is empty)" 40028 IF BIKECHAIN = 1 THEN J6$ = ", a bike chain" ELSE J6$ = "" 40029 IF GEM = 1 THEN J7$ = ", a rare gem" ELSE J7$ = "" 40030 IF LANTERN = 1 THEN J8$ = ", a lantern" ELSE J8$ = "" 40031 IF BIKE = 1 THEN J9$ = ", an old bike" ELSE J9$ = "" 40032 IF PHCARD = 1 THEN J10$ = ", a phonecard" ELSE J10$ = "" 40033 IF TICKET = 1 THEN J11$ = ", a bus ticket" ELSE J11$ = "" 40089 PRINT " You have "; J1$; J2$; J3$; J4$; J5$; J6$; J7$; J8$; J9$; J10$; J11$; J$; LIVES; " lives left, and $"; MONEY; " dollars." 40090 LET a$ = "LOOK AROUND" 40100 '---skip to here w/o inventory--- 40212 Turns = Turns + 1: RETURN 41000 INPUT " What and leave this beautiful little town? (Y/N) ", X$ 41001 IF UCASE$(X$) = "Y" THEN 30005 ELSE a$ = "LOOK AROUND": RETURN 42000 CLS : SCREEN 8 '----------------------------town map-------------- 42010 LINE (225, 69)-(250, 77), 7'--- diagonals 42020 LINE (300, 40)-(340, 26), 6 42030 LINE (410, 60)-(435, 49), 7 42040 LINE (300, 94)-(310, 89), 7 42050 LINE (275, 180)-(300, 190), 8 42051 42055 LINE (50, 9)-(50, 43), 6 '---- verticals 42060 LINE (100, 44)-(100, 60), 6 42070 LINE (150, 26)-(150, 60), 6 42080 LINE (200, 60)-(200, 77), 7 42090 LINE (250, 94)-(250, 111), 7 42100 LINE (250, 66)-(250, 80), 7 42120 42130 LINE (300, 40)-(300, 194), 7'---- verticals 42140 LINE (310, 57)-(310, 60), 7 42150 LINE (340, 60)-(340, 63), 7 42160 LINE (350, 9)-(350, 94), 7 42170 LINE (400, 9)-(400, 34), 7 42180 LINE (400, 60)-(400, 77), 7 42190 42200 LINE (25, 26)-(75, 26), 6 '---- horizontals 42210 LINE (25, 43)-(100, 43), 6 42220 LINE (75, 60)-(200, 60), 6 42225 LINE (100, 77)-(200, 77), 6 42230 LINE (150, 43)-(200, 43), 6 42240 LINE (200, 69)-(225, 69), 7 42250 LINE (250, 77)-(450, 77), 7 42255 42260 LINE (275, 60)-(310, 60), 7'---- horizontals 42265 LINE (275, 43)-(300, 43), 7 42270 LINE (340, 60)-(410, 60), 7 42280 LINE (350, 43)-(375, 43), 7 42290 LINE (340, 26)-(435, 26), 7 42295 LINE (150, 111)-(270, 111), 7 42300 LINE (435, 49)-(450, 49), 7 42310 LINE (200, 94)-(450, 94), 7 42315 42320 LINE (295, 111)-(305, 111), 7'---- horizontals 42340 LINE (295, 129)-(305, 129), 7 42350 LINE (295, 146)-(305, 146), 7 42360 LINE (295, 163)-(305, 163), 7 42370 LINE (295, 180)-(305, 180), 7 42375 42380 LOCATE 1, 5: PRINT "shack Mountains" 42390 LOCATE 5, 12: PRINT "woods" 42395 LOCATE 3, 18: PRINT "well" 42400 LOCATE 7, 26: PRINT "wilderness" 42410 LOCATE 5, 30: PRINT "quarry" 42420 LOCATE 10, 7: PRINT "desert" 42430 LOCATE 10, 58: PRINT "bike shop" 42440 LOCATE 12, 58: PRINT "to Rocky Point>" 42450 LOCATE 7, 58: PRINT "school" 42460 LOCATE 4, 56: PRINT "mine" 42470 LOCATE 6, 49: PRINT "golf" 42480 LOCATE 14, 11: PRINT "": Spot = CSRLIN IF Spot = 1 THEN Spot = 2 COLOR 4, 7 LOCATE 1, 1: PRINT STRING$(80, " ") LOCATE 1, 2: PRINT "Escape From Hiddenite": COLOR 0 LOCATE 1, 50: PRINT "Turn #:"; Turns; TAB(65); "Score:"; POINTS COLOR 15, 1 LOCATE Spot - 1, LEN(place$) + 4: INPUT "", a$ RETURN ' - - - - - - - - - - - - - - - - - - - - - ' | ((((( page up one screen ^ ))))) | ' - - - - - - - - - - - - - - - - - - - - - 99999 PRINT : PRINT : PRINT CLEAR PRINT TAB(18); "[Press any key]": DO WHILE INKEY$ = "": LOOP HighScores SYSTEM SUB HighScores '------------------------ High Score Screen------------------ SCREEN 8: COLOR 4, 15 GOSUB DrawScreen GOSUB ShowScore GOSUB SaveScore GOSUB ShowScore DO WHILE INKEY$ = "": LOOP a$ = "LOOK AROUND" CLS GOTO EndOfSub '------------------------- Subs: ---------------------------- ShowScore: COLOR 1, 15 OPEN "EFHscore.lst" FOR INPUT AS #1 INPUT #1, N1$, L1$, S1$, T1$, M1$, N2$, L2$, S2$, T2$, M2$, N3$, L3$, S3$, T3$, M3$ CLOSE LOCATE 9, 15: PRINT TAB(17); "NAME"; TAB(29); "LIVES"; TAB(40); "SCORE"; TAB(50); "TURNS"; TAB(58); "CASH LEFT" COLOR 4 LOCATE 10, 15: PRINT TAB(15); "--------"; TAB(28); "-------"; TAB(39); "-------"; TAB(49); "-------"; TAB(57); "----------" COLOR 8 LOCATE 12, 15: PRINT TAB(15); N1$; TAB(30); L1$; TAB(40); S1$; TAB(50); T1$; TAB(60); "$"; M1$ LOCATE 14, 15: PRINT TAB(15); N2$; TAB(30); L2$; TAB(40); S2$; TAB(50); T2$; TAB(60); "$"; M2$ LOCATE 16, 15: PRINT TAB(15); N3$; TAB(30); L3$; TAB(40); S3$; TAB(50); T3$; TAB(60); "$"; M3$ RETURN SaveScore: IF score > VAL(S1$) THEN GOSUB EnterName IF score <= VAL(S1$) AND score > VAL(S2$) THEN GOSUB EnterName IF score <= VAL(S2$) AND score > VAL(S3$) THEN GOSUB EnterName IF score > VAL(S1$) THEN S3$ = S2$: N3$ = N2$: L3$ = L2$: T3$ = T2$: M3$ = M2$: S2$ = S1$: N2$ = N1$: L2$ = L1$: T2$ = T1$: M2$ = M1$: S1$ = STR$(score): N1$ = Name$: L1$ = STR$(LIVES): T1$ = STR$(Turns): M1$ = STR$(MONEY): GOTO WriteScore IF score <= VAL(S1$) AND score > VAL(S2$) THEN S3$ = S2$: N3$ = N2$: L3$ = L2$: T3$ = T2$: M3$ = M2$: S2$ = STR$(score): N2$ = Name$: L2$ = STR$(LIVES): T2$ = STR$(Turns): M2$ = STR$(MONEY): GOTO WriteScore IF score <= VAL(S2$) AND score > VAL(S3$) THEN : S3$ = STR$(score): N3$ = Name$: L3$ = STR$(LIVES): T3$ = STR$(Turns): M3$ = STR$(MONEY): GOTO WriteScore IF score <= VAL(S3$) THEN GOTO DontWriteScore WriteScore: OPEN "efhscore.lst" FOR OUTPUT AS #1 WRITE #1, N1$, L1$, S1$, T1$, M1$, N2$, L2$, S2$, T2$, M2$, N3$, L3$, S3$, T3$, M3$ CLOSE RETURN DontWriteScore: LOCATE 18, 22: PRINT " I'm sorry you didn't make the list. " RETURN EnterName: LOCATE 18, 15: PRINT " Congratulations! You made the list. [Press any key]" DO WHILE INKEY$ = "": LOOP LOCATE 18, 15: PRINT " " LOCATE 18, 22: INPUT " Enter your name > ", Name$ LOCATE 18, 15: PRINT " " IF LEN(Name$) > 12 THEN Name$ = LEFT$(Name$, 12) RETURN DrawScreen: SCREEN 8: CLS LINE (100, 50)-(540, 150), 15, BF: LINE (96, 48)-(544, 152), 1, B LINE (140, 28)-(500, 42), 15, BF: LINE (136, 26)-(504, 44), 1, B PAINT (10, 10), 1 LINE (101, 51)-(539, 149), 3, B: LINE (141, 29)-(501, 41), 3, B: LOCATE 5, 23: PRINT "High Scores for Escape From Hiddenite" RETURN EndOfSub: SCREEN 0: COLOR 15, 1: CLS END SUB