CLS
PRINT "Dugeons of Doom"
REM By Will Grube
PLAY "<<CCD"
PRINT "Welcome to Dungeons of Doom.The object of this game is to reach a castle in order to find "
PRINT "your way out of the maze"
INPUT "First you must type your name.", s$
PRINT "Okay!Now all we have to do is start.Let's go!"
PLAY "AA"
1 : PRINT "You enter the courtyard you see a long spiraling staircase going "
2 : INPUT "upward (1) and one going downward (2).You also see a hedgemaze (3).", r%
IF r% = 1 THEN GOTO 3
IF r% = 2 THEN GOTO 4
IF r% = 3 THEN GOTO 5
IF r% > 3 THEN GOTO 1
IF r% < 1 THEN GOTO 1
3 : PRINT "You walk up and up and up and up until finally you reach the top.You open the door and..."
6 : INPUT "You see an elevator (1).You also see a road leading up into a cloud maze (2).Which one do you choose?", t%
IF t% = 1 THEN GOTO 13
IF t% = 2 THEN GOTO 11
IF t% < 1 THEN GOTO 6
IF t% > 2 THEN GOTO 6
4 : PRINT "You go down to a dugeon filled with traps"
7 : INPUT "You see a long hallway (1) and a switch (2) or go back (3).", w%
IF w% = 1 THEN GOTO 8
IF w% = 2 THEN GOTO 9
IF w% = 3 THEN GOTO 1
IF w% < 1 THEN GOTO 7
IF w% > 3 THEN GOTO 7
5 : INPUT "You enter the hedgemaze.A long,narrow,passageway is in front of you.Will you go downward,(1)or upward,(2).", q%
IF q% = 1 THEN GOTO 4
IF q% = 2 THEN GOTO 11
IF q% > 2 THEN GOTO 5
IF q% < 1 THEN GOTO 5
8 : PRINT "You go down the long hallway and find a dragon that fries you to a crisp"
PLAY "<<AA"
END
9 : PRINT "You pull the switch down and spikes fall on you"
PLAY "<<AA"
END
11 : PRINT "You go up into a cloud maze and find a sword.You try to pick it up but there is some kind of forcefield pushing you back"
12 : INPUT "You suddenly see to cloud giants.Will you run (1) or fight (2)?", e%
IF e% = 1 THEN GOTO 15
IF e% = 2 THEN GOTO 14
IF e% > 2 THEN GOTO 12
IF e% < 1 THEN GOTO 12
13 : INPUT "You go up in the elevator and find two doors.Will you go in door 1 (1) or door 2 (2)", b%
IF b% = 1 THEN GOTO 16
IF b% = 2 THEN GOTO 17
IF b% > 2 THEN GOTO 13
IF b% < 1 THEN GOTO 13
14 : PRINT "The giants crushed you."
PLAY "<<AA"
END
15 : INPUT "You run and run but the giants didn't seem to notice you.Press 7 and hit the enter key to continue.", f%
IF f% = 7 THEN GOTO 6
IF f% < 7 THEN GOTO 15
IF f% > 7 THEN GOTO 15
16 : PRINT "Deadly zombies come out and jump on you."
PLAY "<<AA"
END
17 : PRINT "You go down a long hallway.Eerrie voices surround you.You soon find a dagger to defend yourself."
PRINT "At the end of the hallway you find the teleporter!You quickly enter it and when you step out of the teleporter"
PRINT "you find yourself going up a long flight of stairs which leads to a door"
18 : INPUT "You open it and find yourself in a labyrinth.Do you go right (1),left (2),down (3),or up (4).", v%
IF v% = 1 THEN GOTO 19
IF v% = 2 THEN GOTO 20
IF v% = 3 THEN GOTO 21
IF v% = 4 THEN GOTO 22
IF v% > 4 THEN GOTO 18
IF v% < 1 THEN GOTO 18
19 : INPUT "You keep going to the right until you find some steps.One flight leading upward (1)and another one leading downward (2).It's so dark you can't see where they lead.", c%
IF c% = 2 THEN GOTO 21
IF c% = 1 THEN GOTO 23
IF c% > 2 THEN GOTO 19
IF c% < 1 THEN GOTO 19
20 : PRINT "At the end of the hallway you find a minotaur.It kills you."
PLAY "<<AA"
END
21 : PRINT "At the end of the stairs you find a blue flame.It surrounds you and burns you."
PLAY "<<AA"
END
22 : INPUT "You go up and find a dead-end.Press 7 and hit enter to continue.", x%
IF x% = 7 THEN GOTO 18
IF x% < 7 THEN GOTO 22
IF x% > 7 THEN GOTO 22
PLAY "CC"
23 : INPUT "You find a snake at the top of the stairs!Will you fight it?Yes(1) no(2)", z%
IF z% = 2 THEN GOTO 25
IF z% = 1 THEN GOTO 26
IF z% < 1 THEN GOTO 23
IF z% > 2 THEN GOTO 23
25 : PRINT "The snake bites and eats you"
PLAY "<<AA"
END
26 : INPUT "You killed the snake!Now that you observe the room you see two hallways.Will you go in hallway 1 (1)or hallway two (2)?", p%
IF p% = 1 THEN GOTO 27
IF p% = 2 THEN GOTO 28
IF p% > 2 THEN GOTO 26
IF p% < 1 THEN GOTO 26
27 : PRINT "You find a mad-axe man at the end of the hallway."
PLAY "<<AA"
END
28 : INPUT "You find a dead-end.Will you walk back (1)or run back (2)?", y%
IF y% = 2 THEN GOTO 29
IF y% = 1 THEN GOTO 30
IF y% > 2 THEN GOTO 28
IF y% < 1 THEN GOTO 28
29 : PRINT "When you get back a mad-axe man jumps on you."
PLAY "<<AA"
END
30 : PRINT "You start walking back but the wall starts openig up.You walk into a chamber and find the teleporter!!!You teleport yourself out of the maze!"
PLAY ">>>EEE"
PRINT "You won!!!!"
PLAY "<BED"
PLAY "<BED"
LPRINT "                  CERTIFICATE ACKNOLEDGING YOU AS A MASTER MAZE FINDER"
END