Leadin Program
The Leadin Program, known on ProDOS disks as the Intro Program, is part of all standard Eamon adventures. Written in Applesoft BASIC, it runs before the Main Program and normally serves to introduce the adventure, acting as a kind of prologue to the principal, interactive portion of the story. The program may also give notes from the author, special instructions, or tips before the adventure begins.
Its filename in the DOS 3.3 Eamon Dungeon Designer is LEADIN PROGRAM, which the author renames for their adventure (e.g., THE TEMPLE OF NGURCT).
Its filename in the ProDOS designer is EAMON.000.INTRO, which is renamed for the finished adventure to use the correct adventure number.
Once the Leadin Program is complete, it runs the adventure's Main Program.
Example
The following is the complete code of the file SORCEROR'S SPIRE from the adventure Sorceror's Spire by John Nelson.
1 REM THE DARK SPIRE
2 REM BY JOHN NELSON
3 REM
4 REM (A.K.A. SORCEROR'S SPIRE)
10 D$ = CHR$ (4): TEXT
20 PRINT D$"OPEN FRESH MEAT": PRINT D$"READ FRESH MEAT": INPUT REC: INPUT NAME$: PRINT D$"CLOSE"
30 HOME : PRINT D$"OPEN EAMON.NAME": PRINT D$"READ EAMON.NAME": INPUT ADV$: PRINT D$"CLOSE": INVERSE :L1 = INT ((40 - LEN (ADV$)) / 2):L2 = 40 - LEN (ADV$) - L1
40 GOSUB 8500
100 REM >> PRINT DESCRIPTION
110 PRINT "YOU WERE AWAKENED FROM YOUR SPOT BEHIND": PRINT "THE STABLES BY A LOCAL BOY RUNNING ABOUT": PRINT "AND SHOUTING. GETTING UP TO SEE WHAT THE"
120 PRINT "BIG RUCKUS WAS ABOUT, YOU FOUND OUT THAT": PRINT "A MAN HAD JUST CRAWLED INTO TOWN ALL BUT": PRINT "DEAD, AND MUMBLING INCOHERENTLY. YOU SET"
130 PRINT "OUT TO INVESTIGATE, FINDING THE MAN AT": PRINT "THE DOCTOR'S HOUSE.": PRINT
140 PRINT "YOU FINALLY CONVINCE THE DOCTOR TO ALLOW": PRINT "YOU TO SEE HIM."
150 GOSUB 8000
160 PRINT "WALKING INTO THE BACK ROOM, YOU FIND THE": PRINT "MAN SEVERELY BURNED AND DAMAGED, BUT NOT": PRINT "BY ANY CONVENTIONAL WEAPON YOU HAVE EVER"
170 PRINT "SEEN. THE DOCTOR SAYS HE SEEMS TO HAVE": PRINT "BEEN BURNED BY SOME KIND OF ENERGY OF A": PRINT "MYSTICAL ORIGIN UNLIKE ANYTHING HE EVER"
180 PRINT "SAW BEFORE. HE SAYS THE MAN MUTTERED TWO": PRINT "WORDS OVER AND OVER AGAIN BEFORE FALLING": PRINT "INTO A DEEP SLEEP."
190 GOSUB 8000: PRINT : PRINT "THE TWO WORDS HE WAS REPEATING DID NOT": PRINT "MAKE TOO MUCH SENSE. THEY SEEMED TO BE": PRINT " 'DESTRAX' AND 'ANTIMAG'.": PRINT
210 PRINT "THE MAN ALSO WAS MUMBLING ABOUT THE DARK": PRINT "SPIRE.": PRINT : PRINT "THE DARK SPIRE WAS ALSO CALLED SORCERORS": PRINT "SPIRE AND WAS SUPPOSED TO BE THE BEST OF"
220 PRINT "ALL THE WIZARD AND SORCEROR'S SCHOOLS IN": PRINT "THE LAND. IT WAS RUN BY A VERY KIND OLD": PRINT "MAGE BY THE NAME OF XANDAR THE GREAT. A"
225 GOSUB 8000
230 PRINT "COUPLE OF YEARS AGO THERE WAS A RUMOR OF": PRINT "XANDAR DYING AND THAT THERE WOULD BE": PRINT "A GREAT POWER STRUGGLE TO SEE WHO WOULD"
240 PRINT "BECOME THE NEW LEADER OF THE SCHOOL. IT": PRINT "WAS A VERY IMPORTANT POSITION, BECAUSE": PRINT "EXTENSIVE MYSTICAL RESEARCH WAS DONE AT"
250 PRINT "THE SCHOOL. IT WAS THE EQUIVALENT OF ANY": PRINT "UNIVERSITY, BUT SPECIALIZED IN MAGIC.": PRINT
255 GOSUB 8000
260 PRINT "IT WAS RUMORED THAT XANDAR FEARED SUCH A": PRINT "POWER STRUGGLE AND WAS TRYING TO PERFECT": PRINT "AN IMMORTALITY SPELL. IT IS NOT KNOWN IF"
270 PRINT "HE EVER SUCCEEDED.": GOSUB 8000
280 PRINT "BEING SHORT ON SENSE AND LONG ON GUTS, ": PRINT : PRINT "YOU DECIDE TO GO TO THE SPIRE TO SEE IF": PRINT "YOU CAN FIND OUT WHAT IS GOING ON."
5000 PRINT "GOOD LUCK, ";NAME$;".": PRINT D$"RUN MAIN PGM"
8000 VTAB 24: INVERSE : PRINT SPC( 7);"PRESS ANY KEY TO CONTINUE"; SPC( 7);: GET A$: PRINT
8500 HOME : INVERSE : PRINT SPC( L1);ADV$; SPC( L2): NORMAL : PRINT
8510 RETURN
See also