Death Castle

    1 REM "Castle"
    2 REM Lon Stucky 10-10-84
    3 ON ERR CONTINUE 
    4 ON ERR GO TO 3
    9 BORDER 0: PAPER 0: INK 7: CLS : PRINT AT 10,9; FLASH 1;"STOP THE TAPE": BEEP .1,30: BEEP .1,40
   12 FOR f=1 TO 500: NEXT f: BORDER 7: PAPER 7: INK 0: CLS 
   13 CLS : PRINT AT 0,11;"Welcome to"
   14 PRINT AT 2,10; FLASH 1;"Death Castle"
   15 PRINT : PRINT "   You are a young adventurer   named Marcus. Many times have   you heard the stories of the    land of Hombinus, a place that"
   20 PRINT "is far from your home in the    Remlin valley. Being the advent-urous type, you decide that you will go to this place."
   25 PRINT "  You pack your gear...which    consists of food, water, a      crossbow, and bolts. But before you leave, you decide you'll pay a visit to the old hermit lady,"
   30 PRINT "who is supposed to be the only  person to have gone inside DeathCastle and come out alive."
   35 INPUT "Please press ENTER ";a$
   40 CLS : PRINT "   You knock on hermit's door.  After a few moments, the door   opens. In the doorway stands an old wrinkled woman. She studies you up and down for a few sec-  onds. Suddenly, her eyes widen."
   50 PRINT "   ""Marcus!"" she exlaims. ""The  last time I saw you, you were no more than a child this tall."""
   55 PRINT "  The hermit raises her hand    about three feet off of the     ground.": PRINT "  You are anxious to get on, so you say,                          ""That is very nice old woman,  but I have important things to talk to you about. May I enter?"""
   60 PRINT "  The old woman smiles at you.  ""Of course Marcus"", she says."
   65 INPUT "Press ENTER please. ";a$
   70 CLS : PRINT "  You walk into her house. It isquite bare except for a table,  a few chairs, and, much to your surprise, a pure gold dragon    head on her mantle piece over   the fireplace."
   80 PRINT "  ""I am going to Death Castle,"" you say immediatly."
   85 PRINT "  The hermit stares at you in a terrified expression.             ""Do not!""She screams.""You will not return if you do!"""
   90 PRINT "  ""You did."" you say.           ""I was lucky"", she says.""I  even got a treasure to prove it.""   She points to the dragon head."
   95 PRINT "  ""Exactly what I am after,"" you tell her.""Treasure."""
  100 INPUT "Please press ENTER ";a$
  110 CLS : PRINT "  ""Son, there are horrors in      that hell that you can't even begin to imagine,"" says the     Hermit."
  115 PRINT """I went because I was young and  foolish...just like you. I want-ed to have an adventure. I had  one that I will never forget."""
  120 PRINT "  ""I was hoping you could tell  me a little about Death Castle,""you say."
  130 PRINT "  ""I don't want to remember a   thing about it,""says hermit."
  135 PRINT "  ""I see,"" you say. You pause to look again at the gold dragon  head. ""Goodbye,"" you say as you leave."
  137 INPUT "Press ENTER please. ";a$: CLS 
  500 PRINT " This is a game where you, the  participant, choose what you    wish to do next in the adventure story. In certain situations,  you will be given a choice of   what to do. A number will be    beside the choice. All you have to do is press the number corre-sponding to the command you wish to give your character. The     choice will be carried out. At  times, you will be asked to      just press the ENTER button.   Please do so when instructed."
  505 INPUT "Please press ENTER ";a$: CLS 
  510 PRINT "  The object of the game is to  survive the evil in Death Castleby making logical choices and   using what things you may find  in the castle. If you are good, you may reach the evil leader ofDeath Castle. If you do, you    must then load part 2. Don't    worry...just follow the instruc-tions on the way and you will beOK."
  520 PRINT : PRINT "  There is only one way to get  to the evil ruler of the evil   Death Castle...and only one way to defeat him. I believe that ifyou be wise in your choices then you will survive."
  521 INPUT "Please press Enter ";a$: CLS 
  522 PRINT "  Please do not attempt to breakinto the listing of Death Castleor strange things may happen    that will require you to turn   off the computer to regain      control."
  523 PRINT : PRINT "  When you press any of the keysto choose what to do during the game, please touch it lightly   and then quickly remove your    finger. Otherwise the next set  of choices will come on the scr-een while your finger is still  on the key of your LAST choice, and the computer will think thatyou are choosing that same key  for that next choice that you   might not have wanted."
  524 INPUT "Press ENTER";a$: CLS 
  525 PRINT "  In any case, I thank you for  purchasing Death Castle and hopeyou have fun with it. If you    ever get stuck or just plain    can't seem to get anywhere, then please do not hesitate to drop  me a line at the address below."
  530 PRINT : PRINT "                Lon Stucky"
  531 PRINT : PRINT "Rte #1 Box 89-S                 Wagener, SC 29164"
  533 FOR f=1 TO 100: NEXT f: PRINT AT 20,0;"Please press Enter": INPUT a$
  535 BORDER 0: PAPER 0: INK 7: CLS : PRINT AT 10,9; FLASH 1;"START TAPE"
  536 FOR f=1 TO 500: NEXT f
  537 PRINT AT 10,9;"          ": INK 0
  540 LOAD "Pl"
 
 
    1 REM "Picture loader"
    2 REM 11-22-84 /5:09 P.M.
    3 BORDER 0: PAPER 0: INK 0: CLS 
   10 POKE 23659,21
   20 POKE 23659,0
   30 LOAD "p"SCREEN$ 
   40 PRINT AT 22,0;;
   50 POKE 23659,21
   60 POKE 23659,0
   70 LOAD "DC"
    1 REM "Death Castle"
    2 REM Lon M Stucky started 8-7-84 at 9:21 P.M.
    3 POKE 23659,21
   10 BORDER 7: PAPER 7: INK 0: CLS 
   20 BEEP .1,10: BEEP .1,20
   50 LET s=0: LET sh=0: LET m=0: LET g=0
   60 ON ERR RESET 
   70 ON ERR CONTINUE 
   80 ON ERR GO TO 70
   99 CLS 
  100 PRINT "  It takes about a week for you to travel to Death Castle, but  you finally make it. You shiver as you look up at the dark      castle of evil. You let your    horse go and examine the evil   place. It is surrounded by a    deep, dark moat. The water in   the moat is supplied by a nearbyriver which flows into it."
  150 PRINT "  You wait until it is dark whenyou think it will be easier to  get in before venturing any clo-ser. You hide behind a clump of bushes along the moat and look  toward the drawbridge."
  155 PRINT "  You see two guards armed with bows and arrows who control the bridge.": INPUT "Press ENTER! ";a$
  160 CLS : PRINT "  You know that you could pick  off one with your  crossbow and probably the other one. Then you could hit the lever which wouldlower the bridge and walk in    unseen. But what if one of them yelled for more guards? What if you missed?"
  165 PRINT "  A way around that would be to just swim across the moat with- out atracting any attention. Youlook toward the other side and  like what you see:a barrel port."
  170 PRINT "  That is where barrels,loaded  with goods,are sent down the    river toward Farmin,a city far- ther down the valley. Then Gar- link,a city up the valley,gets  word from Farmin to send goods  down river,to Death Castle."
  175 PRINT AT 20,0;"Press 1 to fire your crossbow.";AT 21,0;"Press 2 to swim across the moat."
  180 IF INKEY$="1" THEN GO TO 200
  185 IF INKEY$="2" THEN GO TO 190
  187 GO TO 180
  190 CLS : PRINT "   You slip into the water with not even a ripple,and begin yourway toward the barrel port. You look up. The guards are standing there,as before. You hear a    faint splash. You stop and look around. Nothing. You continue onto the port when suddenly,there is a fury of bubbles ahead of   you. You scream in terror at thehead of a horrible creature in  front of you,it's fangs shining.You scream again. The guards    hear it. They see you strugglingto swim away from the moat       beast. They mock and let loose.The arrows tear into you. The   creature finishes off the rest  of your lifless corpse."
  195 PRINT AT 19,10;"THE END"
  197 INPUT a$: RUN 
  200 CLS : PRINT " Carefully,you aim your crossbowat one of the guards. You let   your bolt fly. It strikes the   guard's arm. He screams and     falls into the moat. You quicklyre-load while the other guard   looks for you."
  210 PRINT "  You aim and shoot. The other  guard meets the same fate as thefirst."
  215 PRINT "  Now that you got rid of the   guards,you focus on bringing thedrawbridge down. You aim with a steady hand at the small lever  and shoot. The bolt strikes the lever with a sharp ping. The    bridge lowers down and you are  now able to enter Death Castle."
  220 INPUT "Press ENTER! ";a$
  225 CLS : PRINT "  You walk across the bridge    cautiously. You burst in,your   crossbow ready. Nothing. All is quiet. You see nobody."
  230 PRINT "  What you do see is a long     hallway stretching into darkness that seems endless. You walk   forward until the light from the open drawbridge ends. There are only a few torches lined up    on the walls. You take one and  shine it around you. There is a door to your right,and a door toyour left. Ahead the hall stret-ches into darkness. Now what?"
  235 PRINT AT 19,0;"To go into the left door,press 1"
  240 PRINT AT 20,0;"To go into the right one,press 2"
  245 PRINT AT 21,0;"To go on forward,press 3"
  250 IF INKEY$="1" THEN GO TO 300
  251 IF INKEY$="2" THEN GO TO 400
  252 IF INKEY$="3" THEN GO TO 270
  260 GO TO 250
  270 CLS : PRINT "  You push on down the hallway  with your torch in one hand and your crossbow in the other. You stop because you see the faint  outline of something... a door! It is to your left. Should you  go in it? Should you go on for- ward?"
  275 PRINT AT 20,0;"If you go left,press 1"
  280 PRINT AT 21,0;"If you go on forward,press 2"
  285 IF INKEY$="1" THEN GO TO 500
  290 IF INKEY$="2" THEN GO TO 600
  295 GO TO 285
  300 CLS : PRINT "  You open the door and step in. There,before you,is a sword!   A floating sword! It hovers in  the air, bobbing lightly up and down. It glows a faint blue glow that feels comforting. You alsonotice another door over to the left of the room."
  301 IF sh=1 AND s=0 THEN PRINT "  Maybe this sword is a counter-part to your shield!"
  302 PRINT AT 18,0;"If you grab the sword,press 1"
  303 PRINT AT 19,0;"If you go to the next room,press2"
  304 PRINT AT 21,0;"If you walk back out,press 3"
  305 IF INKEY$="1" THEN GO TO 320
  306 IF INKEY$="2" THEN GO TO 311
  307 IF INKEY$="3" THEN GO TO 360
  308 GO TO 305
  311 CLS : PRINT "  You walk over to the other    door. You open it. You walk in. The door slams shut behind you. You hold up your torch and look around. Food stores! The room is naturally cool somehow,and justperfect for storing meats. You  look around at the hanging anim-als. Pigs,beef,fish,tarantula...TARANTULA! The giant spider     hisses and leaps at you,fangs   aimed for your neck!": IF s=0 AND sh=1 THEN INPUT "Press ENTER quick! ";a$: CLS 
  312 IF s=1 AND sh=0 THEN GO TO 330
  313 IF s=0 AND sh=0 THEN GO TO 317
  314 IF s=0 AND sh=1 THEN GO TO 331
  315 IF s=1 AND sh=1 THEN GO TO 332
  317 PRINT "  You manage to raise and fire  your crossbow. No good. The boltmisses the tarantula by a mile. You had no time to aim. And now also you have no time to aim,   much less re-load. Somehow you  get the feeling that the sword  wouldv'e helped you.": PRINT AT 21,10;"THE END": INPUT a$: RUN 
  320 LET s=1: CLS : PRINT "  You walk up to the sword. You pause for a moment,then you     reach your hand forward. You    grab the sword swiftly,and pull it out of the air. There is the sound of an explosion,and the   room flashes different colors.  Electrical bolts fill the air,  making your hair stand on end.  Then,all is quiet. You are left standing in the middle of the   room,holding what you believe isthe key to surviving what is    hidden in Death Castle. You takethe sheath of the sword and clipit onto your belt. You slide thesword into it. You are ready for anything."
  325 PRINT AT 20,0;"To go into that room,press 1"
  326 PRINT AT 21,0;"To go out,press 2"
  327 IF INKEY$="1" THEN GO TO 311
  328 IF INKEY$="2" THEN CLS : PRINT "  You turn and walk out of the  room. You are now back in the    hallway.": GO TO 338
  329 GO TO 327
  330 PRINT "  You are ready! You draw your  new weapon. It hums and glows   brighter,like it senses danger. The spider huddles back,trying  to get away. You swing mightily at the spider. Your blade slices through it,sending blood flying across the room. You have won.": INPUT "Press ENTER! ";a$: CLS : PRINT "  You walk out of the room,happyfor a victory. Now you are back out in the hall.": GO TO 338
  331 PRINT "  You raise your shield! The    spider hits it and flies back.  You fire your crossbow. The boltplunges into the spider's chest,splurting blood! You grab anoth-er bolt and fumble to cock your weapon. The spider sees it's    chance and leaps at you. His    fangs sink into your neck! You  scream as blood flies all over  the room. You fall back. As you hit the floor,the crossbow firesand the bolt strikes the spider in the head. It shuders and    falls down. It is dead. Unfortu-nately,so are you.": PRINT AT 18,10;"THE END": INPUT a$: RUN 
  332 PRINT "  You draw your sword and raise your shield! The hum and glow inunison. The spider's fangs hit  the shield and break off. You   swing your sword and tear into  the spider's head. It's brains  go flying across the room to    splatter against the wall. You  are the victor.": INPUT "Press ENTER! ";a$: GO TO 338
  338 IF s=1 AND sh=1 THEN PRINT "  It seems that the only place  to go now is down the dark      hallway.": INPUT "Press Enter! ";a$: GO TO 270
  340 IF s=0 AND sh=1 THEN GO TO 350
  341 IF s=1 AND sh=0 THEN PRINT "  You still haven't gone in that room at the right. But you may  also go forward down the long,  dark hall."
  342 IF s=1 AND sh=0 THEN PRINT AT 20,0;"If you go right,press 1";AT 21,0;"If you go down the hall,press 2"
  343 IF INKEY$="1" THEN GO TO 400
  344 IF INKEY$="2" THEN GO TO 270
  345 GO TO 343
  350 IF s=0 AND sh=1 THEN PRINT "  You still haven't gone in that room at the left. But you may  also go forward down the long,  dark hall."
  351 PRINT AT 20,0;"If you go left,press 1"
  352 PRINT AT 21,0;"If you go down the hall,press 2"
  353 IF INKEY$="1" THEN GO TO 300
  354 IF INKEY$="2" THEN GO TO 270
  355 GO TO 353
  360 CLS : PRINT "  You leave the sword and walk  out. You are back in the hallwaynow. Again,you can go right,    forward down the hall,or left,   where you just came from.": GO TO 235
  363 CLS : PRINT "  You walk on out of the room,  leaving the shield where it sat, er-- hovered. You close the    door. You are now back out in   the hall. So,again you can go   forward,left,or right,where you just came from.": GO TO 235
  400 CLS : PRINT "  You go into the right door andare startled to see a shield! A floating shield!": IF s=1 THEN GO TO 409
  401 PRINT "  You are glad to see there are weapons in the castle,for you   were beginning to wonder if yourcrossbow would be good enough touse against any creature you    might encounter."
  402 PRINT "  You really aren't sure. you   walk up to the shield. It is su-spended in air by what you thinkis a magical force. You also no-tice another door here in the   room."
  403 PRINT AT 19,0;"If you grab the shield,press 1"
  404 PRINT AT 20,0;"If you go into the room,press 2";AT 21,0;"If you walk back out,press 3"
  405 IF INKEY$="1" THEN GO TO 410
  406 IF INKEY$="2" THEN GO TO 420
  407 IF INKEY$="3" THEN GO TO 363
  408 GO TO 405
  409 PRINT "  Could this shield be a count- erpart to your new sword? Shouldyou get it like you did the     sword? After all,it is floating in air,just like the sword was. Should you get it?": GO TO 402
  410 CLS : LET sh=1: PRINT "  You walk up to the now blue   glowing shield. You grab it and pull it out of the air. The roomflashes different colors! Bolts of electricity fill the air!    Then,quiet. You are left in the middle of the room holding the  shield.": IF s=1 AND sh=1 THEN PRINT "  You are positive that the     sword and shield go together.   You are ready for some action!"
  415 PRINT AT 20,0;"If you go in that room,press 1"
  416 PRINT AT 21,0;"If you go out,press 2"
  417 IF INKEY$="1" THEN GO TO 420
  418 IF INKEY$="2" THEN CLS : PRINT "  You walk out with the shield. You are back in the hall now.": GO TO 338
  419 GO TO 417
  420 CLS : PRINT "  You open the door. A blast of smelly air hits you. You walk in and look with your torch. The  door slams shut. You hear a     clicking sound. Then you see it! A giant ant! It leaps at you!"
  425 IF s=1 AND sh=0 THEN GO TO 430
  426 IF s=0 AND sh=1 THEN GO TO 435
  427 IF s=0 AND sh=0 THEN GO TO 437
  428 IF s=1 AND sh=1 THEN GO TO 435
  430 PRINT " You raise your sword and swing! It slices a leg of the ant off! But you swung so hard,the sword goes on to hit the wall. Sparks fly as the blade glances off of it. The ant knocks it from your hand! You think for some reason that if you had got the shield, you would have won.": PRINT AT 16,10;"THE END": INPUT a$: RUN 
  435 PRINT "  You raise the shield! It glowsblue as the ant hits it. There  is a loud zap as the ant is def-lected off of the shield. The   ant hits the wall.": IF s=1 AND sh=1 THEN PRINT "You quickly take your sword and slice its head off.": PRINT " It is dead."
  436 PRINT "  You walk out into the hall.   You feel good because you won.": INPUT "Press Enter! ";a$: GO TO 338
  437 PRINT "  The ant's manibles close      around your neck! You fall back.Your crossbow clatters away! Yourealize that you should have gotthe shield. You begin to pass   out as the ant crushes the blood out of your throat.": PRINT AT 15,10;"THE END": INPUT a$: RUN 
  500 CLS : PRINT "  You open the door at your left and walk in. You close it and  hold up your torch. Suddenly,   you see something reflecting off  of your torch light. Is it a   pair of eyes? No! You examine  it closer and discover that it  was not eyes that were shining. There,in a neat little stack are bars of gold! "
  501 PRINT "  You are about to pick one up  when you notice something else. It looks like there is writing  engraved in the wall at your    left."
  502 INPUT "Press Enter to read the carvings ";a$
  503 CLS : PRINT "  You walk up to the wall and   hold up your torch. You read:     ""Riches here lie aplenty,for  thine to fulfill thy need,so    thou must take much,aye very    much, as to be rewarded for thy greed."""
  504 IF s=1 AND sh=0 THEN LET b$="sword."
  505 IF s=1 AND sh=1 THEN LET b$="sword and shield."
  506 IF s=1 AND sh=1 THEN LET b$="sword and shield."
  507 IF s=0 AND sh=1 THEN LET b$="shield and crossbow."
  508 IF s=0 AND sh=0 THEN LET b$="crossbow."
  509 PRINT "  ""Huh?"" you ask yourself.      That didn't make much sense.    You ignore the message and walk over to the gold. You rub the   bars gently. You whip out your  treasure bag and are about to   start filling it when you think of something. Did that message  mean anything?  You are busy    pondering over this when a sud- den banging sound sends you for your ";b$;
  510 INPUT "Press ENTER! ";a$
  515 CLS : PRINT "  You stop as you realize that  it is just a door that you had  not noticed before at the dark  end of the room. But it is act- ing very strange. It opens up byitself,stays open to reveal a   small room for a second,closes, and then opens up again! You aretorn between the decision to go into that room,or to collect thegold. You must also consider themessage."
  516 PRINT AT 19,0;"If you get the gold bars,press 1"
  517 PRINT AT 20,0;"If you go in that door,press 2"
  518 PRINT AT 21,0;"If you walk back out,press 3"
  519 IF INKEY$="1" THEN GO TO 530
  520 IF INKEY$="2" THEN GO TO 550
  521 IF INKEY$="3" THEN GO TO 592
  522 GO TO 519
  530 CLS : LET g=1: PRINT "  You pick up one of the bars.  Oh,is that heavy! You begin to  fill your bag. You have about   ten bars in the bag already and you guess that there is probablythirty or so more!"
  532 PRINT "  Maybe you have enough already. You know you have enough to    live the rest of your days in   luxury,but how many times will  you ever get the chance to do   this again?"
  534 PRINT AT 14,0;"If you continue picking up the  bars to get all of them,press 1"
  535 PRINT AT 16,0;"If you take what you already    have and go into that other     door,press 2";AT 19,0;"If you take what you have and   walk backout,press 3"
  536 IF INKEY$="1" THEN GO TO 540
  537 IF INKEY$="2" THEN GO TO 550
  538 IF INKEY$="3" THEN GO TO 592
  539 GO TO 536
  540 CLS : PRINT "  Laughing snortily and grinningwith greed,you begin to toss theremaining  bars into the bag.    Before long,it is bulging with  the bulk of all that gold. You  look down and see one bar left. You pick it up and plop it into the bag. You are about to leave when you see a tiny panel on   the wall slide open. Something  flies out and hits you. It      clatters to the floor. You pick it up and examine it. It is a   diamond! And a large one,too!   Then another  one flies out and hits you! And another! And      another! You laugh happily. But your smile fades. The whole room is soon filled with flying      diamonds! You drop all that you have and run!"
  541 INPUT "Press ENTER quick! ";a$
  542 CLS : PRINT "  You scream in pain as you feelthe gems pierce your back. You  scream again. Blood chokes your words and flies out of your     mouth. You look down and see a  diamond coming out through your stomach,taking your guts with   it.": PRINT AT 8,10;"THE END": INPUT a$
  543 RUN 
  550 CLS : PRINT "  You walk over to the door. It is still opening and closing.   Then you notice that the door is covered with sharp spikes! If  you ran in at the wrong time,   the door could slam into into   you and you'd die. But of courseyou don't have to go in there."
  551 PRINT AT 20,0;"If you attempt to go in,press 1"
  552 PRINT AT 21,0;"If you walk out of here,press 2"
  553 IF INKEY$="1" THEN GO TO 556
  554 IF INKEY$="2" THEN GO TO 592
  555 GO TO 553
  556 CLS : PRINT "  OK,the words OPEN and CLOSED  at the middle of the screen rep-resent the door opening and     closing at the speed they are   printed. When it says open,press ""q"". If you pressed it fast    enough,you will have made it in. If not then you are dead. How  much stuff you are carrying     affects the speed of the door.  (Sword,Shield,Gold,etc.)        Good luck."
  557 IF s=1 AND sh=0 AND g=0 THEN LET a=40
  558 IF s=0 AND sh=1 AND g=0 THEN LET a=40
  559 IF s=0 AND sh=0 AND g=1 THEN LET a=40
  560 IF s=1 AND sh=1 AND g=0 THEN LET a=20
  561 IF s=1 AND sh=0 AND g=1 THEN LET a=30
  562 IF s=0 AND sh=1 AND g=1 THEN LET a=40
  563 IF s=0 AND sh=0 AND g=0 THEN LET a=70
  564 IF s=1 AND sh=1 AND g=1 THEN LET a=10
  565 PRINT AT 13,10;"OPEN  "
  566 FOR f=1 TO a
  567 IF INKEY$="q" THEN GO TO 575
  568 NEXT f
  569 PRINT AT 13,10;"CLOSED"
  570 FOR f=1 TO a
  571 IF INKEY$="q" THEN GO TO 574
  572 NEXT f
  573 GO TO 565
  574 CLS : PRINT "  You draw back and leap toward the doorway. You feel the spikescrash into you. You die almost  immediatly. The door continues  to open and close,throwing bloodand pieces of your corpse       throughout both rooms.": PRINT AT 9,10;"THE END": INPUT a$: RUN 
  575 CLS : PRINT "  You lunge through the doorway and land heavily in front of an altar. You don't need to use    your torch...there are several  of them hanging on the walls.   On closer examination,you disco-ver that the altar is made of    pure gold! There is also a     golden idol on top of the altar!Unfortunately,the idol has been melted onto the altar,so you can not get it. Wait,you see some- thing inscribed at the base of  altar!"
  578 INPUT "Press ENTER to read the inscrip-tion ";a$
  580 CLS : PRINT "  You look at the letters. They say: ""A safe exit must be paid  for by a prayer."""
  581 PRINT "  You wonder what that means.   It says a safe exit,but you can go out just like you came in.   The door is still opening and   closing at the same speed as be-fore,so what would keep you fromleaving? You walk over to the   door to prove it by going out   when it suddenly starts opening and closing at a tremendous paceof speed. The door is a blur,   and you know it is moving far   too fast for you to jump throughto the other side.": INPUT "Press ENTER! ";a$
  583 CLS : PRINT "  The door is banging so hard   and fast that it is making a    terrible racket. You wonder if  anyone or anyTHING will hear.     ""Safe passage for a prayer?""  you ask yourself. You go behind the altar. There! There on the  back of the idol are the inscri-bed words:""Blessed are the foll-owers of Hombinus."" Could that  be the prayer? You see that     there is a small square in frontof the idol. If you knelt there and said those words,perhaps the door would stop."
  584 PRINT "  You don't feel like talking to a hunk of gold,but maybe you   should. Then again,perhaps that door isn't moving as fast as it looks. Maybe you could make it."
  585 PRINT AT 20,0;"If you try to jump,press 1";AT 21,0;"If you kneel and pray,press 2"
  586 IF INKEY$="1" THEN GO TO 590
  587 IF INKEY$="2" THEN GO TO 1000
  588 GO TO 586
  590 CLS : PRINT "  You close your eyes and leap, expecting the worst. You land ina heap in the next room. You     made it! Impossible! You don't hang around. That idol spooked  you.": INPUT "Press ENTER ";a$
  592 CLS : PRINT "  You turn and walkout. You are now back out in the hall. Well, you guess the only way to go is forward,so you go."
  593 IF g=1 THEN PRINT " First you check your treasure   bag.(Just to be sure you have   not lost any gold.)"
  594 IF s=1 AND sh=0 THEN PRINT "  You grip your sword tightly   and start off.": INPUT "Press ENTER ";a$: GO TO 600
  595 IF s=0 AND sh=1 THEN PRINT "  You ready your shield and     start off.": INPUT "Press ENTER ";a$: GO TO 600
  596 IF s=1 AND sh=1 THEN PRINT "  Making sure your sword and    shield are in place,you start   off.": INPUT "Press ENTER ";a$: GO TO 600
  597 IF s=0 AND sh=0 THEN PRINT "  You ready your crossbow and   start off.": INPUT "Press ENTER ";a$: GO TO 600
  600 CLS : PRINT "  You go on forward. Your feet  clomp noisily on the stone      floor. Suddenly they splash. Youseem to have stepped into some- thing wet. You reach your hand  down and rub it into the liquid.You bring up your hand to the   torch to see what it was. You   gasp and almost puke. Blood!"
  605 PRINT "  You thrust your torch lower to see where it could be coming   from. It seems to be flowing    from underneath a door you had  not noticed at your right. You   suddenly smell decaying flesh.  You think you hear a sound from behind the door, but you aren't sure."
  610 PRINT AT 20,0;"If you go right,press 1"
  615 PRINT AT 21,0;"If you go on forward,press 2"
  620 IF INKEY$="1" THEN GO TO 700
  625 IF INKEY$="2" THEN CLS : GO TO 800
  630 GO TO 620
  700 CLS : PRINT "  You step through the river of blood and approach the door. Youopen it slowley. You are immedi-atly hit with a blast of the    smelliest air you've ever encou-ntered. You walk in and the doorslams shut. Suddenly,you slip ina puddle of blood and fall down into it. Torches on the walls   are suddenly lit up. You hear a loud hiss. You look up and see agiant serpent. You almost faint as it drops the bloody corpse ofa person into a large pile of   hundreds of decaying bodies' of humans,animals and other things from it's huge jaws. You try to open the door but it won't open up!"
  703 INPUT "Press ENTER ";a$
  705 CLS : PRINT "  You then notice that behind it is a stairway which goes up    into the darkness."
  707 PRINT "  ""You will die for stumbling   in here,mortal worm."", says the serpent."
  709 PRINT "  You are amazed that the giant serpent can talk.                ""Why do you kill so many creat-ures?"" you ask."
  711 PRINT "  ""My master Hombinus allows me to go to the city in the valley and eat them when I am hungry,"" says the serpent.                ""Now you will join them!""       The serpent comes toward you.": PRINT 
  712 IF s=0 AND sh=0 AND g=0 THEN GO TO 725
  713 IF s=1 AND sh=1 AND g=1 THEN GO TO 735
  714 IF s=1 AND sh=0 AND g=0 THEN GO TO 790
  715 IF s=0 AND sh=1 AND g=0 THEN GO TO 845
  716 IF s=0 AND sh=0 AND g=1 THEN GO TO 852
  717 IF s=1 AND sh=1 AND g=0 THEN GO TO 860
  718 IF s=0 AND sh=1 AND g=1 THEN GO TO 870
  719 IF s=1 AND sh=0 AND g=1 THEN GO TO 880
  725 PRINT AT 19,0;"If you use your crossbow,press 1"
  726 PRINT AT 20,0;"If you try to run up the steps, press 2"
  727 IF INKEY$="1" THEN GO TO 730
  728 IF INKEY$="2" THEN GO TO 731
  729 GO TO 727
  730 CLS : PRINT "  You raise your crossbow.": PRINT """Die!!"" you scream.": PRINT "  You fire the bolt. It hits theserpent in the head. You re-loadand fire again. The bolt hits   and pierces its neck. You fire  over and over. Each time scoringa hit and each time the serpent coming closer. The bolts don't  seem to be bothering it! Soon,  the serpent is riddled with all of your bolts. You have run out!The serpent laughs. He is almostupon you.": PRINT AT 15,10;"THE END": INPUT a$: RUN 
  731 CLS : PRINT "  You run as fast as you can    toward the stairway. You slip ina puddle of blood but you get   back up. You jump over the back of suprised serpent's tail and  scramble up the steps. You don'teven realize that the serpent   snaps you up in his jaws. When  you do,his fangs are already    sinking into your flesh.": PRINT AT 11,10;"THE END": INPUT a$: RUN 
  735 PRINT AT 18,0;"To use your sword & shield,press 1"
  736 PRINT AT 20,0;"To use your crossbow,press 2"
  737 PRINT AT 21,0;"If you offer your gold,press 3"
  738 IF INKEY$="1" THEN GO TO 745
  739 IF INKEY$="2" THEN GO TO 730
  740 IF INKEY$="3" THEN GO TO 750
  741 GO TO 738
  745 CLS : PRINT "  You draw your sword and ready your shield. The serpent gasps.": PRINT "  ""The sword and shield of      Kalor!"" he exlaims.": PRINT "  You are pleased at the foul   beast's fright.": PRINT "  ""It scares you eh?"" you say.": PRINT "  You advance on the serpent. Asif all fright were gone,he stirsup his head and strikes at you! You throw your shield in the    way. His head bangs against the shield. For a moment,he seems tobe dazed. You see your chance!  You swing your sword as hard as you can. Blood splurts all over as the sword digs into its neck!The head falls off and splats onthe floor.": PRINT AT 21,0;"Please press ENTER": INPUT a$
  746 CLS : PRINT "  You have killed the serpent!  You look at the serpent's head. You know that if your shield hadnot been special,it would have  shattered against the serpent's blow. And if you had tried to   cut its head off with any other sword,it would have broken. His head was is almost as large as  you are! You turn and see that  the door is now standing open.  Should you leave now? Or should you go up that stairway?": PRINT AT 20,0;"If you go out now,press 1";AT 21,0;"If you go up the stairs,press 2"
  747 IF INKEY$="1" THEN CLS : PRINT "  You walk out and close the    door. The only way to go now is farther on down the hallway. So you do.": GO TO 800
  748 IF INKEY$="2" THEN GO TO 770
  749 GO TO 747
  750 CLS : LET g=0: PRINT "  You take your treasure bag anddump your gold onto the floor.  ""Master,"" you say.": PRINT "  The serpent's eyes gleam. He  approaches and looks at your    offering. ""Gold!"" he says greed-ily.": PRINT "  ""For you oh great serpent,""   you say.": PRINT "  The serpent grabs the gold in his mouth and shoots up the     stairway in a flash. After a    moment,you hear him say,""Begone worm! I set you free!""": PRINT "  You hear the door clicking.   You turn and see it open. It    seems that you are free to go.  But what are up those steps?"
  751 PRINT AT 19,0;"If you get out while you have   the chance,press 1"
  752 PRINT AT 21,0;"If you go up the steps,press 2"
  753 IF INKEY$="1" THEN GO TO 756
  754 IF INKEY$="2" THEN GO TO 760
  755 GO TO 753
  756 CLS : PRINT "  You run out and slam the door shut. That was close! The only  way to go now is forward.": GO TO 800
  760 CLS : PRINT "  You walk up to bottom of the  stairway and look up. It leads  into darkness."
  765 PRINT "  You climb for a few minutes.  Suddenly you hear a hiss from   the darkness above.": PRINT "  ""I gave you a chance,"" you    hear the serpent say. You look  but you can't see him.": PRINT "  ""Now you will pay.""": PRINT "  You start back down the steps. Suddenly the serpent grabs you! He coils around you and begins to constrict! You struggle,but  you know it is"
  767 PRINT AT 19,10;"THE END": INPUT a$: RUN 
  770 CLS : PRINT "  You walk over to the bottom ofthe stairway and look up. There is nothing but darkness. You    throw down your old torch and   grab one of the brighter ones   up on the wall. You hold it in  front of you and start up the   steps. The steps seem to go on  forever. You sit down on a step to rest. After a moment,you go  on up the steps again. You climband climb and climb some more.  Just when you begin to wonder ifthe steps ever stop at all,you  see a light above. You walk up  the rest of the stairs and end  up standing before a glass dome.": PRINT AT 21,0;"Please press ENTER": INPUT a$
  772 CLS : PRINT "  You walk up to it and look in.There is a medallion in there!  It is attached to a chain,so it could be worn around the neck.  But should you get it? If so,then how?"
  774 PRINT AT 17,0;"If you fire your crossbow at thedome,press 1"
  775 PRINT AT 19,0;"If you hit it with your sword,  press 2"
  776 PRINT AT 21,0;"If you go back down,press 3"
  777 IF INKEY$="1" THEN CLS : PRINT "  You stand back a little and   fire your bow. The bolt strikes the dome and deflects off. You  didn't see where the bolt defle-cted off to,so you look for it. (You don't like wasting bolts.) As you are looking,you feel     something wet on your stomach.  You reach your hand down to wipeaway the drops of sweat,or whatever it is. Your hand touches    something metal. You look down  and see the back of your bolt   petruding out of your side.": PRINT AT 15,10;"THE END": INPUT a$: RUN 
  778 IF INKEY$="2" THEN GO TO 781
  779 IF INKEY$="3" THEN GO TO 895
  780 GO TO 777
  781 CLS : PRINT "  You draw back and swing with  all of your strength. The sword strikes the glass. There is a   tremendous explosion,and you arethrown back. When the smoke is  clear,you see that there is no  broken glass around. You think  it was probably reduced to dust.The medallion is hovering there,suspended in air. You walk up toit. There is writing on it. It  says:"
  782 PRINT " ""essedblay areway ethay oyallay  ollowersfay ofway alorkay.""": PRINT "  You guess it must be in some  kind of code.": PRINT AT 18,0;"If you put the medallion around your neck,press 1";AT 20,0;"If you leave it and go back down press 2"
  783 IF INKEY$="1" THEN GO TO 890
  784 IF INKEY$="2" THEN GO TO 895
  785 GO TO 783
  790 PRINT AT 18,0;"If you use your sword,press 1"
  791 PRINT AT 19,0;"If you use your crossbow,press 2"
  792 PRINT AT 20,0;"If you run to the stairs,press 3"
  793 IF INKEY$="1" THEN GO TO 797
  794 IF INKEY$="2" THEN GO TO 730
  795 IF INKEY$="3" THEN GO TO 731
  796 GO TO 793
  797 CLS : PRINT "  You draw your sword. The      serpent gasps. It seems to be   scared of your sword! But the   serpent recovers and strikes at you. You swing your sword and   tear a chunk of the serpent's   flesh of. You swing and sink    your sword to the hilt in his   side. He hisses and spits poisonat you! You have no time to run.The poison hits you and burns   into you! You scream as you     watch the poison eat your hand  to the bone. It does a nice job of eating the rest of you,too.": PRINT AT 16,10;"THE END": INPUT a$: RUN 
  798 CLS : PRINT "  You  raise your shield in hopethat any attack might be deflec-ted. The serpent gasps. He is   scared of your shield! But not  for long. He lunges at you,fangsaimed. They strike the shield   and break off. The serpent's    own poison splurts out all over him. He screams and dies as the poison eats his flesh away. You smile and begin to walk over to the stairway. But you slip in a puddle of blood. You fall down  and land in the serpents poison.": PRINT AT 14,10;"THE END": INPUT a$: RUN 
  800 PRINT "  You go on ahead. You don't    walk that far ahead before you  spot another door. This one is  to your left. You shiver as a   cold wind tears into you. You   look for the source of it. Thereahead of you,is a hole! It is   large enough for you to fall    into,so you are glad you stoppedor you might not have seen it."
  805 PRINT "  But wait,there is something   else. You hold your torch out infront of you toward the hole.   There,on the other side is a    large wooden door. There is a   carving of letters in it. They  say:""ENTRANCE TO COMPLEX OF               HOMBINUS"""
  810 INPUT "Press ENTER ";a$
  815 CLS : PRINT "  You have found the entrance   that leads to Hombinus! But how will you open the door? You can try to jump the hole,but it is  very far across. But what about that door to your left? There   are some mighty strange sounds  coming from inside!"
  820 PRINT AT 20,0;"If you attempt to jump,press 1"
  825 PRINT AT 21,0;"If you go left,then press 2"
  830 IF INKEY$="1" THEN GO TO 2000
  835 IF INKEY$="2" THEN GO TO 900
  840 GO TO 830
  845 PRINT AT 18,0;"If you use your shield,press 1"
  846 PRINT AT 19,0;"If you use your crossbow,press 2"
  847 PRINT AT 20,0;"If you run to the stairs,press 3"
  848 IF INKEY$="1" THEN GO TO 798
  849 IF INKEY$="2" THEN GO TO 730
  850 IF INKEY$="3" THEN GO TO 731
  851 GO TO 848
  852 PRINT AT 18,0;"If you offer your gold to the   serpent,press 1"
  853 PRINT AT 20,0;"If you use your crossbow,press 2"
  854 PRINT AT 21,0;"If you run to the stairs,press 3"
  855 IF INKEY$="1" THEN GO TO 750
  856 IF INKEY$="2" THEN GO TO 730
  857 IF INKEY$="3" THEN GO TO 731
  858 GO TO 855
  860 PRINT AT 18,0;"If you use your sword & shield, press 1"
  861 PRINT AT 20,0;"If you use your crossbow,press 2"
  862 PRINT AT 21,0;"If you run to the stairs,press 3"
  863 IF INKEY$="1" THEN GO TO 745
  864 IF INKEY$="2" THEN GO TO 730
  865 IF INKEY$="3" THEN GO TO 731
  866 GO TO 863
  870 PRINT AT 18,0;"If you use your shield,press 1"
  871 PRINT AT 19,0;"If you offer your gold,press 2"
  872 PRINT AT 20,0;"If you use your crossbow,press 3"
  873 PRINT AT 21,0;"If you run to the stairs,press 4"
  874 IF INKEY$="1" THEN GO TO 798
  875 IF INKEY$="2" THEN GO TO 750
  876 IF INKEY$="3" THEN GO TO 730
  877 IF INKEY$="4" THEN GO TO 731
  878 GO TO 874
  880 PRINT AT 18,0;"If you use your sword,press 1"
  881 PRINT AT 19,0;"If you offer your gold,press 2"
  882 PRINT AT 20,0;"If you use your crossbow,press 3"
  883 PRINT AT 21,0;"If you run to the stairs,press 4"
  884 IF INKEY$="1" THEN GO TO 797
  885 IF INKEY$="2" THEN GO TO 750
  886 IF INKEY$="3" THEN GO TO 730
  887 IF INKEY$="4" THEN GO TO 731
  888 GO TO 884
  890 CLS : LET m=1: PRINT "  You place the medallion aroundyour neck. At first,nothing hap-pens. Then,you are aware that   your surroundings are changing. Then you are standing out in a  hallway with a door at the rightof you and a dark hall ahead.   You realize you have been trans-ported by the medallion! You areback out by the door that led toyour encounter with the serpent!Since the only way to go now is ahead,you go.": INPUT "Press ENTER ";a$: CLS : GO TO 800
  895 CLS : PRINT "  You start back down the stair-way. It is much easier going    down then up. You are going downat a pretty fast pace,so you    figure you'll be down after a   minute or so. Suddenly you trip.There is nothing to catch your- self on,so you hit the steps    face first. You scream as you   tumble down the steps with no   way of stopping yourself. You   aren't sure how many steps you  have tumbled down. You die afterabout twenty four.": PRINT AT 15,10;"THE END": INPUT a$: RUN 
  900 CLS : PRINT "  You open the left door and    walk in. You are startled to seean ugly old man sitting on a    throne. He was chanting somethi-ng but stopped when he saw you."
  910 IF m=1 THEN GO TO 930
  915 PRINT "  ""Where is the medallion?""     says the man."
  916 PRINT "  You have no idea what he is   saying.": PRINT " ""What medallion?"" you ask.": PRINT "  The man screeches.""Don't hide it from me!""": PRINT "  You go for the door,but it is locked. You go for your weapon, but the man sees you.": PRINT "  ""You demon!"" he screams.": PRINT "  He fires a bolt of electricity from his finger."
  917 IF sh=1 THEN GO TO 920
  918 PRINT " The bolts sear into you,making you convulge. You wonder what   the medallion is?": PRINT AT 21,10;"THE END": INPUT a$: RUN 
  920 INPUT "Press ENTER! ";a$: CLS : PRINT " You raise your shield. You feelthe force of the bolts pushing  against you...even with the     shield absorbing the shock. It  is too much. You are pushed aga-inst the wall. The shield flies from your hands. Your guts get  roasted onto the wall.": PRINT AT 10,10;"THE END": INPUT a$: RUN 
  930 PRINT "  ""Ah,you have the medallion.""  says the man.": PRINT "  ""Who are you?"" you ask.": PRINT "  The man smiles. ""I am the one whom you got the medallion for. With it,we will destroy         Hombinus."""
  931 INPUT "Press ENTER ";a$
  932 CLS : PRINT "  The old man goes on to explainhow he was an adventurer like   you and that the force of a sup-reme power had asked him to stayin the castle and wait for some-one to get the medallion."
  933 PRINT "  Hombinus could not remove or  destroy it,so he had his monsterserpent guard it. Even if some- one did get it,Hombinus didn't  know the man was in the castle  to instruct any who would use   it."
  934 PRINT "  ""Why can't the supreme power  destroy Hombinus themselves?""   you ask."
  935 PRINT "  ""I don't know,""says the man.  ""I only know that you must stand in front of the entrance to    the complex of Hombinus and say  whatever is on the medallion."""
  940 INPUT "Press ENTER ";a$: CLS 
  945 PRINT "  ""You mean this?"" you say,     revealing the code on the side  of the medallion."
  950 PRINT "  ""It is in code?"" the man asks.""I did not know of this."""
  955 PRINT "  ""Then you don't know it?"" you ask."
  957 PRINT "  ""And YOU don't?"" the man repl-ies."
  960 PRINT "  ""No,"" you return. ""I guess allis lost."""
  965 PRINT "  ""We MUST try!"" the man says.  ""We must!"""
  970 PRINT AT 19,0;"If you tell the man you won't do it, press 1"
  972 PRINT AT 21,0;"If you WILL try, press 2"
  974 IF INKEY$="1" THEN GO TO 990
  975 IF INKEY$="2" THEN GO TO 980
  977 GO TO 974
  980 CLS : PRINT "  ""OK,"" you say. ""I'll try."""
  981 PRINT " ""Good!"" the man says with glee. ""Now go outside the door. Hold it above your head and say the  words. Hurry!"""
  983 PRINT "  You walk out and stand in     front of the door that says     ENTRANCE TO THE COMPLEX OF HOMB-INUS.  You hold up the medallionthat says:"
  984 PRINT " ""essedblay areway ethay oyallay   ollowersfay ofway alorkay."""
  985 PRINT "  You know that you must say thecorrect words. Will the supreme power put the words in your     voice as you say it? There is   only one way to find out."
  986 PRINT AT 19,0;"Enter what you think the medall-ion says exactly. Be wise!": INPUT a$
  987 IF a$="Blessed are the loyal followers of Kalor" OR a$="Blessed are the loyal followers of Kalor." THEN GO TO 9000
  988 CLS : PRINT "  You say it. Nothing. Somehow, you know you are wrong. But you cannot get up. Something is kee-ping you from leaving. You are  forced to stay and try...and tryand try...": PRINT AT 7,10;"THE END": INPUT a$: RUN 
  990 CLS : PRINT "  ""I'm sorry,"" you say as you   walk away.  You close the door  and wonder what you will do nextin this place. Suddenly, the    medallion on your neck begins toglow a pulsing red color. It    spreads all over your body. You hear tiny voices coming from allaround you.": PRINT "  ""Oooh! What a nice body!""": PRINT "  ""I think we'll like it here!""": PRINT "  ""Finally! A place to live!""": PRINT "  You realize that this glow is actually millions of creatures  meaning to live on you! The verythought disgusts you. But it    seems that they have made up    their minds." 
  995 PRINT AT 19,10;"THE END": INPUT a$: RUN 
 1000 CLS : PRINT "  You kneel down inside the     square in front of the idol. You pause and say,""Blessed are the followers of Hombinus."""
 1010 PRINT "  Nothing.": PRINT """Blessed are the followers of Hombinus!"""
 1015 PRINT "  Suddenly,the floor is whisked out from under you! That square was a trap door! You fall,fasterand faster. You see a stone     floor rushing up to greet you.  It occurs to you that praying toidols never helped anyone.": PRINT AT 14,10;"THE END": INPUT a$: RUN 
 2000 CLS : PRINT "  You draw back a little,so you can get a running start. You runand hurl yourself over the hole. It looks like you will make it! Boy will you make it! You jump-ed so hard,you not only make it over to the door,you hit it with tremendous force! You deflect  off and fall back... into the   hole! You tumble,head over heels to whatever fate awaits you at the bottom. Down into the black you go. Suddenly,laughter fills the air. Somehow,you know that  it is Hombinus laughing. If you just could've gotten over to thedoor...": PRINT AT 18,10;"THE END": INPUT a$: RUN 
 9000 CLS : PRINT "CONGRATULATIONS! YOU GOT IT     RIGHT! PRESS ENTER TO BEGIN A   WHOLE NEW ADVENTURE!": INPUT a$: PRINT AT 10,10; FLASH 1;"PRESS PLAY": FOR f=1 TO 100: NEXT f: BORDER 0: PAPER 0: INK 0: CLS 
 9100 LOAD "dcl"
 
 
    1 REM DC-2 loader
    2 REM 2-2-85/1:37 A.M.
    3 BORDER 0: PAPER 0: INK 0: CLS 
   20 LOAD "DC-2"
    1 REM DC-2
    2 REM Lon Stucky 2-2-85/1:51 A.M.
   11 BORDER 7: PAPER 7: INK 0: CLS 
   12 BEEP .1,10: BEEP .1,20
   13 PRINT AT 10,8; FLASH 1;"STOP THE TAPE"
   14 PAUSE 200
   15 CLS 
  100 PRINT " Very good,you did it! I must   warn you now,that this next partis very different than the part you just finished playing. It ismuch more difficult. You will   still choose what to do by pres-sing a number,but the highlight of the next part is the TWO WORDcommand feature. This is where  you type in two words to say wh-at you want to do. You MUST onlyuse two words. The verb first,  then the noun."
  110 INPUT "Press ENTER please.";a$
  120 CLS : PRINT " Foe example. To go down a stair-way,you wouldn't type GO DOWN  STAIRS. You would put GO STAIRS.To go out a window put GO WINDOWnot GO OUT WINDOW. To open a    door put GO DOOR not OPEN DOOR. You will have to learn from exp-erience on how to work it. If   you can't get one thing to work,try a different way of saying   it. The vocabulary of the compu-ter is quite limited,I'm afraid,in this game since I did not    base it all on two word commands"
  125 INPUT "Press ENTER ";a$
  130 CLS : PRINT " I'm going to try and explain   how it works. Okay...you will   know when to start using two    word commands during the game   when----- (1)You will not be gi-ven a choice on what to do.     (2)There will be only a cursor  at the bottom of the screen. Andit will NOT say PLEASE PRESS EN-TER.(3)Most every time,but not  always,the computer will tell   you to put the cursor in CAPS   LOCK mode. This is a defenite   sign to use two word commands.  Two word commands must ALWAYS beentered in capital letters."
  135 INPUT "Press ENTER ";a$
  140 CLS : PRINT " If the computer does not under-stand what you have put into it,either because it is not in it'svocabulary or because you spell-ed it wrong,it will just displaythe cursor again,giving you ano-ther chance. Now each room that uses two word commands  has a   list within the computer of the words allowed. Say for instance that all the verb words for one room were--KICK EAT BLOW SCRATCHand KILL. Now all significant   things or nouns in the room can be used with those verbs."
  145 INPUT "Press ENTER ";a$
  150 CLS : PRINT " Like you are in a room with a  painting,a candle,and a dog.    Now the only reason BLOW may be on the verb list is to be used  with the candle. The player putsBLOW CANDLE. That makes sense.  That was what it was intended   for. But whether it serves any  purpose or not,BLOW must work   with any other significant thingin that room. If someonr Typed  BLOW PAINTING,then the computer would have to respond with some-thing,maybe something stupid.   But BLOW might not work in anot-her room...different things worlin different rooms."
  151 PRINT AT 15,31;"k";AT 10,23;"e"
  155 INPUT "Press ENTER ";a$
  160 CLS : PRINT " Like I said,you must experimentto understand. I am sorry if I  am confusing you. At times you  have to put in N S E or W for   directions. Well,I guess I shou-ld let you go. But heres a hint,remember what messages say. And READ things often."
  165 PRINT "Oh,I forgot to tell you. If you want to THROW something,like a  rock,put THROW ROCK and the com-puter will print AT WHAT? And   you would respond with one word,like TREE. And if you want to   shoot a crossbow,put SHOOT BOLTSor SHOOT BOLT. And again the co-mputer would say AT WHAT?"
  170 INPUT "Press ENTER ";a$
  175 CLS : PRINT " Please,if you have a problem   with the program,write me. And  if you DON'T have a problem,wri-te me. I want to know what you  think."
  200 PRINT AT 10,0;"LON STUCKY                      RTE 1 Box 89-s                  Wagener,SC 29164"
  210 INPUT "Press ENTER to load part 2";a$
  215 CLS : PRINT AT 10,8; FLASH 1;"START TAPE"
  217 PAUSE 200
  220 BORDER 0: PAPER 0: INK 0: CLS 
  230 POKE 23659,0
  240 LOAD "Castle 2"
 
 
    1 REM DC part 2
    2 REM Lon Stucky
    3 REM 12-25-84/10:01 A.M.: REM Finished 2-1-85/11:52 P.M.
    4 POKE 23659,21
   10 BORDER 7: PAPER 7: INK 0: CLS 
   15 BEEP .1,10: BEEP .1,20
   20 LET d=0: LET b=0: LET c=0
   21 LET m=0: LET dd=0: LET sb=0
   60 ON ERR RESET 
   70 ON ERR CONTINUE 
   80 ON ERR GO TO 70
   99 CLS 
  100 PRINT : PRINT "  After you say the words,the   door flies open. You begin to   rise into the air. You fly into the doorway. Then you are dumpedonto a hard floor. The door thencloses."
  105 PRINT "  You have made it! You take    your torch (amazing you still   have it,huh?) and look at your  surroundings."
  110 PRINT "  Before you is a large rug. On the other side of it is a stair-way leading up. To the right of you is a door. To your left is  another stairway leading up."
  115 PRINT AT 16,0;"If you go around the rug to the stairs,press 1"
  117 PRINT AT 18,0;"If you walk across the rug to   the stairs,press 2"
  120 PRINT AT 20,0;"If you go right,press 3"
  125 PRINT AT 21,0;"If you go left,press 4"
  130 IF INKEY$="1" THEN GO TO 500
  135 IF INKEY$="2" THEN GO TO 400
  140 IF INKEY$="3" THEN GO TO 200
  145 IF INKEY$="4" THEN GO TO 300
  150 GO TO 130
  200 CLS : PRINT "  Above the door is a message.  It reads:""BEWARE SHIMMERING     DARKNESS"""
  205 PRINT "  You open the door and walk in.You are in a round room. You seea pool ahead of you. You realizethat the pool is filled with li-quid gold! To the left is anoth-er door. On the floor is a buck-et."
  207 PRINT "  You notice about a dozen gold-en statues all around the pool  holding buckets as if inviting  you to take some!"
  210 PRINT AT 19,0;"If you take the bucket and fill it with gold,press 1"
  215 PRINT AT 21,0;"If you go left,press 2"
  220 IF INKEY$="1" THEN GO TO 250
  225 IF INKEY$="2" THEN GO TO 600
  230 GO TO 220
  250 CLS : PRINT "  You pick up the bucket and dipit into the pool. You laugh as  the gold pours into the bucket. You start to take the bucket outbut you seem to be a little     stiff. You find it hard to move!You can't even breath! Your lastthought is how you will look to other victims,inviting them to  share the wealth with you and   the other statues."
  260 GO TO 9999
  300 CLS : PRINT " You walk toward the left stair-way. On the wall is a message   that says:": PRINT """Silver stirs the silver knight  but siver also satisfies the    silver knight.""": PRINT " You climb up the stairway caut-iously. You come to a large tri-angular room in which which you are standing at the edge of one side of the triangle. "
  303 INPUT "Press ENTER ";a$
  305 PRINT " The door behind you disappears and is replaced by a solid wall.At your right is a hallway that leads downwards. In a corner ah-ead of you is a door. At your   right is a huge bar of silver!  And at your left is a tall silv-er knight with one hand holding a sword and the other stretched out as if wanting to hold somet-hing. Now what? (Put cursor in  CAPS LOCK mode!)"
  310 INPUT z$: PRINT z$
  320 IF z$="KILL DOOR" OR z$="ATTACK DOOR" OR z$="DESTROY DOOR" THEN PRINT " You hack at the door with your sword but it does nothing to it."
  322 IF z$="READ DOOR" THEN PRINT "It reads:""CLOSET OF MOVEMENT. NO ADMITTANCE WITHOUT CROWN,DISK, OR BOLT"""
  324 IF z$="GET DOOR" THEN PRINT " You can't get the door."
  326 IF z$="GO DOOR" THEN GO TO 4000
  328 IF z$="GIVE DOOR" THEN PRINT " Sorry,you can't give the door  anything. It doesn't seem to be accepting any gifts today."
  330 IF c=0 AND z$="KILL KNIGHT" OR c=0 AND z$="ATTACK KNIGHT" OR c=0 AND z$="DESTROY KNIGHT" THEN PRINT " You beat on the knight for a   few moments with your sword bef-ore realizing that there is no  logic in doing it."
  331 IF c=1 AND z$="KILL KNIGHT" OR c=1 AND z$="ATTACK KNIGHT" OR c=1 AND z$="DESTROY KNIGHT" THEN PRINT " You can't. There is no knight  here."
  332 IF c=0 AND z$="READ KNIGHT" THEN PRINT " There is no writing on the     knight."
  333 IF c=1 AND z$="READ KNIGHT" THEN PRINT " There is no knight here."
  334 IF c=0 AND z$="GET KNIGHT" THEN PRINT " You try,but you can't move the knight."
  335 IF c=1 AND z$="GET KNIGHT" THEN PRINT " There is no knight here."
  336 IF c=0 AND z$="GO KNIGHT" THEN PRINT " You are there."
  337 IF c=1 AND z$="GO KNIGHT" THEN PRINT " There is no knight."
  339 IF c=0 AND z$="GIVE KNIGHT" THEN GO TO 5000
  340 IF c=1 AND z$="GIVE KNIGHT" THEN PRINT "There is no knight."
  341 IF c=0 AND z$="KILL SILVER" OR c=0 AND z$="ATTACK SILVER" OR c=0 AND z$="DESTROY SILVER" THEN PRINT " That serves no logical purpose."
  342 IF c=1 AND z$="KILL SILVER" OR c=1 AND z$="ATTACK SILVER" OR c=1 AND z$="DESTROY SILVER" THEN PRINT "There is no silver"
  343 IF c=0 AND z$="READ SILVER" THEN PRINT " There is no writing on the sil-ver."
  344 IF c=1 AND z$="READ SILVER" THEN PRINT " There is no silver."
  345 IF c=0 AND z$="GET SILVER" THEN PRINT " You pick up the heavy silver   bar. You are about to put it in your bag when the silver knight suddenly comes to life and char-ges at you. He cuts your head   off in one quick swing of his   sword. Your blood paints the wa-lls crimson red.": GO TO 9999
  346 IF c=1 AND z$="GET SILVER" THEN PRINT "There is no silver"
  347 IF c=0 AND z$="GO SILVER" THEN PRINT " You are there."
  348 IF c=1 AND z$="GO SILVER" THEN PRINT " There is no silver"
  349 IF c=0 AND z$="GIVE SILVER" THEN GO TO 5100
  350 IF c=1 AND z$="GIVE SILVER" THEN PRINT "There is no silver"
  351 IF z$="KILL HALL" OR z$="ATTACK HALL" OR z$="DESTROY HALL" THEN PRINT " There is no purpose in that."
  353 IF z$="READ HALL" THEN PRINT " There is no writing on the hall"
  354 IF z$="LOOK" THEN GO TO 5600
  355 IF z$="GET HALL" THEN PRINT " You can't!"
  357 IF z$="GO HALL" THEN GO TO 6000
  359 IF z$="GIVE HALL" THEN PRINT " The hall will not accept any   gifts today."
  399 GO TO 310
  400 CLS : PRINT "  You walk over the rug toward  the stairs. KLUNK! Your foot hitsomething while you were walkingacross. You see a bulge under   the rug."
  405 PRINT AT 19,0;"If you see what's under the rug, press 1"
  407 PRINT AT 21,0;"To go on to the stairs,press 2"
  413 IF INKEY$="1" THEN GO TO 450
  415 IF INKEY$="2" THEN CLS : PRINT " You ignore the bulge and go on.When you reach the bottom,you   see a message on the wall. It   reads:": GO TO 503
  420 GO TO 413
  450 CLS : LET d=1: PRINT "  You pull the huge rug away andsee what it was you tripped on. It is a disk. You pick up the   glittering gold object and noti-ce writing that borders the rim.It says:THE SLOTLESS DISK. For  some reason you feel that you   should keep it. You put it in   your bag. Like before,you may goon to the stairway ahead of you,to the stairway at your left,or the door at your right."
  451 PRINT AT 19,0;"To go on to the stairs,press 1"
  452 PRINT AT 20,0;"To go right,press 2"
  453 PRINT AT 21,0;"To go left,press 3"
  454 IF INKEY$="1" THEN GO TO 459
  455 IF INKEY$="2" THEN GO TO 200
  456 IF INKEY$="3" THEN GO TO 300
  457 GO TO 454
  459 CLS : PRINT "You walk over to the bottom of  the stairs and peer up into the darkness above. You pause and   then notice a message on the    wall. It reads:": GO TO 503
  500 CLS : PRINT " You walk around the rug and st-and at the base of the stair    way. A message on the wall says:"
  503 PRINT " ""Ascending,it is hot. But desc-ending,it is hotter."""
  505 INPUT "Press ENTER ";a$
  510 CLS : PRINT "  Your torch light flickers hereand there playing shadows on thewall as you ascend the stairs.  The air becomes hot suddenly andyou mop your brow of sweat. Soonyou are standing before a woodendoor. You feel the door and it  is quite hot. To the left of youis a wall but to your right is awindow. Under it is a balcony   that continues along the edge ofthe castle. So either you go    back down the stairs,through thewindow,oryou go through that    door. Which will it be?"
  515 PRINT AT 19,0;"If you go back down, press 1"
  517 PRINT AT 20,0;"If you go in the door, press 2"
  519 PRINT AT 21,0;"If you go out the window,press 3"
  520 IF INKEY$="1" THEN GO TO 540
  525 IF INKEY$="2" THEN GO TO 550
  527 IF INKEY$="3" THEN GO TO 3000
  530 GO TO 520
  540 CLS : PRINT " You turn and start to descend  the stairway. After a few momen-ts,you are hot. Very hot. Your  feet are the hottest of all. Youlook down and see that the stepsare red hot. Suddenly the whole stairway turns into lava. You   sink. Before you can evenscream,your body is burned to a crisp.": GO TO 9999
  550 CLS : PRINT " You open the door and are hit  with a wall of hot air. You go  inside the dark room. The door  slams shut behind you. Suddenly the floor starts to lean in one direction like a slide. You slipand fall down. You grab onto a  crack in the floor and hang on  to keep from sliding down. Torc-hes on the wall light up and to your horror you see that all    four sides of the floor are sur-rounded by molten lava! The dooryou just came from disappears   and reappears on the other side of the room as if it leads some-where."
  552 INPUT "Press ENTER!";a$
  555 CLS : PRINT " You continue to hang onto the  crack to avoid sliding into the lava. Then you realize that the lava is burning at the sides of the floor and is closing in on  you. You have only moments to   do something!"
  557 PRINT "Remember to put cursor on CAPS  LOCK mode!"
  558 FOR F=1 TO 5
  560 INPUT z$
  561 PRINT z$
  562 IF b=0 AND z$="SHOOT" OR b=0 AND z$="SHOOT BOLTS" OR b=0 AND z$="SHOOT BOLT" THEN GO TO 7000
  563 IF b=1 AND z$="SHOOT" OR b=1 AND z$="SHOOT BOLTS" OR b=1 AND z$="SHOOT BOLT" THEN GO TO 7100
  564 IF b=2 AND z$="SHOOT" OR b=2 AND z$="SHOOT BOLTS" OR b=2 AND z$="SHOOT BOLT" THEN GO TO 7100
  572 IF z$="KILL DOOR" OR z$="ATTACK DOOR" OR z$="DESTROY DOOR" THEN PRINT " You have to GO there first!"
  574 IF z$="GO DOOR" THEN PRINT "Okay,you said so. You walk towa-rd the door and step into the   lava. Your flesh burns to the   bone in seconds.": GO TO 9999
  575 IF b=0 AND z$="SHOOT DOOR" THEN LET x$="DOOR": GO TO 7020
  576 IF z$="JUMP DOOR" THEN PRINT " You try to jump over the lava  to the door,but there is noth-  ing to jump on TO. You hit the  door and fall into the lava.": GO TO 9999
  577 IF b=1 AND z$="SHOOT DOOR" OR b=2 AND z$="SHOOT DOOR" THEN LET x$="DOOR": GO TO 7118
  578 IF z$="KILL FLOOR" OR z$="ATTACK FLOOR" OR z$="DESTROY FLOOR" THEN PRINT " You are too busy hanging on to it to harm it."
  579 IF b=0 AND z$="SHOOT FLOOR" THEN LET x$="FLOOR": GO TO 7025
  580 IF z$="JUMP FLOOR" THEN PRINT " You cant jump what you are on."
  581 IF b=1 AND z$="SHOOT FLOOR" OR b=2 AND z$="SHOOT FLOOR" THEN LET x$="FLOOR": GO TO 7118
  582 IF z$="GO FLOOR" THEN PRINT " You are ON the floor!"
  584 IF z$="KILL LAVA" OR z$="ATTACK LAVA" OR z$="DESTROY LAVA" THEN PRINT "That is crazy!"
  585 IF b=0 AND z$="SHOOT LAVA" THEN LET x$="LAVA": GO TO 7030
  586 IF z$="JUMP LAVA" THEN PRINT " You jump over the lava for the door but you hit it and fall in to the lava.": GO TO 9999
  587 IF b=1 AND z$="SHOOT LAVA" OR b=2 AND z$="SHOOT LAVA" THEN LET x$="LAVA": GO TO 7118
  588 IF z$="GO LAVA" THEN PRINT "I don't think I even need to saywhat happens.": GO TO 9999
  594 IF f=1 THEN PRINT " The lava is getting close!"
  595 IF f=2 THEN PRINT " The lava is getting even closer now!"
  596 IF f=3 THEN PRINT " You struggle to stay away from the lava. It is very close to   you now!"
  597 IF f=4 THEN PRINT " You can feel the lava's heat onyour face,it is so close."
  598 IF f=5 THEN PRINT " The lava burns all the way to  you now. The floor and you are  gone.": GO TO 9999
  599 NEXT F
  600 CLS : PRINT "  You walk through the door at  the left. You are at the tip of a triangular room. In the middleof the room is a ladder leading down into a pit. In the left co-rner of the triangle room is a  stairway going up."
  601 PRINT " Maybe you should go back into  the door you just came from and get that gold."
  605 PRINT AT 19,0;"To go down the ladder,press 1"
  610 PRINT AT 20,0;"To go up the stairway,press 2"
  615 PRINT AT 21,0;"To go into the door,press 3"
  620 IF INKEY$="1" THEN GO TO 700
  625 IF INKEY$="2" THEN GO TO 800
  627 IF INKEY$="3" THEN GO TO 670
  630 GO TO 620
  650 CLS : PRINT " You return up the ladder. At   the top you stand in front of   the stairway and the other door.Should you go up or go back for that liquid gold?"
  655 PRINT AT 20,0;"If you open up the door, press 1"
  657 PRINT AT 21,0;"If you go up the stairs,press 2"
  660 IF INKEY$="1" THEN GO TO 670
  665 IF INKEY$="2" THEN GO TO 800
  667 GO TO 660
  670 CLS : PRINT " You quickly open the door. You are met and knocked down by a s-udden gold wall. With a roar,thewave of liquid gold which had s-omehow filled the entire room c-rashes down upon you. Your lungsfill with the gold. You choke   your last and drown. Well,at    least you got the gold.": GO TO 9999
  700 CLS : PRINT "  You shine your torch into the pit,but the light reveals nothi-ng. You climb down the ladder   for quite a way before you reachthe bottom,which is a cold,hard stone floor. Your sword and shi-eld hum and glow blue. You hear a low growl ahead of you. You   swing your sword out of your    sheath and jab forward. You heara roar of pain and step back.   Out from the darkness comes a   minotaur! It is obviously very  angered at you for the wound youhave inflicted upon it. It takesa swipe at you and knocks your  sword from your hand. It goes   clattering away in the darkness."
  710 INPUT "Press ENTER! ";a$
  720 CLS : PRINT "  The minotaur backs you up aga-inst the wall,not four feet fromthe ladder."
  725 PRINT AT 18,0;"If you try to go back up the    ladder,press 1"
  730 PRINT AT 20,0;"To dive for the sword,press 2"
  740 PRINT AT 21,0;"If you just stay there,press 3"
  745 IF INKEY$="1" THEN GO TO 770
  750 IF INKEY$="2" THEN GO TO 780
  760 IF INKEY$="3" THEN GO TO 794
  765 GO TO 745
  770 CLS : PRINT "  You jump onto the ladder and  rush up. The minotaur grabs yourfoot and pulls you down. He     hurls you to the hard floor.    You never even scream before theminotaur stomps you to death    with his hooves. He eats what isleft of your mutilated corpse."
  775 GO TO 9999
  780 CLS : PRINT "  You take a mad dive toward theblue glow of the sword. You gra-sp it by the hilt as you hit thewall. The minotaur snorts and   bounds over to you. You swing ashard as you can,but miss. You goon to hit the stone wall. Sparksfly,blinding you. You drop the  sword and fall back,right into  the arms of the minotaur! He sq-eezes you so hard,you pop. At   least you got the last laugh.   The minotaur's chamber begins tostink so bad,he drives himself  mad trying to get out."
  785 GO TO 9999
  794 CLS : PRINT "  You stay there,backed against the wall as the minotaur looms  closer. Suddenly,a thought pops up in your head. No,more like a voice. You think it maybe crazy,but it is your only choice.": PRINT "  ""Sword!!"" you scream.": PRINT "  To your astonishment,the swordflies into your open hand! You  grasp it with both hands and    swing out in front of you. Bladetears through flesh and the min-otaur's head flies off. The gia-nt body falls to the floor."
  795 PRINT "You catch your breath and are   about to go back up the ladder  when something catches your eye.": INPUT "Press ENTER ";a$: CLS : PRINT "  You walk over to the far end  of the chamber. There before youare two crossbow bolts. They arewhite and cold when you touch   them. Then you notice a message above you on the wall. It says:"
  796 PRINT """Magical bolts lie here at thine feet to help when thine cannot  stand the heat.""": PRINT " You ponder over the meaning of the message. Well? Shall you getthe bolts? Or is it some kind oftrick?": PRINT AT 20,0;"If you get the bolts, press 1": PRINT AT 21,0;"If you go back up, press 2"
  797 IF INKEY$="1" THEN GO TO 1000
  798 IF INKEY$="2" THEN GO TO 650
  799 GO TO 797
  800 CLS : PRINT " You go up the stairs. After a  short climb,you reach a small   room.": GO TO 2000
  802 PRINT "Don't forget to set cursor to   CAPS LOCK mode!"
  810 INPUT z$
  811 PRINT z$
  815 REM message choices
  816 IF Z$="KILL MESSAGE" OR Z$="ATTACK MESSAGE" OR Z$="DESTROY MESSAGE" THEN PRINT " There is no significance to do-ing that."
  819 IF z$="READ MESSAGE" THEN PRINT "It reads:""The scent of a rose   may be too strong for thine     nose."""
  821 IF z$="GET MESSAGE" THEN PRINT "You can't get a message."
  826 IF z$="GO MESSAGE" THEN PRINT " Wow. What a long walk. You are already AT the message."
  828 IF z$="SMELL MESSAGE" THEN PRINT " You take a long wiff of the me-ssage. It stinks like rotton    wood."
  829 IF z$="PICK MESSAGE" THEN PRINT " Just think about what you just asked me..."
  830 REM stairs choices
  832 IF dd=1 AND z$="GO STAIRS" THEN PRINT " You can't. A door is in the    way."
  833 IF dd=0 AND z$="GO STAIRS" THEN LET dd=1: PRINT " You are about to go down the   stairs when you notice that a   door has appeared in front of   them which can't be opened. You find that attacks on the door   are useless."
  834 IF z$="READ STAIRS" THEN PRINT " There is nothing on them to    read."
  835 IF z$="KILL STAIRS" OR Z$="DESTROY STAIRS" OR Z$="ATTACK STAIRS" THEN PRINT "That is most illogical."
  836 IF z$="GET STAIRS" THEN PRINT " Why don't you just let the poorstairs alone!"
  839 IF dd=0 AND z$="SMELL STAIRS" THEN PRINT " They smell like rat urine."
  840 IF dd=1 AND z$="SMELL STAIRS" THEN PRINT " You can't smell through a door!"
  841 IF z$="PICK STAIRS" THEN PRINT " The stairs are quite un-pickab-le."
  842 REM stairs choices
  843 IF dd=1 AND z$="KILL DOOR" THEN PRINT " You strike at the door, but it is invulnerable."
  844 IF dd=1 AND z$="DESTROY DOOR" THEN PRINT " You strike at the door, but it is invulnerable."
  845 IF dd=1 AND z$="ATTACK DOOR" THEN PRINT " You strike at the door, but it is invulnerable."
  846 IF dd=0 AND z$="READ DOOR" OR dd=0 AND z$="KILL DOOR" OR dd=0 AND z$="DESTROY DOOR" OR dd=0 AND z$="ATTACK DOOR" OR dd=0 AND z$="GET DOOR" OR dd=0 AND z$="GO DOOR" OR dd=0 AND z$="SMELL DOOR" OR dd=0 AND z$="PICK DOOR" THEN PRINT " I'm sorry, but there is no doorhere for you to do that."
  847 IF dd=1 AND z$="READ DOOR" THEN PRINT " Sorry,but there is nothing wri-tten on the door."
  848 IF dd=1 AND z$="GET DOOR" THEN PRINT " You try,but the door will not  budge."
  849 IF dd=1 AND z$="GO DOOR" THEN PRINT " Whew! What a long walk!"
  851 IF dd=1 AND z$="SMELL DOOR" THEN PRINT " You smell the door. It smells  good!"
  852 IF dd=1 AND z$="PICK DOOR" THEN PRINT " You cannot pick the door,okay?"
  863 REM flowers choices
  864 IF z$="READ FLOWERS" THEN PRINT " The flowers have nothing writt-en on them."
  865 IF z$="KILL FLOWERS" OR z$="ATTACK FLOWERS" OR z$="DESTROY FLOWERS" THEN PRINT "You don't really want to do thatto the beautiful flowers."
  866 IF z$="GET FLOWERS" THEN PRINT " Try picking them."
  867 IF z$="GO FLOWERS" THEN PRINT " You must be exausted after thatlong walk."
  869 IF z$="SMELL FLOWERS" THEN PRINT " You take a long wiff. Ahhh! It smells very good. You can't res-ist another wiff. As you amell  it again and again,you notice   that the flower is getting bigg-er. And so is everything else!  Wait! You are getting smaller!  You are now standing beside and are at the same height of the   flower that you had just been   smelling! Your long slender bodyis now transfixed into the soil.You begin to lose all sense of  your very existence. You are no longer even human.": GO TO 9999
  870 IF z$="PICK FLOWERS" THEN PRINT " You reach down to pick one of  the roses. When you do,your fin-ger gets pricked by a thorn. Youfeel something shoot into your  finger from the thorn. Venom!   The thorn shot venom into you!  Before you can do anything,you  fall over. You die.": GO TO 9999
  871 IF z$="READ WINDOW" THEN PRINT " There is no writing on the win-dow."
  872 IF z$="KILL WINDOW" OR z$="ATTACK WINDOW" OR z$="DESTROY WINDOW" THEN PRINT " Now why should you do that?"
  873 IF z$="GET WINDOW" THEN PRINT " You are incapable of removing  the window."
  874 IF z$="GO WINDOW" THEN GO TO 1100
  876 IF z$="SMELL WINDOW" THEN PRINT " You take a big wiff. It smells like WINDEX."
  877 IF z$="PICK WINDOW" THEN PRINT " You cannot pick the window."
  878 IF z$="READ BALCONY" OR z$="KILL BALCONY" OR z$="ATTACK BALCONY" OR z$="DESTROY BALCONY" OR z$="GET BALCONY" OR z$="SMELL BALCONY" OR z$="PICK BALCONY" THEN PRINT " You have to go to the balcony  first."
  879 IF z$="GO BALCONY" THEN GO TO 1110
  880 IF z$="LOOK" THEN GO TO 2000
  899 GO TO 810
 1000 CLS : LET b=2: PRINT " You pick up the deathly cold   bolts. Then you notice that the bolts have writing engraved in  them. It says:BOLTS OF REFLECTI-ON. You attatch them to your    ammo belt and ascend the ladder."
 1010 PRINT " You emerge from the pit momentslater. You see ahead of you the stairway leading up and at your left you see the door that you  just came from that had the poolof gold in it. Should you go    back for the gold?": GO TO 655
 1100 PRINT " You walk over to the window andlook out. Below you is the deep dark moat. And beyond you see   the green rolling hills that youcame from to this wretched placeof evil. You open the window andinhale the warm fresh air that  you realize you had forgotten.  Should you go out onto the balc-ony? Or should you explore here a little longer?"
 1105 PRINT "If you go out the window,press 1"
 1106 PRINT "If you stay in the room,press 2"
 1107 IF INKEY$="1" THEN GO TO 1110
 1108 IF INKEY$="2" THEN PRINT " You close the window and returnto exploring the room.": GO TO 810
 1109 GO TO 1107
 1110 CLS : PRINT " You step out of the window intothe fresh warm air. You look at the green hills so far away and then at the black moat beneath  you. Suddenly,the window slams  shut. Before you even consider  using your sword to break it,a  solid stone wall appears in the place of the window. You must goon or get away from this place."
 1120 PRINT AT 18,0;"If you jump into the moat,hoping to get away from here,press 1"
 1125 PRINT AT 20,0;"If you go on to see where the   balcony leads,press 2"
 1130 IF INKEY$="1" THEN GO TO 1200
 1135 IF INKEY$="2" THEN GO TO 1500
 1140 GO TO 1130
 1200 CLS : PRINT " You take a deep breath and hurlyourself over the side. You fallfaster and faster. But you neverreach the water. You land in themoat monster's huge jaws. It sw-allows you whole.": GO TO 9999
 1500 CLS : PRINT " You walk North,the only direct-ion the balcony leads. It leads to another window. You cannot goback to the other room,since thewindow is no longer there. What will you do,then."
 1510 PRINT AT 20,0;"If you decide to jump,press 1"
 1515 PRINT AT 21,0;"If you go in that window,press 2"
 1520 IF INKEY$="1" THEN GO TO 1200
 1525 IF INKEY$="2" THEN GO TO 3050
 1530 GO TO 1520
 2000 PRINT " You are standing with your tor-ch in a small room that smells  sweet. There are roses growing  here in several rows. To your   east is a window with a balcony outside and under it."
 2010 PRINT "There is message engraved on thewall."
 2015 IF dd=1 THEN PRINT "A door is standing in front of  the stairway leading down."
 2025 IF dd=0 THEN PRINT "There is a stairway going down."
 2030 GO TO 810
 2510 PRINT AT 18,0;"To go in the window,press 1"
 2520 PRINT AT 19,0;"To jump into the moat,press 2"
 2525 PRINT AT 20,0;"If you go back to the other win-dow you just came from,press 3"
 2530 IF INKEY$="1" THEN CLS : PRINT " You crawl through the window.  You see that there is a stairwayleading down ahead of you.      Press 1 if you go down the stair-way.                           Press 2 if you decide to explorethe room.": GO TO 2550
 2535 IF INKEY$="2" THEN GO TO 1200
 2540 IF INKEY$="3" THEN GO TO 2600
 2545 GO TO 2530
 2550 IF INKEY$="1" THEN GO TO 2700
 2555 IF INKEY$="2" THEN CLS : PRINT "Put the cursor on CAPS LOCK mode": GO TO 2000
 2557 GO TO 2550
 2600 CLS : PRINT " You turn and start back toward the other window. Suddenly the  balcony cracks and falls off of the castle wall. It AND you end up at the bottom of the moat.": GO TO 9999
 2700 CLS : PRINT " You start down the stairway.   You reach the bottom. At your   right is a doorway that is very strange,for you notice that a   gold liquid is seeping under thecracks at the bottom of the     door. And in front of you is a  ladder going down into a dark   pit. What will you do?"
 2710 PRINT " Could there be gold on the oth-er side of that door? What is inthat pit? Should you go back up the stairs and explore that roomthat you found when you came th-rough the window?"
 2715 GO TO 605
 3000 CLS : PRINT " You open the window and stand  on the balcony. A warm breeze isblowing and you breathe it in   greedily. You see below you the dark moat and on the horizon thegreen hills. For a moment you   consider jumping to get away.   But you also wonder where the   balcony leads. Maybe you could  go back through the window."
 3010 PRINT AT 19,0;"To follow the balcony,press 1"
 3020 PRINT AT 20,0;"To jump into the moat,press 2"
 3030 PRINT AT 21,0;"To go back in the window,press 3"
 3035 IF INKEY$="1" THEN GO TO 3500
 3040 IF INKEY$="2" THEN GO TO 1200
 3045 IF INKEY$="3" THEN GO TO 3050
 3047 GO TO 3035
 3050 CLS : PRINT " You go in the window. Suddenly the window disappears. A solid  wall is in it's place. There is a stairway going down and door  at your right that feels hot.   Now what will you do?"
 3060 PRINT AT 20,0;"To go through the door,press 1"
 3065 PRINT AT 21,0;"To go down the stairs,press 2"
 3070 IF INKEY$="1" THEN GO TO 550
 3075 IF INKEY$="2" THEN GO TO 540
 3080 GO TO 3070
 3500 CLS : PRINT " You follow the balcony for a   minute or so. It leads to anoth-er window. Now what?"
 3510 GO TO 2510
 4000 IF NOT b=1 THEN PRINT "The door will not open.": GO TO 310
 4001 IF NOT c=1 THEN PRINT "The door will not open.": GO TO 310
 4002 IF NOT d=1 THEN PRINT "The door will not open.": GO TO 310
 4005 IF b=1 AND c=1 AND d=1 THEN CLS : PRINT " You walk over to the door and  open it. You walk in. The door  slams shut behind you. This doorleads nowhere! It is a closet!  Suddenly,there is a bright flashof light. The next thing you    know is that you are dizzy. The door opens and you step out intoa different room. The closet tr-ansported you!"
 4010 PRINT " ""Marcus,"" a voice booms. You   look around and standing in fro-nt of you is a huge cloaked man.""I am Kalor. Listen to me and   do not interrupt. "
 4020 INPUT "Press ENTER ";a$
 4030 CLS : PRINT " ""I am sorry that you could not enter the closet to meet me unt-il you had the crown,disk and   bolt,but I had to make sure you had all the weapons needed to   defeat Hombinus. It is time for you to meet him. You must use   all 3 of them in a special way  to win. You already know how to use the crown...simply wear it. But the other two you must figu-re out alone. Go now down the   East passage and follow the tun-nel to Hombinus. Do not stop foranything."""
 4035 PRINT " Kalor disappears in a flash of light. To the East is a single  exit. It is a low passage. Put  Cursor on CAPS LOCK!"
 4040 INPUT z$: PRINT z$
 4045 IF z$="E" THEN GO TO 9000
 4050 IF z$="S" OR z$="N" OR z$="W" THEN PRINT "You cannot go that direction.": GO TO 4040
 4060 PRINT "Please use directions.(N/S/E/W)": GO TO 4040
 5000 PRINT "What do you want to give to the knight? (Example. If you wanted to give the knight a pencil,you would type PENCIL.)"
 5010 INPUT x$
 5015 PRINT x$
 5017 IF x$="SILVER" OR x$="SILVER BAR" THEN GO TO 5500
 5020 PRINT " The knight does not seem to    want a ";x$;".": GO TO 310
 5100 PRINT "What do you want to give the si-lver to? (Example. If you wantedto give the silver to a dog you would type DOG.)"
 5110 INPUT x$
 5115 PRINT x$
 5120 IF x$="KNIGHT" OR x$="SILVER KNIGHT" THEN GO TO 5500
 5130 PRINT " The ";x$;" does not seem to want the silver."
 5140 PRINT "After offering the ";x$;" the silver,you are about to put it into your bag when the knight comes to life and quickly slices your guts out with his sword.": GO TO 9999
 5500 LET c=1: PRINT " You pick up the silver bar and place it in the outstretched    hand of the knight. The knight  comes to life.": PRINT """Thank you,"" says the knight.": PRINT """In gratitude I give you this    crown. Wear it when you battle  Hombinus.""": PRINT " Before you can ask any questio-ns,the knight vanishes. You are left holding a beautiful golden crown."
 5600 PRINT " You are in the triangular room.There is a door in one corner   and a hallway leading downward  in another."
 5610 IF c=0 THEN PRINT " There is a huge bar of silver  and a tall silver knight here   with a sword in one hand and hisother hand stretched out toward the silver."
 5620 IF c=1 THEN PRINT " You are holding a golden crown.The silver and the knight are   gone."
 5630 GO TO 310
 6005 CLS : PRINT " After what seems like a very   long walk,you reach a smelly,   black,gross looking place. The  torture room! Skeletons litter  the place. Many are still in thetorture instruments and many arejust chained to the wall. To theSouth is a dark tunnel. To the  West is a hallway that slants up"
 6010 PRINT AT 19,0;"If you go South,press 1"
 6015 PRINT AT 20,0;"If you go West,press 2"
 6020 PRINT AT 21,0;"If you explore the room,press 3"
 6025 IF INKEY$="1" THEN CLS : PRINT " You go into the cold dark tunn-el and follow it for a while. Itcomes out to a small room.": INPUT "PRESS ENTER ";A$: GO TO 7500
 6030 IF INKEY$="2" THEN CLS : PRINT " You walk into the hallway. You have a little trouble keeping   your balance since the floor    slants up.": GO TO 5600
 6035 IF INKEY$="3" THEN GO TO 6050
 6040 GO TO 6025
 6050 CLS : PRINT " You decide to stay and explore the torture room. You even exam-ine the terrible instruments of evil. Two familiar ones are the rack and the stretcher. You are about to leave when a cloaked   man grabs you! You flip him off but he must be magic because he paralyzes you with his hand. He straps you to the stretcher and turns the crank. Your arms and  legs pop out of socket,renderingyou unconcious. You never wake  up.": GO TO 9999
 7000 PRINT "At what?"
 7010 INPUT x$
 7015 PRINT x$
 7020 IF x$="DOOR" THEN PRINT " You fire the bolt at the door. It flies and sticks in the wood.": GO TO 594
 7025 IF x$="FLOOR" THEN PRINT "The bolt glances off of the sto-ne floor and flies into the lava where it melts.": GO TO 594
 7030 IF x$="LAVA" THEN PRINT " You fire into the lava. The    bolt melts.": GO TO 594
 7040 PRINT "My vocabulary does not register that there is a ";x$;" to shoot.Enter again.": GO TO 7000
 7100 PRINT "At what?"
 7110 INPUT x$
 7115 PRINT x$
 7118 PRINT "I presume you mean with the     bolts that you found in the min-otaur's chamber. Remember...you only found two!"
 7120 IF x$="DOOR" THEN LET b=b-1: PRINT " You fire the bolt at the door. It hits it and the door turns toice!": GO TO 594
 7125 IF x$="FLOOR" THEN PRINT "You fire at the floor. The bolt hits it and in a flash,turns it into ice! You cannot hang on to such a slippery surface. You    scream as you slide into the    lava. You vaporize instantly.": GO TO 9999
 7130 IF x$="LAVA" THEN LET b=b-1: PRINT " You fire the cold bolt into thelava. Instantly,the lava turns  into ice! The floor levels out  and you are free to walk across to the door. You open it and    walk in.": INPUT "Press ENTER ";a$: GO TO 7500
 7140 PRINT "My vocabulary does not register that there is a ";x$;" to shoot.Enter again.": GO TO 7100
 7500 IF sb=1 THEN PRINT " You are in the room where the  boy was. It is empty. The exit  is North.": GO TO 8000
 7502 LET sb=1: CLS : PRINT " You are startled to see a smallboy,maybe 8 years old,in here.": PRINT " ""I am a messenger sent by Kalor to talk to you. I know not of   what weapons you have obtained  here in the castle nor do I     wish to know. I am only able to tell you how to get the magic   crown and to get to Kalor."""
 7505 INPUT "Press ENTER ";a$
 7510 IF c=1 THEN CLS : PRINT " ""But I have the crown,""you say.": PRINT " ""Yes,I see that.Then I must in-struct you on how to reach Kalorto speak with him. Find the clo-set of movement. Go."" The boy   disappears.": PRINT " ""Wait!"" you say. But he's gone. The only exit is the way you    came in,at the North.": GO TO 8000
 7520 CLS : PRINT """Go through the tunnel that lea-ds to the torture chamber. Then go up the long hall into the tr-iangle room. There you must findthe crown and the closet of mov-ement. Remember...Silver stirs  the silver knight,but silver    also satisfies the silver knight""": PRINT " The boy disappears. There is a dark tunnel North."
 8000 PRINT "What now? (Put cursor on CAPS   LOCK!)"
 8010 INPUT z$
 8015 PRINT z$
 8020 IF z$="N" THEN GO TO 8500
 8025 IF z$="S" OR z$="E" OR z$="W" THEN PRINT "You can't go that way.": GO TO 8010
 8040 PRINT "Please use directions.(N/S/E/W)": GO TO 8010
 8500 CLS : PRINT " You go into the tunnel and fol-low it for a while. It is cold  and dark.": INPUT "PRESS ENTER ";A$: GO TO 6005
 9000 PRINT "You go into the low passage as  Kalor instructed. After a long  walk,you notice that the passagegoes on East but it also goes   off North,into a small room. To the West is the way you just    came,and it goes back to Kalor'schamber. Suddenly in the room at the North,you hear Kalor.": PRINT " ""Marcus! There is something I  forgot to explain to you! Come!"""
 9010 INPUT z$: PRINT z$
 9020 IF z$="S" THEN PRINT "You can't go that way.": GO TO 9010
 9025 IF z$="W" THEN PRINT "You go West. Yoy are in Kalor's chamber again. It is empty. The exit is East.": GO TO 4040
 9030 IF z$="N" THEN PRINT "You go into North room. ""Yes?"", you ask Kalor.": PRINT " Suddenly the form of Kalor tra-nsforms into a hideous black sh-ape. It is Hombinus!": PRINT " ""FOOL!! You let yourself be    tricked even after Kalor warned you!""": PRINT " Suddenly all you know is pain.": GO TO 9999
 9035 IF z$="E" THEN PRINT "You hurry on East. Then the pas-sage goes South. You turn that  way and suddenly you know it.   You are here. This is where the final conflict between you and  Hombinus will be. He is here.   The exit seals up. You must killor be killed.": INPUT "Press ENTER!";a$: GO TO 9100
 9040 PRINT "Put a direction.": GO TO 9010
 9100 CLS : PRINT " Then you see him. Hombinus! He is much larger than you and he  sits on a golden throne. His bo-dy is muscular and his head is  made of pure fire. His head is  not attached to his body,it hov-ers a little above it. "
 9105 PRINT " For some reason,it seems that  there is only you and Hombinus  and his throne here."
 9107 PRINT "You put the crown on and sudden-ly you see a lot more! Smoke is all around you and you notice   that there is a slot in the wallbehind Hombinus.": PRINT " ""You will die fool!"" yells Hombinus."
 9110 PRINT "But you are ready to fight! What will you do? Put cusor on CAPS LOCK mode."
 9115 INPUT z$: PRINT z$
 9120 IF d=1 AND z$="THROW DISK" THEN GO TO 9500
 9123 IF d=0 AND z$="THROW DISK" THEN PRINT " You don't have one anymore!": GO TO 9115
 9125 IF z$="KILL HOMBINUS" OR z$="ATTACK HOMBINUS" OR z$="DESTROY HOMBINUS" THEN CLS : PRINT " You take out your sword. ""Your death!"" you say angrily.": PRINT " You rush at him,yelling all theway. With a mere gesture,Hombin-us conjurs up a fireball and hu-rls it at you! You raise your   shield!": GO TO 9200
 9130 IF z$="KILL THRONE" OR z$="ATTACK THRONE" OR z$="DESTROY THRONE" THEN PRINT "You rush,sword raised,at the th-rone. Hombinus shoots a ball of fire at you! You raise your shi-eld to block!": GO TO 9200
 9135 IF z$="KILL SLOT" OR z$="ATTACK SLOT" OR z$="DESTROY SLOT" THEN PRINT "You can't! Hombinus is blocking the way. YOU can't reach the    slot!": GO TO 9115
 9140 IF m=0 AND z$="ATTACK MIRROR" OR m=0 AND z$="KILL MIRROR" OR m=0 AND z$="DESTROY MIRROR" THEN PRINT "I see no mirror.": GO TO 9115
 9145 IF m=1 AND z$="ATTACK MIRROR" OR m=1 AND z$="KILL MIRROR" OR m=1 AND z$="DESTROY MIRROR" THEN PRINT " You can't. It is high in the   air.": GO TO 9115
 9150 IF z$="THROW SWORD" THEN GO TO 9600
 9160 IF z$="SHOOT BOLT" OR z$="SHOOT BOLTS" THEN GO TO 9700
 9170 GO TO 9115
 9200 PRINT " Press ""Q"" when you think the screen says BLOCKED. Hurry!"
 9215 PRINT AT 15,10;"BLOCKED!"
 9216 FOR f=0 TO 3
 9217 IF INKEY$="Q" THEN GO TO 9250
 9218 NEXT f
 9219 PRINT AT 15,10;"        "
 9220 PRINT AT 15,3;"NOT BLOCKED!"
 9222 FOR f=0 TO 3
 9225 IF INKEY$="Q" THEN GO TO 9270
 9227 NEXT f
 9228 PRINT AT 15,3;"            "
 9229 GO TO 9215
 9250 CLS : PRINT " You raise the shield in time!  The fireball is deflected! Now  what?": GO TO 9115
 9270 CLS : PRINT " You didn't do it in time! The  fireball goes into you and burnsyou inside to outside. You have failed. Hombinus has won.": GO TO 9999
 9500 PRINT "At what?"
 9510 INPUT x$: PRINT x$
 9520 IF x$="SLOT" THEN LET m=1: LET d=0: PRINT " You hurl the disk at the slot. It flies in perfectly! Suddenly,a giant mirror appears. Now what will you do?": GO TO 9115
 9525 IF x$="THRONE" THEN PRINT "You hurl the disk at the throne.It hits it and explodes! But no harm to the throne has been doneat all. Hombinus laughs and hur-ls a fireball at you. You go foryour shield to block!": GO TO 9200
 9530 IF x$="HOMBINUS" THEN PRINT "You throw the disk at Hombinus. He laughs and catches it. He hu-rls it back at you at a thousandtimes more force then you threw it. It knocks your head clean   off.": GO TO 9999
 9535 IF m=0 AND x$="MIRROR" THEN PRINT " I see no mirror. Now what?": GO TO 9115
 9540 IF m=1 AND x$="MIRROR" THEN PRINT "You throw the disk at the mirroras hard as you can. The mirror  shatters into a million pieces. The glass flies all around the  chamber. It doesn't bother Homb-inus,but it KILLS you.": GO TO 9999
 9600 PRINT "At what?"
 9610 INPUT x$: PRINT x$
 9615 IF x$="HOMBINUS" THEN PRINT "You throw your sword at Hombinusas hard as you can. He catches  it and BREAKS IT IN HALF!! You  are stunned. He raises you into the air and then drops you. You splat on the floor below.": GO TO 9999
 9620 IF x$="THRONE" THEN PRINT "You throw the sword at the thro-ne. It hits it and bounces off. You retrieve it quickly. But Ho-mbinus fires a ball of fire at  you! You raise your shield!": GO TO 9200
 9625 IF x$="SLOT" THEN PRINT "You throw at the slot and make  it in! But with the wrong resul-ts! The chamber is suddenly fil-led with a bright light. It is  so bright,it melts your eyes outof their sockets. You are now   easy prey for Hombinus.": GO TO 9999
 9630 IF m=0 AND x$="MIRROR" THEN PRINT "There is no mirror."
 9635 IF m=1 AND x$="MIRROR" THEN PRINT "You sling the sword up at the m-irror. It hits it and suddenly  the chamber is filled with hund-reds of reflections of the      sword. Hombinus laughs and makesthe reflections reality. You arestabbed many times over.": GO TO 9999
 9700 PRINT "At what?"
 9710 INPUT x$: PRINT x$
 9720 IF x$="HOMBINUS" THEN PRINT "You fit your remaining magic bo-lt on your crossbow and fire it at Hombinus. It strikes his arm,forming ice on it. He melts it  off.": PRINT " ""Fool!"" he laughs. He then  go-es on to melt you.": GO TO 9999
 9725 IF x$="THRONE" THEN PRINT "You fire a magic bolt at the th-rone. It bounces off and hits   you! The last thing you hear be-fore you turn to ice is Hombinuslaughing that he didn't have to do a thing to defeat you.": GO TO 9999
 9730 IF x$="SLOT" THEN PRINT "You fire a magic bolt at the sl-ot. It explodes,sending ice chu-nks flying out like spears. You are impaled by one and watch yo-ur guts fall out onto the floor.": GO TO 9999
 9735 IF m=0 AND x$="MIRROR" THEN PRINT "There is no mirror here."
 9740 IF M=1 AND X$="MIRROR" THEN CLS : PRINT " You load a magic bolt and aim  your crossbow up at the mirror. But Hombinus is shooting an ice barrier in front of the mirror, momentarily protecting it. Thou-gh just for a moment,if you shotat the wrong time,you would loseyour last magic bolt,so you mustbe careful."
 9745 PRINT "Press ""Q"" when you think Hombin-us' barrier is gone for that pr-ecious moment."
 9750 FOR f=0 TO 2
 9755 PRINT AT 14,6;"BARRIER THERE"
 9760 IF INKEY$="Q" THEN GO TO 9790
 9765 NEXT f
 9767 PRINT AT 14,6;"             "
 9770 FOR f=0 TO 2
 9775 PRINT AT 15,6;"BARRIER GONE"
 9780 IF INKEY$="Q" THEN GO TO 9800
 9785 NEXT f
 9786 PRINT AT 15,6;"            "
 9787 GO TO 9750
 9790 CLS : PRINT " You didn't make it! You let thebolt fly and it hit the ice bar-rier. It blew the barrier to bi-ts,and it seems that the bits   hit you. Hard.": GO TO 9999
 9800 CLS : PRINT " The bolt strikes the mirror. Itdeflects off and impales Hombin-us in the chest!": PRINT " ""NO!"" he screams. ""NOOOO!!""": PRINT " A hole appears in his chest wh-ere the bolt hit. It expands,er-asing his body. Finally,he is   gone. But it seems he wishes to take the castle with him. The c-astle starts to shake. The wallsand ceiling start to fall in."
 9810 INPUT "Press ENTER!";a$
 9820 CLS : PRINT " You rush around,looking for a  way out before you get crushed. The medallion! You place both ofyour hands around it and concen-trate. You are aware that you   surroundings are changing. When you open your eyes,you are out- side in the green grass. In the distance,you can see Death Cast-le crumbling and burning to the ground."
 9830 PRINT " You watch the place turn into  nothing but rubble. All that is left standing is a single tower which,you conclude,must be Kalo-r's chamber. You smile,pick up  your bag,and start home. You    have defeated Hombinus. It is   over.": GO TO 9999
 9999 PRINT "          THE END": INPUT a$: RUN