' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL]$$8HIL,նh, ,`, ,`, , ,:/8` 鷎귭෍ᷩ췩緈JJJJx L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` pp>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx-( @àΠҠ-@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# up堧易䮠ήÍ宠򠭠ᠧ易᭠䮍堭宠䬠箩䮠፰ᠱ䮠Ԡ䮠栱䮠ՠčǮ䮍򠭠嬠砠宠嬠㬠䠵򣍠䠶䠷䣍䠸獍󠭠䠶􍠠䠷䠵殠䠵䠶殠䠶䠷砠䠷荍堠CLOSE" DE" D٬ŬԬάԬˬōĠÍҠӠϠӲөөԠ֥͠ҩ͠ĠȬȬԬԬЬάŬ׬Ŭ׬ԬŬЬˬŬˬŬŬٍԬ̬ҬĬŬŬ٬Ĭ  庍䠵堠䠵䠶쮠䠶䠷䠸䠵򠠠䠵󍠠󠵠宠򠠠宠묠򠠠砠堠堠Ӎ䠠򍠰䠠䠠堠堠䮍箠򮩍宍򮍍󮍍䮠䮍덠殠䍠箠򍠠䍍󮍍庍ᮠ󍠠⮠䍠㮠䍠䮠󬍠󮍠宠ᮠ䮩󮍍򠶮󺍍宠婠󮠨            宠묠宍栠堠򠠠򠠠砠堠䠠堠堠Ӎ䠠򍠠򮩍䮍򮍍箍宠󮍍䮠󮍍䮍捃󍠠젤Ƭ젤Ƭ젤Ƭ젤ƬƬƬƠ󍠠젱捍򠱍捃젤ƬƬƬƠ󍠠젱捍򠱍捃Ơ󩍠報堲捍捍Ơ󍠠젤Ƭ젤Ƭ젤Ƭ嬠堨䮠嬍宠䮍䬠䮠宍̠ԠӍ宠ﬠӍˠ䮠쮍򠭹쮍䮠ﮠ䬠宍ᮠ宍Ӎ󠲱򍲵󠳲鮍􍫲퍍嬠󠱰򠱷宍󍍠謠򮍍򠭠䠠ᠠ䠠宠ᡩ宠ᡩ忍堠砠﬍䠠宠嬠䠠嬠栠堠堠z 笠蠠砧堠à䠠纍ŠϠŠҧӠҍᩮ쮍嬠栠宠䬠ᠠź堠쬠堠堠砠婠讠ﬠ򠠨堠蠠蠠堠򡩠Ԡ̠宠堠歍堠٠򠠢ɢ堠箍٠ˠ䮍Ԡᠠ詮䠠䮍䠠άӬŬ׬լĬȬȬԬԬЬΠ젠堠䠠堠󮠠嬠栠堠č٠䠠Р٠䮨堠堠堠堠졩嬠砠ԠŢ栠ᠠ⠠䬠젠堠䮍讠젠䠠젠宠젨婠堠䬍砠宠宠堠䠠堠䠠ŠҧӠō砠ᠠ堠箠堠堠ɠ򠠠󬠠󬠠ﺍϠ砠堠宠䠠蠠󠠠ɠɍ䠠堠ɍ󮠠ɠ䠠򮠠堠䬠讍䬠䠠堠堠嬠塍ǠŠō砠宍䠠嬠堠堠䠠堠쬠砠󮠠堠砠堠嬠䠠堠嬠󮠠堠蠠뮩Ǡƍ젠䬠宍Šҍ蠠󩬠젨󩬠􍨳䠠󩬠䠠䠠󩮠蠠蠠堠젠堠嬍ᠠ堠쬠孭宍ǠӍ󬠠堠쬠砠宠庠򠨱ᠠ䬠򬠠쬠䠵򮠠堠젠ᠠ栠嬠堠堠䠠쬍栱묠䠠宍卵蠠栱婮嬍堠堠堠嬠󠠠󠠠ĸ䠠栵蠠󠠠栭栠婬蠠ᠠ栰婬䠨嬠Ķ栲Ķᠠ堠堠栠Ĵ堠捲ᠠ蠠ĵ栠ᠠ堠堠򮍠쬠堠젠䠠堲ᠠ򬠠󮠠堠砠󮠨嬠ǠӠĠҍ栠嬠孭󠠠宠ᠠ堠ᠠ栠䮠ɠ䠠庠䮠栠堠àԧ婮ᠠ宠嬠렠䬠堠堠堠堠堠宠堠䠠堠蠠塩殍堠ǠΠΠō嬠栠젠󮠠栠젠堠󮠠宍栠堠䠠򮠠嬠ᠠ򡩮ɬ堠젠䠠堠젠嬍렠栠䠠젠堠栠嬠䠠堠䠠뮠栠堠쬠䠠쮍堠塩䠠堠䠠堠ΠҠˮ堠孭堠卨蠠堢â젠נϠ٠Ġ٠٠΍嬠Π堠ɬ𧠠䠢Š̠Ġƍ΢򠠠謠堠堠䠧堠堠䠠蠠󬠠堠󬠠蠠󮠠렠ᠠ蠠젠嬠堠堠䮍堠󠠨ᠠ砠孭蠠򠠠䬠嬠蠠䭭砠젠堠䠠䠠󮠠堠堠宍堠䬠砠栠堠쬍젠堠堠栠堠堠䮍젠砠䠠堠宠젠䠠젠砠堠栠䠠堠栠󮍠쬠堠䠠󮠠٠堠堠졍ǠȠӍ堠堠笠󠠠䠠嬠砠堠殍䠠砢硢젠嬠䠠堠堠䠠젠欠堠ᠹ穮ҍ젠젠堠젠젠堠砠堠䠠젠堠栠ᠠ堠栠堠堠砠쬠蠠栠堠󠲰堠젠殍젠堠堠䠸č젠젠젠󮠠堠̍젠箠報Ġ󬠠㬠栠孭栠堠宍򬠠堠젠砨婠堠堠堠젠Ġ栠堨󮍠庍ԍ젠蠠蠠㬍򬠠栠ᠠ젠堠栠㠠󠠠젠堠䮍ᠲ宠젠렠婮栨宠堠ᠠ󭭍砠栠ᠠӠƠҠҠԠōԠӠ̠堠栠堠󩮠嬍䠠堠젠쭭堠젠堠宠堠栠䠠䠠젠쬠젠ᠠ젠젠砠栠堠䠠젠堠䠠젠堠󠠠䠠堠嬠򬠠렠堠䠠짮栠堠堠䬠堠堠堠堠䩬ᠱ堠婬蠠堠嬠򠨱Í砠堠堠堠蠠堠栠堠砠栠堠砠󠠨堠堠堠婺堠򠨵堨젠堠堠堨㠠젠򩮍栠嬠󮠠堠렠栠堠堠젠፧䠠堠򠠠䠠蠠嬍󠲬󠵍栠箍ᠠ堠ΠĠΧ򠠳ĸ堠堠󿩠卲򬠠堰砲嬠젠򮠠栠Š䠠堠堠ŠŬ堠栠堠򠠠堠栠󢮠堨ũ堠䭭䠠䠠䬠堠젨򠠨򬠠堠栱場򠶰宍砠堠栠䮍쬠㠠蠠栱젠堠򍶷ᠠ堠堠蠠堠栠砠堠쬠堠堠嬠堠䮠󬠠栠堠㠠젠䠠堠젠場堠堠󺠠젠䠠㠠砠򿠠쬠嬠䠠栲䠨栠堠砠򬠠堠ᠠ栠󠴰򠴰砠堠栠砠堠笠箠䠧蠠󮠠󺠠󬠠󬠲󬠱䠰󮠨堠堠䠠堠笠젠䠠󠠨󩬠󩬠󠠨󩬠宍󮠠󭭍䠠堠䬠䠠䮍嬠󮠠蠠ԍ蠠䠠䬍󬠠䍭欠堠䬠栲ᠷᠠ砠捰젠쬠㬠堠ᮍᠵ笠蠠栠젠宠ᠠ栵ᠴ󠨵ᬠ堠堠堠졠ź蠠䭭栠堠堠䠠衠ᠠ堠젠堠󠠠栠砠嬠堠嬠쩮ᠠ堠嬠򮠠㠠堠ᠠ䍧ȧ젠󬠠蠠򬠠䠠ǧ젠砠砠ᠠ堠󮍠䮠ᠹ󮍠ٍ䠠㠠栠쬠젠󬠠蠠堠讍堠栠䬠堠󮠠󮠠嬍㠠򍱳󩮠堠栠堠欠쩬㠠塍堠䠠č󩠠栠堨䠠Ԡ쩠򠱰栠宍㠠堠譭栠젠󮠠堠栠堠堠宠󬠠堠㠠쮠㠠砠堠嬠堠䩮Ӭ٬󠠠䠠堠Ӎ򬠠蠠䍧堠󠧳ĸ孍姠ﮍҠӍ㠠砠짍򮠠堠젠堠⡩Π堠䠠󮠠嬠젠䠠姭堠󠠠󠠠蠠젠堠堠蠠󮠠栠嬠堠嬠堠堠䠠󩠠堠򡠠쮍Πᠠ宠堠堠ᠠ䠠堠젠䠠䠠宠蠠󬠠󬠠宠䠠Ġ嬠堠䠠堠堠ᠠ䮠򠠠栠桠堠嬍㠠Π䠠䠠젠宠⭍䮍ɠ堠蠠򬠠䠠䬠堠䠠堠䠠宍堠嬠ᠠ孭򬠠Ѝ堠嬠堠嬠場ˮ䠠젠䬠䠠䠠堠򡩮堠堠堠Ӻ젠젠穬렠󮍠ɬ렠嬠ˠàӢ堠󬠠堠嬠堠宠䬠栠讠魍砠堠䠠󮍨堠嬠젠堠堢ӠΠŠĠƠōĠ䬠ᠠ䠠嬍砠砠ﮍ젠䬠ŠϠŠ̠ĠƠ΍Π䠠󮢠堠򠠠婠                                                               嬠堠󮠠뮍ŠčﺍŮᠠ좠䮍Ω젠Ϡᠠ蠠䠠宠堠䠠䠠ΠͮΠ͠ŠȍԢ䠠Πͬ報򠱰堠堠砠󮠠宠䬠堠Πͮ宍宠堠堠Ԡˤ󬠠䠠󮠠笠殍宠堠ΠԍĠ宠宠䠠젠栠宠堠䠠堠Πͮ堠󬠠堠󮠠Π͠堺àԠξΠ嬠堠堠Ġ򬠠䬠栠堠纍ŠΠ͍Š͠Π͍堠Ġ宠󍱰堠宍堠堠Ġ堠ĠĠΠ͍⮠堦占ŠŠΠ͠ō㮠庠Š婍ҠčŠĮ쭍䬠Ġ䠠Πͮᮠ堠Ġ堠堠栠堠嬠宍ŠŠԠӠǠΠōˠŠҠŠӠōĠ̠ŠĮҠӍάՠĠӠРĠ婍堠宠Ġ䠠砠堠젠堠堠Ġ宠ᮠ堠宍⮠占卍㮠젠堠򮍍䮠堠䮍宠堠ﮍ䍠庍砠󮠠栠蠠堠󬠠堠󮠍젠䠠󮍍ƍ栠砠堠젠栠󮍠󮠠堠宠堠򮍠䠠堠蠠렠堠婠堠䠠䠠堠䠠堠젠砠򠠠󮠠堠䬠栠젠箍렠堠栠堠蠠󠠨䠠䠠堠堠䠠宠ﬠɍᠠ󭍍Х򠠨婍ӥԠԥڠ􍍍堠堠饨Р֤֥󠠠ĥΤ堠栠󠠠ϥҠ򠠱ӤӲؤ󠠧ͧ򠠧ƧĠà젠ĭ栠ڠƠ򠠠栠堠Š젠à䠠򠠠̠򠱭͠򠠠􍠠썠ΤҠ̠à͠נ󍠠占퍠􍠠󠨥򍠠נ占נ󍠠占󠠠Ԡ젠砠栠àˠ젠砠栧䧠ĥ፠򬍠󺍠󍠠젠笠򠠠ˤ̭Ġҥ蠠栠ĥ栠Ҡ򠠠䠠Ġ䠠堠󍠠ŠΤˠàäȠڤƠz#     Ġ̮Ԡx Ӡ̮ԠĠֶ,ԠξΠ Ҡ̮Ԡ Ġֶנ Πˮנ àΠҠ ΠԠ ΠԠ=ΠԠ ԠӠΠ͠Π͠L[; DUNGEON EDIT PROGRAM7 BY JOHN NELSON=q ADAPTED FROM DON BROWN'S DUNGEON EDIT THIS PROGRAM ADDS AND MODIFIES SIX AND TEN DIRECTION DUNGEONS.. 4-18-84: FIX LINE 6105:4-28-84=FIX LINE                     $;"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);"********************************  ,400,500% d(4);"RUN DUNGEON INIT"B (4);"RUN DUNGEON EDIT"_ ,(4);"RUN DUNGEON LIST"} (4);"RUN PRINT MANUALS" :37,255:A <:" 1. INITIALIZE NEW DUNGEON DISKETTE"::" 2. EDIT DATA FILES": F" 3. LIST DATA IN A DUNGEON'S FILES"::" 4. LIST/PRINT MANUALS"::" 5. STOP"::"PRESS KEY FOR YOUR CHOICE (1-5) : "; PA$:C(A$):C1C580 ZC:C100,200,300  EAMON DUNGEON DESIGNER: VERSION 6.0A \ BY JOHN NELSONbp 2-28-84{ 1000(:9);"EAMON ADVENTURE SYSTEM":11);"ADVENTURE DESIGNER":13);"SELECTION MENU"28:"SELECT PROGRAM FUNCTION DESIRED..."J  1N%(TYPE):RECA200:20000:"EFFECT #";A:r X1(DE$)40:(DE$,X,40):LPLP1:::LPLP1:LP2030HCİ3600* A:DK$;"PR#0"4 :"(HIT ANY KEY TO RETURN TO MENU) ";:A$:::150H F$"EAMON.MONSTERS":A$"MONSTER":3500 >> LIST STUFFr OF THAT TYPE TO PRINT!":::"(HIT ANY KEX TO CONTINUE) ";:A$::150[ HCĺDK$;"PR#1"y TYPE3100,3200,3300,3400 F$"EAMON.ROOM NAMES":A$"ROOM":3500 F$"EAMON.ARTIFACTS":A$"ARTIFACT":3500+ ::"LISTING ";::"EFFECTS":::34,2:ANO100:20000:22000:X14:AL$(AFX)FML$(FMP%(AD%(2)),X):F1230[ >> EDIT EFFECT| 700:RECNO200:20000:1330` >> EDIT MONSTERj 700:RECNO300:24000:20000:1430 >> LIST THINGSG C$"LIST":500:TYPEA:N%(TYPE)0ĺ::"NONE)NA$"":DE$"":D1MF:M%(D)DM%(D):L14000:18000:31400:LKī150U800l >> EDIT OLD ITEMC$"EDIT":500:TYPEATYPE2100,2200,2300,24004 >> EDIT ROOM>700:RECNO:21000:20000:1130 >> EDIT ARTIFACT<700:RECDA%(D)::X14:AL$(XAF)FM$(FMP%(AD%(2)),X):S12000:31200:18000:LKī150\800p >> ADD EFFECTN%(3)N%(3)1:NON%(3):RECNO200(DE$""213000:18000:LKī150<80x >> ADD MONSTERN%(4)N%(4)1:NON%(4):RECNO300L >> ADD ROOM4VN%(1)N%(1)1:NON%(1):RECNOs`NA$"":DE$"":D1ND:RD%(D)DD%(D)NO(DD%(D)0)::LTDL~j11000t31100:18000:LK150~1020 >> ADD ARTIFACTN%(2)N%(2)1:NON%(2):RECNO1000NA$"":DE$"":D1AF:AD%(D)(TYPE)(C$"CREATE")NO(NO)ġ:150+>  >> LOCKED <<f*C1020,2020,3010,4020,5020,150,150oz150 >> DELETE FROM LOCKLKLK:C1NA%(TYP)NA%(TYP)1150 >> ADD ITEMC$"ADD":500:TYPEATYPE1100,1200,1300,1400,1)I2$:I$(I$,(I$)1):A$;:615JA$(8)(I$)I2$I$I2$:A$;:600[A$(8)600zA$(27)ĺI2$:I$I$I2$:615 >> GET NUMBER6:958:"INPUT NUMBER OF ";T$(TY);" TO ";C$%" (1-";N%(TYPE);:") ";A$:NO(A$):NO1NON%(vA$(5)ĺI2$;:I$I$I2$:I2$"":615e{A$(2)(I$)āA1(I$):(8);::I2$I$I2$:I$"":615A$(4)I2$(I2$,2):610A$(9)I2$" "I2$:610A$(21)(I2$)A$(I2$,1):625A$(21)A$" ":625"A$(8)(I$)1I2$(I$T I$, HAVING BEEN PASSED I2$&]I$""SbI2$;:958:(I2$)āA1(I2$):(8);:ogA$:A$(13)Č958::jA$(17)LKġ::900l(A$(31)A$(9)(A$(21)(I2$)))(I$)(I2$)250ĺ(7);:615qA$(31)ĺA$;:I$I$A$:I2$(I2$,2):615ND$"6":DK$;"CLOSE":602DV5:DK$;"CLOSE":60R >> 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$:X///ROUTINE TO INPUACT":" OR MONSTER" ; " 6. SPECIAL FUNCTIONS"A R " 7. QUIT"} ":"ENTER KEY FOR YOUR CHOICE (1-7) "; ,A$:A$(12)LKLK:150 6(A$)1(A$)7300 @C(A$):A$ ^C1000,2000,3000,4000,5000,6000,7000ND$""DV4: MONSTER" N " 2. EDIT OLD ROOM,ARTIFACT, EFFECT":" MONSTER"T " 3. LIST NAMES OF ROOMS, ARTIFACT,ETC" " 4. REPLACE OLD ROOM,ARTIFACT OR":" MONSTER (WITHOUT VIEWING OLD)"  " 5. DUPLICATE A ROOM, ARTIFN.DESC,R0":N%(1),N%(2),N%(3),N%(4):DK$R Z35000:DV6DT3:TY$(3)"ODD WEAPON"^ 60000 :T14:T$(T);"-";N%(T);" ";:::3:4);"EDITING ";::DUNGN$:("LOCK",1,LK4): "YOUR CHOICES ARE--"::" 1. ADD NEW ROOM,ARTIFACT,EFFECT OR":" AME":DK$;"READ EAMON.NAME":DUNGN$:ND$:DV:DK$;"CLOSE"N <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 EAMO34510 (, => ;):4-28-84=GOSUB 18000 IN GEN DEADE (4);"MAXFILES 7" DK$(4)::5:" EDITING AN ADVENTURE FOR EAMON"::" INSERT DISKETTE WITH ADVENTURE"::" PRESS ANY KEY TO CONTINUE...";:16368,0:A$: (4009 2DK$;"OPEN EAMON.N(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:DM%(X)::DT:X0DT:TY$(X)::DK$: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 PARAMETERS FILE:"::" ===> ";A$0(4;"WRITE EAMON.DESC,R0":T14:N%(T):7&lDK$;"CLOSE"D&v216,0:X& >> LOAD PARAM&6:958:"NAME OF PARAMETERS FILE:"::" ===> ";A$&(A$,1)"?"ĺDK$;"CATALOG";(A$,2)::A$:71004'DK$;"OPEN ";A$:DK$"READ ";A$:AF:X1AF:AL$(X):M.%: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,7200,150%X >> QUIT&&bDK$NGE 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,10600,140% >> LOAD/SAVE PARATO MAIN MENU"::"INPUT YOUR CHOICE (1-4):";J#JA$:(A$)1(A$)46730o#TA$:(A$)15100,15200,15300,150# >> CHANGE DATA ASSIGN+$:08);"CHANGE DATA ASSIGNMENTS":6:"SELECT DATA TYPE:":" 1. MONSTER DATA":" 2. ARTIFACT DATA":" 3. CHA:0::N%(2)N%(2)1:#"DK$:1507" >> TOGGLE H/CG"HCHC:150`", >> CHANGE DEFAULTS"6:12);"CHANGE DEFAULTS":6:"SELECT DEFAULT TO CHANGE:"::" 1. ROOM VALUES"::" 2. MONSTER VALUES",#@:" 3. ARTIFACT VALUES"::" 4. RETURN REMENT0!C$"INCRMNT":500:N%(A)N%(A)1:6000I!d >> GEN. DUMMY ART.O!nj!x"NBR ART. TO GEN:";NA!A1NA:DK$"WRITE EAMON.DESC,R";N%(2)101:"YOU SEE ARTIFACT ";N%(2)1;".""DK$"WRITE EAMON.ARTIFACTS,R";N%(2)1:"ARTIFACT ";N%(2)1:X18"ALL DEAD BODIES (Y/N):";8 A$:A$"Y"A$"N"6110j 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 L6000! === INC" 8. CHANGE DATA ASSIGNMENTS"::" 9. LOAD/SAVE CUSTOMIZED PARAMETERS"q:"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 6:958:ST R,A,E,M":1" 3. ADD TO NBR OF R,A,E,M":o" 4. TOGGLE LOCK MODE (NOW ";("OFFON",LK31,3LK);")":" 5. GENERATE DUMMY ARTIFACTS":" 6. TOGGLE PRINTER (NOW ";("OFFON",HC31,3HC);")":SF76040I:" 7. CHANGE DEFAULTS"::0000:RECNC200:180001505 >> DUP. MONSTERf"NOFROM:24000:20000:RECNC300:NONC:1430p >> SPECIAL FUNCTIONSu:SF9::" SELECT FUNCTION OR PRESS ":::DV6SF6z" 1. GENERATE DEAD BODIES": " 2. DELETE LAG A ";T$(TYPE);" FROM ANOTHER."=TYPE5100,5200,5300,5400P >> DUP. ROOMNOFROM:RECNO:21000:20000:RECNC:NONC:1130P >> DUP. ART.ZNOFROM:RECNO100:22000:20000:RECNC100:NONC:1230 >> DUP. EFF.NOFROM:RECNO200:2r700:RECNO100:12201 >> REPLACE EFFECTK700:RECNO200:1320d0 >> REPLACE MONSTER~:700:RECNO300:1420 >> DUPLICATEC$"DUPLIC.":500:TYPEAC$"DUP. FROM":700:FROMNO:C$"CREATE":700:NCNONON%(TYPE)ĺ"CREATIN12);"LISTING ";A$;"S"::i$:" (PRESS ANY KEY TO CONTINUE) ";:16368,0:B$::(37)1:958oj >> REPLACE ITEMC$"REPLACE":500:TYPEATYPE4100,4200,4300,4400 >> REPLACE ROOM700:1120h >> REPLACE ARTIF. ::LP0:"LISTING ";::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ĺ(MONST.m8j;:"ENTER NEW DEFAULT VALUES FOR EACH FIELD.":D1MF:M%(D)DM%(D)::14050:D1MF:DM%(D)M%(D):v8;1508; >> CHG DEF. ART.8;:"INPUT NEW DEFAULT VALUES FOR ALL FIELDS.":D1AF:AD%(D)DA%(D)::12050:D1AF:DA%(D)AD%(D):8;150MF:"ENTER ";M$(M);": ";:I2$(M%(M)):600:M%(M)(I$):(M%(M))I$ĺ(7):(37):14050_76e76|7: >> CHG DEF. ROOM7;:"INPUT DEFAULT VALUES DESIRED.":D1ND:RD%(D)DD%(D)::110557;D1ND:DD%(D)RD%(D)::DLLT7;1508`; >> CHG DEF. FECT762:"ENTER EFFECT #";NO:I2$DE$:600:DE$I$::M66 >> EDIT MONSTER66:"ENTERING MONSTER # ";NO::I2$NA$:"ENTER NAME:";:600:I$""(I$)301401066NA$I$::"ENTER DESC--":I2$DE$:600:DE$I$::"MONSTER # ";NO;" ";::NA$::Y76M12605/12290S5/X0DT2:" ";X;" = ";TYP$(X);:XDTĺ22);X1;" = ";TYP$(X1)]5/::5/"1=AXE, 2=BOW, 3=MACE, 4=SPEAR, 5=SWORD":505 0X14:AL$(XAF)FM$(FMP%(AD%(2)),X):50X14:AD%(AFX)FD%(FMP%(AD%(2)),X):5f062 >> EDIT EFD1AF4:D2(DAF2AD%(2)1AD%(2)4)İ12200C4/D2PTAD%(2)b4!/AL$(D)"(NOT USED)"120804$/DAFĭFMP%(AD%(2))0120804&/AL$(D);" : ";:I2$(AD%(D)):600:AD%(D)(I$)4+/D2PTAD%(2)İ1230040/4:/5/D112250,12290,12290,12290,12;NO:I2$NA$::"ENTER ARTIFACT NAME:"_3." ";:600:(I$)39Ģ3:20:"TOO LONG!":I2$I$:12203.3:958:"ARTIFACT NAME:":" ";::I$::NA$I$:6:I2$DE$3/"ARTIFACT DESCRIPTION:":I2$DE$:600:6:958:"ARTIFACT DESCRIPTION:"::I$::DE$I$:04/ NUMBER FOR UNUSUAL THINGS.)")2/+D1ND24+"MOVE ";DD$(D);"...";:I2$(RD%(D)):600:RD%(D)(I$):RD%(D)(RD%(D))(RD%(D))I$110602H+:"LIGHT (0 = NONE; 1 = NORMAL) ";:I2$(LT):600:LT(I$):2. >> EDIT ARTIFACT%3.:"ENTERING ARTIFACT "+3:958:"ROOM NAME:":" ";::I$::NA$I$:6:I2$DE$1 +"ENTER ROOM DESCRIPTION:":600:6:958:"ROOM DESCRIPTION:"::I$::DE$I$:2*+13:958:"FOR EACH DIRECTION,GIVE THE ROOM THAT THIS ROOM CONNECTS TO (USE ZERO FOR NO CONNECTION, NEGATIVE LABEL:";:I2$"":600:FML$(NF,X)I$:"DEFAULT DATA:";:I2$"0":600f0)((I$))32765FD%(NF,X)(I$)l0)v0)68000* >> EDIT ROOM0+:"ENTERING ROOM ";NO::I2$NA$:"ENTER ROOM NAME:"0 +" ";:600:(I$)39Ģ3:20:"TOO LONG!":I2$I$:1102081ROGFACE.":10520)/")X(A$):XDT26800h/,):"NEW TYPE:";:I2$TY$(X):600:I$""XDTDTDT1:10500w/6)I$""150/@)XDT1DTDT1:TY$(DT)I$:150/J)TY$(X)I$/^)10500/h) === ADD A FORMAT ===/r)6:958B0|)NFNF1:X14:"FIELD ";XAF;"A: ";:I2$(FD%(F,X)):600:((A$))32765FD%(F,X)(I$)?.(I.(6800].) >> ART TYPES.):X0DT:" ";X;". ";TY$(X)::" ";DT1;". NEW TYPE":" ";DT2;". RETURN TO PREVIOUS MENU"/)"INPUT TYPE NUMBER:";A$:(A$)0(A$)DT2ĺ"TRY AGAIN, F7):10340!-n(FMP%(X)(A$):6800=-( === CHANGE FORMAT ===c-(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$-(FM$(F,X)A$9.("DEFAULT DAT":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-";NF;:"): ";A$:(A$)0(A$)NFĢ(3:";A$:(A$)1(A$)AF2ĺ"TRY AGAIN, FROGFACE.":10220M+'(A$)AF26800+'X(A$)::"NEW LABEL:";A$:A$""XAFAFAF1:10200+(A$""150+ (AL$(X)A$:XAFAFAF1+2(10200+<( === CHANGE FPTR ===n,F(6:958:"FOR WHICH ARTIFACT TYPE:(A$)::"NEW LABEL:";A$:A$""XMFMFMF1:10100A*'A$""150\*'M$(X)A$:XMFMFMF1g*'10100*' >> ARTIF. DATA ASSIGN*':X1AF:" ";X;". ";AL$(X)::" ";AF1;". NEW FIELD":" ";MF2;". RETURN TO PREVIOUS MENU"8+'"INPUT FIELD NUMBER;"CLOSE ";A$)z150/)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.":10120)'(A$)MF268002*'XD$"READ EAMON.MONSTERS,R";R:MN$(R)::D$"CLOSE EAMON.MONSTERS"V d /// MAIN ROUTINE n:12);"EAMON DUNGEON LIST":14);"BY JOHN NELSON":(40(ADV$))21);::ADV$:$ 8:"SELECT ACTION DESIRED:":" 1. SET UP PRINTER":" 2. LIST ROOMS":" 3. OM NAMES,L64"B ZR1NR:D$;"READ EAMON.ROOM NAMES,R";R:R$(R):b \D$"CLOSE EAMON.ROOM NAMES" _D$"OPEN EAMON.ARTIFACTS,L128":R1NA:D$"READ EAMON.ARTIFACTS,R";R:AN$(R)::D$"CLOSE EAMON.ARTIFACTS":D$? bD$"OPEN EAMON.MONSTERS,L128":R1NM:6368,0:A$: 200b :D$;"OPEN EAMON.NAME":D$;"READ EAMON.NAME":ADV$:DR$,DV:D$;"CLOSE"m #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$"OPEN EAMON.ROI LIST DUNGEON- VERSION 6.0E BY JOHN NELSONKQ_ 3-11-84v (4);"MAXFILES 5" D$(4)::5:" LISTING A DUNGEON DESIGN FOR EAMON"::" INSERT DISKETTE WITH DUNGEON, THEN"::" PRESS ANY KEY ...";:1         :D$"OPEN EAMON.DESC,L256":D$"WRITE EAMON.DESC,R0":N%(1):N%(2):N%(3):N%(4):D$"CLOSE"DRENGTH,999,(NOT USED),0QB (NOT USED),0,(NOT USED),0,(NOT USED),0,(NOT USED),0Bފ MONSTER#,0,KEY#,0,GUARD#,0,(NOT USED),0B<B`"FOUND AN ERROR - CODE ";(222):"ON LINE # ";(218)(219)256:(222)10ĺ"CAN'T SAVE FILE - LOCKED.":ZCHD$(4)S,10,W.TYPE,3,DICE,1,SIDES,4,KEY#,99,STRENGTH,100,(NOT USED),0,(NOT USED),0AH COUNTER,999,(NOT USED),0,(NOT USED),0,(NOT USED),0,CHANCES,100,HEAL AMT,6,NBR USES,5,(NOT USED),0Bz 1ST EFF.,1,#EFFECTS,1,READABLE,1,(NOT USED),0,DIRECTION,1,KEY#,99,ST):M1MF:DM%(M):Q@ 16,16,0,100,0,150,0,0,0,50,1,4: MONSTER DEFAULTS@NF:FMP%(DT5),FML$(DT5,4),FD%(DT5,4):X0DT:FMP%(X)::X1NF:F14:FML$(X,F),FD%(X,F):@@ 8@ 0,0,1,1,2,3,4,5,6,7,8: FORMAT POINTERSKA ODD N ,S ,E ,W ,U ,D ,NE,NW,SE,SW4?ۈT110:DD%(T):j? 0,0,0,0,0,0,0,0,0,0: DEFAULT ROOM NUMBERS?MF12:M$(MF5),M%(MF5):M1MF:M$(M):?숃 HD,AG,FRIEND,COUR,ROOM,WEIGHT,DEF.ODDS,ARMOUR,WEAPON#,OFF.ODDS,W.DICE,W.SIDES@DM%(MF5N,MAG WEAPON,CONTAINER,LIGHT,HEALING,READABLE,DOOR/GATE,KEY,BOUND MONSTER>ʈAF4:AL$(AF4CX),AD%(AF4CX):T1AF:AL$(T):>ˈ VALUE,TYPE,WEIGHT,ROOM>̈T1AF:DA%(T):>ш 50,1,5,0: ARTIFACT DEFAULTS>ֈD110:DD$(D):?؈ "DE$(DE$,25):S2640:DE$DE$" "::DE$DE$THE$A$"."U=RECX100:NOX:18000b=31200:k=150= === SETUP DATA =ˆCX5:T14:T$(T):=È ROOM,ARTIF,EFFECT,MONST=LjDT:TYP$(DTCX):T0DT:TYP$(T):I>Ȉ 10,GOLD,TREASURE,WEAPOK> WRITE ART.;yDK$;"WRITE EAMON.ARTIFACTS,R";NO:(34);NA$;(34):D1AF4:AD%(D):;yDK$:;z >> WRITE MONSTER:RLT1:DV5ĄLT:&RDK$:/:U >> READ ART.:UDK$;"READ EAMON.ARTIFACTS,R";NO:NA$:X14:AD%(X)::DV5AD%(2)1āX58:AD%(X)::VDK$::] >> READ MONSTER:]DK$"READ EAMON.MONSTERS,R";NO:NA$:D1MF:M%(D)::^DK$:;|y >> WRITE R9PF >> WRITE DESCM9ZFDK$;"WRITE EAMON.DESC,R";REC:(34);DE$;(34):DK$:`9 N >> READ DESC9*NDK$;"READ EAMON.DESC,R";REC:DE$:DK$94N9R >> READ ROOM9RDK$;"READ EAMON.ROOM NAMES,R";NO:NA$:DK$;"READ EAMON.ROOMS,R";NO:D1ND:RD%(D):":"DESC:":8000:" ":LPLP4kM2112:LPLP1:" ";M$(M2);10(M$(M2)));": ";6((M%(M2))));M%(M2);M23M24M27M210ĺ" %";M25M%(5)0M%(5)NRĺ" [";R$(M%(5));"]";M29M%(9)1ĺ" [ NO WEAPONS ]"M29M%(9)0ĺ" [ NATUR$"PR#";PSG:(12);(40(ADV$))2);ADV$:::LP3:RBEGEN:5500:xD$"CLOSE EAMON.MONSTERS":D$:D$"PR#0":100| D$;"READ EAMON.MONSTERS,R";R:MN$:M2112:M%(M2)::D$;"READ EAMON.DESC,R";R300:A$"MONSTER # ";R;" [";MN$;"]":" WITH #:";BEG$:BEG$""BEG$"1":18:6:BEG$m8:958:"ENDING WITH #:";EN$:EN$""EN$(NM):8:15:EN$(BEG$)NM(BEG$)1BEG$"1"(EN$)NM(EN$)(BEG$)EN$(NM)BEG(BEG$):EN(EN$)D$"OPEN EAMON.MONSTERS,L128" PRTĺDRTĺD$"PR#";PS*:RBEGEN:4500::D$=D$"PR#0":100C["EFFECT #";R;":":D$;"READ EAMON.DESC,R";R200:A$:8000D$::PRTĞ:7);"PRESS ANY KEY TO CONTINUE";7);:A$:: /// LIST MONSTERS,6:958:"BEGINNING LIST EFFECTSS6: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(EN$)(BEG$)EN$(NE)BEG(BEG$):EN(EN$)P)2A%(2)3)ĭA%(A2)1A%(A2)5ĺ" [";(" AXE BOW CLUB SPEARSWORD",(A%(6)1)51,5);"]";e:A2LP36PRTLP0:(12);(40(ADV$))21);ADV$D$::PRTĞ:7);"PRESS ANY KEY TO CONTINUE";7);::A$::A$(27)ġ:100  ///NARĺ" [INSIDE ";AN$(A%(4)100);"]";fA24A%(4)300A%(4)300NRĺ" [HIDDEN ";R$(A%(4)300);"]";:A2:FMP%(A%(2))03740.A258:A$(A2)"(NOT USED)"3740BLPLP1:" ";A$(A2);10(A$(A2)));": ";6((A%(A2))));A%(A2);[tA26(A%(2(A2))));A%(A2);6 A22ĺ" [";TYP$(A%(2));"]";:3580g A24A%(4)0A%(4)NRĺ" [";R$(A%(4));"]"; A24A%(4)0A%(4)NM1ĺ" [CARR.";MN$((A%(4))1);"]"; A24A%(4)200A%(4)200NRĺ" [";R$(A%(4)200);"]";$A24A%(4)100A%(4)100::DV5A%(2)1āA58:A%(A):X FMP%(A%(2))0āX14:A$(AFX)FL$(FMP%(A%(2)),X): "ARTIFACT # ";R;" [";AN$(R);"]":LPLP2:" ":D$;"READ EAMON.DESC,R";100R:A$:"DESC: ":8000:" " A214:LPLP1:" ";A$(A2);10(A$(A2)));": ";6((A%EN$(NA)# BEG(BEG$):EN(EN$)F D$"OPEN EAMON.ARTIFACTS,L128"[ PRTĺD$"PR#";PS :(12);(40(ADV$))2);ADV$:::LP3:RBEGEN:3500: D$"CLOSE EAMON.ARTIFACTS":D$:D$"PR#0":100  D$;"READ EAMON.ARTIFACTS,R";R:X$:A14:A%(A)(27)ġ:100) /// LIST ARTIF.v 6:958:"BEGINNING WITH ARTIFACT:";BEG$:BEG$""BEG$"1":6:25:BEG$ 8:958:"ENDING WITH ARTIFACT:";EN$:EN$""EN$(NA):22:8:EN$ (BEG$)NA(BEG$)1BEG$"1"  (EN$)NA(EN$)(BEG$)R%(D)0)((DR%(D))10));DR%(D);5)E\DR%(D)99ĺ"[EXIT]";:2160zfDR%(D)0(DR%(D))NRĺ"[";R$((DR%(D)));"]";p:D:D$:LP(48ND)PRTĺ(12);(40(ADV$))2);ADV$zPRTĺ::" PRESS ANY KEY TO CONTINUE ";::A$:: A$00:2/D$"CLOSE EAMON.ROOMS":D$:D$"PR#0":1004"ROOM # ";R;" [";R$(R);"]":LPLP1::"DESC:":D$;"READ EAMON.DESC,R";R:A$:8000H:"DIRECTIONS MOVED IN--":D$;"READ EAMON.ROOMS,R";R:D1ND:DR%(D):$RD1ND:LPLP1:" ";DD$(D);": ";(DING WITH #:";EN$:EN$""EN$(NR):8:15:EN$Q(BEG$)NR(BEG$)1BEG$"1"y(EN$)NR(EN$)(BEG$)EN$(NR)BEG(BEG$):EN(EN$) D$"OPEN EAMON.ROOMS,L64" PRTĺD$"PR#";PS*:(12);(40(ADV$))2);ADV$:::LP3:RBEGEN:21OSE":35! DV5:D$;"CLOSE":50;  /// SET UP PRINTERe 6:958:"WHAT SLOT IS PRINTER IN?"; A$:A$"1"A$"7"1020 A$:PS(A$):100  /// LIST ROOMS 6:958:"BEGINNING WITH #:";BEG$:BEG$""BEG$"1":6:18:BEG$.8:"ENDLIST ARTIFACTS":" 4. LIST EFFECTS" " 5. LIST MONSTERS":" 6. TOGGLE PRINTER (NOW ";("OFFON",PRT31,3PRT);")":" 7. QUIT":"INPUT YOUR CHOICE (1-6):";CH CH1000,2000,3000,4000,5000,6000,7000 130 DR$""DV4:DR$"6":216,0:D$;"CLS 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 dUR PRINTER CANNOT ACCEPT":"LOWER-CASE CHARACTERS AND 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$;"" (16384)128120& 16368,0= (16384)128240P 16368,0:120q ///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 YOIP! d:DK$;"OPEN ";F$$ nI0$""? xDK$;"READ ";F$:I2$""U A$:A$(13)190t A$"_"SUA$((A$)C32) I2$I2$A$:130 (I2$,1)" "I0$""ĺI0$:I0$"" I0$""I0$I0$" " I0$I0$I2$:(I2$)39(I0$)LL5ĺI0$:I0$"C330= (F$"DDD MANUAL.TEXT":C1F$"PLAYERS MANUAL.TEXT"W -C3F$"ADDEND V6.0" 2A$::"HIT 'P' TO USE PRINTER, 'V' FOR VIDEO "; <A$:A$"P"A$"V"60 FA$:A$"P"İ500:100 PLL79 ZSU0: ///CHANGE TO 0 IF YOU HAVE THE PAYMAR CHDK$(4):C3232  1000:5::11:"EAMON MANUAL PRINTER"::::"HIT KEY FOR MANUAL TO PRINT--"::" 1. PLAYER'S MANUAL"::" 2. DUNGEON DESIGNER'S MANUAL":" 3. ADDEND V6.0":::"(HIT '1', '2', OR '3'" A$:C(A$):C130: OT USED),(NOT USED),(NOT USED)B!V MONSTER#,KEY#,GUARD#,ATTACHEDH!<,ODDS,DICE,SIDES:  KEY#,STRENGTH,(NOT USED),(NOT USED)i $ COUNTER,(NOT USED),(NOT USED),(NOT USED) . CHANCES,HEAL AMT,NBR USES,(NOT USED) 8 1ST EFFECT,# EFFECTS,READABLE,(NOT USED) B ROOM INTO,KEY#,STRENGTH,(NOT USED)!L (NOT USED),(N NORTH ,SOUTH ,EAST ,WEST ,UP ,DOWN ,NORTHEAST,NORTHWEST,SOUTHEAST,SOUTHWESTHD110:DD$(D):zNF:FMP%(DT),FL$(DT,4):X0DT:FMP%(X)::X1NF:F14:FL$(X,F): 7ފ 0,0,1,1,2,3,4,5,6,7,8  W.TYPE,FRIEND,COUR,ROOM,WGHT,D.ODDS,ARMOUR,WEAPON#,O.ODDS,W.DICE,W.SIDESgDT:TYP$(DT):X0DT:TYP$(X):q 10 GOLD,TREASURE,WEAPON,SP.WEAPON,CONTAINER,LIGHT,HEAL,READABLE,DOOR,KEY,BOUND MON.A1AF:A$(A):Ɖ VALUE,TYPE,WEIGHT,ROOMi/ QUIT!bD$"CLOSE":D$"PR#0":1@PRTĺA$:]JAZ1(A$)40:(A$,AZ,40):LPLP1::q >>> READ DATA}̈AF:MFꈃ 4,12: AF = # ARTIF FIELDS, MF = # MONST FIELDSM$(MF),M%(MF):M$(0)"ADVENTURER":M1MF:M$(M):B HARD,AGILAL WEAPONS ]";BM29M%(9)0M%(9)N%(2)ĺ" [";AN$(M%(9));"]";P:M2:D$LP36PRTLP0:(12);(40(ADV$))21);ADV$:PRTĞ:7);"PRESS ANY KEY TO CONTINUE";6);:A$:::p /// TOGGLE PRINTERzPRTPRT100X //`NANZMD%(0,10)(EAAE)(EAAE)WO%(1)WA%(WT%(1))2MD%(0,2):MD%(0,7)0:MD%(0,9)NZ1:MD%(0,11)WD%(1):MD%(0,12)WS%(1):MD%(0,14)3jNC:C$(NC):C1NC:C$(C)::R21tS14:S2%(S)SA%(S)::V%(NR):ROOM1:ND6~R21l3500v 30%(NA,8)WS%(W2)::W24(8WZW2:WTWWZqBW21WZ:A1NAWZ:AN$(A)WN$(W2)AN$(A)AN$(A)"#":A00::1090LA,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:EAEA30LETE FRESH MEAT"m$DK$;"OPEN EAMON.DESC,L256":DK$;"OPEN EAMON.ROOM NAMES,L64":DK$;"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):ADFRESH 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,ACNWNW4:WN$(NW),WT%(NW),WO%(NW),WD%(NW),WP%(NW),WS%(NW):A14:WN$(A),WT%(A),WO%(A),WD%(A),WS%(A)::DK$;"CLOSE"DK$;"DE9):A1NA:DK$;"READ EAMON.ARTIFACTS,R";A:AN$(A):A218:AD%(A,A2):A2lAD%(A,2)1AD%(A,2)4NWNW1A:DK$;"OPEN EAMON.MONSTERS,L128":MN$(NM),MD%(NM,15):A1NM:DK$;"READ EAMON.MONSTERS,R";A:MN$(A):A2112:MD%(A,A2):A2,A|DK$;"OPEN 2,14)1DFM2:7500:M2200:M2:490+M2MNBTL(FD%(1)TD%(1)):NBTLĂMS\100t///INITIALIZE DATADK$;"OPEN EAMON.DESC":DK$;"READ EAMON.DESC":NR,NZ,NE,NM:DK$;"CLOSE":NANZIDK$;"OPEN EAMON.ARTIFACTS,L128":AN$(NA4),AD%(NA4,%(M,13):490!YMD%(M,14)24906^MD%(M,14)3390`hOFM:TD%(3)MD%(0,1)DF0:7500:490rM21NM:MD%(M2,5)ROOMMD%(M2,14)3(1).25MD%(M2,15)2DFM2:7500:M2200:M2:490|M2:DF0:7500:490OFM#M21NM:MD%(M2,5)ROOMMD%(MTO HERE6NBTL500B@M1NM:MD%(M,5)ROOMMD%(M,15)2490JM2MD%(M,14)(MD%(M,14)2):MRFD%(M2)TD%(M2)(41(1)20) TMD%(M,4)MRĺ:MN$(M);" FLEES OUT AN EXIT."::8500:MD%(M,5)R2:M2MD%(M,14):TD%(M2)TD%(M2)MD%(M,1):FD%(M2)FD%(M2)MD(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,25000,26000,///COMMANDS RETURN ,A1):S$(A$,A1)3 (S$,1)" "S$(S$,2):260U C16:(C$(C),(V$))V$290z :F0:A7NC:C$(A)V$CA:290 (C$(A),(V$))V$FF1:CA:F1275 :F290:"HUH? I ONLY UNDERSTAND THESE COMMANDS-- ";:C1NC:C$(C);20(C$A100:A$:DK$:A$:AD%(A,9)1:Y A:AANA:AD%(A,4)ROOMĺ"YOUR ";AN$(A)" IS HERE."_ { :" YOUR COMMAND?";A$ (A$,1)" "A$(A$,2):220 A$""A$CZ$:(37):16:A$ A$""275 CZ$A$:A2(A$):(A$,A,1)" "Ă V$(A$D%(M,5)ROOMMD%(M,15)2ĺMN$(M);" IS LYING HERE.": MD%(M,5)ROOMMD%(M,15)ĺDK$;"READ EAMON.DESC,R";M300:A$:DK$:A$:MD%(M,15)1: :A1NZ:AD%(A,4)ROOMAD%(A,9)ĺ"YOU SEE ";AN$(A);"." AD%(A,4)ROOMAD%(A,9)ĺDK$;"READ EAMON.DESC,R";(V%(ROOM)2)V%(ROOM)2ĺDK$;"READ EAMON.ROOM NAMES,R";ROOM:A$:DK$:"YOU ARE ":" ";A$: (V%(ROOM)2)(V%(ROOM)2)ĺDK$;"READ EAMON.DESC,R";ROOM:A$:DK$:A$::V%(ROOM)V%(ROOM)1 M1NM:MD%(M,5)ROOMMD%(M,15)1ĺMN$(M);" IS HERE.":4 M00 2216,0:1000M d///MAIN LOOP. FIRST GIVE ROOM DESC, THEN GET COMMANDS n xSPDSPDSPD1:SPDMD%(0,2)MD%(0,2)2:MD%(0,10)MD%(0,10)2MD%(0,2):(1).8ĺ"YOUR SPEED SPELL HAS JUST EXPIRED!": }LTĺ:"IT'S TOO DARK TO SEE.":210[ yJ EAMON ADVENTURE #NN: -> BASE DUNGEON <-@[ BY AUTHOR NAME ay LAST REV. 6-29-84 ADDITION COMPUTER LEARNING CENTER LIBRARY 07-15-84  50 DK$(4):DK$"VERIFY GAME.PTRS":290                         07&AD%(A,4)WHERAD%(A,4)HAVEAD%(A,4)EMB4850B&FO1:J&:&$///ROUTINE TO GET S$ IF NOT PREVIOUSLY SPECIFIED.&)S$""ĺ:C$(C);" WHAT";:S$:4900&.&///DROP COMMAND&4900&S$"ALL"5100W'A1NA:(AN$(A)S$(AN$(:X1NM:S$MN$(X)(MN$(X),(S$))S$(MN$(X),(S$))S$4750w%pMD%(X,5)WHERMD%(X,5)HAVEMD%(X,5)EMB4850%zFO1:%:% >> ARTIF SEARCH%WHRO:HA1:EMBRO&FO0:A1NA:AN$(A)S$(AN$(A),(S$))S$(AN$(A),(S$))S$4854190@$OWTAD%(A,3)10MD%(0,1)ĺAN$(A);" IS TOO HEAVY":4190q$TAN$(A)" TAKEN.":AD%(A,4)1:WTWTAD%(A,3)~$^::300$h///INSERT HERE SPECIAL EFFECTS OF PICKING SOMETHING UP$rGT1$$\ >>> MONST SEARCH$aWHRO:HA1:EMBROA%fFO0";S$;" HERE!"::100'#"4200:GT100i#'WTAD%(A,3)10MD%(0,1)ĺ:"IT IS TOO HEAVY FOR YOU."::100#,:"GOT IT.":AD%(A,4)1:SZSZAD%(A,0):WTWTAD%(A,3)::AD%(A,2)2MD%(0,9)1300#617000#@:A1NA:AD%(A,4)ROOM4190$J4200:GT100(1))MD%(M,14)3T"VAMD%(M,14):FD%(A)FD%(A)MD%(M,13):TD%(A)TD%(A)MD%(M,1)m"<M:NBTL(TD%(1)0):"///GET COMMAND"4900:LTĺ:"YOU CAN'T FIND ANYTHING.":100"S$"ALL"4160#EMBROOM200:WHERROOM:HARO:4810:FOĺ:"I SEE NO 1)0:FD%(3)MD%(0,13)!!$M1NMs!)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((CH10)2)"LMD%(M,14)1:FR(100(1))MD%(M,14)2:FR( GO THAT WAY!":V%(ROOM)0:100/ >> MOVE ITI R3ROOM:ROOMR2:3600 DK$;"READ EAMON.ROOMS,R";ROOM:X1ND:RD%(X):V%(ROOM)1RD%(X)(RD%(X)) :NL:DK$:LTNLLM 100 ///CHECK REACTIONS ON MONSTERS!TD%(1)0:TD%(3)MD%(0,1):FD%(MOVESL R299ĺ:"YOU SUCCESSFULLY RIDE OFF INTO THE":" SUNSET.":2000Zb R23490d 3490 AD%(R2100,7)0R2AD%(R2100,5):3040 AD%(R2100,6)0R2AD%(R2100,5):3040 :"THE ";AN$(R2100);" BLOCKS THE WAY!":100 :"YOU CAN'TN$(0):REC:DK$;"CLOSE"6T DK$;"RUN MAIN HALL,S6,D1"K ///MOVE COMMAND NBTLS$"FLEE"ĺ:"YOU CAN'T DO THAT WITH UNFRIENDLIES ABOUT!"::100 D16:(V$,1)("NSEWUD",D,1)Ă R2RD%(D):R21003300 R203500 ///SPECIAL RACTERS,L150,S6,D1":DK$;"WRITE CHARACTERS,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":M(HIT ANY KEY TO CONTINUE) ";:A$:. 2500 :5:"(INSERT EAMON MASTER DISKETTE, THEN":" HIT THE 'C' KEY) ";:16368,0 A$:A$"C"2520 A$ DIEĺDK$;"OPEN THE ADVENTURER,S6,D1":DK$;"DELETE THE ADVENTURER":2900b DK$;"OPEN CHA":"SLICKER, THE LOCAL BUYER FOR SUCH":"THINGS, HE EXAMINES YOUR GOODS AND":"PAYS YOU ";~ 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:GOLD0GOLD0#B :"1W5W21W5(W5)2080f*AD%(WP%(W5),4)1:WN$(W5)WN$(W21):WP%(W5)WP%(W21):W2W21:W252060W14: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)Z W::5:"AS YOU DELIVER YOUR TREASURES TO SAMLEFIRE APPEARS AND":"TELLS YOU, 'YOU HAVE TOO MANY WEAPONS":"TO KEEP THEM ALL--4 IS THE LEGAL LIMIT."::"YOUR WEAPONS ARE--"W1W21:4);W;"--";WN$(W):::"ENTER THE NUMBER OF THE WEAPON TO SELL (1-";W21;") " (37):23:A$:W5(A$):W5DK$"CLOSE":SPDMD%(0,2)MD%(0,2)22DIE2500W14: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)0A:W262300 :5:"AS YOU START TO ENTER THE MAIN HALL,":"LORD WILLIAM MISS NORTH,SOUTH,EAST,WEST,UP,DOWN,GET,TAKE,DROP,LOOK,EXAMINE,ATTACK,FLEE,GIVE,INVENTORY,BLAST,HEAL,POWER,SPEED,SMILE,WAVE,SAY,READ,READY,SAVE,LIGHT,OPEN,PUT,DRINK FREE///DONE WITH GAME:"(HIT ANY KEY TO CONTINUE) ";:16368,0:A$:$DF1AD%(AJ,4)ROOM6(:MD%(DF,9)0AD%(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)26<DF0DIE1:20006FA2DFNZNM:AD%(A2,4)RO6:6@///FLEE COMMAND 7JNBTLĺ:"THERE'S NOTHING TO FLEE FECT OF MONSTERS DYING=== SIMPLY DELETE REM PART OF THIS LINE (EFFECT 1 = MONSTER 1 DYING, EFFECT 2 = MONSTER 2, ETC.) : R = DF: GOSUB 23800:?5MN$(DF);" IS DEAD!"::AMD%(DF,14):FD%(A)FD%(A)MD%(DF,1)MD%(DF,13)D2:MD%(DF,5)06AJ1NA:AD%(AJ,4)4:MN$(DF);:(MD%(DF,13)5MD%(DF,1)1)7655,7660,7665,7670,7675k4" IS STILL IN GOOD":" SHAPE.":4" IS HURTING.":4" IS IN PAIN.":4" IS VERY BADLY INJURED.":4" IS AT DEATH'S DOOR,":" KNOCKING LOUDLY.":5 == PRINT EFF1.5S:7635"3R296D2D:7635:3R2100D3D:7635D377003D20:D31D:D2D2(S(1)1)::D2D2AMD%(DF,8):D21ĺ" BLOW BOUNCES OFF ARMOUR"::3MD%(DF,13)MD%(DF,13)D2:MD%(DF,13)MD%(DF,1)77003AMD%(DF,14):FD%(A)FD%(A)D2D2):DFOF:A1:7635B2DMD%(OF,11)2:SMD%(OF,12):DFOF:A0:76352INC((100(1)1)MD%(OF,10)):MD%(OF,10)MD%(OF,10)2INC2DMD%(OF,11):SMD%(OF,12):A1:RL5ĺ"A HIT!":76352"A CRITICAL HIT!":R2(100(1)1):R251A0:7635 3R286SSPARKS FLY FROM ";AN$(W);"!":.1oFR9575501t" 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ĺ:1y" BROKEN WEAPON HURTS USER!"1~FR10075602DMD%(OF,11):SMD%(OF,1A FUMBLE!":FR(100(1)1):FR3540(MD%(OF,9))ĺ" FUMBLE RECOVERED."::0jFR76ĺ" WEAPON DROPPED!":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::1lMD%(OF,9)0WMD%(OF,9):AD%(W,2)3ĺ:"(A,4)0:MD%(OF,9)A:MD%(OF,10)MD%(OF,10)AD%(A,5):MD%(OF,4)MD%(OF,4)2:g/LHIT0:MD%(OF,9)17400/QMN$(OF);" ATTACKS ";MN$(DF):" --";:RL(100(1)1):HIT0:(RL5RLMD%(OF,10)MD%(DF,7))RL96HIT1/VHIT7600/`RL97ĺ"A MISS.":N0e"I.MD%(DF,3)MD%(DF,3)2:M1NM:MD%(M,5)ROOMMD%(M,14)1MD%(M,14)0c.M:R3ROOM:3600:300.///MONSTER TRIES TO PICK UP WEAPON.MD%(OF,10)0ı.A1NA:AD%(A,4)ROOMAD%(A,2)2AD%(A,2)3Ă:J/MN$(OF);" PICKS UP ";AN$(A);"."::AD%,9)1ĺ:"YOU HAVE NO WEAPON READY!"::100K-OF0:DFM:7500:HIT7360y-INCW2AD%(MD%(0,9),6):WA%(W2)WA%(W2)2-EAAE300-(100(1)1)MD%(0,10)7360-A2:EAAE1A1-AEAEA:MD%(0,10)MD%(0,10)A.MD%(DF,14)1DF0300OULD BE STUPID.":1009,S7:K6:AD%(A,2)4SS1:KK1, D20:X1MD%(0,11):D2D2((1)MD%(0,12)1)::AD%(A,S)AD%(A,S)D2:AD%(A,S)0AD%(A,S)0:AD%(A,K)0::"THE ";AN$(A);" SHATTERS!":300,:"WHAM!! YOU HIT THE ";AN$(A);"!":300,-zMD%(0 SOMETHING.")+V%(ROOM)V%(ROOM)1:300@+X///ATTACK COMMANDy+b4900:LTĺ:"YOU SWING WILD --- NOTHING HIT.":300+4700:FO7150+MX:7290+WHRO:HAVRO:EMBRO200:4810:FOĺ:"ATTACK WHO?":100,AD%(A,2)8AD%(A,2)4ĺ:"THAT WMON.DESC,R";A300:A$:DK$::A$::LK16*A:LK300G*S$""6550*X1ND:RD%(X)0RD%(X)NRĺ:"YOU FOUND A SECRET PASSAGE ";C$(X);"!":RD%(X)(RD%(X)):V%(ROOM)2**A1NZ:AD%(A,4)ROOM300AD%(A,4)ROOM:LK1 +:LKĺ:"YOU FOUND6060)A1NZ:AN$(A)S$(AD%(A,4)ROOMAD%(A,4)1AD%(A,4)200ROOM)ĺDK$;"READ EAMON.DESC,R";A100:A$:DK$::A$::LK1:AD%(A,9)1)AN$(A)S$AD%(A,4)200ROOMLK1:AD%(A,4)ROOM)A:LK300'*A1NM:MN$(A)S$MD%(A,5)ROOMĺDK$;"READ EA CARRY ALL OF THE ITEMS YOU ARE CARRYING, AND THEY ALL FALL TO THE GROUND."::5100(MD%(0,9)0ĭAD%(MD%(0,9),4)1MD%(0,9)1(300(A1NA:AD%(A,4)1ĺAN$(A);" DROPPED.":AD%(A,4)ROOM(A:WT0:5060(p///LOOK COMMAND)zLK0:S$""A),(S$))S$(AN$(A),(S$))S$)AD%(A,4)1Ă::"YOU AREN'T CARRYING A ";S$::100'WTWTAD%(A,3):AD%(A,4)ROOM::AN$(A);" DROPPED.":'ALSLS0:LC0:LM0:LTNL::"THE ";AN$(A);" GOES OUT."T(WT10MD%(0,1)ĺ"YOU SUDDENLY FIND YOU CANNOT56;",L";(115)(116)256(111)(112)2561}FF:"THE GAME IS NOW SAVED. BOOT ON THIS":" DISKETTE TO RESTART THE GAME."FFF8J >> LIGHTFBJ4900:4800:FOĺ:"I DON'T KNOW WHAT YOU MEAN.":100FLJAD%(A,2)5ĺ:"YOU BURN YOURSELF!":3005GVJ? ":"(Y/N) :";.EdFA$:A$"Y"A$"N"18020BEnFA$:A$"N"100ZExFDK$;"CLOSE":X(0)|EFDK$"BSAVE GAME.PTRS,A$69,L8"EFDK$"BSAVE GAME.SVAR,A";(105)(106)256;",L";(109)(110)256(105)(106)2561-FFDK$"BSAVE GAME.STR,A";(111)(112)2DBAD%(A,2)2AD%(A,2)3ĺ:"THAT ISN'T A WEAPON!"::100D49001C>S$"BLAST"V$S$:S$"":11000FC>S$"HEAL"12000\C>S$"POWER"13000rC>S$"SPEED"14000CB:"OKAY, '";S$;"'"::300ChB///READY A WEAPON.CrB4900C|BA1NA:AN$(A)S$AD%(A,4)1Ă::"YOU AREN'T CARRYING IT!"::100:":" THROUGH YOU!"::3001B:///SMILE COMMANDUB::M1NM:MD%(M,5)ROOM15100vB:MD%(M,14)15030,15040,15050B:MN$(M);" GROWLS AT YOU!":15100B:MN$(M);" IGNORES YOU.":15100B:MN$(M);" ";V$;"S BACK.":15100B:M::300C>///SAY COMS ALIVE!":AD%(M2,4)0:MD%(M,5)ROOM:MD%(M,13)0:AD%(M2,4)1WTWTAD%(M2,3)SA3gA6///SPEED SPELLA6S3:11500:SUC300A6SPDMD%(0,10)MD%(0,10)2MD%(0,2):MD%(0,2)2MD%(0,2)B6SPDSPD(25(1)10)::"YOU CAN FEEL THE NEW AGILITY FLOWINGRE IN ":" COLLAPSES AND YOU DIE.":DIE1:2000@3RR86ĺ:"YOU HEAR A VERY LOUD SONIC BOOM":" THAT ECHOES THROUGH THE TUNNELS."::300@"3RR95ĺ:"ALL OF YOUR HITS ARE HEALED."::MD%(0,13)0:300@,314020@3 === RAISE DEADMA3MN$(M);" COMEK?2RAISE0:M1NM:M2NZNMM:AD%(M2,4)ROOMAD%(M2,4)1RAISE1:13200l?2M:RAISER3ROOM:3600:300?2A1NA:AD%(A,4)ROOMRAISE1:AN$(A);" VANISHES!":AD%(A,4)0?2A:RAISEĺ:300/@3RR(100(1)1):RR11ĺ:"THE SECTION OF TUNNEL YOU A2:11500:SUC300O>.:MD%(0,13)ĺ"SOME OF YOUR WOUNDS SEEM TO CLEAR UP.":>.MD%(0,13)MD%(0,13)(10(1)1):MD%(0,13)0MD%(0,13)0>/DF0:7650:300>2///POWER SPELL--RE-WRITE THIS SECTION FOR YOUR OWN SPECIAL PLOTS?2S4:11500:SUC300G HAPPENED.":N=-RL(100(1)1):RLS2%(S)S2%(S)S2%(S)2:SA%(S)SA%(S)2b= -S2%(S)S2%(S)2h=-=P-:"THE STRAIN OF ATTEMPTING TO CAST THIS SPELL OVERLOADS YOUR BRAIN AND YOU FORGET IT COMPLETELY."::SA%(S)0:=.///HEAL SPELL>.S,M1NM:S$MN$(M)MD%(M,5)ROOMĂ::"YOU CAN'T BLAST ";S$;"!"::100b<,S1:11500:SUC300<,:"DIRECT HIT!"::S6:D1:DFM:A0:7635::300<,SUC0:SA%(S)RL(100(1)1):SUC(((RLS2%(S))(RL5))(RL95)):RL10011600=,SUCĺ:"NOTHIN0):9120";'///INVENTORY COMMAND;':"YOU ARE CARRYING THE FOLLOWING--":A00:A1NA:AD%(A,4)1ĺ" ";AN$(A);(" (READY WEAPON)",120(AMD%(0,9))):A0A01:A015ĺ:"(HIT ANY KEY TO CONTINUE)";:A$::A00;$':300;*///BLAST SPELL;+4900I!R2RD%(6(1)1):R21R2NR85107H!7(#///GIVE COMMAND72#A218<#M1NM:(S$,(MN$(M)))堠堠墠䠠Ԭ堠宍젠젠堠䠠쮍栠堠̠ҠΠŠӍΠ䠠䠠砠                     !!! ! ! ! ! !!!!!!!!!""" " " " " """""""""            ;"DELETE GAME.STR"oRqDK$;"OPEN EAMON.DESC,L256":DK$;"OPEN EAMON.ROOMS,L64":DK$;"OPEN EAMON.ROOM NAMES,L64"xRq100"Hq /// RESTARTKQRq:"DO YOU WANT TO RESTART THIS GAME?":" Y OR N:";jQ\qA$:A$"Y"A$"N"29020|QfqA$:A$"N"ĀQpq(4);"BLOAD GAME.PTRS":(4);"BLOAD GAME.SVAR":(4);"BLOAD GAME.STR"RzqDK$;"DELETE GAME.PTRS":DK$;"DELETE GAME.SVAR":DK$,5)ROOMĺ:MN$(G);" WON'T LET YOU DO THAT!":300jPB^AD%(K,4)1K0ĺ:"YOU DON'T HAVE THE KEY!":100PV^:"YOU HAVE FREED ";MN$(M);".":MD%(M,5)ROOM:AD%(A,4)0:R3ROOM:3600:300Pa >> USER COMMAND 1P,e300Pe >> USER COMMAND 2Pi300Q>> FREEYO]4900:A1NA:S$AN$(A)S$(AN$(A),(S$))Ă::"I DON'T UNDERSTAND.":100O]AD%(A,2)10ĺ:"I DON'T UNDERSTAND.":100O]MAD%(A,5):KAD%(A,6):GAD%(A,7)O.^AD%(A,4)ROOMĺ:"I DON'T KNOW WHAT YOU ARE TALKING ABOUT.":1001P8^MD%(GZ:"YOU CAN'T READ THAT!":3007N> READ NON-ARTIFYNFZ:"I DON'T UNDERSTAND.":100mNZ >> READ ARTIFNZ:X1AD%(A,6):RAD%(A,5)1X:23800:::"PRESS A KEY TO CONTINUE";:A$:NZ300N\DK$;"READ EAMON.DESC,R";R200:A$:DK$:A$:O] (1)100)AD%(A,7)AD%(A,7)1:MD%(0,13)MD%(0,13)AD%(A,6)::"YOUR WOUNDS SEEM TO ";("OPENHEAL",(AD%(A,6)0)41,4);"!":300M"V:"NOTHING SEEMS TO HAPPEN.":300MY >> READMY4900:WHRO:HAV1:EMBRO200:4810:FO23100MYAD%(A,2)723200N2150&LRAD%(X,4)A100::"OKAY.":300ELR:"DON'T BE ABSURD.":100]LU >> HEALING POTIONLU4900:4800:FOĺ:"I DON'T UNDERSTAND.":100LVAD%(A,2)6ĺ:"YOU CAN'T DO THAT!":100LVAD%(A,7)0ĺ:"THERE ISN'T ANY LEFT.":300~MVAD%(A,5)(:21100AKR(S$,X,3)" IN"X2A$(S$,X1):B$(S$,X3):21100uK&R::"PUT WHAT?";A$:"PUT INTO WHAT?";B$:21100K0R:"PUT WHAT?";A$:"PUT INTO WHAT?";B$:21100KlRS$A$:4800:FOĺ"I DON'T KNOW WHAT YOU MEAN.":100LvRXA:S$B$:4800:FOAX21GATE>JVOAD%(A,6)ĭAD%(AD%(A,6),4)1ĺ:"IT'S LOCKED!":100JjOAD%(A,6)0::"YOU'VE OPENED THE ";AN$(A);".":X1ND:RD%(X)A100RD%(X)AD%(A,5)JtO:300JR >> PUTJRS$""21040KRX1(S$):(S$,X,5)" INTO"X2A$(S$,X1):B$(S$,X6)T'S LOCKED!":100FINLK0:X1NA:AD%(X,4)A100AD%(X,4)ROOM:LK1:qIN:LKĺ:"YOU FOUND SOMETHING INSIDE!"zIN300INS$"DOOR"S$"GATE"ĺ:"IT WILL OPEN WHEN YOU APPROACH.":100IN:"I DON'T KNOW HOW TO OPEN ";S$;".":100JLO >> OPEN DOOR/%(A,2)4201008H>NAD%(A,2)7ĺ:"TRY READING IT.":100{HHNAD%(A,2)1ĺ:"YOU'LL MAKE A MESS. WAIT TILL YOU LEAVE.":100HRNAD%(A,2)820300H\N:"THAT'S NOT WHAT YOU DO WITH IT.":100HN >> OPEN CONTAINERINAD%(A,5)ĭAD%(AD%(A,5),4)1ĺ:"IAD%(A,4)1ĺ:"YOU HAVE TO PICK IT UP FIRST.":100fG`JLTNL:AD%(A,5)0ĺ:"IT WON'T LIGHT!":100GjJLM1:LT1:LCAD%(A,5):LSA::"YOU'VE MANAGED TO LIGHT THE ";AN$(A);".":300G N >> OPENG*N4900:WHRO:HA1:EMBRO200:4810:FO20200H4NAD栠ᠠ堠栠堠򬠠堠Ӎ宠ﬠ嬠堠堠堠栠嬠נӠ婮堠堠Ӡ嬠堠Šҍ堠ᠠ䠠䮠蠠堠Ӎᠠ堠䠠砠󠠠砠ȠԮ堠堠ŠҠ堠宩栠堠󠠠򬠠Ӡ宠㠠䠠ōҢ堠Π̮Š̠ĠƍΠ䠠宠΍̠嬠ήŠ堠䠠堠󮠠堠堠䠠謠젠ήŠ堠뮍堠䬠ȠԠ堠렠ᠠӠ嬠䠠󠠨嬠䠠堠Ӎ嬠䠠󮠠堠䠠젠堢Ţ嬠䠠򬠠蠠젠䠠򽲬彶蠠䠠䩬堠堠嬠嬠䠠宠쬍䬠䠠򩬠堠堠󠠨嬠⬠䩬嬍砨͢Ƣ䬠䠠堠묠䠠䠠堠䠠䠠堠ᠠ堠ᠠ䠠󠺠堠宠󠠠䠠堠󬠠ᬍӢ堠ᠠ蠠栠䠠嬠䠠젠젨堠󬠠󬠠젠󬠨ᠠ䠠ҍ젠讍ǠРȠ΍ǠӠϠҠȠҍΠĠԍ䮍젠堠젠젠ᠠ秠堠󮠠堠谰󮠠庠쭩󺠠󺠳󺠰󺠱堠堠蠠堠穮䠱栠栠󠠨蠠堠򍱰堠捱婬䠠򠠨ͬԬԬҩ宠堠󮍍栠쬠䠠砠堠嬠堠󠠨䠠ͮ堭堧Πͧ䮍堠宠č堠Πԧ䠶򠱰堠󮠠堠Π͠堠栠䠱栠󮠠嬍堠Πͮ堠Š΍婮䠭䠠堠堠砠󮠠ĠĠΠ͠čΠ͠堠䠠嬠䠠堠ŠΠ͠Ů堠Ġ䠠䠠΍ͮ堠䠠䠠䠠Š䠠堠䠠宠堠堠䠠堠򠭠ᠠ嬠堠ήŬ堠砠ᠠ堠砠뮠ᠠ󠠠堠젠Πͮ宍砠宍Ġ婠젠Ԡ堠䠠Ӡà䩠Π͍Π͠堠ÍԠξΠ󮠠ᠠΠ͠Š͠Π͠ō͠Πͬᠠ堠ԠξΠᠠ堠ᠠ䠠栠堠堠젠堠嬠΍̠讠宩ŠƠŠΠΠō堠堠⠠栠堠󠠠򮠠庠䬍򬠠󩬠󬠠젠򮍍젠ᠠ堨堠젠򮠠렠栠捰堠堠堠젠䠠堠宠󍭹宍堠󠠴󮠠젠堠䭭栠Ţ䠠笠󠠠堠󮍍栠ᮠ嬠蠠򍳹󮠠󺠠ՠŠ婢嬠ԠōŠ򬠠堠젠䠠󮠠堠堠堠䠠堠젠䮠堠堠󠨢砠󮠨΢砠Π堠宠򠴰ĠĠө򍠠䠠堠򮍠򠲵䠠䠠宍̭ɭ占堠󬠠砠썠󠠠򍠠宠䍠栠堠砠占䠠󍠠̭ŭ堠堠򍠠̭ĭ堠򍠠򍠠䠠占宍έᠠ􍠠򮍠̭­堠堠򍠠뮠䬠堠砠󭭍í󬠠荠䠠占砠򮠠捠à젠堠堠蠠젠宠堠嬠󮠠栠쬠堠砠㮩栠堠笠򡠠栠󠠹栠ΠԠ堠堠栠̠젠栢󢠠堠ﬠ堠堠栠ᠠĮ堠䬠堠Ġ嬍ìҢūԠԠԠˤź堠󮠠렠堠宠孭렠Ŭ婠占󺍠ԠˤĠή栠栠䮍Ԣ젠堠堠栠宠堠堠蠠堠󩬠򠠨ᠠ󠠰讠󠭱堠堠䠠堠ᠥ򠠠䠠䠭젠ᠠ栱堨ᠠ󬠠堠婬堠砠젠쮠젠䠠嬠蠠򩬠󠠨堠堠栠砠栠姍嬠宍砨婠卲򠳩젠堠嬠嬍򬠠䩬ᬠ報ᬠ箠󠠲䠳蠲堠쬠䠳ᠠ䠠䠠ﬠ䠠󠭱堠堰堠堠蠠堠嬠ĠӢᠠ堠򬠠栠ĥ፠堠󺍠占占􍠠퍠占蠠젠󮍠栠堠堠歍䠠䬠ᠠ孭à󠠱堠堠쮠쬍젠砠쭭󠠠堠堠䬠费堠󠠷堠堠䠠󠷷ͮ栠ᠠ砠砠堠䠠堠󠴲堠堠젠󠠠砠堠󠠴󬠴ƠӤԢΠӤŠԢ栠ᠠ䠠Ԡ堠ᠠ 䠠堠栠䠠򬠠堠󠳰󠠴󮠠栠堠򬠠Ҳ䠠砠堠 󠱱󠠲堠堠󮠠䬠堠Š宠󠠲堠󮍠󠠳堠堠堠䩬堠﩮栠젠堠䠠󍵰󠱰묠箠栠䠠ᠠ䬠報嬠ɍ󠠱堠堠讠堠堠čΠ͠婠ﮍΠ͠Π͠󬠠㮠䬠䠠Ĭ䠠ᠠ󡍍ǠŠŠΠ͍堠ᠠ宠䠠堠Š΍͠젠蠠堠堠䠠砠䠠堠蠠堨򠠠堠󠠠ᠠ䠠ΠԠĩ堠󠠠堠ήӠήӠ