     '           The Black Death
     '         Adventure for EAMON-PC
     '
     '           by John Nelson
     '
     DECLARE SUB PRTCENTER (a$)
REM $$INCL:'\Eamon\COPY\COLORRTN.BAS'
     ON ERROR GOTO NoColors
     OPEN "EAMCOLOR" FOR INPUT AS #1
     INPUT #1, fgc%
     INPUT #1, bgc%
     INPUT #1, hfg%
     INPUT #1, hbg%
     CLOSE
In.BW:
     ON ERROR GOTO 0
     COLOR fgc%, bgc%
     GOTO Colorset
NoColors:
      fgc% = 7
      bgc% = 0
      hfg% = 0
      hbg% = 7
      RESUME In.BW
Colorset:

    '------- (end of include file) -------    
 ' 
     KEY OFF
     CLS
     COLOR HFG%, HBG%
     PRTCENTER "The Black Death"
     COLOR fgc%, bgc%
     PRINT
     PRINT
     PRINT "You have watched your friends get sick and shake with the fever. Some"
     PRINT "of them dying while you sat helplessly by. A doctor trying to help is"
     PRINT "now dying. He tells you that there is nothing you can do, but you feel"
     PRINT "that you must try. You journey to the royal palace to seek the aid of"
     PRINT "the royal wizard. Or the King. Anybody would do at this point."
     PRINT
     PRINT "The king summons you to his chamber. He has received a ransom note of"
     PRINT "sorts. The note is from an infamous mad doctor. The doctor has a cure"
     PRINT "for the plague that now enshrouds the land. The cure, of course, will"
     PRINT "be expensive. The doctor wants one million gold pieces for the cure."
     PRINT "If he does not get it, he will allow the entire kingdom to die."
     PRINT
     PRINT "The King says there is no way the kingdom can raise that much gold. The"
     PRINT "kingdom has only a paltry fraction of that.  The king has tried reasoning"
     PRINT "with the madman and says he is willing to pay as much as possible, but will"
     PRINT "not submit to extortion! The King wants you to seek out this mad doctor's"
     PRINT "fortress and see if you can find the serum and the formula for the sake of"
     PRINT "the kingdom. The King says the doctor's castle will likely be well defended"
     PRINT "and that a sneak attack may be the best course of action."
     PRINT
     PRINT "You agree and set off toward the mad doctor's castle in the darkness ... "
     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

