+JJJJ  / X5 lӠˠӠϠӠϠԮԠҠˠčӠ٠ϠԮLĠÍ֥͠ҩ͠ĠȬȬԬԬЬάŬ׬Ŭ׬ԬŬЬˬŬˬŬŬٍԬ̬ҬĬŬŬ٬Ĭ٬ŬԬάԬˬōΠàϠҠӠϠӲөө Ơ젤Ƭ젤Ƭ젤Ƭ젤ƬƬƬƠ젱捍򠱍捍孭ᮍƠ報堲捍捍䮠嬠嬠䮠堨宠宍̠ԠӍ䬠Ӎ䮠宠ﬠ䮠ˠ䮠䬠宍쮍򠭹쮍宍Ӎﮠ򠲵󠳲ᮠ퍍嬠󠱰򠱷󠲱􍠠宍謠򮍍򠭠䮠򠭠ᠧ易堧易䮍堭ήà宠䬠箩砭ᠱ䮠Ԡ䮠宠ՠĠǮ䮍䮠ᠰ嬠栱䮠嬠㬠򠭠𷠽䣍䠸獍󠭠쮠宠䠶殠䠶䠷󠠠䠷砠䠷荍堠䠵򣍠䠶堠䠵䠵䠶쮠䠶䠷䠸󍍍䠵󠠠䠵殠䠵䠶󠵠庍䠵宠묠宠栠堠򠠠򠠠砠堠䠠堠堠Ӎ䠠򍠠򮩍䮍򮍍箠宠󮍍䮠󮍍䮍덠殠箠䍍庍ᮠ󍠠⮠䍠㮠䍠䮠󮍠宠ᮠ󮠨䮩󮍍򠶮󺍍宠婠                             嬠堠󮠠뮍Šč좠䮍ﺍ鍠䍠򮍠à좠䮍Ω젠Ϡᠠ蠠䠠宠堠䠠䠠ΠͮΠ͠ŠȍԢ䠠Πͬ報򠱰堠堠砠󮠠宠䬠堠Πͮ宍宠堠堠Ԡˤ󬠠䠠󮠠笠殍宠堠ΠԍĠ宠宠䠠젠栠宠堠䠠堠Πͮ堠󬠠堠󮠠Π͠堺àԠξΠ嬠堠堠Ġ򬠠䬠栠堠纍ŠΠ͍Š͠Π͍堠Ġ宠󍱰堠宍堠堠Ġ堠ĠĠΠ͍⮠堦占ŠŠΠ͠ō㮠庠Š婍ҠčŠĮ쭍䬠Ġ䠠Πͮᮠ堠Ġ堠堠栠堠嬠宍ŠŠԠӠǠΠōˠŠҠŠӠōĠ̠ŠĮҠӍάՠĠӠРĠ婍堠宠Ġ䠠砠堠젠堠堠Ġ宠ᮠ堠宍⮠占卍㮠젠堠򮍍䮠堠䮍宠堠ﮍ䍠庍砠󮠠栠蠠堠󬠠堠󮠍젠䠠󮍍ƍ栠砠堠젠栠󮍠󮠠堠宠堠򮍠䠠堠蠠렠堠婠堠䠠䠠堠䠠堠젠砠򠠠󮠠堠䬠栠젠箍렠堠栠堠蠠󠠨䠠䠠堠堠䠠宠ﬠɍᠠ󭍍Х򠠨婍ӥԠԥڠ􍍍堠堠饨Р֤֥󠠠ĥΤ堠栠󠠠ϥҠ򠠱ӤӲؤ󠠧ͧ򠠧ƧĠà젠ĭ栠ڠƠ򠠠栠堠Š젠à䠠򠠠̠򠱭͠򠠠􍠠썠ΤҠ̠à͠נ󍠠占퍠􍠠󠨥򍠠נ占נ󍠠占󠠠Ԡ젠砠栠àˠ젠砠栧䧠ĥ፠򬍠󺍠󍠠젠笠򠠠ˤ̭Ġҥ蠠栠ĥ栠Ҡ򠠠䠠Ġ䠠堠󍠠ŠΤˠàäȠڤƠĥ፠堠󺍠占占􍠠퍠占蠠젠󮍠栠堠堠歍䠠䬠ᠠ孭à󠠱堠堠쮠쬍젠砠쭭󠠠堠堠䬠费堠󠠷堠堠䠠󠷷ͮ栠ᠠ砠砠堠䠠堠󠴲堠堠젠󠠠砠堠󠠴󬠴ƠӤԢΠӤŠԢ栠ᠠ䠠Ԡ堠ᠠ 䠠堠栠䠠򬠠堠󠳰󠠴󮠠栠堠򬠠Ҳ䠠砠堠 󠱱󠠲堠堠󮠠䬠堠Š宠󠠲堠󮍠󠠳堠堠堠䩬堠﩮栠젠堠䠠󍵰󠱰묠箠栠䠠ᠠ䬠報嬠ɍ󠠱堠堠讠堠堠čΠ͠婠ﮍΠ͠Π͠󬠠㮠䬠䠠Ĭ䠠ᠠ󡍍ǠŠŠΠ͍堠ᠠ宠䠠堠Š΍͠젠蠠堠堠䠠砠䠠z #    ΠҧӠ ΠҮ Ӭà  Π͠QԠҠĠ̮Ԡx Ġֶ. ԠΠΠ Ԡź  ΠΠҠ Π ΠԠ ΠԠ@ΠԠԠӠ Π͠$;"CLOSE"4. ROOMS,ROOM NAMES,MONSTERS,ARTIFACTSK2DK$;"EXEC EXEC":C":Dr"RUN 200"2(#DK$;"OPEN A";(8):DK$;"CLOSE"'DK$;"OPEN EAMON.NAME":DK$;"WRITE EAMON.NAME":A$:ND:"6.0":DK$;"CLOSE"*R14:F$:DK$;"OPEN EAMON.";F$:DK$;"CLOSE"::DK$;"OPEN EAMON.DESC" \+DK$;"WRITE EAMON.DESC":"0":"0":"0":"0":DK(ND$)?XDK$(4):DK$;"INIT EAMON ADVENTURE #";NUM;",V";NUM@DK$;"OPEN EXEC":DK$;"WRITE EXEC":"0 A$=";(34);A$;(34);":NUM=";NUM;":A2$=";(34);A2$;(34)J"DEL 1000,13000":"200 NUM=";NUM:"220 PRINT DK$;";(34);"RENAME EXEC,SAVE ";A$;" HERE"$)252030, ::((40(A$))2)1::A$:Y 10:"AUTHOR NAME: ";A2$:(A2$)253000 12:"ADVENTURE NUMBER: ";A3$:NUM(A3$):NUM(NUM)NUM0NUM254(NUM)A3$4000 14:"DIRECTION OF MOVEMENT (6/10): ";ND$:ND$"6"ND$"10"5000pNDETTE?"::" ENTER 'Y' OR 'N' ";> A$:A$"Y"A$"N"1050S $A$:A$"N"1000m  === GET INFORMATION :11:"EAMON DUNGEON CREATE":13:"BY JOHN NELSON" 8:11);"NAME OF ADVENTURE:"::" ";::25); 6:"";A$:A$"A"A$"ZZZZ"(AVE LEADIN PROGRAM HERE" D$(4)::12::"*** WARNING ***"::6:"INSERT A NEW (BLANK) DISKETTE BEFORE PROCEEDING!":9:"PRESS 'C' WHEN READY ..."; A$:A$"C"1010  2000 D$;"CATALOG"::"IS IT OKAY TO INITIALIZE THIS DISKMERCIAL DISTRIBTION ENCOURAGED."::"TO USE THIS DISKETTE REQUIRES AN EAMON MASTER DISKETTE WHICH MUST BE BOOTED UP ON.": < RESTART HERE DK$(4):DK$;"DELETE EAMON ADVENTURE #";NUM:DK$;"SAVE EAMON ADVENTURE #";NUM DK$;"RENAME EXEC,SA*********": 12);"ADVENTURE #";NUM;" FOR"::7);"THE WONDERFUL WORLD OF EAMON"::"----------------------------------------" ("THE EAMON FANTASY GAMING SYSTEM WAS DEVELOPED BY DONALD BROWN":A$;" WAS":" DEVELOPED BY ";A2${ 2"NON-COMM 10009GD$(4):D$"VERIFY GAME.PTRS":D$"RUN MAIN PGM"R 216,0\ :: "*****************************************";38);"**";((38(A$))2));A$;((38(A$))2)((A$)2((A$)2)));"**";38);"********************************:A EAMON DUNGEON DESIGNER: VERSION 6.0A \ BY JOHN NELSONbp 2-28-84 10-13-84 1000:"EAMON ADVENTURER'S GUILD":"7625 HAWKHAVEN DR.":"CLEMMONS, NC 27012"::E (9);"EAMON ADVENTURE SYSTEM": MANUALS"::" 5. STOP"::"PRESS KEY FOR YOUR CHOICE (1-5) : ";_ PA$:C(A$):C1C580} ZC:C100,200,300,400,500 d(4);"RUN DUNGEON INIT" (4);"RUN DUNGEON EDIT" ,(4);"RUN DUNGEON LIST" (4);"RUN PRINT MANUALS" :37,25511);"ADVENTURE DESIGNER":13);"SELECTION MENU":14);"VERSION 6.0"s 211:"SELECT PROGRAM FUNCTION DESIRED..." <:" 1. INITIALIZE NEW DUNGEON DISKETTE"::" 2. EDIT DATA FILES":C F" 3. LIST DATA IN A DUNGEON'S FILES"::" 4. LIST/PRINT  EAMON DUNGEON DESIGNER: VERSION 6.0A \ BY JOHN NELSONbp 2-28-84 10-13-84 1000:"EAMON ADVENTURER'S GUILD":"7625 HAWKHAVEN DR.":"CLEMMONS, NC 27012"::E (9);"EAMON ADVENTURE SYSTEM":   31400:LKī1508000 >> EDIT OLD ITEMJC$"EDIT":500:TYPEAhTYPE2100,2200,2300,2400{4 >> EDIT ROOM>700:RECNO:21000:20000:1130 >> EDIT ARTIFACT700:RECNO100:20000:22000:X14:AL$(AFX)FML$(FMP%(AD%(2)),X):31200:18000:LKī1508003 >> ADD EFFECTYN%(3)N%(3)1:NON%(3):RECNO200d(DE$""213000:18000:LKī150<800x >> ADD MONSTERN%(4)N%(4)1:NON%(4):RECNO300NA$"":DE$"":D1MF:M%(D)DM%(D):14000:18000:"":DE$"":D1ND:RD%(D)DD%(D)NO(DD%(D)0)::LTDLBj11000]t31100:18000:LK150f~800| >> ADD ARTIFACTN%(2)N%(2)1:NON%(2):RECNO100NA$"":DE$"":D1AF:AD%(D)DA%(D)::X14:AL$(XAF)FM$(FMP%(AD%(2)),X):12000:*:C1020,2020,3010,4020,5020,150,1500z150K >> DELETE FROM LOCKrLKLK:C1N%(TYP)N%(TYP)1:150{150 >> ADD ITEMC$"ADD":500:TYPEATYPE1100,1200,1300,1400L >> ADD ROOMVN%(1)N%(1)1:NON%(1):RECNO7`NA$A$;:600A$(8)6009A$(27)ĺI2$:I$I$I2$:B615V >> GET NUMBER6:958:"INPUT NUMBER OF ";T$(TY);" TO ";C$" (1-";N%(TYPE);:") ";A$:NO(A$):NO1NON%(TYPE)(C$"CREATE")NO(NO)ġ:150  >> LOCKED <<'CIISIS:H(36):V(37):39:1::(" I",IS1,1)::H1:V1:615aA$(9)I2$" "I2$:610A$(21)(I2$)A$(I2$,1):625A$(21)A$" ":625A$(8)(I$)1I2$(I$,1)I2$:I$(I$,(I$)1):A$;:615 A$(8)(I$)I2$I$I2$:(I$)(I2$)250ĺ(7);:615?nA$(31)ISĺA$;:I$I$A$:610mqA$(31)ĺA$;:I$I$A$:I2$(I2$,2):615vA$(5)ĺI2$;:I$I$I2$:I2$"":615{A$(2)(I$)āA1(I$):(8);::I2$I$I2$:I$"":615A$(4)I2$(I2$,2):610CA$(9)X///ROUTINE TO INPUT I$, HAVING BEEN PASSED I2$p]I$"":H(36):V(37):38:1::(" I",IS1,1)::H1:V1bI2$;:958:(I2$)āA1(I2$):(8);:gA$:A$(13)Č958::jA$(17)LKġ::900l(A$(31)A$(9)(A$(21)(I2$)))000-ND$""DV4:ND$"6":DK$;"CLOSE":60GDV5:DK$;"CLOSE":60g >> SELECT WHAT TO WORK ON2:958:"DO YOU WANT TO ";C$;" A ROOM, ARTIFACT,":" EFFECT, OR MONSTER (HIT KEY, RAEM) ";A$:A14:A$("RAEM",A,1)Ă:520A$:1:" OR MONSTER" 7 " 6. SPECIAL FUNCTIONS"= N " 7. QUIT"y ":"ENTER KEY FOR YOUR CHOICE (1-7) "; ,A$:A$(12)LKLK:150 1A$(9)CICI:150 6(A$)1(A$)7300 @C(A$):A$^C1000,2000,3000,4000,5000,6000,7MONSTER" J " 2. EDIT OLD ROOM,ARTIFACT, EFFECT":" MONSTER"P ~ " 3. LIST NAMES OF ROOMS, ARTIFACT,ETC" " 4. REPLACE OLD ROOM,ARTIFACT OR":" MONSTER (WITHOUT VIEWING OLD)"  " 5. DUPLICATE A ROOM, ARTIFACT"35000:DV6DT3:TY$(3)"ODD WEAPON"2 60000 :T14:T$(T);"-";N%(T);" ";:::3:4);"EDITING ";::DUNGN$:("LOCK",1,LK4);: " ";::("CONT.ISRT",1,9CI): "YOUR CHOICES ARE--"::" 1. ADD NEW ROOM,ARTIFACT,EFFECT OR":" :DK$;"CLOSE"" <ND(ND$):216,0 FDK$;"OPEN EAMON.ROOMS,L64":DK$;"OPEN EAMON.ROOM NAMES,L64":DK$;"OPEN EAMON.MONSTERS,L128":DK$;"OPEN EAMON.ARTIFACTS,L128":DK$;"OPEN EAMON.DESC,L256" PDK$;"READ EAMON.DESC,R0":N%(1),N%(2),N%(3),N%(4):DK$& Z(43626)):DR$((43624)) DK$(4)::5:" EDITING AN ADVENTURE FOR EAMON"::" INSERT DISKETTE WITH ADVENTURE"::" PRESS ANY KEY TO CONTINUE...";:16368,0:A$: (400 2DK$;"OPEN EAMON.NAME":DK$;"READ EAMON.NAME":DUNGN$:ND$:DV > DUNGEON EDIT PROGRAM7 BY JOHN NELSON=q ADAPTED FROM DON BROWN'S DUNGEON EDIT THIS PROGRAM ADDS AND MODIFIES SIX AND TEN DIRECTION DUNGEONS. REV. 10/15/89 (4);"MAXFILES 7":SL$(                    00,140 & >> LOAD/SAVE PARAM.&:10);"LOAD/SAVE PARAMETERS":6:958:"SELECT LOAD/SAVE FUNCTION:"::" 1. LOAD PARAMETERS"::" 2. SAVE PARAMETERS"::" 3. RETURN"&:"INPUT NUMBER (1-3): ";&A$:A$"1"A$"3"6930'A$:(A$)7100,7 2. ARTIFACT DATA":" 3. CHANGE FORMAT POINTER":" 4. CHANGE A FORMAT"%" 5. ARTIFACT TYPES":" 6. ADD A FORMAT":" 7. RETURN TO MAIN MENU":"INPUT THE NUMBER (1-7):";%A$:(A$)1(A$)76830&A$:(A$)10100,10200,10300,10400,10500,106FACT VALUES"::" 4. RETURN TO MAIN MENU"::"INPUT YOUR CHOICE (1-4):";h$JA$:(A$)1(A$)46730$TA$:(A$)15100,15200,15300,150$ >> CHANGE DATA ASSIGNI%:08);"CHANGE DATA ASSIGNMENTS":6:"SELECT DATA TYPE:":" 1. MONSTER DATA":"1:"ARTIFACT ";N%(2)1:X18:0::N%(2)N%(2)1:@#DK$:150U# >> TOGGLE H/Ce#HCHC:150~#, >> CHANGE DEFAULTS#6:12);"CHANGE DEFAULTS":6:"SELECT DEFAULT TO CHANGE:"::" 1. ROOM VALUES"::" 2. MONSTER VALUES"J$@:" 3. ARTI" === INCREMENT<"C$"INCRMNT":500:N%(A)N%(A)1:6000M"LKLK:6000f"d >> GEN. DUMMY ART.l"n"x"NBR ART. TO GEN:";NA"A1NA:DK$"WRITE EAMON.DESC,R";N%(2)101:"YOU SEE ARTIFACT ";N%(2)1;"."2#DK$"WRITE EAMON.ARTIFACTS,R";N%(2)!6:958:"ALL DEAD BODIES (Y/N):";D!A$:A$"Y"A$"N"6110v!A$:A$"Y"AN%(2)1:M1:LAAN%(4)1:34500!"MONSTER NUMBER TO START ON:";M!AN%(2)1:LAAN%(4)M!34500!8 >> DELETE!BC$"DELETE":500:N%(A)N%(A)1!L6000DEFAULTS"::" 8. CHANGE DATA ASSIGNMENTS"::" 9. LOAD/SAVE CUSTOMIZED PARAMETERS"} :"INPUT YOUR CHOICE (1-";SF;"):"; S$:S$(13)ĺ:150 (S$)1(S$)SF6045 :(S$)6100,6200,6300,6400,6500,6600,6700,6800,6900  >> GEN. DEAD&2. DELETE LAST R,A,E,M":=" 3. ADD TO NBR OF R,A,E,M":{" 4. TOGGLE LOCK MODE (NOW ";("OFFON",LK31,3LK);")":" 5. GENERATE DUMMY ARTIFACTS":" 6. TOGGLE PRINTER (NOW ";("OFFON",HC31,3HC);")":SF76040U :" 7. CHANGE 20000:RECNC200:18000 1506 >> DUP. MONSTERr"NOFROM:24000:RECNO300:20000:RECNC300:NONC:1430p >> SPECIAL FUNCTIONSu:SF9::" SELECT FUNCTION OR PRESS ":::DV6SF6z" 1. GENERATE DEAD BODIES":" OM ANOTHER.":N%(TYPE)N%(TYPE)1>TYPE5100,5200,5300,5400Q >> DUP. ROOMNOFROM:RECNO:21000:20000:RECNC:NONC:1130P >> DUP. ART.ZNOFROM:RECNO100:22000:20000:RECNC100:NONC:1230 >> DUP. EFF.NOFROM:RECNO200::1220 >> REPLACE EFFECT8700:RECNO200:1320Q0 >> REPLACE MONSTERk:700:RECNO300:1420~ >> DUPLICATEC$"DUPLIC.":500:TYPEAC$"DUP. FROM":700:FROMNO:C$"CREATE":700:NCNO NON%(TYPE)ĺ"CREATING A ";T$(TYPE);" FRS"::V$:" (PRESS ANY KEY TO CONTINUE) ";:16368,0:B$::(37)1:958\jt >> REPLACE ITEMC$"REPLACE":500:TYPEATYPE4100,4200,4300,4400 >> REPLACE ROOM700:1120h >> REPLACE ARTIF.r700:RECNO100G ";::A$;"S":::34,2:A1N%(TYP):DK$;"READ ";F$;",R";A:NA$:DK$:A$;"#";A;": ";::NA$:~ LPLP1:LP1930HCİ3600 A:DK$;"PR#0" :"PRESS ANY KEY TO RETURN TO MENU";:A$:::150 >> PAGE BREAKLP0:HCĺ(12);"LISTING ";A$;"āX1(DE$)40:(DE$,X,40):LPLP1:< HCĺDE$:LPLP1_ ::LPLP1:LP1235HCİ3600r* A:DK$;"PR#0"4 :"(HIT ANY KEY TO RETURN TO MENU) ";:A$:::150H F$"EAMON.MONSTERS":A$"MONSTER":3500 >> LIST STUFF_ ::LP0:"LISTIN:A$::150 HCĺDK$;"PR#1"= TYPE3100,3200,3300,3400g F$"EAMON.ROOM NAMES":A$"ROOM":3500 F$"EAMON.ARTIFACTS":A$"ARTIFACT":3500 ::LP0:"LISTING ";:A$"EFFECT"::A$;"S":::34,2:A1N%(TYPE):RECA200:20000:A$;" #";A& HC 1230 >> EDIT EFFECT@ 700:RECNO200:20000:1330V` >> EDIT MONSTER~j 700:RECNO300:24000:20000:1430 >> LIST THINGS  C$"LIST":500:TYPEA:N%(TYPE)0ĺ::"NONE OF THAT TYPE TO PRINT!":::"(HIT ANY KEX TO CONTINUE) ";-NM = MONSTER CARRYING IT"M6&/AL$(D);" : ";:I2$(AD%(D)):600:AD%(D)(I$)h6+/D2PTAD%(2)İ12300n60/t6:/6/D112250,12290,12290,12290,122606/122906/X0DT2:" ";X;" = ";TYP$(X);:XDTĺ22);X1;" = ";TYP$(X1)6/::%7/"1=AXON:"::I$::DE$I$:J5/D1AF4:D2(DAF2AD%(2)1AD%(2)4)İ12200]5/D2PTAD%(2)|5!/AL$(D)"(NOT USED)"120805$/DAFĭFMP%(AD%(2))0120806%/D4ĺ"+100 = INSIDE ARTIF. +200 = EMBEDDED":"+300 = HIDDEN IN ROOM +400 = BURIED":"-2 > 4.:"ENTERING ARTIFACT ";NO:I2$NA$::"ENTER ARTIFACT NAME:"y4." ";:600:(I$)39Ģ3:20:"TOO LONG!":I2$I$:12204.3:958:"ARTIFACT NAME:":" ";::I$::NA$I$:6:I2$DE$5/"ARTIFACT DESCRIPTION:":I2$DE$:600:6:958:"ARTIFACT DESCRIPTINNECTION, NEGATIVE NUMBER FOR UNUSUAL THINGS.)";3/+D1ND34+"MOVE ";DD$(D);"...";:I2$(RD%(D)):600:RD%(D)(I$):RD%(D)(RD%(D))(RD%(D))I$Ģ(37):110603H+:"LIGHT (0 = NONE; 1 = NORMAL) ";:I2$(LT):600:LT(I$):3. >> EDIT ARTIFACT?":I2$I$:11020J2+3:958:"ROOM NAME:":" ";::I$::NA$I$:6:I2$DE$2 +"ENTER ROOM DESCRIPTION:":600:6:958:"ROOM DESCRIPTION:"::I$::DE$I$:/3*+13:958:"FOR EACH DIRECTION,GIVE THE ROOM THAT THIS ROOM CONNECTS TO (USE ZERO FOR NO CO4:"FIELD ";XAF;" LABEL:";:I2$"":600:FML$(NF,X)I$:"DEFAULT DATA:";:I2$"0":600x1)((I$))32765FD%(NF,X)(I$)~1)1)68001* >> EDIT ROOM1+:"ENTERING ROOM ";NO::I2$NA$:"ENTER ROOM NAME:"2 +" ";:600:(I$)39Ģ3:20:"TOO LONG!T2ĺ"TRY AGAIN, FROGFACE.":10520;0")X(A$):XDT26800z0,):"NEW TYPE:";:I2$TY$(X):600:I$""XDTDTDT1:1050006)I$""1500@)XDT1DTDT1:TY$(DT)I$:1500J)TY$(X)I$0^)105000h) === ADD A FORMAT ===0r)6:958T1|)NFNF1:X1K/("DEFAULT DATA: ";:I2$(FD%(F,X)):600:((A$))32765FD%(F,X)(I$)Q/([/(6800o/) >> ART TYPES/):X0DT:" ";X;". ";TY$(X)::" ";DT1;". NEW TYPE":" ";DT2;". RETURN TO PREVIOUS MENU""0)"INPUT TYPE NUMBER:";A$:(A$)0(A$)D;:"): ";A$:(A$)0(A$)NFĢ(37):10340C.n(FMP%(X)(A$):6800_.( === CHANGE FORMAT ===.(6:958:"INPUT FORMAT NUMBER:";.(A$:A$"1"A$(NF)10420.(A$:F(A$)/(6:958:X14:"FIELD ";AFX;" LABEL:";:I2$FM$(F,X):600:FM$(F,X)I$6:958:"FOR WHICH ARTIFACT TYPE:":X0DT:" ";X;" = ";TY$(X);("..................................",1,20(TY$(X))((TY$(X))20));FM%(X):-P("INPUT NUMBER 0 - ";DT;:":";A$-Z((A$)DTY(A$)0Ģ(37):10320-_(X(A$)+.d("NEW POINTER (0-";NFOUS MENU"Z,'"INPUT FIELD NUMBER:";A$:(A$)1(A$)AF2ĺ"TRY AGAIN, FROGFACE.":10220o,'(A$)AF26800,'X(A$)::"NEW LABEL:";A$:A$""XAFAFAF1:10200,(A$""150, (AL$(X)A$:XAFAFAF1,2(10200,<( === CHANGE FPTR ===-F(10120+'(A$)MF26800T+'X(A$)::"NEW LABEL:";A$:A$""XMFMFMF1:10100c+'A$""150~+'M$(X)A$:XMFMFMF1+'10100+' >> ARTIF. DATA ASSIGN ,':X1AF:" ";X;". ";AL$(X)::" ";AF1;". NEW FIELD":" ";AF2;". RETURN TO PREVIM%(X)::DT:X0DT:TY$(X)::DK$;"CLOSE ";A$7*z150Q*t' >> MON. DATA ASSIGN*~':X1MF:" ";X;". ";M$(X)::" ";MF1;". NEW FIELD":" ";MF2;". RETURN TO PREVIOUS MENU"+'"INPUT FIELD NUMBER:";A$:(A$)1(A$)MF2ĺ"TRY AGAIN, FROGFACE.":TERS FILE:"::" ===> ";A$R)4(A$,1)"?"ĺDK$;"CATALOG";(A$,2)::A$:7200)>DK$;"OPEN ";A$:DK$"WRITE ";A$:AF:X1AF:AL$(X)::X1AF:DA%(X)::NF:F1NF:X14:FM$(F,X)::.*HF1NF:X14:FD%(F,X):::MF:X1MF:M$(X)::X1MF:DDK$"READ ";A$:AF:X1AF:AL$(X)::X1AF:DA%(X)::NF:F1NF:X14:FM$(F,X)::(F1NF:X14:FD%(F,X):::MF:X1MF:M$(X)::X1MF:DM%(X)::DT:X0DT:TY$(X)::DK$;"CLOSE ";A$(150(  >> SAVE PARAM)*6:958:"NAME OF PARAME200,150'X >> QUITD'bDK$;"WRITE EAMON.DESC,R0":T14:N%(T):U'lDK$;"CLOSE"b'v216,0:v' >> LOAD PARAM'6:958:"NAME OF PARAMETERS FILE:"::" ===> ";A$'(A$,1)"?"ĺDK$;"CATALOG";(A$,2)::A$:::7100V(DK$;"OPEN ";A$:):D$"CLOSE"AN EDIT PROGRAM7 BY JOHN NELSON=q ADAPTED FROM DON BROWN'S DUNGEON EDIT THIS PROGRAM ADDS AND MODIFIES SIX AND TEN DIRECTION DUNGEONS. REV. 10/15/89 (4);"MAXFILES 7":SL$(),01Eފ MONSTER#,0,KEY#,0,GUARD#,0,(NOT USED),07E<E`"FOUND AN ERROR - CODE ";(222):"ON LINE # ";(218)(219)256:(222)10ĺ"CAN'T SAVE FILE - LOCKED.": FHD$(4):D$"OPEN EAMON.DESC,L256":D$"WRITE EAMON.DESC,R0":N%(1):N%(2):N%(3):N%(4 COUNTER,999,(NOT USED),0,(NOT USED),0,(NOT USED),0,CHANCES,100,HEAL AMT,6,NBR USES,5,(NOT USED),0Dz 1ST EFF.,1,#EFFECTS,1,READABLE,1,(NOT USED),0,ROOM BEYOND,1,KEY#,99,STRENGTH,999,(NOT USED),0E (NOT USED),0,(NOT USED),0,(NOT USED),0,(NOT USEDeCNF:FMP%(DT5),FML$(DT5,4),FD%(DT5,4):X0DT:FMP%(X)::X1NF:F14:FML$(X,F),FD%(X,F):kCsC 8C 0,0,1,1,2,3,4,5,6,7,8: FORMAT POINTERSC ODDS,10,W.TYPE,3,DICE,1,SIDES,4,KEY#,99,STRENGTH,100,(NOT USED),0,(NOT USED),0cDH DEFAULT ROOM NUMBERSGBMF12:M$(MF5),M%(MF5):M1MF:M$(M):B숃 HD,AG,FRIEND,COUR,ROOM,WEIGHT,DEF.ODDS,ARMOUR,WEAPON#,OFF.ODDS,W.DICE,W.SIDESBDM%(MF5):M1MF:DM%(M):C 16,16,0,100,0,150,0,0,0,50,1,4: MONSTER DEFAULTSF4CX),AD%(AF4CX):T1AF:AL$(T):DAˈ VALUE,TYPE,WEIGHT,ROOMZÄT1AF:DA%(T):Aш 50,1,5,0: ARTIFACT DEFAULTSAֈD110:DD$(D):A؈ N ,S ,E ,W ,U ,D ,NE,NW,SE,SWAۈT110:DD%(T)::DLB 0,0,0,0,0,0,0,0,0,0,1:31200:@150(@ === SETUP DATA A@ˆCX5:T14:T$(T):a@È ROOM,ARTIF,EFFECT,MONST@LjDT:TYP$(DTCX):T0DT:TYP$(T):@Ȉ 10,GOLD,TREASURE,WEAPON,MAG WEAPON,CONTAINER,LIGHT,HEALING,READABLE,DOOR/GATE,KEY,BOUND MONSTER&AʈAF4:AL$(A")4):X$H?؆NA$"DEAD "A$:DE$"YOU SEE THE DEAD BODY OF "THE$A$"."?↭(DE$)40ĭ(DE$,41,1)" "DE$(DE$,25):S2640:DE$DE$" "::DE$DE$THE$A$"."?熁X21AF4:AD%(X2)0::AD%(2)1:AD%(3)MD%(6)?RECX100:NOX:18000:N%(2)N%(2)1 @ DEADR>ΆXALA:DK$;"READ EAMON.MONSTERS,R";M:A$:X216:MD%(X2)::DK$:MM1>ӆ6:958:" 1. THE DEAD BODY OF ";A$::" 2. THE DEAD BODY OF THE ";A$::"CHOOSE THE CORRECT PHRASE (1-2):";>ֆX$:X$"1"X$"2"34518 ?׆THE$("THE ",1,(X$"2D:RD%(D)::LT:DK$=y.=y >> WRITE ART.y=yDK$;"WRITE EAMON.ARTIFACTS,R";NO:(34);NA$;(34):D1AF4:AD%(D):=yDK$:=z >> WRITE MONSTER=zDK$;"WRITE EAMON.MONSTERS,R";NO:(34);NA$;(34):M1MF:M%(M)::DK$=z>Ć === GENERATE%(X)::DV5AD%(2)1āX58:AD%(X):1<VDK$:G<] >> READ MONSTER<]DK$"READ EAMON.MONSTERS,R";NO:NA$:D1MF:M%(D):<^DK$:<|y >> WRITE ROOM> READ ROOM;RDK$;"READ EAMON.ROOM NAMES,R";NO:NA$:DK$;"READ EAMON.ROOMS,R";NO:D1ND:RD%(D):;RLT1:DV5ĄLT;&RDK$:;U >> READ ART.&> CHG DEF. ART.:;:"INPUT NEW DEFAULT VALUES FOR ALL FIELDS.":D1AF:AD%(D)DA%(D)::12050:D1AF:DA%(D)AD%(D)::;150:PF >> WRITE DESC:ZFDK$;"WRITE EAMON.DESC,R";REC:(34);DE$;(34):DK$:: N >> READ DESC';*9: >> CHG DEF. ROOM^9;:"INPUT DEFAULT VALUES DESIRED.":D1ND:RD%(D)DD%(D)::110559;D1ND:DD%(D)RD%(D)::DLLT9;1509`; >> CHG DEF. MONST. :j;:"ENTER NEW DEFAULT VALUES FOR EACH FIELD.":D1MF:M%(D)DM%(D)::14040:D1MF:DM%(D ";NO::I2$NA$:"ENTER NAME:";:600:I$""(I$)301401086NA$I$::"ENTER DESC--":I2$DE$:600:DE$I$::"MONSTER # ";NO;" ";::NA$::86M1MF86"ENTER ";M$(M);": ";:I2$(M%(M)):600:M%(M)(I$):(M%(M))I$ĺ(7):(37):140508696E, 2=BOW, 3=MACE, 4=SPEAR, 5=SWORD":+70V7 0X14:AL$(XAF)FM$(FMP%(AD%(2)),X):70X14:AD%(AFX)FD%(FMP%(AD%(2)),X):7f072 >> EDIT EFFECT72:"ENTER EFFECT #";NO:I2$DE$:600:DE$I$::76 >> EDIT MONSTER:86:"ENTERING MONSTER #E ";AN$(A%(4)100);"]";YA24A%(4)300A%(4)300NRĺ" [HIDDEN ";R$(A%(4)300);"]";w:A2:FMP%(A%(2))03740.A258:A$(A2)"(NOT USED)"3740BLPLP1:MRG);" ";A$(A2);(PR$,1,10(A$(A2)));(PR$,1,6((A%(A2))));A%(A2);]tA26(A% A22ĺ" [";TYP$(A%(2));"]";:3580T A24A%(4)0A%(4)NRĺ" [";R$(A%(4));"]"; A24A%(4)0A%(4)NM1ĺ" [CARRIED BY ";MN$((A%(4))1);"]"; A24A%(4)200A%(4)200NRĺ" [";R$(A%(4)200);"]";A24A%(4)100A%(4)100NARĺ" [INSIDMRG);"ARTIFACT # ";R;" [";AN$(R);"]":LPLP2:" ":D$;"READ EAMON.DESC,R";100R:A$:MRG);"DESC: ":8000:" " A214:LPLP1:MRG);" ";A$(A2);(PR$,1,10(A$(A2)));(PR$,1,6((A%(A2))));A%(A2); A22A%(2)10ĺ" [SPECIAL CATEGORY]";:3580#0:5 D$"CLOSE EAMON.ARTIFACTS":D$:D$"PR#0":100 D$;"READ EAMON.ARTIFACTS,R";R:X$:A14:A%(A)::DV5A%(2)1āA58:A%(A): A%(2)DTāX14:A$(AFX)"FIELD "(AFX)::3520 FMP%(A%(2))0āX14:A$(AFX)FL$(FMP%(A%(2)),X):n ACT:";EN$:EN$""EN$(NA):22:8:EN$J (BEG$)NA(BEG$)1BEG$"1"r (EN$)NA(EN$)(BEG$)EN$(NA) BEG(BEG$):EN(EN$) D$"OPEN EAMON.ARTIFACTS,L128" PRTĺD$"PR#";PS :(12);(SIZ(ADV$))2);ADV$:::LP3:RBEGEN:350);(SIZ(ADV$))2);ADV$:LP1`zPRTĺ::" PRESS ANY KEY TO CONTINUE ";::A$::uA$(27)ġ:100{ /// LIST ARTIF. 6:958:"BEGINNING WITH ARTIFACT:";BEG$:BEG$""BEG$"1":6:25:BEG$' 8:958:"ENDING WITH ARTIFLP2:D$;"READ EAMON.ROOMS,R";R:D1ND:DR%(D):RD1ND:LPLP1:MRG);" ";DD$(D);": ";(DR%(D)0)((DR%(D))10));DR%(D);5)\DR%(D)99ĺ"[EXIT]";:2160fDR%(D)0(DR%(D))NRĺ"[";R$((DR%(D)));"]";p:D:D$:LP(48ND)PRTĺ(12R#";PSE*:(12);(SIZ(ADV$))2);ADV$:::LP3:RBEGEN:2100:s/D$"CLOSE EAMON.ROOMS":D$:D$"PR#0":1004:MRG);"ROOM # ";R;" [";R$(R);"]"::MRG);"DESC:":LPLP4:D$;"READ EAMON.DESC,R";R:A$:80002H:MRG);"DIRECTIONS MOVED IN--":LPINNING WITH #:";BEG$:BEG$""BEG$"1":6:18:BEG$n8:"ENDING WITH #:";EN$:EN$""EN$(NR):8:15:EN$(BEG$)NR(BEG$)1BEG$"1"(EN$)NR(EN$)(BEG$)EN$(NR)BEG(BEG$):EN(EN$) D$"OPEN EAMON.ROOMS,L64" PRTĺD$"P,5000,6000,7000 130H DR$""DV4:DR$"6":216,0:D$;"CLOSE":35a DV5:D$;"CLOSE":35{  /// SET UP PRINTER 6:958:"WHAT SLOT IS PRINTER IN?"; A$:A$"1"A$"7"1020 A$:PS(A$):100  /// LIST ROOMS36:958:"BEG2. LIST ROOMS":" 3. LIST ARTIFACTS":" 4. LIST EFFECTS" " 5. LIST MONSTERS":" 6. TOGGLE PRINTER (NOW ";("OFFON",PRT31,3PRT);")":" 7. QUIT":"INPUT YOUR CHOICE (1-7):"; A$:A$"1"A$"7"145 A$:CH(A$) CH1000,2000,3000,4000":R1NM:D$"READ EAMON.MONSTERS,R";R:MN$(R)::D$"CLOSE EAMON.MONSTERS"U cSIZ40l d /// MAIN ROUTINE n:12);"EAMON DUNGEON LIST":14);"BY JOHN NELSON":(40(ADV$))21);::ADV$:: 8:"SELECT ACTION DESIRED:":" 1. SET UP PRINTER":" EN EAMON.ROOM NAMES,L64"M ZR1NR:D$;"READ EAMON.ROOM NAMES,R";R:R$(R):m \D$"CLOSE EAMON.ROOM NAMES" _D$"OPEN EAMON.ARTIFACTS,L128":R1NA:D$"READ EAMON.ARTIFACTS,R";R:AN$(R)::D$"CLOSE EAMON.ARTIFACTS":D$J bD$"OPEN EAMON.MONSTERS,L128Y ...";:16368,0:A$:! 200m :D$;"OPEN EAMON.NAME":D$;"READ EAMON.NAME":ADV$:DR$,DV:D$;"CLOSE"x #216,0 (ND(DR$) 2D$"OPEN EAMON.DESC,L256":D$;"READ EAMON.DESC,R0":NR,NA,NE,NM:D$ <35000 FR$(NR),AN$(NA),MN$(NM) XD$"OP LIST DUNGEON- VERSION 6.0E BY JOHN NELSONKQWj REV. 5/3/89  (4);"MAXFILES 5" D$(4)::5:" LISTING A DUNGEON DESIGN FOR EAMON"::" INSERT DISKETTE WITH DUNGEON, THEN"::" PRESS ANY KE          EXT":C1F$"PLAYERS MANUAL.TEXT"W 2A$::"HIT 'P' TO USE PRINTER, 'V' FOR VIDEO ";s <A$:A$"P"A$"V"60 FA$:A$"P"İ500:100 PLL39 ZSU1:///CHANGE TO 0 IF YOU HAVE THE PAYMAR CHIP! d:DK$;"OPEN ";F$ nI0$"" xDK$;"READ ";DK$(4):C3232  1000:5::11:"EAMON MANUAL PRINTER"::::"HIT KEY FOR MANUAL TO PRINT--"::" 1. PLAYER'S MANUAL"::" 2. DUNGEON DESIGNER'S MANUAL"::::"(HIT '1' OR '2') ";A$:C(A$):C1C230" (F$"DDD MANUAL.T 1ST EFFECT,# EFFECTS,READABLE,(NOT USED)T#B ROOM INTO,KEY#,STRENGTH,(NOT USED)#L (NOT USED),(NOT USED),(NOT USED),(NOT USED)#V MONSTER#,KEY#,GUARD#,ATTACHED#<A EAMON"::" INSERT DISKETTE WITH DUNGEON, THEN"::" PRESS ANY KE4:FL$(X,F):/":PR$"...................."5">" 8Z"ފ 0,0,1,1,2,3,4,5,6,7,8x" ODDS,W.TYPE,DICE,SIDES" KEY#,STRENGTH,(NOT USED),(NOT USED)"$ COUNTER,(NOT USED),(NOT USED),(NOT USED)". CHANCES,HEAL AMT,NBR USES,(NOT USED)+#8EY,BOUND MON."!A1AF:A$(A):@!Ɖ VALUE,TYPE,WEIGHT,ROOM!䉃 NORTH ,SOUTH ,EAST ,WEST ,UP ,DOWN ,NORTHEAST,NORTHWEST,SOUTHEAST,SOUTHWEST!HD110:DD$(D):"zNF:FMP%(DT),FL$(DT,4):X0DT:FMP%(X)::X1NF:F1M$(MF),M%(MF):M$(0)"ADVENTURER":M1MF:M$(M):  HARD,AGIL,FRIEND,COUR,ROOM,WGHT,D.ODDS,ARMOUR,WEAPON#,O.ODDS,W.DICE,W.SIDES DT:TYP$(DT):X0DT:TYP$(X): 10 ! GOLD,TREASURE,WEAPON,SP.WEAPON,CONTAINER,LIGHT,HEAL,READABLE,DOOR,KMRG10:SIZ80$PRTMRG0:SIZ40-100=X /// QUITXbD$"CLOSE":D$"PR#0":h@PRTĺA$:JAZ1(A$)40:MRG);(A$,AZ,40):LPLP1::LPLP1: >>> READ DATÄAF:MFꈃ 4,12: AF = # ARTIF FIELDS, MF = # MONST FIELDS3 ;5M29M%(9)0M%(9)N%(2)ĺ" [";AN$(M%(9));"]";C:M2:D$wLP36PRTLP0:(12);(SIZ(ADV$))21);ADV$:PRTĞ:7);"PRESS ANY KEY TO CONTINUE";6);:A$:::A$(27)ġ:100:p /// TOGGLE PRINTERzPRTPRT PRT(M$(M2)));(PR$,1,6((M%(M2))));M%(M2);LM23M24M27M210ĺ" %";}M25M%(5)0M%(5)NRĺ" [";R$(M%(5));"]";M29M%(9)1ĺ" [ NO WEAPONS ]"M29M%(9)0ĺ" [ NATURAL WEAPONS ]";M29M%(9)0M%(9)NARĺ" [";AN$(M%(9));"]".MONSTERS":D$:D$"PR#0":100$| D$;"READ EAMON.MONSTERS,R";R:MN$:M2112:M%(M2)::D$;"READ EAMON.DESC,R";R300:A$MRG);"MONSTER # ";R;" [";MN$;"]":" ":MRG);"DESC:":8000:" ":LPLP4+M2112:LPLP1:MRG);" ";M$(M2);(PR$,1,10(NM):8:15:EN$4(BEG$)NM(BEG$)1BEG$"1"\(EN$)NM(EN$)(BEG$)EN$(NM)vBEG(BEG$):EN(EN$)D$"OPEN EAMON.MONSTERS,L128"PRTĺD$"PR#";PS:(12);(SIZ(ADV$))2);ADV$:::LP3:RBEGEN:5500:D$"CLOSE EAMON;ADV$:LP1LP500ıkD$::PRTĞ:7);"PRESS ANY KEY TO CONTINUE";7);:A$::::A$(27)ġ:100q /// LIST MONSTERS6:958:"BEGINNING WITH #:";BEG$:BEG$""BEG$"1":18:6:BEG$8:958:"ENDING WITH #:";EN$:EN$""EN$N$)(BEG$)EN$(NE)/BEG(BEG$):EN(EN$)DPRTĺD$"PR#";PSm:LP500:4525:RBEGEN:4500::D$D$"PR#0":100MRG);"EFFECT #";R;":"::LPLP2D$;"READ EAMON.DESC,R";R200:A$:8000 LP48PRTĺ(12);(SIZ(ADV$))2)/// LIST EFFECTSCNE0ĺ"NO EFFECTS TO PRINT.":I1750:I:1006:958:"BEGINNING WITH #:";BEG$:BEG$""BEG$"1":18:6:BEG$8:958:"ENDING WITH #:";EN$:EN$""EN$(NE):15:8:EN$(BEG$)NE(BEG$)1BEG$"1"(EN$)NE(E(2)2A%(2)3)ĭA%(A2)1A%(A2)5ĺ" [";(" AXE BOW CLUB SPEARSWORD",(A%(6)1)51,5);"]";g:A2LP36PRTLP0:(12);(SIZ(ADV$))21);ADV$D$::PRTĞ:7);"PRESS ANY KEY TO CONTINUE";7);::A$::A$(27)ġ:100 NC:C$(C);20(C$(C)));::::210@C$(C)S$S$V$:V$C$(C)"C3000,3000,3000,3000,3000,3000,4000,4000,5000,6000,6000,7000,8000,9000,10000,11000,12000,13000,14000,15000,15000,16000,23000,17000,18000,19000,20000,21000,22000,24000, /// COMMAN" "Ă#V$(A$,A1):S$(A$,A1)D(S$,1)" "S$(S$,2):260gC1ND:(C$(C),(V$))V$290:F0:A7NC:C$(A)V$CA:290(C$(A),(V$))V$FF1:CA:F1275:F290#:"HUH? I ONLY UNDERSTAND THESE COMMANDS-- ";:C1"EXITS ARE ";:X1ND:RD%(X)0RD%(X)NRĺC$(X);", ";:C1V :Cĺ"NON-EXISTANT";i (8);(8);"." ::" YOUR COMMAND?";A$:LP3 (A$,1)" "A$(A$,2):220 A$""A$CZ$:(37):16:A$ A$""275CZ$A$:A2(A$):(A$,A,1)1::LPLP2:910 9 A1NZ:AD%(A,4)ROOMĂ:190c AD%(A,9)ĺ"YOU SEE ";AN$(A);".":920 AD%(A,9)ĺDK$;"READ EAMON.DESC,R";A100:A$:DK$:A$:AD%(A,9)1:925 AANA:AD%(A,4)ROOMĺ"YOUR ";AN$(A)" IS HERE.":930 ; C0:,R";ROOM:A$:DK$:A$::V%(ROOM)V%(ROOM)1:LPLP2:910[ M1NM:MD%(M,5)ROOMĂ:170 MD%(M,15)1ĺMN$(M);" IS HERE."::930 MD%(M,15)2ĺMN$(M);" IS LYING HERE."::930 MD%(M,15)ĺDK$;"READ EAMON.DESC,R";M300:A$:DK$:A$:MD%(M,15)%(0,2)MD%(0,2)2:MD%(0,10)MD%(0,10)2MD%(0,2):"YOUR SPEED SPELL HAS JUST EXPIRED!":925m }LTİ99:210 VZ((V%(RO)2)(V%(RO)2)):VZĺDK$;"READ EAMON.ROOM NAMES,R";ROOM:A$:DK$:"YOU ARE ":" ";A$::LPLP3:9108 VZĺDK$;"READ EAMON.DESC2216,0:10005 Z:"I DON'T UNDERSTAND.":925:100` [:"YOU AREN'T CARRYING IT.":925:100t \:"OKAY.":920 ]:"THAT'S NOT WHAT YOU DO WITH IT.":925:100 c:"IT'S TOO DARK TO SEE.":920 d = MAIN = n925[ xSPDSPDSPD1:SPDMDN EAMON ADVENTURE #NN8 NAME OF ADVENTURE>X BY AUTHOR NAME ^u VERSION 6.26/8/90 EAMON ADVENTURER'S GUILD 7625 HAWKHAVEN DR. CLEMMONS, NC 27012  50DK$(4):DK$"VERIFY GAME.PTRS":29000                          S ANY KEY TO CONTINUE";7);:A$::? 4!::L1);ADV$;L2)::E >! >> PRINT DESCRIPTION/ n::L1);ADV$;L2): x ................................. PUT YOUR DESCRIPTION IN THESE LINES: 120-4999 ................................. :"GOOD LUCK, ";NAME$;".":D$"RUN MAIN PGM"# @24::7);"PRESG LEADIN PROGRAM1 BY JOHN NELSON7> L D$(4):D$"OPEN FRESH MEAT":D$"READ FRESH MEAT":REC:NAME$:D$"CLOSE"D$"OPEN EAMON.NAME":D$"READ EAMON.NAME":ADV$:D$"CLOSE"(L1((40(ADV$))2):L240(ADV$)L1 d   0 OTHERWISE,":"AND SET LL TO YOUR LINE WIDTH LESS ONE.":"LINE WIDTH MUST BE AN EVEN MULTIPLE OF":"40, SO LEGAL LLS ARE 39,79,139,ETC." :"FINALLY, YOUR ROUTINE MUST DO A 'RETURN'": :DK$;"CLOSE" 128240 16368,0:120; ///ADD PRINTER ROUTINE HERE "YOU ARE TO ADD A ROUTINE TO ACTIVATE":"YOUR PRINTER IN LINES 500-999. IT MUST":"DO YOUR PR#N (OR EQUIVALENT), SET SU" "TO 1 IF YOUR PRINTER CANNOT ACCEPT":"LOWER-CASE CHARACTERS AND F$:I2$"" A$:A$(13)190> A$"_"SUA$((A$)C32)R I2$I2$A$:130X ~ (I2$,1)" "I0$""ĺI0$:I0$"" I0$""I0$I0$" " I0$I0$I2$:(I2$)39(I0$)LL5ĺI0$:I0$"" (16384)128120 16368,0 (16384)";:A$: 2500g :5:"(INSERT EAMON MASTER DISKETTE, THEN":" HIT THE 'C' KEY) ";:16368,0} A$:A$"C"2520 A$ DIĺDK$;"OPEN THE ADVENTURER":DK$;"DELETE THE ADVENTURER":2900: DK$;"OPEN CHARACTERS,L150":DK$;"WRITE CHARACTER FOR SUCH":"THINGS, HE EXAMINES YOUR GOODS AND":"PAYS YOU ";c TP0:A1NA:AD%(A,4)12350 AD%(A,2)0AD%(A,1)AD%(A,1)CH10$ TPTPAD%(A,1). A:TP;" GOLD PIECES.":8 GOLDGOLDTP:GOLD0GOLD0B :"(HIT ANY KEY TO CONTINUE) ):WP%(W5)WP%(W21):W2W21:W252060.4 K>MD%(0,8)ACMD%(0,8)ACW14:WP%(W)WT%(W)AD%(WP%(W),6):WO%(W)AD%(WP%(W),5):WD%(W)AD%(WP%(W),7):WS%(W)AD%(WP%(W),8)? W::5:"AS YOU DELIVER YOUR TREASURES TO SAM":"SLICKER, THE LOCAL BUYE"TO KEEP THEM ALL--4 IS THE LEGAL LIMIT."::"YOUR WEAPONS AREW1W21:4);W;"--";WN$(W):::"ENTER THE NUMBER OF THE WEAPON TO SELL (1-";W21;") " (37):23:A$:W5(A$):W51W5W21W5(W5)2080&*AD%(WP%(W5),4)1:WN$(W5)WN$(W21:WN$(W)"NONE"::W21:A1NA:AD%(A,2)1AD%(A,2)4AD%(A,4)1WN$(W2)AN$(A):WP%(W2)A:W2W21:AD%(A,4)0~A:W262100? :5:"AS YOU START TO ENTER THE MAIN HALL,":"LORD WILLIAM MISSLEFIRE APPEARS AND":"TELLS YOU, 'YOU HAVE TOO MANY WEAPONS":ST,HEAL,POWER,SPEED,SMILE,WAVE,SAY,READ,READY,SAVE,LIGHT,OPEN,PUT,DRINK,FREEw /// INSERT ADDITIONAL COMMANDS HERE ///DONE:"(HIT ANY KEY TO CONTINUE) ";:16368,0:A$:DK$"CLOSE":SPDMD%(0,2)MD%(0,2)2DIE2500lW14NZ1:MD%(0,11)WD%(1):MD%(0,12)WS%(1):MD%(0,14)3YjNC:C$(NC):C1NC:C$(C)::R21tS14:S2%(S)SA%(S)::V%(NR):ROOM1:ND6l3500v 30L NORTH,SOUTH,EAST,WEST,UP,DOWN,GET,TAKE,DROP,LOOK,EXAMINE,ATTACK,FLEE,GIVE,INVENTORY,BLAA)AN$(A)"#":A00::1090\LA,W2:EA0:MD%(0,8)0:A2(AC2):A22ACMD%(0,8)1:EA5VA2MD%(0,8)MD%(0,8)A2:EAEAA210:A23MD%(0,8)MD%(0,8)2:EAEA303`NANZMD%(0,10)(EAAE)(EAAE)WO%(1)WA%(WT%(1))2MD%(0,2):MD%(0,7)0:MD%(0,9)$;"OPEN EAMON.ROOMS,L64".W214:WN$(W2)"NONE"NANA1:AN$(NA)WN$(W2):AD%(NA,2)2:AD%(NA,3)2:AD%(NA,4)1:AD%(NA,5)WO%(W2):AD%(NA,6)WT%(W2):AD%(NA,7)WD%(W2):AD%(NA,8)WS%(W2)::W248WZW2:WTWWZBW21WZ:A1NAWZ:AN$(A)WN$(W2)AN$($(NW),WT%(NW),WO%(NW),WD%(NW),WP%(NW),WS%(NW):A14:WN$(A),WT%(A),WO%(A),WD%(A),WS%(A)::DK$;"CLOSE" PRINT DK$;"DELETE FRESH MEAT": REM REMOVE 1ST REM WHEN FINISHED TESTING.$DK$;"OPEN EAMON.DESC,L256":DK$;"OPEN EAMON.ROOM NAMES,L64":DKMONSTERS,R";A:MN$(A):A2112:MD%(A,A2)^ :MD%(A,3)0MD%(A,3)(MD%(A,3))1:MD%(A,14)2dDK$;"OPEN FRESH MEAT":DK$;"READ FRESH MEAT":REC:MN$(0),MD%(0,1),MD%(0,2),CH:A14:SA%(A)::A15:WA%(A)::AE,SEX$,GOLD,BANK,ACgNWNW4:WNNANZDK$;"OPEN EAMON.ARTIFACTS,L128":AN$(NA4),AD%(NA4,9):A1NA:DK$;"READ EAMON.ARTIFACTS,R";A:AN$(A):A218:AD%(A,A2):A2AD%(A,2)1AD%(A,2)4NWNW1)A:DK$;"OPEN EAMON.MONSTERS,L128":MN$(NM),MD%(NM,15):A1NM:DK$;"READ EAMON. --- LINE COUNT ROUTINES;LPLP((A$)40)1:940LLPLP1:940R^LPLP2kLP20ı:" (PRESS ANY KEY TO CONTINUE) ";:A$:LP4:: ///INITDK$;"OPEN EAMON.DESC":DK$;"READ EAMON.DESC":NR,NZ,NE,NM:DK$;"CLOSE": OFMNM21NM:MD%(M2,5)ROĭMD%(M2,14)1DFM2:7500:M2200:M2:490TzNBTL(FD%(1)TD%(1)):NBTLM999 /// END OF BATTLE - PUT SPECIAL EVERY-ROUND STUFF HERETTTTTT1: - DECREMENT TEMPORARY TRUCE COUNTER100R2:M2MD%(M,14):TD%(M2)TD%(M2)MD%(M,1):FD%(M2)FD%(M2)MD%(M,13):490]YMD%(M,14)2490r^MD%(M,14)3390hOFM:TD%(3)MD%(0,1)DF0:7500:490rM21NM:MD%(M2,5)ROĭMD%(M2,14)3(1).25DFM2:7500:M2200:M2:490|:DF0:7500:490DS RETURN TO HERE $6NBTLTT500Z@M1NM:MD%(M,5)ROĂ:NBTL(FD%(1)TD%(1)):500oEMD%(M,15)2490JM2MD%(M,14)(MD%(M,14)2):X(41(1)20):XX(X0):MRFD%(M2)TD%(M2)XHTMD%(M,4)MRĺ:MN$(M);" FLEES!":925:8500:R2ROOMMD%(M,5) SUCH AS "YOU FOUND SOMETHING UNDER THE BED"5/LK1G/AD%(A,4)ROOMM/[/X ATTACK/b4900:LTĺ:"YOU SWING WILD --- NOTHING HIT.":300/4700:FO7290: --- ATTACK MONSTER0TA0:20400: --- NOT ATTACKING ANY MONSTER - CHECK FOR ATTA., === EXAM ART A G.6ANZĺ:"THIS IS YOUR ";AN$(A);".":930.rDK$;"READ EAMON.DESC,R";A100:A$:DK$::A$::LK1:AD%(A,9)1:910.. == DISCOVER ARTIFACT A HIDDEN IN ROOM!,/ --- INSERT HERE ANY SPECIAL DISCOVERY MESSAGES ---V%(ROOM)V%(ROOM)1:300/- /// EXAM MONSTERD-RM100:23800:u-d /// EXAM S$ --- PUT SPECIAL EXAMINES HERE{-- == SECRET PASSAGE ==-RD%(X)(RD%(X)):V%(ROOM)2-LKĺ:"YOU FOUND A SECRET PASSAGE ";C$(X);"!":LPLP2:NXNX1."4810:FOĭAD%(A,4)EMBAD%(A,4)ROOM7,FOİ6700:300K,4700:FOİ6300g,FORM100:23800:300x,S$""6250,A1NA:AD%(A,4)300ROİ6800,,8LKĺ:"YOU FOUND SOMETHING.":925:300,LX1ND:RD%(X)0RD%(X)NRİ6600,V-j":LPLP3:5100@+MD%(0,9)0ĭAD%(MD%(0,9),4)1MD%(0,9)1I+300+A1NA:AD%(A,4)1ĺAN$(A);" DROPPED.":AD%(A,4)ROOM:920+:WT0:5060+p ///LOOK+uLTİ99:100+zLK0:S$""6060+6500:LK300$,WHRO:HA1:EMBRO200:O91@*WTWTAD%(A,3):AD%(A,4)ROOM::AN$(A);" DROPPED.":925*ALSLS0:LC0:LM0:LTNL::"THE ";AN$(A);" GOES OUT.":930+WT10MD%(0,1)ĺ"YOU SUDDENLY FIND YOU CANNOT CARRY ALL OF THE ITEMS YOU ARE CARRYING, AND THEY ALL FALL TO THE GROUND.$)(AD%(X,4)WHAD%(X,4)HAAD%(X,4)EMB)FOFO1:AX:S$AN$(X)X9999M)S))$ /// GET S$ IF NOT ALREADY SPECIFIED))S$""ĺ:C$(C);" WHO OR WHAT";:S$:4900).) ///DROP)4900)S$"ALL"5100*WH1:HA1:EM1:4810:F:HA1:EMBRO'(fFO0:SL(S$):X1NM(p((MN$(X),SL)S$(MN$(X),SL)S$)(MD%(X,5)WHMD%(X,5)HA)FOFO1:MX:S$MN$(X)X9999((( >> ARTIF SEARCH(WHRO:HA1:EMBRO(FO0:SL(S$):X1NAG)((AN$(X),SL)S$(AN$(X),SL)S:GT4190H'OWTAD%(A,3)10MD%(0,1)ĺAN$(A);" CAN'T BE MOVED.":4190'TAN$(A)" TAKEN.":LPLP1:AD%(A,4)1:WTWTAD%(A,3)'^::300'h /// INSERT HERE SPECIAL EFFECTS OF PICKING SOMETHING UP'rGT1''\ >>> MONST SEARCH (aWHRO10:FO90&"4200:GT100]&'WTAD%(A,3)10MD%(0,1)ĺ:"YOU CAN'T BUDGE IT!":925:100&,:"GOT IT.":LPLP2:AD%(A,4)1:WTWTAD%(A,3)::(AD%(A,2)2AD%(A,2)3)MD%(0,9)117100&6300&@:A1NA:AD%(A,4)ROOMAD%(A,2)104190 'J420010)2)L%LMD%(M,14)1:FR(100(1))MD%(M,14)2:FR(100(1))MD%(M,14)3%VAMD%(M,14):FD%(A)FD%(A)MD%(M,13):TD%(A)TD%(A)MD%(M,1)%<:NBTL(TD%(1)0):% ///GET%4900:LTİ99:100%S$"ALL"4160 &EMBROOM200:WHROOM:HARO:48ECK MONSTER REACTIONSL$TD%(1)0:TD%(3)MD%(0,1):FD%(1)0:FD%(3)MD%(0,13)X$$M1NM$)MD%(M,5)R3ĭMD%(M,14)3(MD%(M,14)1200(1)MD%(M,4))MD%(M,5)ROOM:3670$.MD%(M,5)ROOM3900$8MD%(M,14)3670%BFRMD%(M,3):FRFR100FRFR((CHT WAY!":LPLP2:V%(ROOM)0:100-# >> GOG# R3ROOM:ROOMR2:3600# DK$;"READ EAMON.ROOMS,R";ROOM:NX0:X1ND:RD%(X):RD%(X)0RD%(X)NRV%(ROOM)1RD%(X)(RD%(X))# RD%(X)0RD%(X)NRNXNX1# :NL:DK$:LTNLLM#100$ /// CH0" R23490A"l /// INSERT HERE SPECIAL ROOM MOVE CHECKINGK" 3490j" /// GATE / DOOR PRESENT" GTR2100:AD%(GT,7)0AD%(GT,6)0AD%(GT,4)ROOMR2AD%(GT,5):3040" :"THE ";AN$(GT);" BLOCKS THE WAY!":930:100# :"YOU CAN'T GO THAIN HALL"! ///MOVE`! NBTLĺ:"YOU CAN'T DO THAT WITH UNFRIENDLIES ABOUT!":925:100h! DC! R2RD%(D):R2100R22003300! R20R2NR3500! /// SPECIAL MOVES" R299ĺ:"YOU SUCCESSFULLY RIDE OFF INTO THE":" SUNSET.":200RS,R";REC:MN$(0):MD%(0,1):MD%(0,2):CH:A14:SA%(A): A15:WA%(A)::AE:SEX$:GOLD:BANK:AC:A14:WN$(A):WT%(A):WO%(A):WD%(A):WS%(A): DK$;"OPEN THE ADVENTURER":DK$;"WRITE THE ADVENTURER":MN$(0):REC:DK$;"CLOSE"!T DK$;"RUN MA?* /// BLAST?+49000?+4700:FO11100I? +S1:11500:SUC300~?*+:"DIRECT HIT!"::S5:D2:DFM:A0:7635::300?\+ /// BLAST DOOR/GATE OR CONTAINER??f+TA1:20400 @,SUC0:SA%(S)RL(100(1)1):SUC(((RLS2%(S))(RL5))(RL95)):R(>&M$""Ą"WHO TO GIVE TO? ";M$:9900N>&A$""Ą"WHAT TO GIVE? ";A$:9910T>&e>' /// INVEN>':"YOU ARE CARRYING THE FOLLOWING--":A1NA:AD%(A,4)1ĺ" ";AN$(A);(" (READY WEAPON)",120(AMD%(0,9))):920?j':" ";GO;" GOLD PIECES.":300:MD%(M,4)2MD%(M,4),=#R3ROOM:3600:5050D=# /// GIVE A TO MJ=$]=%(S$)GOLD91=D%GOLD(GOLD(S$)):MD%(M,0)MD%(M,0)((S$)):MD%(M,14)0:MD%(M,3)100MD%(M,3)MD%(M,3)(1(S$)100)=N%9120=% /// INSERT SPECIAL GIVE EFFECTS>%THAT NAME!":100(!NX0R2ROOM:" ... BUT CAN'T FIND AN EXIT!":::H!R2RD%(ND(1)1):R21R2NR8510:R!:(# ///GIVE;2#A0:M0:M$"":A$"":S$""İ9900:90AD%(MD%(DF,9),4)ROOM:MD%(DF,10)MD%(DF,10)AD%(MD%(DF,9),5):MD%(DF,9)1:MD%(DF,4)MD%(DF,4)2v9<DF0DIE1:20009FA2DFNZNM:AD%(A2,4)RO9:9@ ///FLEE9JNBTLĺ:"THERE'S NOTHING TO FLEE FROM!"::100:TX1ND:S$(C$(X),(S$)) INJURED.":920N8" IS AT DEATH'S DOOR,":" KNOCKING LOUDLY.":LPLP1:920f8 /// MONSTER DIES8MN$(DF);" IS DEAD!"::AMD%(DF,14):FD%(A)FD%(A)MD%(DF,1)MD%(DF,13)D2:MD%(DF,5)08AJ1NA:AD%(AJ,4)DF1AD%(AJ,4)ROOM`9(:MD%(DF,9)0D2:MD%(DF,13)MD%(DF,1)7700A7AMD%(DF,14):FD%(A)FD%(A)D27:MN$(DF);:(MD%(DF,13)5MD%(DF,1)1)7655,7660,7665,7670,76757" IS STILL IN GOOD":" SHAPE.":LPLP1:9207" IS HURTING.":9207" IS IN PAIN.":9208" IS VERY BADLYCAL HIT!":LPLP1:R2(100(1)1):R251A0:7635L6R286S1.5S:7635c6R296D2D:7635{6R2100D3D:7635677006D20:D31D:D2D2(S(1)1)::D2D2AMD%(DF,8):D21ĺ" BLOW BOUNCES OFF ARMOUR.":9257MD%(DF,13)MD%(DF,13) USER!":9205~FR1007560K5DMD%(OF,11):SMD%(OF,12):DFOF:A1:7635{5DMD%(OF,11)2:SMD%(OF,12):DFOF:A0:76355INC((100(1)1)MD%(OF,10)):MD%(OF,10)MD%(OF,10)2INC5DMD%(OF,11):SMD%(OF,12):A1:RL5ĺ"A HIT!":763536"A CRITIOF,9)0WMD%(OF,9):AD%(W,2)3ĺ:"SPARKS FLY FROM ";AN$(W);"!":LPLP1:920:_4oFR9575504t" WEAPON BROKEN!":AD%(MD%(OF,9),4)0:MD%(OF,10)MD%(OF,10)AD%(MD%(OF,9),5):MD%(OF,9)1:MD%(OF,4)MD%(OF,4)2:(1).5İ925: 5y" BROKEN WEAPON HURTSRL97ĺ"A MISS.":920:o3e"A FUMBLE!":FR(100(1)1):FR3540(MD%(OF,9))ĺ" FUMBLE RECOVERED.":925:3jFR76ĺ" WEAPON DROPPED!":925:AD%(MD%(OF,9),4)ROOM:MD%(OF,10)MD%(OF,10)AD%(MD%(OF,9),5):MD%(OF,9)1:MD%(OF,4)MD%(OF,4)2:O4lMD%(;AN$(A);"."::AD%(A,4)0:MD%(OF,9)A:MD%(OF,10)MD%(OF,10)AD%(A,5):MD%(OF,4)MD%(OF,4)2:x2LHIT0:MD%(OF,9)174002QMN$(OF);" ATTACKS ";MN$(DF):LPLP1:" --";:RL(100(1)1):HIT0:(RL5RLMD%(OF,10)MD%(DF,7))RL96HIT12VHIT76003`1MD%(DF,14)1DF0300b1MD%(DF,3)MD%(DF,3)2:M1NM:MD%(M,5)ROOMMD%(M,14)1MD%(M,14)0{1:R3ROOM:3600:3001 -- MONSTER PICK-UP WEAPON1MD%(OF,10)0ı1A1NA:AD%(A,4)ROOMAD%(A,2)2AD%(A,2)3Ă:[2MN$(OF);" PICKS UP "CKING ARTIFACTE0zMD%(0,9)1ĺ:"YOU HAVE NO WEAPON READY!"::100d0OF0:DFM:7500:HIT73600INCW2AD%(MD%(0,9),6):WA%(W2)WA%(W2)20EAAE3000(100(1)1)MD%(0,10)73600A2:EAAE1A10AEAEA:MD%(0,10)MD%(0,10)A;AN$(A);" SHATTERS!":300bOO:"WHAM!! YOU ";("HITBLAST",TA31,3TA2);" THE ";AN$(A);"!":300O PTA0ĺ:"ATTACK WHO?":100OP:"YOU CAN'T BLAST ";S$;"!":100OR /// PUTORS$""21040PRX1(S$):(S$,X,5)" INTO"X2A$(S$,X1):B$AT?":100ENOMD%(0,9)1TA0ĺ:"YOU HAVE NO WEAPON READY!"::100oNODMD%(0,11):SMD%(0,12):TA1D2:S5NOSX7:K6:AD%(A,2)4SXSX1:KK1OOD20:X1D:D2D2((1)S1)::AD%(A,SX)AD%(A,SX)D2:AD%(A,SX)0AD%(A,SX)0:AD%(A,K)0::"THE "'S LOCKED!":100hMjOAD%(A,6)0::"YOU'VE OPENED THE ";AN$(A);".":X1ND:RD%(X)A100RD%(X)AD%(A,5)sMtO:300MO /// ATTACKING A CONTAINER OR DOOR?MOWHRO:HARO:EMBRO200:4810:FO20490 NOAD%(A,2)8AD%(A,2)4ĺ:"WHY WOULD YOU DO THROOM:LK1:JLN::"YOU FIND ";("NOSOME",LK21,22LK);"THING INSIDE."SLN300LNS$"DOOR"S$"GATE"ĺ:"IT WILL OPEN WHEN YOU APPROACH.":100LN:"I DON'T KNOW HOW TO OPEN ";S$;".":100LLO DOOR/GATEMVOAD%(A,6)ĭAD%(AD%(A,6),4)1ĺ:"IT1:EMBRO200:4810:FO202004K4NAD%(A,2)420100^K>NAD%(A,2)7ĺ:"TRY READING IT.":100qKHNAD%(A,2)193KRNAD%(A,2)820300K\N93KN CONT.KNAD%(A,5)ĭAD%(AD%(A,5),4)1ĺ:"IT'S LOCKED!":100 LNLK0:X1NA:AD%(X,4)A100AD%(X,4)."JFJ8J /// LIGHT1JBJ4900:4800:FO90EJLJAD%(A,2)593ZJVJAD%(A,4)191J`JLTNL:AD%(A,5)0ĺ:"IT WON'T LIGHT!":100JjJLM1:LT1:LCAD%(A,5):LSA::"YOU'VE MANAGED TO LIGHT THE ";AN$(A);".":300J N /// OPENK*N4900:WHRO:HA"ZIFDK$"BSAVE GAME.SVAR,A";(105)(106)256;",L";(109)(110)256(105)(106)2561IFDK$"BSAVE GAME.STR,A";(111)(112)256;",L";(115)(116)256(111)(112)2561JF:"THE GAME IS NOW SAVED. BOOT ON THIS":" DISKETTE TO RESTART THE GAME2):MD%(0,9)A:MD%(0,11)AD%(A,7):MD%(0,12)AD%(A,8)OH&C:"READIED.":925:300_HPF /// SAVEHZF:"DO YOU WANT TO SAVE THIS GAME? ":"(Y/N) :";HdFA$:A$"Y"A$"N"18020HnFA$:A$"N"100HxFDK$;"CLOSE":X(0)IFDK$"BSAVE GAME.PTRS,A$69,L8"13000G>S$"SPEED"14000CGB:"OKAY, ";(34);S$;(34)::300TGhB /// READY^GrB4900G|BWH1:HAWH:EMHA:4810:FO91GBAD%(A,2)2AD%(A,2)3ĺ:"THAT ISN'T A WEAPON!":925:1003HBMD%(0,10)(EAAE)(EAAE)AD%(A,5)WA%(AD%(A,6))2MD%(0,00#F:MD%(M,14)15030,15040,15050HF:MN$(M);" GROWLS AT YOU!":15100kF:MN$(M);" IGNORES YOU.":15100F:MN$(M);" ";C$(C);"S BACK.":15100F:::300F> /// SAYF>4900F>S$"BLAST"V$S$:S$"":11000F>S$"HEAL"12000G>S$"POWER1E3E6 /// SPEED2E6S3:11500:SUC300oE6SPDMD%(0,10)MD%(0,10)2MD%(0,2):MD%(0,2)2MD%(0,2)E6SPDSPD(25(1)10)::"YOU CAN FEEL THE NEW AGILITY FLOWING":" THROUGH YOU!"::300E: /// SMILEF::M1NM:MD%(M,5)ROOM151D^3((1)8)MD%(0,8)13100VDh3:"YOUR ARMOUR THICKENS!":MD%(0,8)MD%(0,8)2:300lD3 /// RAISE DEADD3M2NZNMM:AD%(M2,4)ROOMAD%(M2)1ıE3MN$(M);" COMES ALIVE!":AD%(M2,4)0:MD%(M,5)ROOM:MD%(M,13)0:AD%(M2,4)1WTWTAD%(M2,3):RAISM":" THAT ECHOES THROUGH THE TUNNELS."::300lC3RR80RAIS0:M1NM:13200::RAISR3ROOM:3600:300wC'314020C,3 /// TELEPORTC63R2((1)NR1)C@3:"THERE IS A CLOUD OF DUST AND A FLASH OF LIGHT!"::"YOU TELEPORTED SOMEWHERE!"DJ33500SUC300B2RR((1)1001).B2RR1013100?B2RR2513150|B2RR35MD%(0,13)ĺ:"YOUR WOUNDS HEAL!":MD%(0,13)0:300B2RR35āX14:S2%(X)2SA%(X):::"YOU FEEL YOUR MAGICAL PROWESS INCREASE!":3000C2RR55ĺ:"YOU HEAR A VERY LOUD SONIC BOO%(S)0:A. /// HEAL1A.S2:11500:SUC300GA.M0:S$""İ4700A/:MD%(M,13)ĺ"SOME OF ";MN$(M);"'S WOUNDS SEEM TO CLEAR UP.":A/MD%(M,13)MD%(M,13)(10(1)1):MD%(M,13)0MD%(M,13)0A/DFM:7650:300A2 /// POWERB2S4:11500:L10011600.@,SUCĺ:"NOTHING HAPPENED.":n@-RL(100(1)1):RLS2%(S)S2%(S)S2%(S)2:SA%(S)SA%(S)2@ -S2%(S)S2%(S).8@-AP-:"THE STRAIN OF ATTEMPTING TO CAST THIS SPELL OVERLOADS YOUR BRAIN AND YOU FORGET IT COMPLETELY."::SA젠讍ǠРȠ΍ǠӠϠҠȠҍΠĠԍ堠堠墠䠠Ԭ堠宍젠젠堠䠠쮍栠堠̠ҠΠŠӍΠ䠠䠠砠                !!! ! ! ! ! !!!!!!!!!""" " " " " """""""""                  011:(P$,P,1)" "Ă:P$:P$"":\ " ";(P$,P1):LPLP1:2000:P$(P$,P):P0::1300s LP60ĺ(12):LP0y 4   (P$)80ĺ" ";P$:P$"":LPLP1:2000:  1300:" ";P$:LPLP1:P$"":d2000:  1300:" ";P$:LPLP1:P$"":dD dD$(4)%"FILE NAME:";FILE$4,D$;"PR#1"JD$;"OPEN ";FILE$U1200kXD$;"READ ";FILE$qy A$A$(13)İ2300:800P$P$A$:(P$)200İ1300:800L7001300:P$::D$;"CLOSE":D$;"PR#0":(P$)80ı$ xP8LETE GAME.STR"kWqDK$;"OPEN EAMON.DESC,L256":DK$;"OPEN EAMON.ROOMS,L64":DK$;"OPEN EAMON.ROOM NAMES,L64"tWq100"BLOAD GAME.PTRS":(4);"BLOAD GAME.SVAR":(4);"BLOAD GAME.STR"VqDK$;"OPEN EAMON.DESC,L256":DK$;"OPEN EAMON.ROOMS,L64":DK$;"OPEN EAMON.ROOM NAMES,L64"Vq1000KHAVEN DR. CLEMMONS, NC 27012  50DK$(4):DK$"VERIFY GAME.PTRS":29000 MD%(M,5)ROOM:AD%(A,4)0:R3ROOM:3600:3009UHq RESTARTDUMq216,0}URq:"DO YOU WANT TO RESTART THIS GAME?":" Y OR N:";U\qA$:A$"Y"A$"N"29020UfqA$:A$"N"ĺDK$;"DELETE GAME.PTRS":DK$;"DELETE GAME.SVAR":DK$;"DELETE GAME.STR":@Vpq(4);(AN$(A),(S$))Ă:90*T]AD%(A,2)1090OT]MAD%(A,5):KAD%(A,6):GAD%(A,7)fT.^AD%(A,4)ROOM90T8^MD%(G,5)ROOMĺ:MN$(G);" WON'T LET YOU DO THAT!":300TB^AD%(K,4)1K0ĺ:"YOU DON'T HAVE THE KEY!":100+UV^:"YOU HAVE FREED ";MN$(M);".":200$S2Z:"YOU CAN'T READ IT.":3002S