'               Temple of the Trolls
'
'               by John Nelson
'
'
'
'
     DEFINT A-Z
     ON ERROR GOTO NoColors
     OPEN "EAMCOLOR" FOR INPUT AS #1
     INPUT #1, fgc%
     INPUT #1, bgc%
     INPUT #1, hfg%
     INPUT #1, hbg%
     INPUT #1, brt%
     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:
     tit$ = "Temple of the Trolls"
     GOSUB prt.head
     PRINT "You were walking through the Main Hall, on your way back to the privy when"
     PRINT "you overheard an old man and another man in some kind of argument over a "
     PRINT "a wager involving an old map. The old man said he would not wager such a "
     PRINT "valuable item, especially when it could be so dangerous. The younger man "
     PRINT "became quite beligerent and tried to take the map. There was a struggle, "
     PRINT "and just as you decided to intervene, the young man pulled out a knife and"
     PRINT "stabbed the old man."
     PRINT
     PRINT "You arrived just at the moment of the stabbing and the younger man fled, "
     PRINT "unable to obtain the map he sought. You grabbed the old man and assisted "
     PRINT "him. With his dying breath, the old man pressed the map into your hands, "
     PRINT "and told you to never let the map fall into the wrong hands.  He said it "
     PRINT "was the map to the secret entrance to the Temple of the Trolls.   If the "
     PRINT "wrong people got ahold of it, the raiding of the temple would begin again"
     PRINT "and war between the humans and trolls would begin once again."
     PRINT
     PRINT "In the past these wars were terrible and long tales of horror, seemingly "
     PRINT "endless. The wars must never again be restarted."
     PRINT
     PRINT "You take the old man to the local medic, not knowing whether he would live"
     PRINT "and set out to look for the man who stabbed him. You search for many hours"
     PRINT "but find no trace of him."
     GOSUB page.brk
     PRINT "You begin wondering about the map, and the Temple of the Trolls and the great"
     PRINT "legends of the Trolls of old. They were said to be the best weapon makers in"
     PRINT "the land. There are many tales of heroes and tragedies in the history of the"
     PRINT "rivalry between human and Troll. Trolls were said to be of matchless skill in"
     PRINT "the forging of Magic weapons. How great it would be to have a Troll-made magic"
     PRINT "weapon of highest quality."
     PRINT
     PRINT "But why just daydream of such a weapon, you now possess a map to get to the "
     PRINT "Troll empire. You have a chance to meet the Trolls on their own ground! And "
     PRINT "perhaps you can learn the secret of their great skill in weapon making. You  "
     PRINT "may even be able to get the Great Grommick to forge a weapon for you! Some of"
     PRINT "the old legends said the Trolls could be commissioned to make weapons for "
     PRINT "one who was able to pay the price and could prove themselves."
     PRINT
     PRINT "Piece of cake!"
     GOSUB page.brk
     RUN "MAINPGM"
page.brk:
     LOCATE 24, 1
     PRINT "==================== Press Any Key to Continue ====================";
     A$ = INPUT$(1)
     GOSUB prt.head
     RETURN
prt.head:
     CLS
     COLOR hfg%, hbg%
     PRINT SPC((78 - LEN(tit$)) / 2); tit$; SPC((78 - LEN(tit$)) / 2);
     COLOR fgc%, bgc%
     PRINT
     PRINT
     RETURN

