    '            Eamon-QB
    '          Adventure #15
    '          Heroes Castle
    '
    '          by John Nelson
    '
    DEFINT A-Z
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
    HD$ = "Heroes Castle"
    GOSUB HEADING
    PRINT "You leave the main hall and journey down a long dusty road. When you stop to"
    PRINT "drink from a local well, you become aware of a beautiful maiden crying a few "
    PRINT "yards away. After talking to her, you agree to help her.": PRINT
    PRINT "Her lover has disappeared. He was abducted by a big businessman that was "
    PRINT "convinced that her lover was spying on him. After assuring her that you would"
    PRINT "investigate his disappearance, you make your way to the castle where it is"
    PRINT "believed he is being held."
    PRINT
    PRINT "Good Luck."
    GOSUB PAGE.BRK
    RUN "MAINPGM"
PAGE.BRK:
    LOCATE 24, 1: PRINT "==================== Press Any Key to Continue ====================";
    A$ = INPUT$(1)
HEADING:
    CLS
    COLOR hfg%, hbg%
    PRINT SPC((78 - LEN(HD$)) / 2); HD$; SPC((78 - LEN(HD$)) / 2);
    COLOR fgc%, bgc%
    PRINT
    RETURN

