Monster Media 1993 #2

home *** CD-ROM | disk | FTP | other *** search

/ Monster Media 1993 #2 / Image.iso / games1 / batwar.zip / BATAR.BAS < prev next >

Wrap

BASIC Source File | 1993-06-01 | 68KB | 1,497 lines

1 CLS 2 SCREEN 12 10 PRINT " " 20 PRINT " AG Software Presents " 30 PRINT " " 40 PRINT " An Alexander Golden Program " 50 PRINT " " 60 PLAY "C D E" 70 PLAY "E C D" 80 PRINT " " 90 PRINT "**************************************************************" 100 PRINT " " 110 PRINT " Battle " 120 PRINT " " 130 PRINT " Warrior " 140 PRINT " " 150 PRINT " " 151 PRINT "Enter your name, Warrior" 152 INPUT a$ 153 PRINT "Press 1 to play or enter your passcode to continue" 154 INPUT a 190 IF a = 1 THEN BEEP 191 IF a = 1765329 THEN 1770 192 IF a = 63784268 THEN 6890 193 IF a = 1209 THEN 8214 194 IF a = 368913 THEN 8674 200 GOTO 230 210 IF a = 2 THEN BEEP 220 GOTO 830 230 GOTO 250 250 BEEP 270 PRINT "Hello, "; a$; " I hope you enjoy Alexander Golden's " 280 PRINT "first programmed game!" 290 PRINT "Press 1 to skip story" 300 PRINT "Press 2 to read it" 310 INPUT b 320 IF b = 1 THEN 570 330 IF b = 2 THEN 340 340 PRINT "************************************************************" 350 PRINT "The story so far........." 360 PRINT " It is a fairly normal day. It is in the middle of summer" 370 PRINT " Vacation. You havn't done anything fun the whole summer. School" 380 PRINT "starts in a couple of weeks. To think of something to do you go" 390 PRINT "for a walk. Outside, near the old, empty lot. You see something" 400 PRINT "sparkling on the ground. You think to yourself 'mabey this could" 410 PRINT "end my boring summer. Mabey it is a diamond that I could sell for" 420 PRINT "a million dollars!' Exicitedly you pick it up." 430 BEEP 440 PRINT "You look at it. It appears to be a round object. You contunue" 450 PRINT "To stare at it. You can't take your eyes off of it. You start" 460 PRINT "to loose awarness of the things around you. You see spirals." 461 PRINT "Press 1 to continue." 462 INPUT a 463 IF a = 1 THEN BEEP 480 PRINT " ** ** " 490 PRINT " * * * * " 500 PRINT " * * " 510 PRINT " **** *** **** " 520 PRINT " * ** * " 530 PRINT " * * * * " 540 PRINT " ** * " 550 PRINT " " 560 PRINT " " 570 PRINT "You wake up in what appears to be an orchard. You see the" 580 PRINT "sparkle on the ground. " 590 PRINT "Press 1 to leave it" 600 PRINT "Press 2 to pick it up" 610 INPUT c 620 IF c = 1 THEN BEEP 640 IF c = 2 THEN 840 660 PRINT "You don't decide to pick it up. As you take a step you are blown" 670 PRINT "up by a grenade." 680 SCREEN 12 690 PRINT "*************************************************************" 700 PRINT " " 710 PRINT " " 720 PRINT " ____ " 730 PRINT " / \ /\ " 740 PRINT " [] / \ / \ " 750 PRINT " __[]__ [ ] / \ " 760 PRINT "[__ __] [ R.I.P ] / / " 770 PRINT " [] [ ] / / " 780 PRINT "\/\[]/\/\/\/\ [WARRIOR ] / / " 790 PRINT "/\/\/\/\ [ ] \/\ / " 800 PRINT " [ ] /\/\/\/ " 810 PRINT "/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/" 820 PLAY "CCDCECDDECD" 830 END 840 PRINT "As you pick up the sparkle it begins to talk!" 850 PRINT "It says 'Hello "; a$; " You were chosen to come here. There" 860 PRINT "is an unknown evil across than land, Hkrow. You must defeat" 870 PRINT "defeat this evil.' " 880 PRINT "'But why?', you ask" 890 PRINT "'You're are only hope. You have never seen this evil. It has" 900 PRINT "never seen you.'" 910 PRINT "'How will I know what this evil is?'" 920 PRINT "'You will not. You will just destroy it.'" 930 PRINT "'How?'" 940 PRINT "'I will become a sword. You can use me. But first you must be" 950 PRINT "tested. Do you wish to help us?'" 960 PRINT "Press 1 to be tested" 970 PRINT "Press 2 to throw the crystal and try to find a way out of this" 980 PRINT "strange countryside." 990 INPUT d 1000 IF d = 1 THEN 1050 1010 IF d = 2 THEN 1020 1020 PRINT "You throw the crystal as far as you can. It is too heavy, you" 1030 PRINT "drop it and it explodes!" 1040 GOTO 680 1050 SCREEN 1 1060 COLOR 4 1070 PRINT "You've encountered a slime !" 1080 PLAY "c F E C f e c f a" 1090 COLOR 0 1100 LINE (60, 80)-(240, 150), 1, BF 1110 LINE (70, 150)-(90, 80) 1120 LINE (90, 80)-(110, 150) 1130 LINE (70, 150)-(110, 150) 1140 PSET (80, 100) 1150 PSET (90, 100) 1160 PRINT "Press 1 to fight" 1170 INPUT f 1180 IF f = 1 THEN BEEP 1190 RANDOMIZE TIMER 1200 a% = INT(RND * 4) + 1 1210 PRINT "You drained "; a% 1220 IF a% < 5 THEN 1240 1230 IF a% > 4 THEN 1430 1240 PRINT "Slime attacks!" 1250 RANDOMIZE TIMER 1260 b% = INT(RND * 2) + 1 1270 PRINT "Slime drained "; b%; "You have "; 20 - b%; "HP left" 1280 IF b% > 20 THEN 680 1290 IF b% < 20 THEN BEEP 1300 PRINT "Press 1 to attack." 1310 INPUT a 1320 IF a = 1 THEN BEEP 1321 RANDOMIZE TIMER 1330 c% = INT(RND * 4) + 1 1340 LET z = a% + b% 1350 PRINT "You drained "; z; " total HP off the slime." 1360 IF z < 5 THEN BEEP 1370 IF z > 4 THEN 1430 1380 PRINT "Slime attacks!" 1390 RANDOMIZE TIMER 1400 q% = INT(RND * 2) + 1 1410 LET y = b% + q% 1420 PRINT "Slime drained "; 20 - y; " total HP." 1430 PRINT "Congradulations, "; a$; " , you defeated a slime!" 1440 PRINT "Press 1 to continue." 1450 INPUT a 1460 IF a = 1 THEN BEEP 1470 SCREEN 12 1480 PRINT " " 1490 PRINT " The crystal (which was now a sword) started to speak again." 1500 PRINT "'You did well. You will be able to defeat the evil. But the" 1510 PRINT "challenges will get much tougher. And you will also have more" 1520 PRINT "ways of beating the enemy." 1530 PRINT " 'Now what?' you say." 1540 PRINT "'Don't move,' the crystal said. 'This place is surrounded with" 1550 PRINT "mines." 1560 PRINT " 'Then how will I get out?'" 1570 PRINT " 'I will teleport you to where you want to the town Ogausis." 1580 PRINT "Are you ready to go?" 1590 PRINT "Press 1 to say 'yes.'" 1600 PRINT "Press 2 to say 'no.'" 1610 INPUT a 1620 IF a = 1 THEN BEEP 1630 IF a = 2 THEN 1580 1640 PRINT " You're vision starts to blur. You can only hear one thing:" 1650 PRINT "'You can now only talk to me in private.'" 1670 PRINT "You feel the soft soil of the orchard dissapearing from under" 1680 PRINT "you're feet. You feel disy and can't see a thing. After a while" 1690 PRINT "of feeling like you were in space you feel something hard under" 1700 PRINT "your feet. Soon it is against your arms. Soon you regain your" 1710 PRINT "vision. You are lying on the sidewalk of a small town." 1720 PRINT "Your password to continue is: 1765329" 1730 PRINT "Make sure you write it down." 1740 PRINT "Press 1 when you have finished writing it down." 1750 INPUT a 1760 IF a = 1 THEN 1770 1770 BEEP 1780 PRINT " You look around. You are in a small town. There is a slight" 1790 PRINT "cool breeze. You see high mountains in the distance. There is a lake near the cement. You hear" 1800 PRINT "crying coming from a house." 1810 PRINT "Press 5 to go into the house" 1820 PRINT "Press 9 to mind your own buisness" 1830 INPUT a 1840 IF a = 5 THEN 1860 1850 IF a = 9 THEN 1890 1860 PRINT " You decide to go into the house. The man inside the house" 1870 PRINT "shoots you on sight, fearing for his sister!" 1871 PRINT "Press 1 to continue" 1872 INPUT a 1873 IF a = 1 THEN 680 1880 GOTO 680 1890 PRINT " You decide it would be best to keep on walking. As you walk" 1900 PRINT "infront of the house a 4 or 5 year old comes out screaming. I'" 1910 PRINT "want my dolly!!! You cover your ears. You see a man come out of" 1920 PRINT "the house saying, 'It's okay Laura. I'll get your doll back.'" 1930 PRINT " 'I want my dolly NOW!' screeched Laura!" 1940 PRINT " You walk up to the man and say, 'Hello, I'm new here. My " 1950 PRINT "name is "; a$; " . How can I help?" 1960 PRINT " 'Hello,' he said. 'My name is Chuck. My sister, Laura, is" 1970 PRINT "crying because Erink, the EVIL migit, has stolen her doll." 1980 PRINT " 'Who is this Erink?' you ask." 1990 PRINT " 'A evil migit,' Chuck said. 'A freak of nature. She is a" 2000 PRINT "as old as a grown woman but is as short, and mature, as a 6 year old. She" 2010 PRINT "lives in a cave, all by herself, to the north, She only comes" 2020 PRINT "out to do mean things to the viligares to make her fell better" 2030 PRINT "about yourself. Will you help?'" 2040 PRINT "Press 1 to say 'yes.' Press 2 to say 'no.'" 2050 INPUT a 2060 IF a = 1 THEN 2130 2070 IF a = 2 THEN BEEP 2080 PRINT " Laura, with so much tears in her eyes she can't see, comes" 2090 PRINT "running twoards Chuck, her older brother, and accidently runs" 2100 PRINT "right into you. You fall into the lake and drown. The last thing" 2110 PRINT "you hear is Laura say, 'Oopsiesssss.......'" 2122 PRINT "Press 1 to continue" 2123 INPUT a 2124 IF a = 1 THEN BEEP 2120 GOTO 680 2130 PRINT " 'Yes,' you say." 2140 PRINT " 'Thanks alot,' Chuck says. 'You will be well rewarded if you" 2150 PRINT "come back with Laura's doll. Drink this before you go." 2160 PRINT "You drink the CURE. You HP went from "; 20 - y; " to "; 20!; "" 2170 PRINT "***************************************************************" 2180 PRINT " /\ - Mountains " 2190 PRINT " Cave /\ / \/\ " 2200 PRINT " \__ / \/\ / \ \/\ " 2210 PRINT " [{}] / \ / \/ \ " 2220 PRINT " [ ------------------------------\ " 2230 PRINT " [ \ " 2240 PRINT " [ \ " 2250 PRINT " [ You \ " 2260 PRINT " [ { } / _/ " 2270 PRINT " __________________________________/ " 2290 PRINT " " 2300 PRINT "Press 1 to head twoards the cave" 2301 PRINT "Press 2 to go into the town" 2310 INPUT a 2320 IF a = 1 THEN BEEP 2321 IF a = 2 THEN 3710 2330 PRINT "You start out on your journey." 2340 PLAY "CDEFCDEFCCCCDEF" 2350 PRINT "Press 1 to head twoards the cave" 2351 PRINT "Press 2 to retreat" 2360 INPUT a 2370 IF a = 1 THEN BEEP 2371 IF a = 2 THEN 2300 2380 PRINT "Press 1 to head twoards the cave" 2381 PRINT "Press 2 to retreat" 2390 INPUT a 2400 IF a = 1 THEN BEEP 2401 IF a = 2 THEN 2350 2410 PRINT "You see a slime in the distance." 2420 PRINT "Press 1 to head twoards the cave." 2430 PRINT "Press 2 to retreat." 2440 INPUT a 2450 IF a = 1 THEN BEEP 2460 IF a = 2 THEN 2350 2461 SCREEN 1 2462 COLOR 4 2470 PRINT "You encounter a slime (5 HP)!" 2471 LINE (60, 80)-(240, 150), 1, BF 2472 LINE (70, 150)-(90, 80) 2473 LINE (90, 80)-(110, 150) 2474 LINE (70, 150)-(110, 150) 2475 PSET (80, 100) 2480 PLAY "CFECFEC FA" 2490 PRINT "Press 1 to attack the slime" 2500 PRINT "Press 2 to make an attampt to run" 2510 INPUT a 2520 IF a = 1 THEN 2920 2530 IF a = 2 THEN BEEP 2540 RANDOMIZE TIMER 2550 a% = INT(RND * 3) + 1 2560 IF a% < 2 THEN BEEP 2561 IF a% > 1 THEN 2590 2570 PRINT "You run away." 2580 GOTO 2350 2590 PRINT "You don't make it. Slime attacks!" 2600 RANDOMIZE TIMER 2610 b% = INT(RND * 2) = 1 2620 IF b% > 19 THEN 2630 2621 IF b% < 20 THEN 2660 2630 PRINT "Slime kills you. You are dead. Press 1 to continue." 2640 INPUT a 2650 IF a = 1 THEN 680 2660 PRINT "Slime drained "; b%; " HP." 2670 PRINT "You have "; 20 - b%; " HP left" 2680 PRINT "Press 1 to fight" 2690 INPUT a 2700 IF a = 1 THEN BEEP 2710 RANDOMIZE TIMER 2720 c% = INT(RND * 4) + 1 2730 IF c% > 4 THEN 3600 2740 IF c% < 5 THEN BEEP 2750 PRINT "You drained "; c%; " HP so far." 2760 PRINT "Slime attacks" 2770 RANDOMIZE TIMER 2780 d% = INT(RND * 2) + 1 2790 IF d% > 19 THEN 2630 2800 IF d% < 20 THEN BEEP 2810 LET a = d% + b% 2820 PRINT "Slime drained "; a; " total HP so far." 2830 PRINT "Press 1 to fight" 2840 INPUT a 2850 IF a = 1 THEN BEEP 2860 RANDOMIZE TIMER 2870 c% = INT(RND * 4) + 1 2880 LET b = c% + e% 2881 PRINT "You drained "; b; " total HP so far." 2882 IF b > 4 THEN 3600 2900 PRINT "Slime attacks. Slime poisions you. You die!" 2901 PRINT "Press 1 to go on" 2902 INPUT a 2903 IF a = 1 THEN BEEP 2910 GOTO 680 2920 INPUT a 2930 IF a = 1 THEN BEEP 2940 RANDOMIZE TIMER 2950 c% = INT(RND * 4) + 1 2960 IF c% > 4 THEN 3600 2970 IF c% < 5 THEN BEEP 2971 PRINT "You attack!" 2980 PRINT "You drained "; a%; " HP so far." 2990 PRINT "Slime attacks" 3000 RANDOMIZE TIMER 3010 a% = INT(RND * 2) + 1 3020 IF a% > 19 THEN 2630 3030 IF a% < 20 THEN BEEP 3050 PRINT "Slime drained "; a%; " total HP so far." 3060 PRINT "You have "; 20 - a%; " HP left" 3070 PRINT "Press 1 to attack" 3080 INPUT a 3090 IF a = 1 THEN BEEP 3100 RANDOMIZE TIMER 3110 e% = INT(RND * 4) + 1 3120 IF e% > 4 THEN 3600 3130 IF e% < 5 THEN BEEP 3140 PRINT "You attack!" 3141 LET b = e% + a% 3150 PRINT "You drained "; b; " HP so far." 3151 IF b > 4 THEN 3600 3152 IF b < 5 THEN BEEP 3160 PRINT "Slime attacks" 3170 RANDOMIZE TIMER 3180 g% = INT(RND * 2) + 1 3190 IF g% > 19 THEN 2630 3200 IF g% < 20 THEN BEEP 3210 LET a = g% + h% 3220 PRINT "Slime drained "; a; " total HP so far." 3230 PRINT "You have "; 20 - a; " HP left" 3240 PRINT "Press 1 to attack" 3250 INPUT a 3260 IF a = 1 THEN BEEP 3270 RANDOMIZE TIMER 3280 o% = INT(RND * 4) + 1 3290 IF o% > 4 THEN 3600 3300 IF o% < 5 THEN BEEP 3310 PRINT "You attack!" 3320 LET b = e% + a% + o% 3330 PRINT "You drained "; b; " HP so far." 3340 IF b > 4 THEN 3600 3350 IF b < 5 THEN BEEP 3360 PRINT "Slime attacks" 3370 RANDOMIZE TIMER 3380 n% = INT(RND * 2) + 1 3390 IF n% > 19 THEN 2630 3400 IF n% < 20 THEN BEEP 3410 LET a = g% + h% + n% 3420 PRINT "Slime drained "; a; " total HP so far." 3421 IF a > 19 THEN 2630 3422 IF a < 20 THEN BEEP 3430 PRINT "You have "; 20 - a; " HP left" 3440 PRINT "Press 1 to attack" 3450 INPUT a 3460 IF a = 1 THEN BEEP 3470 RANDOMIZE TIMER 3480 p% = INT(RND * 4) + 1 3490 IF p% > 4 THEN 3600 3500 IF p% < 5 THEN BEEP 3510 PRINT "You attack!" 3520 LET b = e% + a% + o% + p% 3530 PRINT "You drained "; b; " HP so far." 3540 IF b > 4 THEN 3600 3550 IF b < 5 THEN BEEP 3560 PRINT "Slime attacks and poisions you." 3570 PRINT "Press 1 to continue" 3580 INPUT a 3590 IF a = 1 THEN 680 3600 PRINT "You defeated the slime!" 3602 PRINT "You have "; 20 - a; " total HP left" 3610 PRINT "Press 1 to continue" 3620 INPUT a 3630 IF a = 1 THEN BEEP 3640 SCREEN 12 3650 PRINT " You see the entrance to the cave. It's too late to turn" 3660 PRINT "back now! Laura and Chuck are really depending on you." 3670 PRINT "Press 1 to go into the cave" 3680 PRINT "Press 2 to head to the town" 3690 INPUT a 3700 IF a = 2 THEN BEEP 3701 IF a = 1 THEN 3780 3710 PRINT " You decide to go back to the town......" 3720 PRINT " 'Why didn't you get her doll, "; a$; " ,?" 3730 PRINT " 'Because the cave looked to scarry" 3740 PRINT "and the journey was to long.'" 3750 PRINT " 'Please go get her doll. I'll restore your HP," 3760 PRINT "just go get that doll!" 3770 GOTO 2040 3780 PRINT "You decide to go in." 3790 PRINT "Press 1 to continue" 3800 INPUT a 3810 IF a = 1 THEN BEEP 3820 PRINT "*************************************************************" 3830 PRINT " Erink " 3840 PRINT " 0 / " 3850 PRINT " /\ {} " 3860 PRINT " I \ " 3870 PRINT " /\ Doll " 3880 PRINT " " 3890 PRINT " (\" 3900 PRINT " (\\" 3910 PRINT " (\\\" 3920 PRINT " (\\\\\" 3930 PRINT " Back of your head - (\\\\\\" 3940 PRINT " (\\\\\\\" 3950 PRINT " (\\\\\\\" 3960 PRINT "*************************************************************" 3970 PRINT "Press 1 to talk to IT" 3980 PRINT "Press 2 to run away in shock!" 3990 INPUT a 4000 IF a = 1 THEN BEEP 4010 IF a = 2 THEN 2380 4020 PRINT " 'Hello. My name is "; a$; ". I mean you no harm. I just want" 4030 PRINT "you to give me that doll.'" 4040 PRINT " 'Why should I?' it replied." 4050 PRINT " Because I have a sword, you think. 'Because there is a young" 4060 PRINT "girl in the village who really wants her doll. Hand it over,'" 4070 PRINT "you reply." 4080 PRINT " 'Come and get the doll,' the ugly migit said." 4090 PRINT "Press 1 to try to grab the doll" 4100 PRINT "Press 2 to run away." 4110 INPUT a 4120 IF a = 1 THEN BEEP 4130 IF a = 2 THEN 3710 4140 PRINT "Remember, "; a$; " , that you have "; 20 - a; " total HP left." 4150 PRINT " You grab for the doll. Erink jumps at you and attacks!" 4160 PRINT "Press 1 to continue" 4170 INPUT a 4180 IF a = 1 THEN BEEP 4190 SCREEN 1 4200 COLOR 4 4210 PRINT "You encounter the Erink!" 4220 PLAY "DDDEFFFBCDE" 4230 SCREEN 12 4240 PRINT " " 4250 PRINT " ____ " 4260 PRINT " /. . \ " 4270 PRINT " / \ " 4280 PRINT " [ ] " 4290 PRINT " [ @@@@@@ ] " 4300 PRINT " \ @ @ / " 4310 PRINT " /\ \____/ /\ " 4320 PRINT " \\ II // " 4330 PRINT " \\_II_// " 4340 PRINT " [ ] " 4350 PRINT " [__ __] " 4360 PRINT " //\\ " 4370 PRINT " / /\ \ " 4380 PRINT " /_/ \_\ " 4390 PRINT " " 4400 PRINT "Press 1 to attack" 4410 INPUT a 4420 IF a = 1 THEN BEEP 4430 PRINT "Before you attack Erink casts 'Weaken Foe.' You now have 15 HP " 4440 PRINT "left." 4450 PRINT "Press 1 to fight" 4451 INPUT a 4552 IF a = 1 THEN BEEP 4460 PRINT "You attack!" 4470 RANDOMIZE TIMER 4480 b% = INT(RND * 4) + 1 4490 PRINT "You drained "; b%; " total HP so far" 4500 PRINT "The Erink attacks!" 4510 RANDOMIZE TIMER 4520 a% = INT(RND * 6) + 1 4530 PRINT "Erink drained "; a%; " HP off of you!" 4540 PRINT "You have "; 15 - a%; " HP left" 4550 PRINT "Press 1 to attack" 4560 INPUT a 4570 IF a = 1 THEN BEEP 4580 PRINT "You attack!" 4590 RANDOMIZE TIMER 4600 c% = INT(RND * 5) + 1 4610 LET a = b% + c% 4620 PRINT "You drained "; a; " total HP so far" 4630 PRINT "Erink attacks!" 4640 RANDOMIZE TIMER 4650 e = INT(RND * 6) + 1 4660 LET e = a% + e% 4661 LET d = 15 - e 4670 PRINT "Erink drained "; e; " HP so far" 4680 PRINT "You have "; d; " total HP left" 4690 PRINT "Press 1 to attack" 4700 INPUT a 4710 IF a = 1 THEN BEEP 4720 PRINT "You attack!" 4730 RANDOMIZE TIMER 4740 LET d% = INT(RND * 4) + 1 4750 LET a = b% + c% + d% 4760 PRINT "You drained "; a; " total HP so far" 4770 IF a < 12 THEN BEEP 4780 IF a > 11 THEN 5140 4790 PRINT "Erink atacks!" 4800 RANDOMIZE TIMER 4810 i% = INT(RND * 6) + 1 4820 LET e = a% + e% + i% 4821 LET d = 15 - e 4830 PRINT "Erink drained "; e; " total HP so far" 4831 IF d > 14 THEN BEEP 4832 IF d < 15 THEN 4840 4833 PRINT "Erink has killed you!" 4834 GOTO 680 4840 PRINT "You have "; d; " total HP left" 4850 PRINT "Press 1 to attack" 4860 INPUT a 4870 IF a = 1 THEN BEEP 4880 PRINT "You attack!" 4890 RANDOMIZE TIMER 4900 LET f% = INT(RND * 4) + 1 4910 LET a = b% + c% + d% + f% 4920 PRINT "You drained "; a; " total HP so far" 4930 IF a > 11 THEN 5140 4940 IF a < 12 THEN BEEP 4950 PRINT "Erink attacks!" 4960 RANDOMIZE TIMER 4970 LET o% = INT(RND * 7) + 1 4980 LET e = a% + e% + i% + o% 4990 PRINT "Erink drained "; e; " total HP off of you so far" 5000 LET d = 15 - e 5010 IF d > 11 THEN 4833 5020 IF d < 12 THEN BEEP 5030 PRINT "Press 1 to attack" 5040 INPUT a 5050 IF a = 1 THEN BEEP 5060 PRINT "You attack!" 5070 RANDOMIZE TIMER 5080 g% = INT(RND * 5) + 1 5090 LET a = b% + c% + d% + f% + g% 5100 IF a > 11 THEN 5140 5110 IF a < 12 THEN BEEP 5111 PRINT "You drained "; a; "total HP so far" 5120 PRINT "Erink turns you to stone! You are dead (nice try, though!)." 5130 GOTO 680 5140 PRINT "You finally defeated the Erink!" 5150 SOUND 510, 10 5160 SOUND 520, 10 5170 SOUND 530, 10 5180 SOUND 540, 10 5190 SOUND 530, 5 5200 SOUND 520, 5 5210 SOUND 510, 5 5220 SOUND 500, 5 5230 SOUND 490, 5 5340 SOUND 480, 5 5350 SOUND 470, 5 5360 SOUND 460, 5 5370 SOUND 450, 1 5380 SOUND 440, 1 5390 SOUND 450, 1 5400 SOUND 440, 1 5410 SOUND 430, 1 5420 SOUND 420, 1 5430 SOUND 410, 1 5440 SOUND 400, 1 5450 SOUND 390, 1 5460 SOUND 380, 1 5470 SOUND 1000, 5 5480 SOUND 1010, 5 5490 SOUND 50, 10 5500 SOUND 37, 5 5510 PRINT "You did it! You defeated some of the Evil. You finally feel as if you" 5520 PRINT "can actually do something in this strange world. Congrads, "; a$ 5530 PRINT "Press 1 to pick up the doll" 5540 INPUT a 5550 IF a = 1 THEN BEEP 5560 PRINT "You pick up the doll" 5570 PRINT "Press 1 to look at it" 5580 PRINT "Press 2 to head back twoards the town" 5590 INPUT a 5600 IF a = 1 THEN BEEP 5610 IF a = 2 THEN 5820 5620 PRINT " " 5630 PRINT " " 5640 PRINT " /) " 5650 PRINT " / 0) " 5660 PRINT " ( 0 ) " 5670 PRINT " ( /\) " 5680 PRINT " /\ (/\ \ /\ " 5690 PRINT " \ \ \ \ / / " 5700 PRINT " \ \ \ \ / / " 5710 PRINT " \ \--- ---/ / " 5720 PRINT " \ 3 / " 5730 PRINT " \ / " 5740 PRINT " [ ] " 5750 PRINT " [ ] " 5760 PRINT " [ ] " 5770 PRINT "You guess that this doll has seen better days. There is a " 5780 PRINT "strange letter, '3', printed on it's shirt." 5781 PRINT " " 5790 PRINT "Press 1 to continue" 5800 INPUT a 5810 IF a = 1 THEN 5570 5820 PRINT "You head twoards the village. As you are walking ou feel a " 5830 PRINT "slight cool breeze blowing through your hair. You really" 5840 PRINT "feel good. Now you know that Laura will be happy. You wonder" 5850 PRINT "what Chuck ment by 'well rewarded.'" 5860 PRINT " " 5870 PRINT "You arrive at the town. You head twoards Chuck's house. You " 5880 PRINT "knock on the door. Chuck answers the door. He says, 'Hello" 5890 PRINT a$; " ! You brought the doll! Great!!!' He yells Laura's name " 5900 PRINT "into the house. She comes to the door. She excitdely grabs" 5910 PRINT "the doll. She jumps up and gives you a big hug. 'Thanks you" 5920 PRINT "so much "; a$; " . You don't know how sad I would be with out " 5930 PRINT "My dolly to keep me company.'" 5940 PRINT "Chuck said, 'How did you get the doll." 5950 PRINT "'I killed Erink,' you say." 5960 PRINT "'You mean we are ridded from that beast for the rest of our " 5970 PRINT "lives! Great!! You are a true hero. Wait until I tell the " 5980 PRINT "mayor of Ogausis, Richard! He will be so pleased. There will" 5990 PRINT "probally be a huge award ceramony for you. Everybody in the " 6000 PRINT "town owes you their thanks. See me after the ceremony. Be welcome" 6010 PRINT "at my house until then.'" 6020 PRINT " You feel tired. You decide to go into the guest room for a" 6030 PRINT "long rest. As soon as Chuck get's back you'll have dinner." 6040 PRINT "Good night, "; a$; " !" 6041 PRINT "Press 1 to continue" 6042 INPUT a 6043 IF a = 1 THEN BEEP 6050 PRINT "ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ" 6060 PRINT "ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ" 6070 PRINT " Cough! Cough! ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ" 6080 PRINT " You feel a nudging at your side. 'Wake up, "; a$; " .' It is" 6090 PRINT "Chuck's voice. 'You slept the whole night.' Time to get up. The" 6100 PRINT "whole town has heard what you have done, and intened on rewarding" 6110 PRINT "you well. Come on!'" 6120 PRINT " " 6230 PRINT " You get up. You grab a slice of bread and eat it. Boy you" 6240 PRINT "were hungry. Now you go to the award ceremony." 6250 PRINT "Press 1 to continue" 6260 INPUT a 6270 IF a = 1 THEN BEEP 6280 PRINT " You see the whole town gathered around a rised, wodden platform" 6290 PRINT "You see a someone standing on it. You think he is the mayor. " 6300 PRINT "You stop when you get to the platform. Chuck nudges you on. You" 6310 PRINT "walk up the steps. You turn around, suprised that Chuck did not" 6320 PRINT "follow you up. Then you feel someone tap you on the back. You" 6330 PRINT "turn around to see the man. He shakes your hand and says, 'Hello, " 6340 PRINT a$; " . I am the mayor of Ogausis, Richard. The whole town is in" 6350 PRINT "your dept. We are so happy. You will be awarded the Richard Prize" 6360 PRINT "of Bravery, Heroism, and Acting Above the Call of Duty. It is" 6370 PRINT "Ogausis's highest honor. Come, stand in the middle. Let your" 6380 PRINT "fans look at you.' You walk to the center of the platform." 6390 PRINT "There is a scilence as you start to speak. 'Thanks. I was only" 6400 PRINT "doing this for Laura and Chuck. I didn't know what happenies it " 6410 PRINT "bring the town. I am honored that you have chosen me to get the" 6420 PRINT "Richard Award of Excellence and Acting Abov....'" 6430 PRINT "'It's the Richard Prize of Bravery, Heroism, and Acting Above" 6440 PRINT "the Call of Duty,' someone in the crowd shouts, to remind you." 6450 PRINT "'Yeah,' you say. 'And that too!' The crowd starts to cheer." 6460 PRINT "Press 1 to continue" 6470 INPUT a 6480 IF a = 1 THEN BEEP 6490 PRINT " " 6500 PRINT " _______ * " 6510 PRINT " /\ / \ /\ " 6520 PRINT " / \ /\ / ~~ ~~ \ / \ " 6530 PRINT " / \/\/ \ / 0 0 \ / \ " 6540 PRINT " / \/ [ / ] / \ " 6550 PRINT " / \ [ / ] / \ " 6560 PRINT " / \ [ ---- ] / \ " 6570 PRINT " / \ \ / / \ " 6580 PRINT " ___________/\______\ /_____ /\______________________" 6590 PRINT " \ \ \_______/ / / " 6600 PRINT " \ \ [( )] / / " 6610 PRINT " \ \ [ ( ) ] / / " 6620 PRINT " \ \___[ *** ]___/ / " 6630 PRINT " \____ *oRo* ____/ " 6640 PRINT " [ *** ] " 6650 PRINT " [ ] " 6660 PRINT " " 6661 PLAY "ffgfffafg" 6670 PRINT "Press 1 to continue" 6680 INPUT a 6690 IF a = 1 THEN BEEP 6700 PRINT "************************************************************" 6710 PRINT " " 6720 PRINT " Later that day, at Chuck's house.........." 6730 PRINT " 'I promised you that I would reward you. And I will. I" 6740 PRINT "will give you my sword and armor.' You sword feels worm. You" 6750 PRINT "suddenly remember the talking crystal." 6760 PRINT " 'It's okay. Can you tell me what I should do next?'" 6780 PRINT " 'Okay. There is an old wise man named Alexander Golden" 6790 PRINT "that lives on the top of the hill. You should see him.' You" 6800 PRINT "feel your sword start to get warm. 'Can I please have some" 6810 PRINT "time to think this over,' you say to Chuck." 6820 PRINT " 'Sure,' Chuck says. He leaves the room." 6830 PRINT " 'What is it?' you say to the sword." 6840 PRINT " 'Chuck gave you good advice. You must seek the Wise Hermit" 6850 PRINT "Alexander. He lives on the mountain. Be carefull, the evil Travis" 6860 PRINT "guards the mountain. Oh yeah, congradulations on defeating" 6870 PRINT "the Erink. I knew you could do it! " 6880 PRINT "" 6890 PRINT " Your password is 63784268. Write it down, do not forget it!" 6900 PRINT "Press 1 when you have finished writing down your password" 6910 PRINT "and wish to continue." 6920 INPUT a 6930 IF a = 1 THEN BEEP 6940 PRINT " You are outside the Ogausis." 6950 PRINT "Press 1 to head into the town, Ogausis. " 6960 PRINT "Press 2 to go twoards the Hermit's Home" 6970 PRINT "Press 3 to head into Erink's Cave" 6980 INPUT a 6990 IF a = 1 THEN BEEP 7000 IF a = 2 THEN 7250 7010 IF a = 3 THEN 7190 7020 PRINT " You walk into Ogausis. You knock on Chuck's door. Laura" 7030 PRINT "answers. She welcomes you in. You eat and get pleanty of rest." 7040 PRINT "" 7050 PRINT " After your rest you ask Laura what the number '3' was on" 7060 PRINT "doll. She said that there was none and showed you her doll." 7070 PRINT "Press 1 to continue" 7080 INPUT b 7090 IF b = 1 THEN BEEP 7100 PRINT " " 7110 PRINT " /) " 7120 PRINT " / 0) " 7121 PRINT " ( 0 ) " 7122 PRINT " ( /\) " 7123 PRINT " /\ (/\ \ /\ " 7124 PRINT " \ \ \ \ / / " 7125 PRINT " \ \ \ \ / / " 7126 PRINT " \ \--- ---/ / " 7127 PRINT " \ / " 7128 PRINT " \ / " 7129 PRINT " [ ] " 7130 PRINT " [ ] " 7140 PRINT " [ ] " 7150 PRINT " " 7160 PRINT "Press 1 to continue" 7170 INPUT c 7180 IF c = 1 THEN 6940 7190 PRINT " You decide to head twoards Erink's cave again. The trip" 7200 PRINT "seems alot shorter this time. You are now in the cave. You" 7210 PRINT "see nothing special." 7220 PRINT "Press 1 to continue" 7230 INPUT d 7240 IF d = 1 THEN 6940 7250 PRINT " You decide to head twoards the mountains." 7260 PRINT " " 7270 PRINT " /\ - Mountains " 7280 PRINT " Cave /\ / \/\ " 7290 PRINT " \__ / \/\ / \ \/\ " 7300 PRINT " [{}] / \ / \/ \ " 7310 PRINT " [ ------------------------------\ " 7320 PRINT " [ \ " 7330 PRINT " [ \ " 7340 PRINT " [ You \ " 7350 PRINT " [ { } / _/ " 7360 PRINT " __________________________________/ " 7370 PRINT " " 7380 PRINT "Press 1 to head twoards the mountains" 7381 PRINT "Press 2 to retreat" 7390 INPUT a 7400 IF a = 1 THEN BEEP 7401 IF a = 2 THEN 6940 7410 PRINT "You start out on yet another long journey." 7420 SOUND 600, 10 7430 SOUND 625, 5 7440 SOUND 650, 5 7450 SOUND 675, 5 7460 SOUND 2400, 5 7470 SOUND 2400, 5 7480 SOUND 2400, 5 7490 SOUND 2200, 10 7500 PLAY "f g" 7510 PRINT "Press 1 to head twoards the mountains" 7520 PRINT "Press 2 to retreat" 7530 INPUT a 7540 IF a = 1 THEN BEEP 7550 IF a = 2 THEN 7380 7560 PRINT "Press 1 to head twoards the mountains" 7570 PRINT "Press 2 to retreat" 7580 INPUT a 7590 IF a = 1 THEN BEEP 7600 IF a = 2 THEN 7510 7610 PRINT " You have arrived at the base of the mountain." 7620 PRINT " " 7630 PRINT " /\ " 7640 PRINT " /**\ /\ " 7650 PRINT " /****\ /\ / \ /\ " 7660 PRINT " /******\ /* \ /\ / ** \/**\ " 7670 PRINT " / \/ * \ /**\ / / \ " 7680 PRINT " / \ * \/ \ / \ " 7690 PRINT " / \ / \ / \ " 7700 PRINT " / \ / \ / \ " 7701 PRINT " / \/ \ \ " 7702 PRINT "/ \ \ \ " 7703 PRINT "------------------------------------------------------------" 7704 PRINT " " 7705 PRINT " " 7706 PRINT " _________ " 7707 PRINT " /=========\ " 7708 PRINT " /===========\ " 7709 PRINT " /=============\ " 7710 PRINT " /\ [===============] " 7711 PRINT " \ \ [///////////////] " 7712 PRINT " \ \ [ ] " 7713 PRINT " \ \ \ / " 7714 PRINT " \ \ \ / " 7715 PRINT " \ \ \________ / " 7716 PRINT " \ " 7717 PRINT " " 7719 PLAY "DEDFFECDAG" 7720 PRINT "Press 1 to continue" 7721 INPUT a 7222 IF a = 1 THEN BEEP 7223 PRINT "Press 1 to head up the mountain" 7234 PRINT "Press 2 to retreat" 7235 INPUT a 7335 IF a = 1 THEN BEEP 7336 IF a = 2 THEN 7560 7337 PRINT " You decide to head up the mountain. You wonder where you" 7338 PRINT "might find Alexander, the Wise Hermit." 7339 PRINT "Press 1 to continue" 7800 PRINT "Press 2 to retreat" 7801 INPUT a 7802 IF a = 1 THEN BEEP 7803 IF a = 2 THEN 7223 7804 PRINT " You see a hut in the distance. " 7805 PRINT "Press 1 to head twoards it" 7806 PRINT "Press 2 to retreat" 7807 INPUT a 7808 IF a = 1 THEN BEEP 7809 IF a = 2 THEN 7339 7810 PRINT " You are at the base of the hut." 7820 PRINT "Press 1 to go in" 7821 PRINT "Press 2 to retreat" 7822 INPUT a 7823 IF a = 1 THEN BEEP 7824 IF a = 2 THEN 7804 7825 PRINT " You decide to walk up to the hut. Then......." 7826 PRINT "Press 1 to continue" 7827 INPUT a 7828 IF a = 1 THEN BEEP 7829 PRINT "You encounter the Travis!!!!" 7830 SOUND 1800, 5 7831 SOUND 1850, 5 7832 SOUND 1900, 5 7833 SOUND 3000, 5 7834 SOUND 4000, 5 7835 SOUND 100, 5 7836 SOUND 50, 5 7837 PRINT " " 7838 PRINT " _____ " 7839 PRINT " / o o \ " 7840 PRINT " [ *** ] " 7841 PRINT " \_____/ " 7842 PRINT " /\ / \ /\ " 7843 PRINT " \ \ / \ / / " 7844 PRINT " \ \ / \ / / " 7845 PRINT " \ \_____/ \_____/ / " 7846 PRINT " \______ ______/ " 7847 PRINT " [ ] " 7848 PRINT " [ ] " 7849 PRINT " [ ] " 7850 PRINT " [ ] " 7851 PRINT "Press 1 to continue" 7852 INPUT a 7853 IF a = 1 THEN BEEP 7854 PRINT " This guy looks like a piece of cake. He even looks like he " 7855 PRINT "is scarred of you. Mabey you would like to talk this over....." 7856 PRINT "(nnnnaaaahhhhhh)." 7857 PRINT "Press 1 to attack" 7858 PRINT "Press 2 to talk to Travis" 7859 INPUT a 7860 IF a = 1 THEN BEEP 7861 IF a = 2 THEN 7868 7862 PRINT " You decide to attack. But before you do Travis attacks " 7863 PRINT "with a killer choke hold! You are okay... still breathing" 7864 PRINT "... having trouble breathi - There is scilence. You are dead." 7865 PRINT "Press 1 to continue" 7866 INPUT a 7867 IF a = 1 THEN 680 7868 PRINT "Type what you would like to say." 7869 INPUT a 7870 IF a = 1255 THEN 7876 7871 IF a = 12511441815# THEN 7876 7872 PRINT "You try to say "; b$; ". Travis now chokes you to death." 7873 PRINT "Press 1 to contine" 7874 INPUT a 7875 IF a = 1 THEN 680 7876 PRINT " You say 'Lee.' Travis looks at you. He seems really upset." 7877 PRINT "You seem to have gotten to him. He starts to cry." 7878 PRINT "Press 1 to stay and try to talk with him" 7879 PRINT "Press 2 to run past him" 7880 INPUT a 7881 IF a = 1 THEN BEEP 7882 IF a = 2 THEN 7889 7883 PRINT " He is STILL crying. You think he will NEVER stop!" 7884 PRINT "Press 1 to stay with him some more" 7885 PRINT "Press 2 to run past him" 7886 INPUT a 7887 IF a = 1 THEN 7883 7888 IF a = 2 THEN BEEP 7889 BEEP 7890 PRINT " You run past the crying Travis and into the hut. Inside you" 7891 PRINT "see a old man. He asks you your name." 7892 PRINT "' "; a$; " is my name,' you say. He chuckles. You tell him about " 7893 PRINT "Chuck. He says that you will have to get him something that he" 7894 PRINT "lost. He says that if you recover it he, Alexander, will be" 7895 PRINT "grateful to you." 7896 PRINT " 'What exactly is it?' you ask. 'And where can I find it?'" 7897 PRINT " 'I lost it in the old school building (in 1993), Belhaven, on the " 7898 PRINT "planet earth. It is in my locker, which may be old and may" 7999 PRINT "be there. Please look. If you say yes, I will warp you there Look in the back of my locker, in a whole." 8000 PRINT " 'EARTH!!! That is where I come from! Belhaven is where I go" 8001 PRINT "to school. I know my way around. But you will have to warp me" 8002 PRINT "at the middle of the night or I will get a detention. What is " 8003 PRINT "your locker combination?'" 8004 PRINT " '34, 26, 18.' I will warp you there right away. " 8005 SOUND 700, 5 8006 SOUND 710, 5 8007 SOUND 720, 5 8008 SOUND 730, 5 8009 SOUND 100, 5 8010 SOUND 50, 10 8011 PRINT "Press 1 to continue" 8012 INPUT a 8013 IF a = 1 THEN BEEP 8014 PRINT " You begin to feel dizzy. You go through the whole group of " 8015 PRINT "feelings again. Before you know it you are at your school. The" 8016 PRINT "place is dark. You do not see anyone. Quickly you go to your " 8017 PRINT "locker. You know from the details that Alexander gave you" 8018 PRINT "that his locker is yours. You are at your locker. " 8019 PRINT "Input the combanation." 8020 INPUT a 8021 IF a = 342618 THEN 8023 8022 END 8023 PRINT " You see open your locker. You see the whole. You always" 8024 PRINT "wondered idf something was in it. As you stick your hand in the hole you" 8025 PRINT "hear someone coming." 8026 PRINT "Press 1 to stay where you are" 8027 PRINT "Press 2 to run away" 8028 PRINT "Press 3 to hide" 8029 INPUT a 8030 IF a = 1 THEN BEEP 8031 IF a = 2 THEN 8041 8032 IF a = 3 THEN 8089 8033 PRINT " You stay very still. You hope that the person does not see" 8034 PRINT "you. Theydo. It is a janitor. You get suspended for the rest" 8035 PRINT "of the year for breaking and intering." 8036 PRINT " *** * ***" 8037 PRINT " * *** ***" 8038 PRINT " * * * *** END!!! " 8039 PLAY "CCDECCCDEDE" 8040 END 8041 PRINT " You run away. You are now at the staircase to the upstairs" 8042 PRINT "8th grade wing. " 8043 PRINT "Press 1 to go up the stairs" 8044 PRINT "Press 2 to stay put" 8045 PRINT "Press 3 to run some more" 8046 INPUT b 8047 IF b = 1 THEN BEEP 8048 IF b = 2 THEN 8075 8049 IF b = 3 THEN 8083 8050 PRINT " You try to head up the stairs. Then you remember that the" 8051 PRINT "door might be locked. To your surprise (and luck) it wasn't." 8052 PRINT " You are in the eight grade wing. You hear no footsteps." 8053 PRINT "Press 1 to stay put" 8054 PRINT "Press 2 to go to your locker" 8055 INPUT c 8056 IF c = 1 THEN BEEP 8057 IF c = 2 THEN 8060 8058 PRINT " You stay for a while. Nothing happens." 8059 GOTO 8053 8060 PRINT " You head twoards your locker. Inside you look and find" 8061 PRINT "the homework coupon." 8062 PRINT " " 8063 PRINT " ________________________________ " 8064 PRINT " [ 1 ] " 8065 PRINT " [ Good for one (1) ] " 8066 PRINT " [ night of no ] " 8067 PRINT " [ H O M E W O R K ] " 8068 PRINT " [______________________________] " 8069 PRINT " " 8070 PRINT " " 8071 PRINT " " 8072 PRINT "Press 1 to continue" 8073 INPUT d 8074 IF d = 1 THEN 8106 8075 PRINT " You decide to remain still. You remember that the door " 8076 PRINT "might be locked. You stay and stay. You finally think it is safe" 8077 PRINT "to go. You take one step into the hall and come face to face" 8078 PRINT "with a janitor. You are suspended for the rest of the year" 8079 PRINT "for breaking and entering." 8080 PRINT "Press 1 to continue" 8081 INPUT e 8082 IF e = 1 THEN 8036 8083 PRINT " You run as fast as you can. You trip and fall over your" 8084 PRINT "(dumb) shoelace. The janitor sees you. You get suspended for " 8085 PRINT "the rest of the year for breaking and entering. " 8086 PRINT "Press 1 to continue" 8087 INPUT f 8088 IF f = 1 THEN 8036 8089 PRINT " You decide to hide in the gym. You run twoards there and" 8090 PRINT "come apon a choice. Do you take lockeroom #1 or lockeroom #2?" 8091 INPUT g 8092 IF g = 1 THEN BEEP 8093 IF g = 2 THEN 8099 8094 PRINT " You head into lockeroom #1, the boys lockeroom. You run" 8095 PRINT "so fast that you trip on the wet floor. The janitor comes running" 8096 PRINT "to see what the noise ways and trips on you. You die a painfull" 8097 PRINT "death. " 8098 GOTO 680 8099 PRINT " You go into lockeroom #2. As soon as you step in you smell" 8100 PRINT "prefume. You realize it is the girl's lockeroom. " 8101 PRINT "Press 1 to wait" 8102 PRINT "Press 2 to head twoards your locker" 8103 INPUT h 8104 IF h = 1 THEN 8058 8105 IF h = 2 THEN 8060 8106 PRINT " After you look at the homework coupon you feel dizzy. Before" 8107 PRINT "you know it you are in Alexander's Hut." 8108 PRINT " 'Thanks you very much for the Homework Coupon. I will now" 8109 PRINT "cast a spell on your jewled sword. You will be able to use it" 8110 PRINT "to teleport to some places, and it will be more deadly! You" 8111 PRINT "may also some back here any time!" 8112 PRINT "Press 1 to continue" 8113 INPUT a 8114 IF a = 1 THEN 8121 8115 IF a > 1 THEN BEEP 8116 PRINT "Can't fool me, you cheater!" 8120 END 8121 CLS 8122 SCREEN 12 8123 PRINT " " 8124 PRINT " " 8125 PRINT " " 8126 PRINT " " 8127 PRINT " /\ " 8128 PRINT " / \ " 8129 PRINT " [ ] " 8130 PRINT " [ ] " 8131 PRINT " /\ [ ] /\ " 8132 PRINT " \ \ [ ] / / " 8133 PRINT " \ \[ ]/ / " 8134 PRINT " \__ ** __/ " 8135 PRINT " [ ] " 8136 PRINT " [____] " 8137 PRINT " " 8138 PRINT " " 8139 BEEP 8140 CLS 8141 PRINT " " 8142 PRINT " " 8143 PRINT " " 8144 PRINT " { " 8145 PRINT " \ /\ / " 8146 PRINT " / \ " 8147 PRINT " [ ] " 8148 PRINT " [ ] " 8149 PRINT " /\ [ ] /\ " 8150 PRINT " \ \ [ ] / / " 8151 PRINT " \ \[ ]/ / " 8152 PRINT " \__ ** __/ " 8153 PRINT " [ ] " 8154 PRINT " [____] " 8155 PRINT " " 8156 PRINT " " 8157 BEEP 8158 CLS 8159 PRINT " " 8160 PRINT " " 8161 PRINT " { " 8162 PRINT " \ { / " 8163 PRINT " \ /\ / " 8164 PRINT " / \ " 8165 PRINT " [ ] " 8166 PRINT " [ ] " 8167 PRINT " /\ [ ] /\ " 8168 PRINT " \ \ [ ] / / " 8169 PRINT " \ \[ ]/ / " 8170 PRINT " \__ ** __/ " 8171 PRINT " [ ] " 8172 PRINT " [____] " 8173 PRINT " " 8174 PRINT " " 8175 BEEP 8176 CLS 8177 PRINT " " 8178 PRINT " { " 8179 PRINT " \ { / " 8180 PRINT " \ { / " 8181 PRINT " \ /\ / " 8182 PRINT " / \ " 8183 PRINT " [ ] " 8184 PRINT " [ ] " 8185 PRINT " /\ [ ] /\ " 8186 PRINT " \ \ [ ] / / " 8187 PRINT " \ \[ ]/ / " 8188 PRINT " \__ ** __/ " 8189 PRINT " [ ] " 8190 PRINT " [____] " 8191 PRINT " " 8192 PRINT " " 8193 BEEP 8194 CLS 8195 PRINT " { " 8196 PRINT " \ { / " 8197 PRINT " \ { / " 8198 PRINT " \ / " 8199 PRINT " /\ " 8200 PRINT " / \ " 8201 PRINT " [ ] " 8202 PRINT " [ ] " 8203 PRINT " /\ [ ] /\ " 8204 PRINT " \ \ [ ] / / " 8205 PRINT " \ \[ ]/ / " 8206 PRINT " \__ ** __/ " 8207 PRINT " [ ] " 8208 PRINT " [____] " 8209 PRINT " " 8210 PRINT " " 8211 BEEP 8212 PRINT "Press 1 to continue" 8213 INPUT a 8214 PRINT " Your password is 1209. Write it down. " 8215 PRINT "Press 1 to continue" 8216 INPUT a 8217 IF a = 1 THEN 8219 8218 END 8219 PRINT "Press 1 to return to the town" 8220 INPUT a 8221 IF a = 1 THEN 8223 8222 END 8223 PRINT " You arrive at the town and head twoards Chuck's house." 8224 PRINT "inside you see him watching a televisioln show. You tell" 8225 PRINT "him what you did." 8226 PRINT " 'Now what should I do?' you ask." 8227 PRINT " 'There is a very smart scholar in the town named John" 8228 PRINT "McClain. He might be able to help you." 8229 PRINT " So after dinner and rest at Chuck's house you decide to" 8300 PRINT "look for this John fellow." 8301 PRINT "Press 1 to continue" INPUT a 8302 IF a = 1 THEN BEEP 8303 CLS 8304 PRINT " You finally find John........." 8305 PRINT " 'Hello. My name is "; a$; " . " 8306 PRINT " 'I've heard of you!' John said. 'Your the one who defeated" 8307 PRINT "evil Erink and made Travis forgive anything mean he did! What" 8308 PRINT "do you want, "; a$; " ?" 8309 PRINT " 'I have heard that there is an evil in the land Hkrow. I came" 8310 PRINT "to Ogausis and seem to have solved everyone's problems here. Now" 8311 PRINT "I need to know where to go. Would you help?'" 8312 PRINT " 'Let's go to my hometown, Kinweke. There someone should" 8313 PRINT "be able to help you.'" 8314 PRINT " 'But how will we get there?' you ask." 8315 PRINT " 'You will be able to teleport us there.'" 8316 PRINT " 'Thanks you say.'" 8317 PRINT " 'It was my pleasure, "; a$; " . Call me when you are ready " 8318 PRINT "to go." 8319 PRINT "Press 1 to teleport to Erink's cave" 8320 PRINT "Press 2 to teleport to Alexander's home" 8321 PRINT "Press 3 to teleport to Kinweke" 8322 INPUT a 8323 IF a = 1 THEN BEEP 8324 IF a = 2 THEN 8333 8325 IF a = 3 THEN 8340 8326 PRINT " You decide to teleport to Erink's cave. Inside you find" 8327 PRINT "nothing." 8328 PRINT "Press 1 to teleport back to Ogausis" 8329 PRINT "Press 2 to teleport to Alexander's home" 8330 INPUT b 8331 IF b = 1 THEN 8319 8332 IF a = 2 THEN BEEP 8333 PRINT " You decide to teleport to Alexander's home. Inside you find" 8334 PRINT "him. He welcomes you and invites you to stay. You eat and sleep." 8335 PRINT "Press 1 to teleport to Erink's cave" 8336 PRINT "Press 2 to teleport back to Ogausis" 8337 INPUT c 8338 IF c = 1 THEN 8326 8339 IF c = 2 THEN 8319 8340 PRINT " You decide to get on with it, and teleport to Kinweke." 8341 PRINT "This time you seem to teleport instantly! As soon as you" 8342 PRINT "arrive John introduces you." 8345 PRINT " 'This is "; a$; " , Hero of Ogausis. He ridded the town of" 8346 PRINT "the evil Erink and Travis. He will try to solve most of your " 8347 PRINT "problems. Who thinks they have the promblem that needs solving" 8348 PRINT "the most." 8349 PRINT " Immediatly someone comes up to you. ' "; a$; " I need" 8350 PRINT "your help. My house doesn't get electricity. Will you please" 8351 PRINT "go underground and see what is the matter?'" 8352 PRINT " Before you can answer someone else asks you to help them." 8353 PRINT "' "; a$; " , my daughter is sick. I need your help. There is" 8354 PRINT "to be a herb somewhere in the magical grove that can heal her." 8355 PRINT "Please go there as fast as you can.'" 8356 PRINT " Now you have two people asking you for help. Now another comes" 8357 PRINT "up to where you stand. ' "; a$; " , My pump is running out of" 8358 PRINT "water. We think the problem is coming from the base of the stream" 8359 PRINT "from which our pump gets it's water. Please help, we are tired" 8360 PRINT "of getting water from other places. Please help!!!'" 8361 PRINT " So many requests. You can't even think of going back to " 8362 PRINT "Ogausis to see what is going on." 8363 PRINT "Press 1 to get the electricty back, 2 to get the herb, and 3 to" 8364 PRINT "get the water." 8365 INPUT a 8366 IF a = 1 THEN BEEP 8367 IF a = 2 THEN 8445 8368 IF a = 3 THEN 8539 8369 PRINT " You couldn't live without electricty. You ask the person" 8370 PRINT "with the problem to explain more. 'We think's the rats have" 8371 PRINT "chewed some of the wireing. If you go you would take some more" 8372 PRINT "down there. But beware, there are alot of rats!" 8373 PRINT "Press 1 to go on, press 2 to decide again" 8374 INPUT a 8375 IF a = 1 THEN BEEP 8376 IF a = 2 THEN 8363 8377 PRINT " You decide to go on with it. You get the wire from William" 8378 PRINT "(that's what he'd like to be called). You are told that the " 8379 PRINT "nearest way to the underground is a tunnel. You decide to head" 8380 PRINT "twards it. It is not far away. Inside it is dark. " 8381 PRINT "Press 1 to advance" 8382 PRINT "Press 2 to retreat" 8383 INPUT a 8384 IF a = 1 THEN 8391 8385 IF a = 2 THEN BEEP 8386 PRINT " You decide to run out of the tunnel. " 8387 PRINT "Press 1 to help someone else" 8388 PRINT "Press 2 to go back in" 8389 IF a = 1 THEN 8363 8390 IF a = 2 THEN 8377 8391 PRINT "Press 1 to advance" 8392 PRINT "Press 2 to retreat" 8393 INPUT a 8394 IF a = 1 THEN BEEP 8395 IF a = 2 THEN 8381 8396 PRINT " You see alot of rats. They look very peacefull. You decide" 8397 PRINT "to mind your own buisness. You hear something around the right" 8398 PRINT "corner." 8399 PRINT "Press 1 to head straight, 2 to turn the corner, or 3 to retreat" 8400 INPUT a 8401 IF a = 1 THEN BEEP 8402 IF a = 2 THEN 8409 8403 IF a = 3 THEN 8391 8404 PRINT " Ignoing the noise you continue straight. Hey it's really" 8405 PRINT "dark...... you fall of a ledge and don't remember a thing." 8406 PRINT "Press 1 to continue" 8407 INPUT a 8408 IF a = 1 THEN 680 8409 PRINT " Turning the corner you see a peice of machinery. You wonder" 8410 PRINT "where to put the wire." 8411 PRINT "Press 1 to continue" 8412 INPUT a 8413 IF a = 1 THEN BEEP 8414 PRINT "___________________[ ]____________________________" 8415 PRINT " [ ] " 8416 PRINT " [ *** ] " 8417 PRINT " [**1 * 2 ] " 8418 PRINT " [___\_____/_] " 8419 PRINT " \ / " 8420 PRINT " \ / " 8421 PRINT " \/ " 8422 PRINT " /\ " 8423 PRINT " ____/__\_____ " 8424 PRINT " [ / \ ] " 8425 PRINT " [ 3 4 ] " 8426 PRINT " [_____________] " 8427 PRINT "----------------------------------------------------------- " 8428 PRINT " " 8429 PRINT " " 8430 PRINT " " 8431 PRINT "Input the wire that you would like to replace." 8432 INPUT a 8433 IF a = 14 THEN 8441 8434 IF a < 14 THEN BEEP 8435 IF a > 14 THEN BEEP 8436 PRINT " You replace the wrong wire. The machine blows, you are dead!" 8437 PRINT "Press 1 to continue" 8438 INPUT a 8439 IF a = 1 THEN 680 8440 GOTO 680 8441 PRINT " You replace the wire. The noise stops and the machine starts" 8442 PRINT "to work. You did it! You will need a secret code to input at the" 8443 PRINT "start of the game. The first number is 3." 8444 GOTO 8363 8445 PRINT " You really feel sorry for this girl." PRINT "Her father tells you " 8446 PRINT "how to get to the herb." PRINT "He says to watch out for the pit near Hangman's tree." PRINT "He says that the herb will be improper" 8447 PRINT "if not reduced." 8448 PRINT "Press 1 to go get the herb" 8449 PRINT "Press 2 to help someone else" INPUT a 8500 IF a = 2 THEN 8363 8501 IF a = 1 THEN BEEP 8502 PRINT "Press 1 to continue" 8503 PRINT "Press 2 to retreat" 8504 INPUT a 8505 IF a = 1 THEN BEEP 8506 IF a = 2 THEN 8448 8507 PRINT "Press 1 to continue" 8508 PRINT "Press 2 to retreat" 8509 INPUT a 8510 IF a = 1 THEN BEEP 8511 IF a = 2 THEN 8502 8512 PRINT " You come across the pit that the man told you about. " 8513 PRINT "Enter how to pass or " 8514 PRINT "press 2 to retreat" 8515 INPUT a 8516 IF a = 211951815165# THEN BEEP 8517 IF a = 2 THEN 8507 8518 PRINT " Using the Hangman's rope you cross the pit. On the other side" 8519 PRINT "You see many herbs. Herb #1 is 30/50iths * 10/10enths. #2 is" 8520 PRINT "60/60iths * 20/20iths. #3 is 60/50iths * 80/6iths. #4 is " 8521 PRINT "1903/2000iths + 100/200iths. #5 is 1/1th - 1/1th. " 8522 PRINT "Which herb will you choose" 8523 INPUT a 8524 IF a = 3 THEN 8532 8525 IF a < 3 THEN BEEP 8526 IF a > 3 THEN BEEP 8527 PRINT " You get the wrong herb. The girl dies when she eats it. " 8528 PRINT "You are hung by the same rope that you crossed the pit by." 8529 PRINT "Press 1 to continue" 8530 IF a = 1 THEN 680 8531 GOTO 680 8532 PRINT " You get the right herb. The girl get's much better! You" 8533 PRINT "will need a passcode to get past this (enter it at the begining)" 8534 PRINT ". The second digit is 68." 8535 PRINT "Press 1 to continue" 8536 INPUT a 8537 IF a = 1 THEN 8363 8538 GOTO 8363 8539 PRINT " These people MUST get thirsty. You decide to help the person" 8540 PRINT "who wants the water. He tells you how to get to the waterfall." 8541 PRINT " 'Watch out for the dragon!' he says." 8542 PRINT "Press 1 to get the water, press 2 to help another" 8543 INPUT a 8544 IF a = 1 THEN BEEP 8545 IF a = 2 THEN 8363 8546 PRINT " " 8547 PRINT " Waterfall - [[[]]] " 8548 PRINT " [[[]]] " 8549 PRINT " \ \ " 8550 PRINT " \ \ - Stream " 8551 PRINT " \ \ " 8552 PRINT " \ -__ " 8553 PRINT " -__ \ " 8554 PRINT " \ \ " 8555 PRINT " \ \ " 8556 PRINT " You are- 0 \ \ " 8557 PRINT " here \ \ " 8558 PRINT " " 8559 PRINT "Press 1 to continue" 8560 INPUT a 8561 IF a = 1 THEN 8563 8562 END 8563 PRINT "Press 1 to continue" 8564 PRINT "Press 2 to retreat" 8565 INPUT a 8566 IF a = 1 THEN BEEP 8567 IF a = 2 THEN 8542 8568 PRINT "Press 1 to continue" 8569 PRINT "Press 2 to retreat" 8570 INPUT a 8571 IF a = 1 THEN BEEP 8572 IF a = 2 THEN 8563 8573 PRINT "Press 1 to continue" 8574 PRINT "Press 2 to retreat" 8575 INPUT a 8576 IF a = 1 THEN BEEP 8577 IF a = 2 THEN 8568 8578 PRINT "Press 1 to continue" 8579 PRINT "Press 2 to retreat" 8580 INPUT a 8581 IF a = 1 THEN BEEP 8582 IF a = 2 THEN 8573 8583 PRINT " You finally arrive at the waterfall! You can feel the cold" 8584 PRINT "mist of the water. " 8585 PRINT "Press 1 to get the water" 8586 PRINT "Press 2 to go exploring" 8587 PRINT "Press 3 to stay put" 8588 PRINT "Press 4 to look around" 8589 PRINT "Press 5 to retreat" 8590 INPUT a 8591 IF a = 1 THEN BEEP 8592 IF a = 2 THEN 8603 8593 IF a = 3 THEN 8618 8594 IF a = 4 THEN 8621 8595 IF a = 5 THEN 8620 8596 PRINT " You decide to get the water ASAP remembering what the man said" 8597 PRINT "about the dragon. As soon as you get the water you deel something" 8598 PRINT "on your back. It is the dragon. Before you can throw the water onto" 8599 PRINT "it, it kills you." 8600 PRINT "Press 1 to continue" 8601 IF a = 1 THEN 680 8602 END 8603 PRINT " You decide to look around. As you walk you see the dragon. " 8604 PRINT "It doesn't seem to notice you. " 8605 PRINT "Press 1 to slay the dragon" 8606 PRINT "Press 2 to stay put" 8607 INPUT a 8608 IF a = 1 THEN BEEP 8609 IF a = 2 THEN 8616 8610 PRINT " You decide to attack the beast. As soon as you step twoards" 8611 PRINT "it, it decides to fry you. Sorry but you're dead!" 8612 PRINT "Press 1 to continue" 8613 INPUT a 8614 IF a = 1 THEN 680 8615 END 8616 PRINT " Nothing happens. " 8617 GOTO 8605 8618 PRINT " Nothing happens." 8619 GOTO 8585 8620 GOTO 8578 8621 PRINT " You decide to look around. You see the waterfall. As you are" 8622 PRINT "looking at it, you see the dragon. " 8623 PRINT "Press 1 to hide" 8624 PRINT "Press 2 to attack it" 8625 PRINT "Press 3 to run away" 8626 PRINT "Press 4 to retreat" 8627 INPUT a 8628 IF a = 1 THEN 8639 8629 IF a = 2 THEN 8610 8630 IF a = 3 THEN BEEP 8631 IF a = 4 THEN 8585 8632 PRINT " You decide to get out of here As Fast As You Can (AFAYC)." 8633 PRINT "You run a little to fast. You trip over a rock. The noise" 8634 PRINT "startles the dragon. He comes at you, and fries you. You are dead!" 8635 PRINT "Press 1 to continue" 8636 INPUT a 8637 IF a = 1 THEN 680 8638 END 8639 PRINT "Press 1 to hide under a rock" 8640 PRINT "Press 2 to run past the dragon into the waterfall" 8641 PRINT "Press 3 to retreat" 8642 INPUT a 8643 IF a = 1 THEN BEEP 8644 IF a = 2 THEN 8662 8645 IF a = 3 THEN 8623 8646 PRINT " You decide to hide under a rock." 8647 PRINT "Press 1 to get up" 8648 PRINT "Press 2 to wait" 8649 INPUT a 8650 IF a = 1 THEN BEEP 8651 IF a = 2 THEN 8660 8652 PRINT " You decide to get up. As you get up you hit your head" 8653 PRINT "REALLY hard on the rock. You pass out, and you will never find" 8654 PRINT "the EXACT way you died." 8655 PRINT "Press 1 to continue" 8656 INPUT a 8657 IF a = 1 THEN 680 8658 PRINT "You cheater" 8659 END 8660 PRINT " You decide to wait. Nothing happens." 8661 GOTO 8647 8662 PRINT " You run AFAYC (as fast as you can) past the dragon. You run" 8663 PRINT "right into the waterfall. The dragon follows you, drinks the water" 8664 PRINT "and dies. You get the water and return to the town." 8665 PRINT " 'Thank you so much. You got this magic water. If we put it" 8666 PRINT "in our well it will increase! Thank you so much!'" 8667 PRINT "The last digits of your password are 913" 8668 PRINT "Write them down " 8669 PRINT "Press 1 to enter the password" 8670 PRINT "Press 2 to solve another puzzle" 8671 INPUT a 8672 IF a = 1 THEN 1 8673 IF a = 2 THEN 8363 8674 PRINT " Y'"