'  This game is pretty easy.
'  You're going through a castle searching for a magic sword
'  Here are your options...
'  Stab, Shoot, Look, Exit, y or n
'  Use lower case
'  This is lame













CLS
COLOR 2, 13
CLS
LOCATE 1, 1
5 PRINT "You are in a small enterance room.  You see a figure about 30 feet away."
INPUT "What should you do!"; open$
IF open$ = "exit" THEN END
IF open$ = "look" OR open$ = "punch" OR open$ = "shoot" OR open$ = "stab" THEN GOTO 6 ELSE PRINT "Can't do that!": GOTO 5
6 IF open$ = "look" THEN PRINT "You see nothing special!": GOTO 5
IF open$ = "punch" THEN PRINT "Your too far away!  The guys shoots you!  Your dead!": GOTO 50
IF open$ = "shoot" THEN PRINT "Great shot!  Right in the heart.  You walk past the dead corpse!": GOTO 10
IF open$ = "stab" THEN PRINT "Your too far away!  The guys shoots you!  Your dead!": GOTO 50
10 PRINT "You walk down a small hallway to a room.  A large man runs up next to you!"
INPUT "What now!:"; idiot$
IF idiot$ = "exit" THEN END
IF idiot$ = "punch" OR idiot$ = "look" OR idiot$ = "shoot" OR idiot$ = "stab" THEN GOTO 11 ELSE PRINT "Can't do that!": GOTO 10
11 IF idiot$ = "look" THEN PRINT "You notice he's got a big knife!": GOTO 10
IF idiot$ = "punch" THEN PRINT "He's down!  Nice job!": GOTO 15
IF idiot$ = "stab" THEN PRINT "You get him in the leg.  He's down, but not dead!": GOTO 12
IF idiot$ = "shoot" THEN PRINT "You didn't have time to get your gun up!  He stabs you to death!": GOTO 50
12 IF idiot$ = "stab" THEN INPUT "Should you run by or stab again? run or stab?:"; idiota$
IF idiot$ = "exit" THEN END
IF idiota$ = "run" OR idiota$ = "stab" THEN GOTO 14 ELSE PRINT "Can't do that!": GOTO 12
14 IF idiota$ = "stab" THEN PRINT "You finished him off!  Great job!": GOTO 15
IF idiota$ = "run" THEN PRINT "He grabs you and pulls you to him.  Oh, boy!": GOTO 50
15 PRINT "You enter a large room.  A small short guy comes running at you from"
PRINT "the other side!   But he has no weapon!"
INPUT "What do you do:"; moron$
IF moron$ = "exit" THEN END
IF moron$ = "look" OR moron$ = "shoot" OR moron$ = "stab" OR moron$ = "punch" THEN GOTO 16 ELSE PRINT "Can't do that, buddy!": GOTO 15
IF moron$ = "punch" THEN PRINT "Your too far away!  He takes you down!  Oh, no!": GOTO 50
IF moron$ = "stab" THEN PRINT "Your too far away!  He takes you down!  Oh, no!": GOTO 50
16 IF moron$ = "shoot" THEN PRINT "You've missed him and he runs over you!  Too bad!": GOTO 50
IF moron$ = "look" THEN PRINT "You notice a string across the floor!"
IF moron$ = "look" THEN INPUT "Do you want to wait for him to trip or do you wanna shoot?"; dude$
17.5 IF dude$ = "exit" THEN END
IF dude$ = "wait" OR dude$ = "shoot" THEN GOTO 18 ELSE PRINT "Can't do that, man!": GOTO 17
18 IF dude$ = "wait" THEN PRINT "He falls over the string and you crack his skull with your foot!": GOTO 20
IF dude$ = "shoot" THEN GOTO 19
17 INPUT "Do you want to wait for him to trip or do you wanna shoot?"; dude$: GOTO 17.5
19 IF dude$ = "shoot" THEN PRINT "You've missed him and he runs over you!  Too bad!": GOTO 50
20 PRINT "You run up a staircase into a large open room.  You know your near the sword!"
PRINT "Why?  You ask?  Because a sign says 'Sword This Way'.  Oh."
21 INPUT "Do you want to run toward the arrow or look around this room?:"; big$
IF big$ = "exit" THEN END
IF big$ = "look" OR big$ = "run" THEN GOTO 22 ELSE PRINT "Cant do it": GOTO 21
22 IF big$ = "look" THEN PRINT "You see a hidden door near the end of the room!"
IF big$ = "run" THEN PRINT "You enter the room expecting to find the sword.  But you"
IF big$ = "run" THEN PRINT "didn't know it was a trap.  30 guys jump at you.  Too bad!": GOTO 50
23 IF big$ = "look" THEN INPUT "Where to?  The arrow or this hidden door?"; hidden$
IF hidden$ = "arrow" OR hidden$ = "hidden door" OR hidden$ = "hidden" GOTO 24 ELSE PRINT "Can't do it!": GOTO 23
24 IF hidden$ = "exit" THEN GOTO 50
IF hidden$ = "hidden" OR hidden$ = "hidden door" THEN GOTO 26
IF hidden$ = "arrow" THEN GOTO 25
25 PRINT "You enter the room expecting to find the sword.  But you"
PRINT "didn't know it was a trap.  30 guys jump at you.  Too bad!": GOTO 50
26 PRINT "You enter another room!  But a guy is guarding it about 5 feet away!"
INPUT "What now!"; last$
IF last$ = "exit" THEN GOTO 50
IF last$ = "look" OR last$ = "shoot" OR last$ = "punch" OR last$ = "stab" GOTO 27 ELSE PRINT "Can't do it!": GOTO 26
27 IF last$ = "stab" THEN INPUT "He's almost done!  Wanna stab again or punch?"; wimp$: GOTO 28
IF last$ = "punch" OR last$ = "shoot" THEN PRINT "That didn't work well!  Your down!": GOTO 50
IF last$ = "look" THEN PRINT "Nothing intersting!": GOTO 26
28 IF wimp$ = "exit" THEN END
IF wimp$ = "stab" OR wimp$ = "punch" THEN GOTO 29 ELSE PRINT "Can't do that!": GOTO 27
29 IF wimp$ = "stab" THEN PRINT "He pushes your knife with his last strength into your neck!  Sorry!": GOTO 50
IF wimp$ = "punch" THEN PRINT "He's down!  Awesome job!"
30 PRINT "You move on to the next room.  It's small and dusty.  Bones lay in the corner"
INPUT "This room seems awfully odd.  What do you wanna do?"; odd$
IF odd$ = "exit" THEN GOTO 50
IF odd$ = "run" OR odd$ = "look" THEN GOTO 32 ELSE PRINT "Can't do that!": GOTO 30
32 IF odd$ = "run" THEN PRINT "You didn't know it but the next room was a huge pit!  Your dead!"
IF odd$ = "look" THEN PRINT "You see that the next room is bottomless!"
IF odd$ = "look" THEN PRINT "But there's also a bottle here marked-ungravitor!"
36 IF odd$ = "look" THEN INPUT "Wanna drink the stuff y/n"; stoned$
IF stoned$ = "exit" THEN GOTO 50
IF stoned$ = "y" OR stoned$ = "n" THEN GOTO 37 ELSE GOTO 36
37 IF stoned$ = "y" THEN PRINT "The stuff works and you get passed the pit and in another room!": GOTO 40
IF stoned$ = "n" THEN PRINT "You don't drink it. Besides the next room can't be that deep"
IF stoned$ = "n" THEN PRINT "But after walking in you find out that you were wrong": GOTO 50
40 PRINT "This room was a very dark tunnel up ahead.  It's too dark to enter!"
INPUT "An object is at the front of the tunnel?  Wanna pick it up? y/n"; tunnel$
IF tunnel$ = "exit" THEN GOTO 50
41 IF tunnel$ = "y" OR tunnel$ = "n" THEN GOTO 42 ELSE PRINT "Can't do it, buddy": GOTO 40
42 IF tunnel$ = "y" THEN PRINT "It's night vision!  You can use this to see in the dark!"
IF tunnel$ = "y" THEN PRINT "You go up to the next room!  In the middle of the room, the sword lays!": GOTO 45
IF tunnel$ = "n" THEN PRINT "You can't go on, as you turn back an enemy shoots you.  Too bad": GOTO 50
45 PRINT "There's a guy there who says he'll give you the sword if you give him your knife!"
INPUT "Do you trade or do you stab?"; finally$
IF finally$ = "stab" OR finally$ = "trade" THEN GOTO 46 ELSE PRINT "Can't do that!": GOTO 45
46 IF finally$ = "exit" THEN GOTO 50
IF finally$ = "stab" THEN PRINT "You put him to death!  The sword is behind him!  You win!": GOTO 60
IF finally$ = "trade" THEN PRINT "You get the sword put he takes your knife and kills you!": GOTO 50
50 INPUT "Hit enter to continue..."; poop$
IF poop$ = " " THEN GOTO 51
51 CLS
INPUT "Sorry, you've lost! Wanna try again?y/n:"; game$
IF game$ = "y" THEN GOTO 5
IF game$ = "n" THEN GOTO 53
53 CLS
GOTO 65
60 SLEEP: CLS : LOCATE 1, 1
PRINT "Awesome job, you've won!  Be sure to register to play more.  You'll get"
PRINT "to try and leave the castle and much more!  So do it, please!"
65 LOCATE 15, 5
PRINT "Thanks for playing.  Register by sending 4$ to Brian Q Programming at:"
PRINT "Brian Q Programming"
PRINT "P.O. Box 363"
PRINT "Elmwood Park, NJ 07407"
END