1  REM  The Prince's Tavern
2  REM      by Bob Davis
3  REM   last change - 10/21/84
10
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) -------    
 ' 
    GOSUB HEADRTN
    PRINT "As you travel across an unknown land, a troop of men proclaiming themselves as"
    PRINT "guardians of King Radaar's lands overtake and capture you."
20  PRINT
    PRINT "They bring you before King Radaar and he recognizes you as a free "
    PRINT "adventurer. He says 'I have heard many great tales of free adventurers"
    PRINT "from Bob the Wanderer to Deljem Frolic.": PRINT
30  PRINT "It is said that you would rather die than fail on a mission."
    PRINT : PRINT "I am in need of your services. My drunken son, the Prince, owns a "
35  PRINT "tavern close by."
    PRINT
40  PRINT "He has a gift I must bring to a neighboring king's coronation. It is"
    PRINT "a 600 year old bottle of scotch. I will pay you well to go into his tavern, "
    PRINT "find the scotch and bring it back to me."
55  GOSUB 9000
60  PRINT "If you come out without the bottle then you will have failed; and you "
    PRINT "know what to expect for failure.'": PRINT
70  PRINT "Since you have no choice, you agree to bring back the bottle of scotch.": PRINT
520 PRINT : PRINT "As you set forth, (followed by several of King Radaar's ruffians) you meet an"
    PRINT "old man and ask directions to the prince's tavern.": PRINT
530  PRINT "He realizes you to be a stranger and says 'Many strange beings inhabit the":
     PRINT "rooms of the tavern and many strange happenings are said to have"
     PRINT "transpired there."
533  PRINT : PRINT "He then notices your 'buddies'."
535  GOSUB 9000
540  PRINT "The old man looks at you sadly, raises his hand above his head and ":
     PRINT "says "; CHR$(34); "Evantke!"; CHR$(34): PRINT
     PRINT "Smoke appears all around you and when"
550  PRINT "it thins, you see that you are in front of the prince's tavern."
750  PRINT : PRINT : PRINT "You approach the tavern and ring the bell."
     PRINT
     PRINT "(Press any key to ring bell) ..."
     a$ = INPUT$(1)
760  SOUND 213, 22: SOUND 90, 18
770  PRINT : PRINT "The door opens..."
780  RUN "MAINPGM"
HEADRTN:
     CLS
     COLOR HFG%, HBG%
     PRINT SPC(30); "The Prince's Tavern"; SPC(30);
     COLOR FGC%, BGC%
     PRINT
     PRINT
     RETURN
9000  LOCATE 24, 1:
      COLOR HFG%, HBG%:
      PRINT SPC(27); "Press any key to continue"; SPC(27); :
      COLOR FGC%, BGC%: a$ = INPUT$(1): PRINT :
      GOTO HEADRTN

