     '
     '     Eamon Adventure #33
     '      Orb of Polaris
     '
     '
     '       BY JOHN NELSON
     '
     '
     DEFINT A-Z
REM $INCLUDE: '..\COPY\COLORRTN.BAS'
     INPUT #1, REC
     INPUT #1, NAM$
     CLOSE
     CLS
     ADV$ = "The Orb of Polaris"
     CLS
     COLOR HFG%, HBG%
     L1 = INT((78 - LEN(ADV$)) / 2)
     L2 = 78 - LEN(ADV$) - L1
     PRINT SPC(L1); ADV$; SPC(L2);
     COLOR FGC%, BGC%
     PRINT
     PRINT
     PRINT "As you left the Main Hall, you felt that strange wrench in your stomach and"
     PRINT "your vision went blurry for a few moments. As soon as your vision clears "
     PRINT "again you see you have been teleported to the chamber of a mighty warlock!!"
     PRINT
     PRINT "The warlock tells you he cast a spell to have the most highly qualified person"
     PRINT "in the area teleported to his chamber. That must mean you're the one!"
     PRINT
     PRINT "He says he needs your assistance in regaining an object he claims was stolen"
     PRINT "from him. It is an object of great power and consequence."
     PRINT
     PRINT "It is a magical Orb. It was found by his grandfather after being lost for "
     PRINT "many thousand years. (Give or take a few days.)"
     GOSUB Page.Break
     PRINT
     PRINT "The Orb must not fall into the wrong hands, or it could mean great disaster."
     PRINT "The warlock says he cannot go after the Orb himself because mystical defenses"
     PRINT "have been set up to guard the orb from him. He must therefore send some"
     PRINT "brave adventurer in his stead."
     PRINT
     PRINT CHR$(34); "Find the Orb and return it to me, and I will give you the greatest reward"
     PRINT "anyone could ask for."; CHR$(34); "  He is laughing a sinister hysterical laugh as "
     PRINT "you vanish again... "
     PRINT
     PRINT "Good Luck, "; NAM$; "."
     GOSUB Page.Break
     RUN "MAINPGM"
Page.Break:
     LOCATE 24, 1
     COLOR HFG%, HBG%
     PRINT SPC(24); "Press any key to continue ..."; SPC(24);
     A$ = INPUT$(1)
     PRINT
     COLOR FGC%, BGC%
     CLS
     RETURN

