0   ' PRINT  CHR$ (4)"BRUN LOMEM:": &  LOMEM: 16384
1   REM     EAMON ADVENTURE #10
2   REM ->   THE MAGIC KINGDOM <-
3   REM
4   REM        BY DAVE COOK
5   REM
6   REM      START-UP PROGRAM
7   REM
     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:


10   ON ERROR GOTO 1000
20   ' DK$ = CHR$(4):
     OPEN "MEAT" FOR INPUT AS #1
     INPUT #1, REC, N$
30   CLOSE
32   ' PRINT CHR$(4); "BRUN HIGHER TEXT"
33   ' PRINT CHR$(4); "BLOAD OLD ENGLISH.F,A$1400"
37   ' A$ = CHR$(17) + CHR$(3) + "0" + CHR$(2) + "0" + CHR$(12) + CHR$(0) + CHR$(16)
40   PRINT A$
50   CLS
60   PRINT "Recently a local evil sorcerer was spying on you through his crystal ball."
     PRINT " He overheard you talking about him and, having a short temper like most "
     PRINT "evil sorcerers, he instantly sent you to the Magic Kingdom thinking you"
     PRINT "would never return. "
90   PRINT
     PRINT "(Press any key) "; : Q$ = INPUT$(1): PRINT Q$
95   CLS
1000 '
1010   RUN "MAINPGM"

