    '        Caves of Mondamen
    '
    '     Eamon adventure # 16
    '
    '       by John Nelson
    '
    '
     DEFINT A-Z
     DECLARE SUB prtcenter (A$)
REM $INCLUDE: '..\copy\colorrtn.bas'
     INPUT #1, REC
     INPUT #1, NM$
     CLOSE
     Adv.Nam$ = "Caves of Mondamen"
     CLS
     COLOR hfg%, hbg%
     prtcenter Adv.Nam$
     COLOR fgc%, bgc%
     PRINT
     PRINT
     PRINT "As you left the main hall, you were greeted by a messenger from the king."
     PRINT "the message was an appeal for help from the king himself. "
     PRINT
     PRINT "Travelling to the palace, you are given audience with the king."
     PRINT "His Highness speaks to you:"
     PRINT
     PRINT "We have need of a mighty warrior whom we can trust. I have been told you"
     PRINT "fit that bill. I must place my trust in my advisors at this time, as we"
     PRINT "are in grave danger. The lives of all in the kingdom may depend upon you."
     PRINT "The very fate of the kingdom may well rest in your able hands. "
     PRINT
     PRINT "Mondamen, an evil deposed king from the south has been amassing a mighty"
     PRINT "army with which to attack our kingdom."
     PRINT
     PRINT "As if this weren't enough, he has aquired the services of a powerful, but evil"
     PRINT "wizard."
     PRINT
     PRINT "          (continued)       "; : A$ = INPUT$(1)
     CLS
     COLOR hfg%, hbg%
     prtcenter Adv.Nam$
     COLOR fgc%, bgc%
     PRINT
     PRINT
     PRINT "Rumor has it the wizard is attempting to call forth the demi-god 'Vaprak'."
     PRINT "If he succeeds, Mondamen's forces will be almost unstoppable."
     PRINT
     PRINT "Vaprak is an evil demigod worshipped by Ogres and Trolls. By getting his help"
     PRINT "Mondamen will have all the Trolls and Ogres in the land on his side."
     PRINT
     PRINT "But Mondamen is leaving nothing to chance. To be doubly sure of his "
     PRINT "success, the evil lord has captured the only daughter of King Kahn of "
     PRINT "Nexdor (a neighboring kingdom.)  Mondamen is now blackmailing Kahn into"
     PRINT "financing and aiding him."
     PRINT
     PRINT "We need a brave warrior to enter his stronghold, kill the evil wizard before"
     PRINT "he can call up the demon Vaprak, and to bring back the daughter of Kahn."
     PRINT
     PRINT "         (continued)        "; : A$ = INPUT$(1)
     CLS
     COLOR hfg%, hbg%
     prtcenter Adv.Nam$
     COLOR fgc%, bgc%
     PRINT
     PRINT
     PRINT "Also, if the evil wizard succeeds in calling forth his demon, you will have"
     PRINT "to find a magic spell that will return the demon to his own plane."
     PRINT
     PRINT "But, this is a volunteer mission. If you choose not to go, we can find"
     PRINT "someone else."
     PRINT
     PRINT "Of course we will have to execute you for treason, but it is your choice."
     PRINT : PRINT "Enter 'T' for treason or 'G' for go:";
SOME.CHOICE:
     A$ = ""
     WHILE A$ <> "G" AND A$ <> "T"
     A$ = INPUT$(1)
     A$ = UCASE$(A$)
     WEND
     IF A$ = "T" AND TR <> 0 THEN GOTO TREASON
     IF A$ = "T" THEN
         PRINT
         PRINT
         PRINT "Surely you will reconsider."
         PRINT "Your death will be most terrible."
         TR = 1
         GOTO SOME.CHOICE
     END IF
     PRINT
     PRINT
     PRINT
     PRINT "The king sends two of his best warriors to go with you. They will meet you at "
     PRINT "the entrance of the caves that serve as Mondamens base."
     PRINT
     PRINT "Oh, and by the way, our Royal Wizard has thrown an invisible wall around"
     PRINT "the mountain to slow our enemies down, but it will not 'Vaprak' once he"
     PRINT "decides to invade us. Unfortunately, it will prevent you from leaving the"
     PRINT "mountain until your mission is accomplished."
     PRINT
     PRINT "Good Luck, suck..uh, "; NM$
     RUN "MAINPGM"
TREASON:
     PRINT
     PRINT
     PRINT "A lever is pulled. You drop through a trapdoor and fall 500 feet onto a bed"
     PRINT "of long steel spikes. You did not survive it."
     KILL "MEAT"
     PRINT
     PRINT "Press any key to continue ... "; : A$ = INPUT$(1)
     PRINT
     CLS
     PRINT "Insert Master Diskette and Press any key"
     A$ = INPUT$(1)
     PRINT
     RUN "WORLD"

DEFSNG A-Z
SUB prtcenter (A$)
        L = LEN(A$)
        PRINT SPC((78 - L) \ 2); A$; SPC((78 - L) \ 2);
END SUB

