  '      Zyphur Riverventure
  '        Eamon Adventure
  '
  '     Converted to IBM-PC
  '       by John Nelson
  '
  '
     DEFINT A-Z
     DECLARE SUB prtcenter (A$)
     KEY OFF
     Adv.Nam$ = "Zyphur Riverventure"
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) -------    
 ' 
     CLS
     COLOR hfg%, hbg%
     prtcenter Adv.Nam$
     COLOR fgc%, bgc%
     PRINT
     PRINT
     PRINT "Your next task is a large one. A famous scientist (Prof. Axom) was kidnapped": PRINT "three months ago. The Society for the Preservation of Scientists (SFPOS) has"
     PRINT "offered a reward for the safe return of Professor Axom (who was also a friend": PRINT "of yours.)": PRINT
     PRINT "It has been rumored that the infamous Black Knight (who lives somewhere along": PRINT "the Zyphur River) was responsible for the kidnapping. You must follow the river"
     PRINT "find the Professor, and bring him back ... alive!"
     PRINT : PRINT
     GOSUB PAGE.BREAK
     RUN "MAINPGM"
PAGE.BREAK:
     LOCATE 24, 1
     PRINT "==================== Press Any Key to Continue ====================";
     A$ = ""
     WHILE A$ = ""
     A$ = INKEY$
     WEND
     CLS
     RETURN

DEFSNG A-Z
SUB prtcenter (A$)
     L = LEN(A$)
     PRINT SPC((78 - L) \ 2); A$; SPC((78 - L) \ 2);
END SUB

