     '
     '           Quest for Marron
     '         Adventure for EAMON-PC
     '
     '           by John Nelson
     '
     '
     DECLARE SUB PRTCENTER (A$)
REM $INCLUDE: '..\COPY\COLORRTN.BAS'
     ADV.NAM$ = "Quest for Marron"
     CLS
     COLOR hfg%, hbg%
     PRTCENTER ADV.NAM$
     COLOR fgc%, bgc%
     PRINT
     PRINT
     PRINT "A very good friend of your recently became violently ill. She ranted"
     PRINT "and raved like a person possessed. As a matter of fact, that was the"
     PRINT "exact diagnosis that the head of the church and the local doctor"
     PRINT "arrived at."
     PRINT
     PRINT "They said that there was nothing they could do. There is no medical"
     PRINT "cure and the wizards you have found so far have said that the"
     PRINT "problem was not in their area of specialty."
     PRINT
     PRINT "But you finally find one wise old sage that told you of a powerful"
     PRINT "holy man that specialized in demonic possession. The man's name is"
     PRINT "Marron and he lives somewhere on Mount Sunis in the caves. They say"
     PRINT "he has lost his marbles and now lives in the caves with other "
     PRINT "strange religious fanatics."
     PRINT
     PRINT "You do not know whether you can get Marron to come into the village"
     PRINT "to help Katharyn, your friend, so you decide to take Katharyn to"
     PRINT "the caves to see the holy man instead."
     PRINT
     GOSUB PAGE.BRK
     COLOR hfg%, hbg%
     PRTCENTER ADV.NAM$
     COLOR fgc%, bgc%
     PRINT
     PRINT
     PRINT "Katharyn is much too violent to take along without binding her and"
     PRINT "carrying her. You chain her and wrap her in a canvas bag and head"
     PRINT "off for the caves of Mount Sunis."
     GOSUB PAGE.BRK
     RUN "MAINPGM"
PAGE.BRK:      ' ----------------- PAGE BREAK ------------------------
     LOCATE 24, 1
     PRINT "==================== Press Any Key to Continue ====================";
     A$ = INPUT$(1)
     CLS
     RETURN

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

