' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL]$$8HIL,նh, ,`, ,`, , ,:/8` 鷎귭෍ᷩ췩緈JJJJx L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>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-(x ΠΠҠ-@跻~!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# u`VALUE IN GOLD PIECES:";:1500:VL(I$):(VL)I$(VL)VLĺ(7):I$I2$:22050&,V"ENTER TYPE OF ARTIFACT:":X07:X;" = ";TA$(X)::TYP&1VA$:A$(27)A$(TY):22070&4VA$"0"A$"6"22065&6VTYPE(A$):1:TA$(TYPE);" ARTIFACT";:958:'@VI2;%V" ";:1500:(I$)39Ģ3:20:"TOO LONG!":I2$I$:22020%V3:958:"ARTIFACT NAME:":" ";::I$::AN$I$:6:I2$AD$:"ENTER ARTIFACT DESCRIPTION:":1500:6:958:"ARTIFACT DESCRIPTION:"::I$::AD$I$:%VVZ(37):I2$(VL)O&"VVZ1:"ENTER THE OMS,R";N2:D1ND:DR%(D)::DK$)$bR100B$U///EDIT AN ARTIFACT$U20030:NN2:DK$;"READ II.DESC,R";N100:AD$:DK$;"READ II.ARTIFACTS,R";N:AN$,VL,TYPE,WT,ROOM:WC,W2,DICE,SIDES$UDK$$U:"EDITING ARTIFACT ";N:I2$AN$::"ENTER ARTIFACT NAME:"O DIR, NEGATIVE FOR STRANGE)":D1ND:I2$(DR%(D))#DR1D:"MOVE ";DD$(D);"-- ";:1500:DR(I$):DR(DR)(DR)I$I2$I$:21060#NRDR%(D)(I$):D $XRDK$;"WRITE II.ROOM NAMES,R";N2:R1$:DK$;"WRITE II.DESC,R";N2:(34);R2$;(34):DK$;"WRITE II.RO.ROOMS,R";N2:D1ND:DR%(D)::DK$^"&R:"EDITING ROOM ";N2::"EDITING ROOM NAME--":I2$R1$"0R" ";:1500:(I$)39Ģ3:20:"TOO LONG!";(7):I2$I$:210404#:RR1$I$:6:"EDITING DESCRIPTION--":I2$R2$:1500:R2$I$::"EDITING ROOM DIRECTIONS (0 FOR NET NUMBER TO EDIT!>N"ENTER NUMBER OF ";T$(TYPE);" TO EDIT":" (1-";N%(TYPE);:") ";A$:N2(A$):N21N2N%(TYPE)N2(N2)ġ:100!HN!R///EDIT A ROOM!R20030#"RDK$;"READ II.ROOM NAMES,R";N2:R1$:DK$;"READ II.DESC,R";N2:R2$:DK$;"READ II 6 6N%(4)N%(4)1:DK$;"WRITE II.DESC,R";300N%(4):(34);MD$;(34):DK$;"WRITE II.MONSTERS,R";N%(4):MN$:M118:M%(M)::DK$ 7100 :ND6:216,0:40 N///EDIT OLD ITEM BLOCK *NC$"EDIT":1000:TYPEA:TYPE21000,22000,23000,24000!4N///GONSTER # ";N%(4)1::I2$"":"ENTER NAME:";:1500:I$""(I$)30140106MN$I$::"ENTER DESC--":I2$"":1500:MD$I$::"MONSTER # ";N%(4)1;" ";::MN$:::M1186"ENTER ";M$(M);": ";:I2$"":1500:M%(M)(I$):(M%(M))I$ĺ(7):(37):14050):AN$:VL:TYPE:WT:ROOM3n2WC:W2:DICE:SIDESCx2DK$::100I2_2///ADD AN EFFECT2:"ENTER EFFECT #";N%(3)1:I2$"":1500::N%(3)N%(3)1:DK$;"WRITE II.DESC,R";200N%(3):(34);I$;(34):DK$:1006///ADD A MONSTERG6:"ENTERING MI$ĺ(7):I2$I$:12180#/I2$""/VZ8:"ENTER NUMBER OF SIDES PER DICE:";:1500:SIDES(I$):SIDES1SIDES(SIDES)(SIDES)I$ĺ"":I2$I$:12200d2N%(2)N%(2)1:DK$;"WRITE II.DESC,R";N%(2)100:(34);AD$;(34):DK$;"WRITE II.ARTIFACTS,R";N%(2XE, 2=BOW, 3=CLUB, 4=SPEAR, 5=SWORD) ";M/A$:W2(A$):W21W2512160/VZ6:1:958:("AXE BOW CLUB SPEARSWORD",(W21)51,5);" WEAPON":I2$""/VZ7:"ENTER NUMBER OF DICE OF DAMAGE DONE:";:1500:DICE(I$):DICE1DICE(DICE)(DICE)"ENTER ROOM STARTING IN:";:1500:ROOM(I$):ROOM(ROOM)(ROOM)I$ĺ(7):I2$I$:12110mX/TYPE212900x]/I2$""b/VZ5:"ENTER CHANCES:";:1500:WC(I$):WC(WC)(WC)I$ĺ(7):12130l/I2$""+v/VZ6:958:"HIT KEY FOR WEAPON TYPE (1=A TYPE OF ARTIFACT:":X07:X;" = ";TA$(X):I!/A$:A$"0"A$"6"12065&/TYPE(A$):VZ2:1:TA$(TYPE);" ARTIFACT";:958:0/I2$"":/VZ3:"ENTER WEIGHT IN GRONDS:";:1500:WT(I$):WT(WT)(WT)I$ĺ(7):I2$I$:12090D/I2$""[N/VZ4:" ";::I$::AN$I$:6:I2$"":"ENTER ARTIFACT DESCRIPTION:":1500:6:958:"ARTIFACT DESCRIPTION:"::I$::AD$I$:/VZ(37):I2$""/VZ1:"ENTER THE VALUE IN GOLD PIECES:";:1500:VL(I$):(VL)I$(VL)VLĺ"":I$I2$:12050,/VZ2:"ENTER2$;(34):DK$;"WRITE II.ROOMS,R";N%(1):D1ND:DR%(D)::DK$FH+100_. ///ADD AN ARTIFACT.:"ENTERING ARTIFACT ";N%(2)1:I2$""::"ENTER ARTIFACT NAME:"." ";:1500:(I$)39Ģ3:20:"TOO LONG!":I2$I$:12020v.3:958:"ARTIFACT NAME:":R NO CONNECTION, NEGATIVE NUMBER FOR UNUSUAL THINGS.":D1ND*+16D:"MOVE ";DD$(D);"--";:I2$"":1500:DR(I$):DR(DR)(DR)I$110504+DR%(D)DR:D=>+N%(1)N%(1)1:DK$;"WRITE II.ROOM NAMES,R";N%(1):R1$:DK$;"WRITE II.DESC,R";N%(1):(34);RCE)I$ĺ(7):I2$I$:32330&6T~I2$""6^~VZ8:"ENTER NUMBER OF SIDES PER DICE:";:1500:SIDES(I$):SIDES1SIDES(SIDES)(SIDES)I$ĺ"":I2$I$:32350 7h~DK$;"WRITE II.DESC,R";N2100:(34);AD$;(34):DK$;"WRITE II.ARTIFACTS,R";N2:AN$:VL:TYPE:1=AXE, 2=BOW, 3=CLUB, 4=SPEAR, 5=SWORD) ";P56~A$:W2(A$):W21W25323105@~VZ6:1:958:("AXE BOW CLUB SPEARSWORD",(W21)51,5);" WEAPON":I2$""6J~VZ7:"ENTER NUMBER OF DICE OF DAMAGE DONE:";:1500:DICE(I$):DICE1DICE(DICE)(DI ROOM STARTING IN:";:1500:ROOM(I$):ROOM(ROOM)(ROOM)I$ĺ(7):I2$I$:32250f4~TYPE232360q4~I2$""4~VZ5:"ENTER WEAPON COMPLEXITY:";:1500:WC(I$):WC(WC)(WC)I$ĺ(7):322804"~I2$"".5,~VZ6:958:"HIT KEY FOR WEAPON TYPE (TYPE OF ARTIFACT:":X06:X;" = ";TA$(X):H3}A$:A$"0"A$"6"32200z3}TYPE(A$):1:TA$(TYPE);" ARTIFACT";:958:3}I2$""3}VZ3:"ENTER WEIGHT IN GRONDS:";:1500:WT(I$):WT(WT)(WT)I$ĺ(7):I2$I$:322303}I2$""T4}VZ4:"ENTERME:":" ";::I$::AN$I$:6:I2$"":"ENTER ARTIFACT DESCRIPTION:":1500:6:958:"ARTIFACT DESCRIPTION:"::I$::AD$I$:2}VZ(37):I2$""2}VZ1:"ENTER THE VALUE IN GOLD PIECES:";:1500:VL(I$):(VL)I$(VL)VLĺ"":I$I2$:32180+3}"ENTER $;(34):DK$;"WRITE II.ROOMS,R";N2:D1ND:DR%(D)::DK$B1x}100]1} /// REPLACE ARTIFACTh1}200301}:"ENTERING ARTIFACT ";N2:I2$""::"ENTER ARTIFACT NAME :"1}" ";:1500:(I$)39Ģ3:20:"TOO LONG!":I2$I$:32150{2}3:958:"ARTIFACT NASE ZERO FOR NO CONNETION, A NEGATIVE NUMBER FOR UNUSUALTHINGS.":D1ND0Z}16D:"MOVE ";("NSEWUD",D,1);"--";:I2$"":1500:DR(I$):DR(DR)(DR)I$320900d}DR%(D)DR:D91n}DK$;"WRITE II.ROOM NAMES,R";N2:R1$:DK$;"WRITE II.DESC,R";N2:(34);R2(I$)39Ģ3:20:"TOO LONG!":I2$I$:32060/F}3:958:"ROOM NAME:":" ";::I$::R1$I$:6:I2$"":"ENTER ROOM DESCRIPTION:":1500:6:958:"ROOM DESCRIPTION:"::I$::R2$I$:H0P}13:"FOR EACH DIRECTION,GIVE THE ROOM THAT THIS ROOM CONNECTS TO (UTE II.DESC,R0":T14:N%(T):/.DuDK$;"CLOSE"<.Nu216,0:Y.} /// REPLACE ITEM BLOCK. }C$"REPLACE":1000:TYPEA:TYPE32020,32130,32400,32420.} /// REPLACE ROOM.}20030.2}:"ENTERING ROOM ";N2::I2$"":"ENTER ROOM NAME:"+/<}" ";:1500:]m-^DK$;"WRITE II.DESC,R";300N:(34);MD$;(34):DK$;"WRITE II.MONSTERS,R";N:MN$:M118:M%(M)::DK$v-^100-Hq"FOUND AN ERROR - CODE ";(222):"ON LINE # ";(218)(219)256:(222)10ĺ"CAN'T SAVE FILE - LOCKED.":-0u///QUIT.:uDK$;"WRIG MONSTER # ";N::I2$MN$:"ENTER NAME:";:1500:I$""(I$)3024010,]MN$I$::"ENTER DESC--":I2$MD$:1500:MD$I$::"MONSTER # ";N;" ";::MN$:::M118,]"ENTER ";M$(M);": ";:I2$(M%(M)):1500:M%(M)(I$):(M%(M))I$ĺ(7):(37):24050-I.DESC,R";200N2:I2$:DK$::"EDITING EFFECT #";N2:1500:DK$;"WRITE II.DESC,R";200N2:(34);I$;(34):DK$:100+]///EDIT A MONSTER+]20030:NN2:DK$;"READ II.DESC,R";N300:MD$:DK$;"READ II.MONSTERS,R";N:MN$:M118:M%(M)::DK$E,]:"ENTERIN):SIDES1SIDES(SIDES)(SIDES)I$ĺ"":I2$I$:22200*tYDK$;"WRITE II.DESC,R";N100:(34);AD$;(34):DK$;"WRITE II.ARTIFACTS,R";N:AN$:VL:TYPE:WT:ROOM*~YWC:W2:DICE:SIDES*YDK$::100*Y///EDIT AN EFFECT*Y:20030q+ZDK$;"READ IOW CLUB SPEARSWORD",(W21)51,5);" WEAPON":I2$(DICE))VVZ7:"ENTER NUMBER OF DICE OF DAMAGE DONE:";:1500:DICE(I$):DICE1DICE(DICE)(DICE)I$ĺ"":I2$I$:22180)VI2$(SIDES)9*VVZ8:"ENTER NUMBER OF SIDES PER DICE:";:1500:SIDES(I$Z5:"ENTER WEAPON COMPLEXITY:";:1500:WC(I$):WC(WC)(WC)I$ĺ"":22130(VVZ6:958:"HIT KEY FOR WEAPON TYPE (1=AXE, 2=BOW, 3=CLUB, 4=SPEAR, 5=SWORD) ";(VA$:A$(27)A$(W2)(VW2(A$):W21W25221608)VVZ6:1:958:("AXE B$(WT)e'JVVZ3:"ENTER WEIGHT IN GRONDS:";:1500:WT(I$):WT(WT)(WT)I$ĺ(7):I2$I$:22090u'TVI2$(ROOM)'^VVZ4:"ENTER ROOM STARTING IN:";:1500:ROOM(I$):ROOM(ROOM)(ROOM)I$ĺ"":I2$I$:22110'hVTYPE222900'mVI2$(WC)O(rVV:RNM$:DK$"WRITE II.DESC,R";R:RDESC$:DK$"WRITE II.ROOMS,R";R:D16:D%(D)::DK$[FXRrFbERN%(1)N%(1)ER{Fl100RSRERFD16:D%(D)0: G&RT$(R)"B"RNM$"AT A BEND IN THE "TP$" ("("NSEWUD",DE%(R),1)"/"("NSEWUD",DX%(R),1)"RNM$"AT A BEND IN THE "TP$" ("("NSEWUD",DE%(R),1)"/"("NSEWUD",DX%(R),1)")":40250E0RNM$"IN A "("NSEWUD",DE%(R),1)"/"("NSEWUD",DX%(R),1)" "TP$E:RDESC$"YOU ARE "RNM$EDD%(DE%(R))R1:D%(DX%(R))R1TFNDK$"WRITE II.ROOM NAMES,R";R6:BD$("NSEWUD",BD,1)Ă:400701DRT$(RB)"B">DRSSRBcDDE%(R)DI:DX%(R)OD::DE%(RB)BDDOD16:BD$("SNWEDU",OD,1)ĂDœSSRB1:DIBD:40070D֜100DRSSER:DE%(R)DI:DX%(R)OD:DRSRERDD16:D%(D)0:ZE&RT$(R)"B"ARTING ROOM #:";SR:SSSR1C^"ENDING ROOM #:";ERPCh"DIRECTION INCREASE:";DI$~CrDI1ND:DI$(DD$(DI),(DI$))Ă:40040C|ODND11:DI$(DD$(OD),(DI$))Ă:40040C"BEND (ROOM/DIR.):";BEN$:BEN$""40200!DRB(BEN$):BD$(BEN$,1):BD1NA:DK$"WRITE II.DESC,R";N%(2)101:"YOU SEE ARTIFACT ";N%(2)1:DK$"WRITE II.ARTIFACTS,R";N%(2)1:"ARTIFACT ";N%(2)1:0:0:0:0:N%(2)N%(2)1:BֈDK$:100B@ /// GEN HALLWAYBE:"NOT SUPPORTED.":A$::100BJ"TYPE OF PASSAGE:";TP$CT"ST.DESC,R";X100:"YOU SEE THE DEAD BODY OF ";MN$GAN%(2)N%(2)1:MM1SA솂X:DK$\A100AC$"DELETE":1000:N%(A)N%(A)1A100ATC$"INCRMNT":1000:N%(A)N%(A)1:100A /// GENERATE DUMMY ARTIFACTSAAˆ"NBR ART. TO GEN:";NAB̈A1jYN$"Y"AN%(2)1:M1:LAAN%(4)1:34500L@t"MONSTER # TO START ON:";Mg@~AN%(2)1:LAAN%(4)M@ĆXALA:DK$"READ II.MONSTERS,R";M:MN$:M2112:M%(M2):M2@ΆAN$"DEAD "MN$:DK$"WRITE II.ARTIFACTS,R";X:AN$:0:0:M%(6):0/A؆DK$"WRITE II" 4. GENERATE HALLWAY"?? :" 5. GENERATE DUMMY ARTIFACTS"g?:"INPUT YOUR CHOICE (1-";SF;"):";}?S$:S$(13)100?(S$)1(S$)SF34210?(S$)100,34800,34900,40000,35000?`:"ALL DEAD BODIES (Y/N):";YN$:YN$"Y"YN$"N"34400,@(34);MD$;(34):DK$;"WRITE II.MONSTERS,R";N3:MN$:M118:M%(M)::DK$Q>v100l>Є/// SPECIAL FUNCTIONSu>ՄSF5>ڄ:"SPECIAL FUNCTIONS:":>䄺" 1. RETURN TO MAIN MENU":>" 2. DELETE LAST R,A,E,M":>" 3. ADD TO NBR OF R,A,E,M":?K$;"READ II.DESC,R";200N2:I2$:DK$::"EDITING EFFECT #";N3:1500:DK$;"WRITE II.DESC,R";200N3:(34);I$;(34):DK$:100=NN2:DK$;"READ II.DESC,R";N300:MD$:DK$;"READ II.MONSTERS,R";N:MN$:M118:M%(M)::DK$H>lDK$;"WRITE II.DESC,R";300N3::DK$;"READ II.DESC,R";N100:AD$:DK$;"READ II.ARTIFACTS,R";N:AN$,VL,TYPE,WT,ROOM:WC,W2,DICE,SIDES<܂DK$;"WRITE II.DESC,R";N3100:(34);AD$;(34):DK$;"WRITE II.ARTIFACTS,R";N3:AN$:VL:TYPE:WT:ROOM<悺WC:W2:DICE:SIDES+DK$;"READ EAMON.DESC,R";E200:A$:8000H+::R+:216,0:DR$"6":DK$"CLOSE":35%(9));"]";:M2" ":8p /// TOGGLE PRINTERCzSWSWL100\X /// QUITwbD$"CLOSE":D$"PR#0":@SWĺA$:JAZ1(A$)40:(A$,AZ,40)::(A$,AZ,40)::* ///LIST EFFECTS+(12);"LISTING EFFECTS" +TY$"R"M$(M2);10(M$(M2)));": ";6((M%(M2))));M%(M2);TM23M24M27M210ĺ" %";M25M%(5)0M%(5)NRĺ" [";R$(M%(5));"]";M29M%(9)1ĺ" [ NO WEAPONS ]"M29M%(9)0ĺ" [ NATURAL WEAPONS ]"; M29M%(9)0M%(9)N%(2)ĺ" [";AN$(M䠠󮍠Šč󮍠󮠠堠宍젠򮍠렠堠婠堠䠠䠠堠堠򠠠󮠠堠䬠栠젠箍䠠堠렠堠栠堠蠠󠠨䠠䠠堠젠砠䠠宠ﬠɍᠠ󭭍΍ԠԠҠǍԥΠōڠҠƠӠҠԍ堠堠䠠堠堠ӠƠҠΠΠ͍ҧӠΠٍĥҠάŠƠōΤŠƠҧӠ΍ϥΠٍХΠҠΠũӥӯŠƠŠҠITEMS YOU ARE CARRYING, AND THEY ALL FALL TO THE GROUND."::5100r*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 COMMANDI+LK0:A1NZ:AN$(A)S$(AD%GM1:1500:FOĺ:"YOU AREN'T CARRYING A ";S$::100)(GMAD%(A,4)1)(GMMD%(M,5)1)ĺ:"YOU AREN'T CARRYING IT!":100)WTWTAD%(A,3):AD%(A,4)ROOM::AN$(A);" DROPPED.":A*WT10MD%(0,1)ĺ"YOU SUDDENLY FIND YOU CANNOT CARRY ALL OF THE U CAN'T LIFT ";MN$(M);"!":100U(HM1::"GOT 'EM!":WTWTMD%(M,6):MD%(M,5)1:300($///ROUTINE TO GET S$ IF NOT PREVIOUSLY SPECIFIED.()S$""ĺ:C$(C);" WHAT";:S$:4900(.(///DROP COMMAND(4900(S$"ALL"51005)GM0:1600:FOEAVY":4190<'TAN$(A)" TAKEN.":AD%(A,4)1:WTWTAD%(A,3)I'^::300'h///INSERT HERE SPECIAL EFFECTS OF PICKING SOMETHING UP'r' GET MONSTER'MD%(M,22)0ĺ:MN$(M);" DOESN'T CARE TO BE CARRIED.":100(MD%(M,6)WT10MD%(0,1)ĺ:"YO&GM4300S&"4200:WTAD%(A,3)10MD%(0,1)ĺ:"IT IS TOO HEAVY FOR YOU."::100&,:"GOT IT.":AD%(A,4)1:WTWTAD%(A,3)::AD%(A,2)2MD%(0,9)1300&617000&@A1NA:AD%(A,4)ROOM4190 'J4200:WTAD%(A,3)10MD%(0,1)ĺAN$(A);" IS TOO HMD%(M,19):TD%(A)TD%(A)MD%(M,1)9%jM:NBTL(TD%(1)0):L%t // READ ROOM%~DK$;"READ II.ROOMS,R";ROOM:D21ND:RD%(D2)::DK$:%///GET COMMAND%4900%S$"ALL"4160%GM0:1600:FOGM1:1500:FOĺ:"I SEE NO ";S$;" HERE!"::100 (MD%(M,20)1200(1)MD%(M,4))MD%(M,5)ROOM:3670X$.MD%(M,5)ROOMMD%(M,22)03690l$8MD%(M,20)3670$BFRMD%(M,3):FRFR100FRFR((CH10)2)$LMD%(M,20)1:FR(100(1))MD%(M,20)2:FR(100(1))MD%(M,20)3 %VAMD%(M,20):FD%(A)FD%(A)TO THE":" SUNSET.":2000(# R23490X# :"YOU CAN'T GO THAT WAY!":V%(ROOM)0:100x# R3ROOM:ROOMR2:3700:3600#100# // CHECK REACT#TD%(1)0:TD%(3)MD%(0,1):FD%(1)0:FD%(3)MD%(0,19)3$$M1NM:MD%(M,5)R3MD%(M,22)0ĭMD%(M,20)3):REC:DK$;"CLOSE"2" DK$;"RUN MAIN HALL,S6,D1"="( 2570R" ///MOVE COMMAND" NBTLS$"FLEE"ĺ:"YOU CAN'T TURN YOUR BACK ON ENEMIES!"::100" DC" R2RD%(D)" R203500" ///SPECIAL MOVES# R299ĺ:"YOU SUCCESSFULLY RIDE OFF INEC:MN$(0):CL:MD%(0,1):MD%(0,2):CH:IN:A18:SA%(A):! A15:WA%(A)::AE:SEX$:GOLD:BANK:AC:AH:AA:A15:WN$(A):WT%(A):WO%(A):WD%(A):WS%(A):! PTS! :TW0İ2600" DK$;"OPEN THE ADVENTURER":DK$;"WRITE THE ADVENTURER":MN$(0S :5:"(INSERT EAMON MASTER DISKETTE, THEN":" HIT THE 'C' KEY) ";:16368,0i A$:A$"C"2520q A$ DIEĺDK$;"OPEN THE ADVENTURER,S6,D1":DK$;"DELETE THE ADVENTURER":2900;! DK$;"OPEN CHARACTERS,L256,S6,D1":DK$;"WRITE CHARACTERS,R";R, HE EXAMINES YOUR GOODS AND":"PAYS YOU ";O TP0:A1NA:AD%(A,4)12350x 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) ";:A$: 2500:WN$(W5)WN$(W21):WP%(W5)WP%(W21):W2W21:W252060W15: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 BUYER FOR SUCH":"THINGSMANY WEAPONS":"TO KEEP THEM ALL--5 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$):W51W5W21W5(W5)20807*AD%(WP%(W5),4)1DIE2500zW15:WN$(W)"NONE"::W21:A1NA:AD%(A,2)2AD%(A,4)1WN$(W2)AN$(A):WP%(W2)A:W2W21:AD%(A,4)0A:W262300P :5:"AS YOU START TO ENTER THE MAIN HALL,":"LORD WILLIAM MISSLEFIRE APPEARS AND":"TELLS YOU, 'YOU HAVE TOO N,GET,TAKE,DROP,LOOK,EXAMINE,ATTACK,FLEE,GIVE,INVENTORY,BLAST,HEAL,SPEED,POWER,CHARM,FEAR,BLINK,SLEEP,SMILE,READ,WAVE,SAY,READY,SAVE,OPEN///DONE WITH GAME:"(HIT ANY KEY TO CONTINUE) ";:16368,0:A$:DK$"CLOSE":SPDMD%(0,2)MD%(0,2)2G A ";S$;"!"::100/:#AMD%(0,9)MD%(0,9)1{:#:"OKAY.":AD%(A,4)M1:MD%(M,20)0:MD%(M,3)MD%(M,3)(1AD%(A,1)100):#MD%(M,10)0MD%(M,9)1MD%(M,9)A:MD%(M,10)MD%(M,9)AD%(A,5):MD%(M,4)2MD%(M,4):#R3ROOM:3600:5050=;%(S$)GOLDĺ:O TO GIVE TO? ";S$:9020B9P#:"NOBODY HERE BY THAT NAME!"::100[9Z#S$(S$,(MN$(M))1)}9d#(S$,1)" "S$(S$,2):90609i#(S$)095009n#A1NA:S$AN$(A)AD%(A,4)190959x#:A22A23::"WHAT TO GIVE? ";S$:9065:#:"YOU AREN'T CARRYIND II.ROOMS,R";ROOM:D16:DR%(D):DR$DR$(DR%(D))::DK$Z8>!R2DR%(6(1)1):R218510`8H!u8(#///GIVE COMMAND82#4900:X1(S$):(S$,X,1)" "Ă:902087#S2$(S$,X1):S$(S$,X1)8<#1500:FOMD%(M,5)ROOMS$S2$:90609F#A21A22::"WHMD%(DF,4)2"7<DF0DIE1:2000*7:?7@///FLEE COMMANDt7JNBTLĺ:"THERE'S NOTHING TO FLEE FROM!"::1007TD16:S$C$(D)V$S$:S$"FLEE":30007^7*!DR$"":8500:DR$"000000"ĺ:"THERE'S NO PLACE TO GO!!":1007/!3500:84!DK$;"REAN6MN$(DF);" IS DEAD!"::AMD%(DF,20):FD%(A)FD%(A)MD%(DF,1)MD%(DF,19)D26MD%(DF,22)2:MD%(DF,23)32000:AJ1NA:AD%(AJ,4)DF1AD%(AJ,4)ROOM 7(: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)):FD%(A)FD%(A)D2X5:MN$(DF);:(MD%(DF,19)5MD%(DF,1)1)7655,7660,7665,7670,76755" IS STILL IN GOOD":" SHAPE.":5" IS HURTING.":5" IS IN PAIN.":5" IS VERY BADLY INJURED.":6" IS AT DEATH'S DOOR,":" KNOCKING LOUDLY."::76354R286S1.5S:763564R296D2D:7635N4R2100D3D:7635X477004D20:D31D:D2D2(S(1)1)::D2D2AMD%(DF,8):D21ĺ" BLOW BOUNCES OFF ARMOUR"::4MD%(DF,19)MD%(DF,19)D2:MD%(DF,19)MD%(DF,1)77005AMD%(DF,20D%(OF,11):SMD%(OF,12):DFOF:A1:7635V3DMD%(OF,11)2:SMD%(OF,12):DFOF:A0:76353INC((100(1)1)MD%(OF,10)):MD%(OF,10)MD%(OF,10)2INC3DMD%(OF,11):SMD%(OF,12):A1:RL5ĺ"A HIT!":76354"A CRITICAL HIT!":R2(100(1)1):R251A0D%(OF,9),5):MD%(OF,9)1:MD%(OF,4)MD%(OF,4)2::B2oFR9575502t" 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ĺ:2y" BROKEN WEAPON HURTS USER!"2~FR1007560&3DM";:RL(100(1)1):HIT0:(RL5RLCH)RL96HIT1A1VHIT7600Y1`RL97ĺ"A MISS.":1e"A FUMBLE!":FR(100(1)1):FR3540(MD%(OF,9))ĺ" FUMBLE RECOVERED."::22jFR76ĺ" WEAPON DROPPED!":AD%(MD%(OF,9),4)ROOM:MD%(OF,10)MD%(OF,10)AD%(M,4)ROOMAD%(A,2)2Ă:0MN$(OF);" PICKS UP ";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:0LHIT0:MD%(OF,9)174000NCHMD%(OF,10)MD%(DF,7):OF0ĭCL2CH(CH2)31QMN$(OF);" ATTACKS ";MN$(DF):" --A2:EAAE1A13/AEAEA:MD%(0,10)MD%(0,10)AN/MD%(DF,20)1DF0300/MD%(DF,3)MD%(DF,3)2:M1NM:MD%(M,5)ROOMMD%(M,20)1MD%(M,20)0/M:R3ROOM:3600:300////MONSTER TRIES TO PICK UP WEAPON/MD%(OF,10)0ı0A1NA:AD%(A100C. OF0:DFM:MD%(DF,22)0ĺ:MN$(DF);" IS ALREADY DOWN!":100z.zMD%(0,9)1ĺ:"YOU HAVE NO WEAPON READY!"::100.OF0:DFM:7500:HIT7360.INCW2AD%(MD%(0,9),6):WA%(W2)WA%(W2)2.EAAE300.(100(1)1)MD%(0,10)7360/DK$::A$::LK1-3-MN$(A);" IS ASLEEP.":M-MN$(A);" IS DEAD.":S-.-8MN$(A);" IS USING ";:MD%(A,9)1ĺ"NOTHING";:6220-BAN$(MD%(A,9));-L" FOR A":"WEAPON.":-X///ATTACK COMMAND-b4900. 1500:FOĺ:"ATTACK WHO?"::(X1)51,5);"!":RD%(X)(RD%(X))',;,V%(ROOM)0:300L, EXAM MONST,ANMNFĺ:"THIS IS YOUR FRIEND ";MN$(A);". YOU":"HIRED HIM IN THE MAIN HALL TO HELP YOU.":6200,MD%(A,22)0ĴMD%(A,22)16130,6140-DK$;"READ II.DESC,R";A300:A$:(A,4)ROOMAD%(A,4)1)ĺDK$;"READ II.DESC,R";A100:A$:DK$::A$::LK1X+A:LK300+A1NM:MN$(A)S$MD%(A,5)ROOMİ6100+A:LK300!,X1ND:RD%(X)0RD%(X)99ĺ:"YOU FOUND A SECRET PASSAGE TO THE ";("NORTHSOUTHEAST!WEST!ROOF!FLOOR",A1NA:AD%(A,4)ROOM4190^!J4200:WTAD%(A,3)10MD%(0,1)ĺAN$(A);" IS TOO HEAVY":4190!TAN$(A)" TAKEN.":AD%(A,4)1:WTWTAD%(A,3)!^::300!h///INSERT HERE SPECIAL EFFECTS OF PICKING SOMETHING UP!r"$///ROUTINE TO GET S$ IF NOT  S$"ALL"4160^ A1NA:AN$(A)S$AD%(A,4)ROOMĂ::"I SEE NO ";S$;" HERE!"::100 "4200:WTAD%(A,3)10MD%(0,1)ĺ:"IT IS TOO HEAVY FOR YOU."::100 ,:"GOT IT.":AD%(A,4)1:WTWTAD%(A,3)::AD%(A,2)2MD%(0,9)1300 617000!@08MD%(M,14)3670DBFRMD%(M,3):FRFR100FRFR((CH10)2)LMD%(M,14)1:FR(100(1))MD%(M,14)2:FR(100(1))MD%(M,14)3VAMD%(M,14):FD%(A)FD%(A)MD%(M,13):TD%(A)TD%(A)MD%(M,1)<M:NBTL(TD%(1)0):///GET COMMAND 4900:V%(ROOM)0:100* R3ROOM:ROOMR2:36003100W///CHECK REACTIONS ON MONSTERSTD%(1)0:TD%(3)MD%(0,1):FD%(1)0:FD%(3)MD%(0,13)$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)ROOM390("N S E W U D NENWSESW",D,2)Ă0 D(D2.5)f DK$;"READ EAMON.ROOMS,R";ROOM:D21D:R2::DK$u R203500 ///SPECIAL MOVES R299ĺ:"YOU SUCCESSFULLY RIDE OFF INTO THE":" SUNSET.":2000 R23490 :"YOU CAN'T GO THAT WAY!"DK$;"OPEN THE ADVENTURER":DK$;"WRITE THE ADVENTURER":MN$(0):REC:DK$;"CLOSE"nT DK$;"RUN MAIN HALL,S6,D1" ///MOVE COMMAND NBTLĺ:"YOU CAN'T DO THAT WITH UNFRIENDLIES ABOUT!"::100 (V$)2V$V$" ":3015  D1202:(V$,2)1":DK$;"DELETE THE ADVENTURER":2900 DK$;"OPEN CHARACTERS,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):O (A,1)". A:TP;" GOLD PIECES.":[8 GOLDGOLDTP::"(HIT ANY KEY TO CONTINUE) ";:A$:f 2500 :5:"(INSERT EAMON MASTER DISKETTE, THEN":" HIT THE 'C' KEY) ";:16368,0 A$:A$"C"2520 A$% DIEĺDK$;"OPEN THE ADVENTURER,S6,D,7):WS%(W)AD%(WP%(W),8) W::5:"AS YOU DELIVER YOUR TREASURES TO SAM":"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%ER OF THE WEAPON TO SELL (1-";W21;") "d (37):23:A$:W5(A$):W51W5W21W5(W5)2080*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)62300 :5:"AS YOU START TO ENTER THE MAIN HALL,":"LORD WILLIAM MISSLEFIRE 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 NUMB?+S$""İ1500:FOM0Q?+:MD%(M,19)ĺ"SOME OF ";MN$(M);"'S WOUNDS HEAL.":?+MD%(0,19)MD%(0,19)(10(1)1):MD%(0,19)0MD%(0,19)0?+DF0:7650:300?$, // SPEED?8,SPDMD%(0,10)MD%(0,10)2MD%(0,2):MD%(0,2)2MD%(0,2)M@B,SPDSPD(25:SA%(S)0:>* // SPELLS'>+SC15<> +10500:SUC100s>+S11100,11200,11300,11400,11500,11600,11700,11800>\+ // BLAST>f+4900:1500:FOĺ:"YOU CAN'T BLAST ";S$;"!"::100>z+:"DIRECT HIT!"::S8:D1:DFM:A0:7635::300>+ // HEALL30SUC1-=)SUCĺ:"NOTHING HAPPENED.":m=)RL(100(1)1):RLS2%(S)S2%(S)S2%(S)2:SA%(S)SA%(S)2=")CL3S2%(S)S2%(S)2=,) >h):"THE STRAIN OF ATTEMPTING TO CAST THIS SPELL OVERLOADS YOUR BRAIN AND YOU FORGET IT COMPLETELY.":ON)",120(AMD%(0,9))):A0A01:A015ĺ:"(HIT ANY KEY TO CONTINUE)";:A$::A00`<$':HM300<.'X1NM:MD%(X,5)1ĺMN$(X)<8':300<)SUC0:SA%(S)RL(100(1)1):SUC(((RLS2%(S))(RL5))(RL95)):RL10011600 = )CL4S1RL((1)100):R"YOU AREN'T CARRYING THAT MUCH GOLD OF YOUR OWN!"::300;&%GOLD(GOLD(S$)):MD%(M,20)0:MD%(M,3)MD%(M,3)(1(S$)100):9120;'///INVENTORY COMMANDQ<':"YOU ARE CARRYING THE FOLLOWING--":A00:A1NA:AD%(A,4)1ĺ" ";AN$(A);(" (READY WEAPD%(M,3)(1AD%(A,1)100)q1#MD%(M,10)0MD%(M,9)1MD%(M,9)A:MD%(M,10)MD%(M,9)AD%(A,5):MD%(M,4)2MD%(M,4)1#R3ROOM:3600:50501%(S$)GOLDĺ:"YOU AREN'T CARRYING THAT MUCH GOLD OF YOUR OWN!"::300#2&%GOLD(GOLD(S$)):MD%(M,14)0:MDS$(S$,2):9060"0i#(S$)09500W0n#A1NA:(S$,(AN$(A)))AN$(A)AD%(A,4)190950x#:A22A23::"WHAT TO GIVE? ";S$:90650#:"YOU AREN'T CARRYING A ";S$;"!"::1000#AMD%(0,9)MD%(0,9)11#:"OKAY.":AD%(A,4)0:MD%(M,14)0:MD%(M,3)M /H!R2DR%(10(1)1):R218520&/R!;/(#///GIVE COMMANDD/2#A21{/<#M1NM:(S$,(MN$(M)))MN$(M)MD%(M,5)ROOM9050/F#:A21A22::"WHO TO GIVE TO? ";S$:9020/P#:"NOBODY HERE BY THAT NAME!"::100/Z#S$(S$,(MN$(M))1)0d#(S$,1)" ".:.@///FLEE COMMANDR.JNBTLĺ:"THERE'S NOTHING TO FLEE FROM!"::100\.TD$"".h8500:R20ĺ:"THERE'S NO PLACE TO GO!!":100.*!3500.4!DK$;"READ EAMON.ROOMS,R";ROOM:D110:DR%(D):D$D$(DR%(D))::DK$.>!D$"0000000000"R20:UDLY.":-MN$(DF);" IS DEAD!"::AMD%(DF,14):FD%(A)FD%(A)MD%(DF,1)MD%(DF,13)D2:MD%(DF,5)0:A2DFNZNM:AD%(A2,4)ROOM: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)2.DF0DIE1:2000D%(DF,14):FD%(A)FD%(A)D2`,:MN$(DF);:(MD%(DF,13)5MD%(DF,1)1)7655,7660,7665,7670,7675," IS STILL IN GOOD":" SHAPE.":," IS HURTING.":," IS IN PAIN.":," IS VERY BADLY INJURED.":-" IS AT DEATH'S DOOR,":" KNOCKING LO251A0:7635'+R286S1.5S:7635>+R296D2D:7635V+R2100D3D:7635`+7700+D20:D31D:D2D2(S(1)1)::D2D2AMD%(DF,8):D21ĺ" BLOW BOUNCES OFF ARMOUR"::+MD%(DF,13)MD%(DF,13)D2:MD%(DF,13)MD%(DF,1)7700,AM.*DMD%(OF,11):SMD%(OF,12):DFOF:A1:7635^*DMD%(OF,11)2:SMD%(OF,12):DFOF:A0:7635*INC((100(1)1)MD%(OF,10)):MD%(OF,10)MD%(OF,10)2INC*DMD%(OF,11):SMD%(OF,12):A1:RL5ĺ"A HIT!":7635+"A CRITICAL HIT!":R2(100(1)1):R0)AD%(MD%(OF,9),5):MD%(OF,9)1:MD%(OF,4)MD%(OF,4)2::J)oFR957550)t" 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ĺ:)y" BROKEN WEAPON HURTS USER!"*~FR10075600(1)1):HIT0:(RL5RLMD%(OF,10)MD%(DF,7))RL96HIT1I(VHIT7600a(`RL97ĺ"A MISS.":(e"A FUMBLE!":FR(100(1)1):FR3540(MD%(OF,9))ĺ" FUMBLE RECOVERED.":::)jFR76ĺ" WEAPON DROPPED!":AD%(MD%(OF,9),4)ROOM:MD%(OF,10)MD%(OF,1ON'MD%(OF,10)0ıA'A1NA:AD%(A,4)ROOMAD%(A,2)2Ă:'MN$(OF);" PICKS UP ";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:'LHIT0:MD%(OF,9)17400;(QMN$(OF);" ATTACKS ";MN$(DF):" --";:RL(100$&(100(1)1)MD%(0,10)7360:&A2:EAAE1A1\&AEAEA:MD%(0,10)MD%(0,10)Aw&MD%(DF,14)1DF0300&MD%(DF,3)MD%(DF,3)2:M1NM:MD%(M,5)ROOMMD%(M,14)1MD%(M,14)0&M:R3ROOM:3600:300'///MONSTER TRIES TO PICK UP WEAPOM)0:300!%X///ATTACK COMMAND+%b4900l%pM1NM:S$MN$(M)MD%(M,5)ROOMĂ::"ATTACK WHO?"::100%zMD%(0,9)1ĺ:"YOU HAVE NO WEAPON READY!"::100%OF0:DFM:7500:HIT7360%INCW2AD%(MD%(0,9),6):WA%(W2)WA%(W2)2&EAAE30///LOOK COMMAND~$LK0:A1NZ:AN$(A)S$(AD%(A,4)ROOMAD%(A,4)1)ĺDK$;"READ EAMON.DESC,R";A100:A$:DK$::A$::LK1$A:LK300$A1NM:MN$(A)S$MD%(A,5)ROOMĺDK$;"READ EAMON.DESC,R";A300:A$:DK$::A$::LK1$A:LK300 %V%(RO1)ĺ"YOU SUDDENLY FIND YOU CANNOT 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$pPREVIOUSLY SPECIFIED.<")S$""ĺ:C$(C);" WHAT";:S$:4900B".W"///DROP COMMANDj"S$"ALL"5100"A1NA:AN$(A)S$AD%(A,4)1Ă::"YOU AREN'T CARRYING A ";S$::100"WTWTAD%(A,3):AD%(A,4)ROOM:AN$(A);" DROPPED.":u#WT10MD%(0,젠젠穬렠󮍠ɬ렠嬠ˠàӢ堠󬠠堠嬠堠宠䬠栠讠魍砠堠䠠󮍨堠嬠젠堠堢ӠΠŠĠƠōĠ䬠ᠠ䠠嬍砠砠ﮍ젠䬠ŠϠŠ̠ĠƠ΍Π䠠󮢠堠򠠠婠                                 T A WEAPON!"::100;S$"HEAL"12000@:>S$"POWER"13000V:>S$"SPEED"14000u:B:"OKAY, '";S$;"'"::300:hB///READY A WEAPON.:rB4900:|BA1NA:AN$(A)S$AD%(A,4)1Ă::"YOU AREN'T CARRYING IT!"::100;BAD%(A,2)2ĺ:"THAT ISN'009:///SMILE COMMAND<9::M1NM:MD%(M,5)ROOM15100]9:MD%(M,14)15030,15040,150509:MN$(M);" GROWLS AT YOU":151009:MN$(M);" IGNORES YOU":151009:MN$(M);" ";V$;"S BACK":151009:M::3009>///SAY COMMAND9>4900:>S$"BLASLL OF YOUR HITS ARE HEALED."::MD%(0,13)0:300:8,314020N86///SPEED SPELLg86S3:11500:SUC30086SPDMD%(0,10)MD%(0,10)2MD%(0,2):MD%(0,2)2MD%(0,2)96SPDSPD(25(1)10)::"YOU CAN FEEL THE NEW AGILITY FLOWING":" THROUGH YOU!"::3SHES!":AD%(A,4)0&72A:RAISEĺ:30073RR(100(1)1):RR11ĺ:"THE SECTION OF TUNNEL YOU ARE IN ":" COLLAPSES AND YOU DIE.":DIE1:200073RR86ĺ:"YOU HEAR A VERY LOUD SONIC BOOM":" THAT ECHOES THROUGH THE TUNNELS."::300/8"3RR95ĺ:"ATS62S4:11500:SUC30062RAISE0:M1NM:M2NZNMM:AD%(M2,4)ROOMAD%(M2,4)1RAISE1:MN$(M);" COMES ALIVE!":AD%(M2,4)0:MD%(M,5)ROOM:MD%(M,13)0:WTWTAD%(M2,3)62M:RAISER3ROOM:3600:30072A1NA:AD%(A,4)ROOMRAISE1:AN$(A);" VANI:5.///HEAL SPELL.5.S2:11500:SUC300j5.:MD%(0,13)ĺ"SOME OF YOUR WOUNDS SEEM TO CLEAR UP.":5.MD%(0,13)MD%(0,13)(10(1)1):MD%(0,13)0MD%(0,13)05/DF0:7650:30062///POWER SPELL--RE-WRITE THIS SECTION FOR YOUR OWN SPECIAL PLO11600)4,SUCĺ:"NOTHING HAPPENED.":i4-RL(100(1)1):RLS2%(S)S2%(S)S2%(S)2:SA%(S)SA%(S)2}4 -S2%(S)S2%(S)24-5P-:"THE STRAIN OF ATTEMPTING TO CAST THIS SPELL OVERLOADS YOUR BRAIN AND YOU FORGET IT COMPLETELY."::SA%(S)0//BLAST SPELL3+4900d3,M1NM:S$MN$(M)MD%(M,5)ROOMĂ::"YOU CAN'T BLAST ";S$;"!"::100}3,S1:11500:SUC3003,:"DIRECT HIT!"::S6:D1:DFM:A0:7635::3004,SUC0:SA%(S)RL(100(1)1):SUC(((RLS2%(S))(RL5))(RL95)):RL100%(M,3)MD%(M,3)(1(S$)100):9120=2'///INVENTORY COMMAND2':"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$::A002$':300 3*/č󩠠栠堨䠠Ԡ쩠򠱰栠宍㠠堠譭栠젠󮠠堠栠堠堠宠󬠠堠㠠쮠㠠砠堠嬠堠䩮Ӭ٬󠠠䠠堠Ӎ򬠠蠠䍧堠󠧳ĸ孍姠ﮍҠӍ㠠砠짍򮠠堠젠堠⡩Π堠䠠󮠠嬠젠䠠姭堠󠠠󠠠蠠젠堠堠蠠󮠠栠嬠堠嬠堠堠䠠󩠠堠򡠠쮍Πᠠ宠堠堠ᠠ䠠堠젠䠠䠠宠蠠󬠠󬠠宠䠠Ġ嬠堠䠠堠堠ᠠ䮠򠠠栠桠堠嬍㠠Π䠠䠠젠宠⭍䮍ɠ堠蠠򬠠䠠䬠堠䠠堠䠠宍堠嬠ᠠ孭򬠠Ѝ堠嬠堠嬠場ˮ䠠젠䬠䠠䠠堠򡩮堠堠堠Ӻz"#     Ӡ̮ԠĠ̮ԠWؠΠԠŠ͠EŠ͠Π8" ԠӠ ŠΠԠΠɠҠΠΠԠΠԠBΠԠԠӠΠ͠ԍ蠠䠠䬍󬠠䍭欠堠䬠栲ᠷᠠ砠捰젠쬠㬠堠ᮍᠵ笠蠠栠젠宠ᠠ栵ᠴ󠨵ᬠ堠堠堠졠ź蠠䭭栠堠堠䠠衠ᠠ堠젠堠󠠠栠砠嬠堠嬠쩮ᠠ堠嬠򮠠㠠堠ᠠ䍧ȧ젠󬠠蠠򬠠䠠ǧ젠砠砠ᠠ堠󮍠䮠ᠹ󮍠ٍ䠠㠠栠쬠젠󬠠蠠堠讍堠栠䬠堠󮠠󮠠嬍㠠򍱳󩮠堠栠堠欠쩬㠠塍堠䠠420 :C40,50,60,706 ((4);"RUN DUNGEON INIT"S 2(4);"RUN DUNGEON EDIT"p <(4);"RUN DUNGEON LIST"v F-x :5:9);"DUNGEON CREATION MENU"::"YOUR CHOICES ARE--"::" 1. INITIALIZE NEW DUNGEON DISKETTE"::" 2. EDIT DATA FILES":" 3. LIST DATA IN A DUNGEON'S FILES"::" 4. STOP":::"(HIT KEY FOR CHOICE, 1-4) "; A$:C(A$):C1C 򮠠栠Š䠠堠堠ŠŬ堠栠堠򠠠堠栠󢮠堨ũ堠䭭䠠䠠䬠堠젨򠠨򬠠堠栱場򠶰宍砠堠栠䮍쬠㠠蠠栱젠堠򍶷ᠠ堠堠蠠堠栠砠堠쬠堠堠嬠堠䮠󬠠栠堠㠠젠䠠堠젠場堠堠󺠠젠䠠㠠砠򿠠쬠嬠䠠栲䠨栠堠砠򬠠堠ᠠ栠󠴰򠴰砠堠栠砠堠笠箠䠧蠠󮠠󺠠󬠠󬠲󬠱䠰󮠨堠堠䠠堠笠젠䠠󠠨󩬠󩬠󠠨󩬠宍󮠠󭭍䠠堠䬠䠠䮍嬠󮠠堠䠠짮栠堠堠䬠堠堠堠堠䩬ᠱ堠婬蠠堠嬠򠨱Í砠堠堠堠蠠堠栠堠砠栠堠砠󠠨堠堠堠婺堠򠨵堨젠堠堠堨㠠젠򩮍栠嬠󮠠堠렠栠堠堠젠፧䠠堠򠠠䠠蠠嬍󠲬󠵍栠箍ᠠ堠ΠĠΧ򠠳ĸ堠堠󿩠卲򬠠堰砲嬠젠ERS,ARTIFACTS$DK$;"EXEC EXEC":7 RESTART HEREDK$(4):DK$;"DELETE EAMON ADVENTURE #";NUM:DK$;"SAVE EAMON ADVENTURE #";NUMDK$;"RENAME EXEC,SAVE LEADIN PROGRAM HERE",:"RUN 200"/ DK$;"OPEN A";(8):DK$;"CLOSE"q DK$;"OPEN II.NAME":DK$;"WRITE II.NAME":A$:ND:DK$;"CLOSE" R14:F$:DK$;"OPEN II.";F$:DK$;"CLOSE"::DK$;"OPEN II.DESC":DK$;"WRITE II.DESC":"0,0,0,0":DK$;"CLOSE"  ROOMS,ROOM NAMES,MONST TEN DIRECTION MOVEMENT:";ND$:ND$"6"ND$"10"135C ND(ND$)~ DK$(4):DK$;"INIT EAMON II ADVENTURE #";NUM;",V";NUM DK$;"OPEN EXEC":DK$;"WRITE EXEC":"0 A$=";(34);A$;(34);":NUM=";NUM;":A2$=";(34);A2$;(34):"DEL 100,199":"200 NUM=";NUM18);"EAMON":c n8:"ENTER THE NAME OF THE DUNGEON"::" ";A$:A$"A"A$"ZZZZ"(A$)30110 x12:"ENTER AUTHOR NAME ";A2$:(A2$)25120 16:"ENTER DUNGEON NUMBER ";A3$:NUM(A3$):NUM(NUM)NUM3NUM254(NUM)A3$1305 18:"SIX OR"NON-COMMERCIAL DISTRIBTION ENCOURAGED."::"TO USE THIS DISKETTE REQUIRES AN EAMON MASTER DISKETTE WHICH MUST BE BOOTED UP ON.": < d::"REPLACE DUNGEON DESIGN DISKETTE WITH NEW DISKETTE NOW"::::"INITIALIZING NEW DUNGEON DISKETTE FOR"::********": 12);"ADVENTURE #";NUM;" FOR"::7);"THE WORLD OF EAMON ] "::"----------------------------------------" ("THE EAMON II FANTASY GAME SYSTEM WAS ADAPTED FROM DONALD BROWN'S EAMON":A$;" WAS":" DEVELOPED BY ";A2$ 2 1009FD$(4):D$"VERIFY GAME.PTRS":D$"RUN MAIN PGM"Q 216,0[ :: "*****************************************";38);"**";((38(A$))2));A$;((38(A$))2)((A$)2((A$)2)));"**";38);"*********************************     :"TOO LONG!":I2$I$:11020+3:958:"ROOM NAME:":" ";::I$::R1$I$:6:I2$"":"ENTER ROOM DESCRIPTION:":1500:6:958:"ROOM DESCRIPTION:"::I$::R2$I$:> +13:958:"FOR EACH DIRECTION,GIVE THE ROOM THAT THIS ROOM CONNECTS TO (USE ZERO FO37)1A<#A::"(HIT ANY KEY TO RETURN TO MENU) ";:A$:::100X'///ADD ITEM BLOCK'C$"ADD":1000:TYPEA:TYPE11000,12000,13000,14000* ///ADD ROOM+:"ENTERING ROOM ";N%(1)1::I2$"":"ENTER ROOM NAME:" +" ";:1500:(I$)39Ģ3:20$:A$::(37)1KA::"(HIT ANY KEY TO RETURN TO MENU) ";:A$:::100(#::"LISTING ";::"EFFECTS":::34,2:A1N%(TYPE):DK$;"READ II.DESC,R";A100:A2$:"EFFECT #";A::A2$:2#(16384)128ĺ:"(HIT ANY KEY TO CONTINUE) ";:A$:A$::(":80602hF$"II.ARTIFACTS":A$"ARTIFACTS":8060[rF$"II.MONSTERS":A$"MONSTERS":8060|::"LISTING ";::A$:::34,2:A1N%(TYPE):DK$;"READ ";F$;",R";A:A2$:DK$:A$;"#";A;": ";::A2$:(16384)128ĺ:"(HIT ANY KEY TO CONTINUE) ";:A(Y/N)";(FHC$:HC$"Y"HC$"N"80061GHC$JC$"LIST":1000:TYPEA:N%(TYPE)0ĺ::"NONE OF THAT TYPE TO PRINT!":::"(HIT ANY KEX TO CONTINUE) ";:A$::100OHC$"Y"ĺDK$"PR#1"TTYPE8030,8040,9000,8050^F$"II.ROOM NAMES":A$"ROOM$)A$(I2$,1):1530/A$(21)A$" ":1530pA$(8)(I$)1I2$(I$,1)I2$:I$(I$,(I$)1):A$;:1520A$(8)(I$)I2$I$I2$:A$;:1500"A$(8)1500,A$(27)ĺI2$:I$I$I2$:61520@///LIST THINGS ROUTINEE"HARDCOPY (I2$)250ĺ(7);:1520FA$(31)ĺA$;:I$I$A$:I2$(I2$,2):1520pA$(5)ĺI2$;:I$I$I2$:I2$"":1520A$(2)(I$)āA1(I$):(8);::I2$I$I2$:I$"":1520A$(4)I2$(I2$,2):1515A$(9)I2$" "I2$:1515A$(21)(I2(HIT KEY, RAEM) ";=A$:A14:A$("RAEM",A,1)Ă:1020GA$:{///ROUTINE TO INPUT I$, HAVING BEEN PASSED I2$I$""I2$;:958:(I2$)āA1(I2$):(8);:A$:A$(13)Č958::(A$(31)A$(9)(A$(21)(I2$)))(I$)" 7. QUIT"<:"ENTER KEY FOR YOUR CHOICE (1-7) ";YA$:C(A$):C1C7190A$:C10000,20000,8000,32000,33000,34000,30000///ROUTINE TO SELECT WHAT TO WORK ON:"DO YOU WANT TO ";C$;" A ROOM, ARTIFACT,":" EFFECT, OR MONSTER MONSTER" }A " 3. LIST NAMES OF ROOMS, ARTIFACT,ETC"G " 4. REPLACE OLD ROOM,ARTIFACT OR":" MONSTER (WITHOUT VIEWING OLD)" " 5. DUPLICATE A ROOM, ARTIFACT":" OR MONSTER" " 6. SPECIAL FUNCTIONS"D,HEAL,LIGHT,SHOVEL _29000t d:DK$"PR#0":T14:T$(T);"-";N%(T);" ";:::3:4);"EDITING ";::DUNGN$:: n"YOUR CHOICES ARE--"::" 1. ADD NEW ROOM,ARTIFACT,EFFECT OR":" MONSTER" s x" 2. EDIT OLD ROOM,ARTIFACT, EFFECT":" 118:M$(M)::D110:DD$(D)::X07:TA$(X): Z HD,AG,FRIEND,COUR,ROOM,WEIGHT,DEF.ODDS,ARMOUR,WEAPON#,OFF.ODDS,W.DICE,W.SIDES,LOW ROOM,HIGH ROOM,#ATTACKS,GREED,HATE,WANDERLUST ] N ,S ,E ,W ,U ,D ,NE,NW,SE,SW,GOLD,TREASURE,WEAPON,ARMOUR,SHIELII.ROOMS,L64":DK$;"OPEN II.ROOM NAMES,L64":DK$;"OPEN II.MONSTERS,L128":DK$;"OPEN II.ARTIFACTS,L128":DK$;"OPEN II.DESC,L256" 2DK$;"READ II.DESC,R0":N%(1),N%(2),N%(3),N%(4):DK$ <T14:T$(T): FROOM,ARTIF,EFFECT,MONST0 PM$(18),M%(18):MK$(4)::5:"EDITING A DUNGEON DESIGN FOR EAMON II":::"INSERT DISKETTE WITH DUNGEON AND PRESS ANY KEY ";:16368,0:A$: 15000 DK$;"OPEN II.NAME":DK$;"READ II.NAME":DUNGN$:ND$:DK$;"CLOSE" #ND(ND$):216,0 (DK$;"OPEN |> DUNGEON EDIT PROGRAM9 BY DONALD BROWN?_ ENHANCED BY JOHN NELSON} THIS PROGRAM ADDS AND MODIFIES SIX AND TEN DIRECTION DUNGEONS.  (4);"MAXFILES 10"DE%(100),DX%(100),RT$(100) D                    젠砠栠堠䠠젠堠䠠젠堠󠠠䠠堠嬠򬠠렠ST EFFECTS'+(12);"LISTING EFFECTS"H +TY$"R"TY$"A"EB1:11050d+TY$"M"ĺ"BYPASSED.":m +EBB}*+EEBN%(3)4+"EFFECT #";E;":":>+DK$;"READ II.DESC,R";E200:A$:8000H+::R+:216,0:DR$"6":DK$"CLOSE":35x#"NUMBER:";B=#BN%(R)ĺ"THERE AREN'T THAT MANY!":9080N#PS0PL60^#PS0PL40d#'"PRINTER OUTPUT?";RE$'RE$"N"RE$"NO"ı$'"PRINTER SLOT:";PS.'PS7PS1ī100008'PS(PS)ī10000B'(4);"PR#";PSL' * ///LIA$,AZ,40)::%(#///PRINTER ROUTINE@2#"START AT BEGIN?";RE$iF#RE$"Y"RE$"YES"TY$"R":B1:9110P#RE$"N"RE$"NO"ī9060Z#9010d#"BEGIN AT ROOM,ARTIFACT,EFFECT OR MONSTER":"INPUT (R,A,E,M):";TY$n#R14:TY$("RAEM",R,1)Ă:90609M%(9)1ĺ" [ NO WEAPONS ]":410RhM29M%(9)0ĺ" [ NATURAL WEAPONS ]";:400rM29M%(9)0M%(9)N%(2)ĺ" [";AN$(M%(9));"]";:M2" ":MDK$;"CLOSE"DK$;"PR#0"BPı::@PL40ĺA$: JAZ1(A$)40:(TY$"M"BMBP1:>BP0@"MONSTER # ";M;" [";MN$;"]":" ":"DESC:":8000:" ":M2118:" ";M$(M2);10(M$(M2)));": ";6((M%(M2))));M%(M2);JM23M24M27M210ĺ" %";:400TM25M%(5)0M%(5)N%(1)ĺ" [";R$(M%(5));"]";:400"^M21A%(6)5ĺ" [";(" AXE BOW CLUB SPEARSWORD",(A%(6)1)51,5);"]";O:A2`," ":" ":At1N%(3)1İ110006(12);"LISTING MONSTERS":" ":M1N%(4):500:DK$;"READ II.MONSTERS,R";M:MN$:M2118:M%(M2)::DK$;"READ II.DESC,R";M300:A$;10(A$(A2)));": ";6((A%(A2))));A%(A2);bA22A%(2)0A%(2)3ĺ" [";TA$(TYPE);"]";:250A24A%(4)0A%(4)N%(1)ĺ" [";R$(A%(4));"]";:A2:A%(2)2300EA258:" ";A$(A2);10(A$(A2)));": ";6((A%(A2))));A%(A2);:A26A%(6)S,R";A:AN$(A):A214:A%(A2)::A%(2)1āA258:A%(A2):kTY$"R"TY$"A"BP1::"BYPASSED.":305~TY$"A"ABĂBP0"ARTIFACT # ";A;" [";AN$(A);"]":" ":DK$;"READ II.DESC,R";100A:A$:"DESC: ":8000:" ",A214:" ";A$(A2);1ND:DR%(D):U D1ND:" ";DD$(D);": ";(DR%(D)0)((DR%(D))10));DR%(D);5)u DR%(D)99ĺ"[EXIT]";:180 DR%(D)0(DR%(D))N%(1)ĺ"[";R$((DR%(D)));"]"; :D,R;(12);"LISTING ARTIFACTS"::A1N%(2):500:DK$;"READ II.ARTIFACT12);"LIST OF ROOMS":R1N%(1):DK$;"READ II.ROOM NAMES,R";R:R$(R)::TY$"R"ĺ"BYPASSED.":190t RBN%(1):: "ROOM # ";R;" [";R$(R);"]":" ":"DESC:":DK$;"READ II.DESC,R";R:A$:8000 :"DIRECTIONS MOVED IN--":DK$;"READ II.ROOMS,R";R:DRLUST/ dR$(N%(1)),AN$(N%(2)):A18:A$(A):E iD110:DD$(D): nVALUE,TYPE,WEIGHT,ROOM,W.COMPLEX,W.TYPE,W.DICE,W.SIDES s NORTH ,SOUTH ,EAST ,WEST ,UP ,DOWN ,NORTHEAST,NORTHWEST,SOUTHEAST,SOUTHWEST x9000a :(A$(T):Z F ROOM,ARTIF,EFFECT,MONST,GOLD,TREASURE,WEAPON,ARMOUR,SHIELD,HEAL,LIGHT,DIGGER~ PM$(18),M%(18):M118:M$(M): Z HD,AG,FRIEND,COUR,ROOM,WEIGHT,DEF.ODDS,ARMOUR,WEAPON#,OFF.ODDS,W.DICE,W.SIDES,LOW ROOM,HIGH ROOM,# ATTACKS,GREED,HATE,WANDEDK$;"CLOSE" #ND(DR$) (DK$;"OPEN II.ROOMS,L64":DK$;"OPEN II.ROOM NAMES,L64":DK$;"OPEN II.MONSTERS,L128":DK$;"OPEN II.ARTIFACTS,L128":DK$;"OPEN II.DESC,L256" 2DK$;"READ II.DESC,R0":N%(1),N%(2),N%(3),N%(4):DK$ <T14:T$(T)::T06:T  (4);"MAXFILES 10"DK$(4)::5:"MAPPING A DUNGEON DESIGN FOR EAMON":::"INSERT DISKETTE WITH DUNGEON, THEN HIT ANY KEY ";:16368,0:A$:1000015000 :DK$;"OPEN II.NAME":DK$;"READ II.NAME":DUNGN$:DR$:     堠젠殍젠堠堠䠸č젠젠젠󮠠堠̍젠箠報Ġ󬠠㬠栠孭栠堠宍򬠠堠젠砨婠堠堠堠젠Ġ栠堨󮍠庍ԍ젠蠠蠠㬍򬠠栠ᠠ젠堠栠㠠󠠠젠堠䮍ᠲ宠젠렠婮栨宠堠ᠠ󭭍砠栠ᠠӠƠҠҠԠōԠӠ̠堠栠堠󩮠嬍䠠堠젠쭭堠젠堠宠堠栠䠠䠠젠쬠젠ᠠ젠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)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    謠堠堠䠧堠堠䠠蠠󬠠堠󬠠蠠󮠠렠ᠠ蠠젠嬠堠堠䮍堠󠠨ᠠ砠孭蠠򠠠䬠嬠蠠䭭砠젠堠䠠䠠󮠠堠堠宍堠䬠砠栠堠쬍젠堠堠栠堠堠䮍젠砠䠠堠宠젠䠠젠砠堠栠䠠堠栠󮍠쬠堠䠠󮠠٠堠堠졍ǠȠӍ堠堠笠󠠠䠠嬠砠堠殍䠠砢硢젠嬠䠠堠堠䠠젠欠堠ᠹ穮ҍ젠젠堠젠젠堠砠堠䠠젠堠栠ᠠ堠栠堠堠砠쬠蠠栠堠󠲰DV$;L2)::( d /// PRINT DESCRIPTIONY :"GOOD LUCK, ";NAME$;".":D$"RUN MAIN PGM" @::" PRESS ANY KEY TO CONTINUE ";:A$: J::A ADVENTURE NAME1 BY JOHN NELSON7> L D$(4):D$"OPEN FRESH MEAT":D$"READ FRESH MEAT":REC:NAME$:D$"CLOSE":D$"OPEN II.NAME":D$"READ II.NAME":ADV$:D$"CLOSE"::L1((40(ADV$))2):L240(ADV$)L1 (L1);A ĸ䠠栵蠠󠠠栭栠婬蠠ᠠ栰婬䠨嬠Ķ栲Ķᠠ堠堠栠Ĵ堠捲ᠠ蠠ĵ栠ᠠ堠堠򮍠쬠堠젠䠠堲ᠠ򬠠󮠠堠砠󮠨嬠ǠӠĠҍ栠嬠孭󠠠宠ᠠ堠ᠠ栠䮠ɠ䠠庠䮠栠堠àԧ婮ᠠ宠嬠렠䬠堠堠堠堠堠宠堠䠠堠蠠塩殍堠ǠΠΠō嬠栠젠󮠠栠젠堠󮠠宍栠堠䠠򮠠嬠ᠠ򡩮ɬ堠젠䠠堠젠嬍렠栠䠠젠堠栠嬠䠠堠䠠뮠栠堠쬠䠠쮍堠塩䠠堠䠠堠ΠҠˮ堠孭堠卨蠠堢â젠נϠ٠Ġ٠٠΍嬠Π堠ɬ𧠠䠢Š̠Ġƍ΢堠堠ŠҠ堠宩栠堠󠠠򬠠Ӡ宠󠠠砠䠠ōҢ堠Π̮Š̠ĠƍΠ䠠宠΍̠嬠ήŠ堠䠠堠󮠠堠堠䠠謠젠ήŠ堠뮍堠䬠ȠԠ堠렠ᠠӠ嬠䠠嬠䠠堠Ӎ嬠䠠󮠠堠䠠젠堢Ţ嬠䠠򬠠蠠젠䠠󠠨򽲬彶蠠䠠䩬堠堠嬠嬠䠠宠쬍䬠䠠򩬠堠堠󠠨嬠⬠䩬嬍砨͢Ƣ䬠䠠堠묠䠠䠠堠䠠䠠堠ᠠ򮍠堠ᠠ䠠堠宠󠠠䠠堠󬠠ᬍ堠ᠠ蠠栠䠠嬠䠠젠򮠠젨堠ΠĠԍ󬠠젠堠堠䠠ᠠ堠䠠Ӣ젠讍ǠРȠ΍ǠӠϠҠȠҍ栠堠堠堠墠䠠Ԭ堠宍젠젠堠䠠쮍̠ҠΠŠӍΠ䠠䠠砠                                  8"SWĺD$"PR#";PS,RBEGEN:5500:ZD$"CLOSE II.MONSTERS":D$:D$"PR#0":100a| D$;"READ II.MONSTERS,R";R:MN$:M2118:M%(M2)::D$;"READ II.DESC,R";R300:A$3"MONSTER # ";R;" [";MN$;"]":" ":"DESC:":8000:" ":M2112:" ";D$;"READ II.DESC,R";R200:A$:8000-::F /// LIST MONSTERSd"BEGINNING WITH #:";BEG$~"ENDING WITH #:";EN$(BEG$)NM(BEG$)1BEG$"1"(EN$)NM(EN$)(BEG$)EN$(NM)BEG(BEG$):EN(EN$)D$"OPEN II.MONSTERS,L12"BEGINNING WITH #:";BEG$6"ENDING WITH #:";EN$Y(BEG$)NE(BEG$)1BEG$"1"(EN$)NE(EN$)(BEG$)EN$(NE)BEG(BEG$):EN(EN$)SWĺD$"PR#";PSRBEGEN:4500::D$D$"PR#0":100"EFFECT #";R;":":#(4)NRĺ" [";R$(A%(4));"]";4 :A2:A%(2)23610A258:" ";A$(A2);10(A$(A2)));": ";6((A%(A2))));A%(A2);:A26A%(6)1A%(6)5ĺ" [";(" AXE BOW CLUB SPEARSWORD",(A%(6)1)51,5);"]";:A2" ":" ": /// LIST EFFECTS ":D$;"READ II.DESC,R";100R:A$:"DESC: ":8000:" "| A214:" ";A$(A2);10(A$(A2)));": ";6((A%(A2))));A%(A2); A22A%(2)0A%(2)3ĺ" [";("SET TREASURE TREASURE WEAPON ODD WEAPON",A%(2)121,12);"]";:3580 A24A%(4)0A%(BEG$):EN(EN$)2 D$"OPEN II.ARTIFACTS,L128"F SWĺD$"PR#";PS\ RBEGEN:3500: D$"CLOSE II.ARTIFACTS":D$:D$"PR#0":100 D$;"READ II.ARTIFACTS,R";R:X$:A14:A%(A)::A%(2)1āA58:A%(A):6 "ARTIFACT # ";R;" [";AN$(R);"]":""[EXIT]";:2160EfDR%(D)0(DR%(D))NRĺ"[";R$((DR%(D)));"]";Pp:D:g /// LIST ARTIF. "BEGINNING WITH ARTIFACT:";BEG$ "ENDING WITH ARTIFACT:";EN$ (BEG$)NA(BEG$)1BEG$"1" (EN$)NA(EN$)(BEG$)EN$(NA) BEG$:D$"PR#0":100_4"ROOM # ";R;" [";R$(R);"]":" ":"DESC:":D$;"READ II.DESC,R";R:A$:8000H:"DIRECTIONS MOVED IN--":D$;"READ II.ROOMS,R";R:D1ND:DR%(D):RD1ND:" ";DD$(D);": ";(DR%(D)0)((DR%(D))10));DR%(D);5)\DR%(D)99OMS!"BEGINNING WITH #:";BEG$;"ENDING WITH #:";EN$^(BEG$)NR(BEG$)1BEG$"1"(EN$)NR(EN$)(BEG$)EN$(NR)BEG(BEG$):EN(EN$) D$"OPEN II.ROOMS,L64" SWĺD$"PR#";PS*RBEGEN:2100:/D$"CLOSE II.ROOMS":DFFON ",SW31,3);")":" 7. QUIT":"INPUT YOUR CHOICE (1-6):";CHf CH1000,2000,3000,4000,5000,6000o 130 ND6:216,0:50  /// SET UP PRINTER "WHAT SLOT IS PRINTER IN?";PS:PS1PS71010 PS(PS)1010 100 /// LIST ROD$ d /// MAIN ROUTINE :12);"EAMON DUNGEON LIST":11);"BY JOHN NELSON":8:"SELECT ACTION DESIRED:":" 1. SET UP PRINTER":" 2. LIST ROOMS":" 3. LIST ARTIFACTS":" 4. LIST EFFECTS"@ " 5. LIST MONSTERS":" 6. TOGGLE PRINTER (NOW ";("O ,NORTHEAST,NORTHWEST,SOUTHEAST,SOUTHWESTJ XD$"OPEN II.ROOM NAMES,L64"| ZR1NR:D$;"READ II.ROOM NAMES,R";R:R$(R): \D$"CLOSE II.ROOM NAMES" _D$"OPEN II.ARTIFACTS,L128":R1NA:D$"READ II.ARTIFACTS,R";R:AN$(R)::D$"CLOSE II.ARTIFACTS":ON#,O.ODDS,W.DICE,W.SIDES,LOW ROOM,HIGH ROOM,#ATTACKS,GREED,HATE,WANDERk FR$(NR),AN$(NA):A18:A$(A): KD110:DD$(D): P VALUE,TYPE,WEIGHT,ROOM,W.COMPLEX,W.TYPE,W.DICE,W.SIDES* U NORTH ,SOUTH ,EAST ,WEST ,UP ,DOWN 0F :D$;"OPEN II.NAME":D$;"READ II.NAME":DUNGN$:DR$:D$;"CLOSE"Q #216,0_ (ND(DR$) 2D$"OPEN II.DESC,L256":D$;"READ II.DESC,R0":NR,NA,NE,NM:D$ <M$(18),M%(18):M118:M$(M):G A HARD,AGIL,FRIEND,COUR,ROOM,WGHT,D.ODDS,ARMOUR,WEAP LIST DUNGEON- FOR EAMON IID BY JOHN NELSONJPg (4);"MAXFILES 5"D$(4)::5:"LISTING A DUNGEON DESIGN FOR EAMON II":::"INSERT DISKETTE WITH DUNGEON, THEN PRESS":" ANY KEY ";:16368,0:A$: 20        M,12),MD%(NMM,15):MD%(NMM,9)1:MD%(NMM,21)1::NMNMNFx"X1NF:WN$(X5),WT%(X5),WO%(X5),WD%(X5),WS%(X5):$DK$"CLOSE":DK$;"OPEN II.DESC,L256":DK$;"OPEN II.ROOM NAMES,L64":DK$;"OPEN II.ROOMS,L64".W215:WN$(W2)"NONE"NANA1:AN15:WN$(NW),WT%(NW),WO%(NW),WD%(NW),WP%(NW):A15:WN$(A),WT%(A),WO%(A),WD%(A),WS%(A)::PTS:NF01060M1NF:MN$(NMM),MD%(NMM,1),MD%(NMM,2),MD%(NMM,4),MD%(NMM,7),MD%(NMM,8),MD%(NMM,10):MD%(NMM,3)100:MD%(NMM,5)1<!MD%(NMM,11),MD%(NM;"CLOSE"DK$;"OPEN FRESH MEAT":DK$;"READ FRESH MEAT":REC,NF:MN$(0),CL,MD%(0,1),MD%(0,2),CH,IN:A18:SA%(A)::A15:WA%(A)::AE,SEX$,GOLD,BANK,AC,AH,AA,SHNF5ĺ:"YOU WERE AMBUSHED!! ";NF5;" OF YOUR":" FRIENDS WERE KILLED!":NF5iNWII.ARTIFACTS,R";A:AN$(A):A218:AD%(A,A2):A2tA:DK$;"OPEN II.MONSTERS,L128":MN$(NM5),MD%(NM5,23):A1NMDK$;"READ II.MONSTERS,R";A:MN$(A):A2118:MD%(A,A2):A2:MD%(A,5)1MD%(A,5)((1)(MD%(A,14)MD%(A,13)1)MD%(A,13)) A:DK$M2:TT:490M2:TT9NBTL(FD%(1)TD%(1)):NBTLĂM?H100`///INITIALIZE DATADK$;"OPEN II.DESC":DK$;"READ II.DESC":NR,NZ,NE,NM:DK$;"CLOSE":NANZ:ND60DK$;"OPEN II.ARTIFACTS,L128":AN$(NA10),AD%(NA10,9):A1NA:DK$;"READ 3)MD%(0,1)DF0:7500:TT:490rM21NM:MD%(M2,5)ROOMMD%(M2,20)3(1).25MD%(M2,22)0DFM2:7500:M2200:M2:TT:490|M2:DF0:7500:TT:490TT1MD%(M,15):OFM M21NM:MD%(M2,5)ROOMMD%(M2,20)1MD%(M2,22)0DFM2:7500:M2200:M,20)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,20):TD%(M2)TD%(M2)MD%(M,1):FD%(M2)FD%(M2)MD%(M,19):490YMD%(M,20)2490^MD%(M,20)3390cTT1MD%(M,15)hOFM:TD%(0,3000,4000,4000,5000,6000,6000,7000,8000,9000,10000,11000,11000,11000,11000,11000,11000,11000,11000,15000,21000,15000,16000,17000,18000,20000,///COMMANDQ RETURN TO HERE6NBTL500@M1NM:MD%(M,5)ROOMMD%(M,22)0490)JM2MD%(M,20)(MD%(A:2900(C$(A),(V$))V$FF1:CA:F1275=:F290n:"YOU ";V$;(" !",(S$"")1,1);S$;"!":100:"I UNDERSTAND THESE COMMANDS-- ";:C1NC:C$(C);20(C$(C)));::::210C$(C)S$S$V$:V$C$(C)"C3000,3000,3000,3000,300AT"275( (A$,1)" "A$(A$,2):220I A$""A$CZ$:(37):16:A$X A$""275 CZ$A$:A2(A$):(A$,A,1)" "Ă V$(A$,A1):S$(A$,A1) (S$,1)" "S$(S$,2):260 C16:(C$(C),(V$))V$290:F0:A7NC:C$(A)V$CЯA1NZ:AD%(A,4)ROOMAD%(A,9)ĺ"YOU SEE ";AN$(A) AD%(A,4)ROOMAD%(A,9)ĺDK$;"READ II.DESC,R";A100:A$:DK$:A$:AD%(A,9)1: A:AANA:AD%(A,4)ROOMĺ"YOUR ";AN$(A)" IS HERE." A:V%(ROOM)1 :" YOUR COMMAND?";A$ (S$,4)"WHMMD%(M,23)MD%(M,23)1:MD%(M,23)0ĺMN$(M);" WAKES UP!":MD%(M,22)0:MD%(M,23)0:WI1 MD%(M,22)0MD%(M,5)ROOMĺMN$(M);" IS LYING HERE."::170 MD%(M,5)ROOMMD%(M,21)ĺDK$;"READ II.DESC,R";M300:A$:DK$:A$:MD%(M,21)1: M:WIİ36004 ;ROOM:A$:DK$:A$::V%(ROOM)1 WI0:M1NM:MD%(M,5)0MD%(M,18)((1)100)ROOMMD%(M,13)ROOMMD%(M,14)ĺMN$(M);" WALKS INTO ROOM!":MD%(M,5)ROOM:WI1: MD%(M,5)ROOMMD%(M,21)MD%(M,22)0ĺMN$(M);" IS HERE.":W MD%(M,22)0MD%(M,5)ROO)MD%(0,10)2MD%(0,2):(1).8ĺ"YOUR SPEED SPELL HAS JUST EXPIRED!": }FURYFURYFURY1:FURYMD%(0,15)1:"YOUR FURY HAS SUBSIDED!": V%(ROOM)ĺDK$;"READ II.ROOM NAMES,R";ROOM:A$:DK$:"YOU ARE ":" ";A$: V%(ROOM)ĺDK$;"READ II.DESC,R"C EAMON II ADVENTURE< BASE EAMON II PROGRAMB\ BY JOHN NELSON bk 50DK$(4):DK$"VERIFY GAME.PTRS":216,0:190002216,0:1000d >> MAIN ROUTINEnG xSPDSPDSPD1:SPDMD%(0,2)MD%(0,2)2:MD%(0,10                               !!" ! ! ! "" ! VE///DONE WITH GAME]DK$;"CLOSE"::"(HIT ANY KEY TO CONTINUE) ";:16368,0:A$:zSPDMD%(0,2)MD%(0,2)2DIE2500W14:WN$(W)"NONE"::W21:A1NA:AD%(A,2)1AD%(A,4)1WN$(W2)AN$(A):WP%(W2)A:W2W21:AD%(A,4)0A:W2NC:C$(C):6tS14:S2%(S)SA%(S)::V%(96):ROOM1?l100Iv 38 NORTH,N,SOUTH,S,EAST,E,WEST,W,UP,U,DOWN,D,NE,NW,SE,SW,GET,TAKE,DROP,PUT,LOOK,EXAMINE,ATTACK,FLEE,RETREAT,ESCAPE,GIVE,INVENTORY,I,BLAST,HEAL,POWER,SPEED,SMILE,WAVE,SAY,READY,SAACMD%(0,8)1:EA5`VA2MD%(0,8)MD%(0,8)A2:EAEAA210:A23MD%(0,8)MD%(0,8)2:EAEA30`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)3 jNC:C$(NC):C1$(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$(A)AN$(A)"#":A00::1090LA,W2:EA0:MD%(0,8)0:A2(AC2):A22,WT%(NW),WO%(NW),WD%(NW),WP%(NW):A14:WN$(A),WT%(A),WO%(A),WD%(A),WS%(A)::DK$;"CLOSE":DK$;"DELETE FRESH MEAT"$DK$;"OPEN EAMON.DESC,L256":DK$;"OPEN EAMON.ROOM NAMES,L64":DK$;"OPEN EAMON.ROOMS,L64"y.W214:WN$(W2)"NONE"NANA1:AN$(NA)WN,MD%(NM,15):A1NM:DK$;"READ EAMON.MONSTERS,R";A:MN$(A):A2112:MD%(A,A2):A2,A:DK$;"CLOSE"DK$;"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,ACsNW15:WN$(NW)AMON.DESC":NR,NZ,NE,NM:DK$;"CLOSE":NANZDK$;"OPEN EAMON.ARTIFACTS,L128":AN$(NA4),AD%(NA4,9):A1NA:DK$;"READ EAMON.ARTIFACTS,R";A:AN$(A):A214:AD%(A,A2):A2:AD%(A,2)1āA258:AD%(A,A2):A2aA:DK$;"OPEN EAMON.MONSTERS,L128":MN$(NM).25DFM2:7500:M2200:M2:4908|M2:DF0:7500:490AOFMM21NM:MD%(M2,5)ROOMMD%(M2,14)1DFM2:7500:M2200:M2:490M2NBTL(FD%(1)TD%(1)):NBTLĂM100///INITIALIZE DATA*DK$;"OPEN EAMON.DESC":DK$;"READ E)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%(M,13):490YMD%(M,14)2490^MD%(M,14)3390hOFM:TD%(3)MD%(0,1)DF0:7500:490 rM21NM:MD%(M2,5)ROOMMD%(M2,14)3(1)6000,6000,7000,8000,8000,8000,9000,10000,10000,11000,12000,13000,14000,15000,15000,16000,17000,18000 ,///COMMANDS RETURN TO HERE 6NBTL500 @M1NM:MD%(M,5)ROOM490 JM2MD%(M,14)(MD%(M,14)2):MRFD%(M2)TD%(M2)(41(1)20)}TMD%(M,4):S$(A$,A1)/ (S$,1)" "S$(S$,2):260 C1NC:C$(C)V$C$(C)S$Ă::"HUH? I ONLY UNDERSTAND THESE COMMANDS-- ";:C1NC:C$(C);20(C$(C)));::::210 C$(C)S$S$V$:V$C$(C) CC15:C2C1d "C3000,4000,4000,5000,5000,100:A$:DK$:A$:AD%(A,9)1:X A:AANA:AD%(A,4)ROOMĺ"YOUR ";AN$(A)" IS HERE."j A:V%(ROOM)1 :" YOUR COMMAND?";A$ (A$,1)" "A$(A$,2):220 A$""A$CZ$:(37):17:A$ CZ$A$:A2(A$):(A$,A,1)" "Ă V$(A$,A1M1NM:MD%(M,5)ROOMMD%(M,15)ĺMN$(M);" IS HERE.": MD%(M,5)ROOMMD%(M,15)ĺDK$;"READ EAMON.DESC,R";M300:A$:DK$:A$:MD%(M,15)1: M:A1NZ:AD%(A,4)ROOMAD%(A,9)ĺ"YOU SEE ";AN$(A) AD%(A,4)ROOMAD%(A,9)ĺDK$;"READ EAMON.DESC,R";AMD%(0,2)MD%(0,2)2:MD%(0,10)MD%(0,10)2MD%(0,2):(1).8ĺ"YOUR SPEED SPELL HAS JUST EXPIRED!": V%(ROOM)ĺDK$;"READ EAMON.ROOM NAMES,R";ROOM:A$:DK$:"YOU ARE ":" ";A$: V%(ROOM)ĺDK$;"READ EAMON.DESC,R";ROOM:A$:DK$:A$::V%(ROOM)16 6 EAMON ADVENTURE #?<-> BASE EAMON PROGRAM <-B[ BY DONALD BROWNaj 50DK$(4):DK$"VERIFY GAME.PTRS":190002216,0:1000d///MAIN LOOP. FIRST GIVE ROOM DESC, THEN GET COMMANDnc xSPDSPDSPD1:SPD                         宠宠堠䠠堠䠠ŠҧӠō砠ᠠ堠箠堠堠ɠ򠠠󬠠󬠠ﺍϠ砠堠宠䠠蠠󠠠ɠɍ䠠堠ɍ󮠠ɠ䠠򮠠堠䬠讍䬠䠠堠堠嬠塍ǠŠō砠宍䠠嬠堠堠䠠堠쬠砠󮠠堠砠堠嬠䠠堠嬠󮠠堠蠠뮩Ǡƍ젠䬠宍Šҍ蠠󩬠젨󩬠􍨳䠠󩬠䠠䠠󩮠蠠蠠堠젠堠嬍ᠠ堠쬠孭宍ǠӍ󬠠堠쬠砠宠庠򠨱ᠠ䬠򬠠쬠䠵򮠠堠젠ᠠ栠嬠堠堠䠠쬍栱묠䠠宍卵蠠栱婮嬍堠堠堠嬠󠠠󠠠䠠ᠠ䠠宠ᡩ忍堠砠﬍䠠宠嬠䠠嬠栠堠堠z笠蠠砧堠à䠠纍ŠϠŠҧӠҍᩮ쮍嬠栠宠䬠ᠠź堠쬠堠堠砠婠讠ﬠ򠠨堠蠠蠠堠򡩠Ԡ̠宠堠歍堠٠򠠢ɢ堠箍٠ˠ䮍Ԡᠠ詮䠠䮍䠠άӬŬ׬լĬȬȬԬԬЬΠ젠堠䠠堠󮠠嬠栠堠č٠䠠Р٠䮨堠堠堠堠졩嬠砠ԠŢ栠ᠠ⠠䬠젠堠䮍讠젠䠠젠宠젨婠堠䬍砠GAME.SVAR":DK$"BLOAD GAME.STR"j>jJDK$;"DELETE GAME.PTRS":DK$;"DELETE GAME.SVAR":DK$;"DELETE GAME.STR">tJDK$;"OPEN EAMON.DESC,L256":DK$;"OPEN EAMON.ROOMS,L64":DK$;"OPEN EAMON.ROOM NAMES,L64">~J100A2561V=F:"THE GAME IS NOW SAVED. BOOT ON THIS":" DISKETTE TO RESTART THE GAME."\=Fp=8J /// RESTART=BJ:"DO YOU WANT TO RESTART THIS GAME?":" Y OR N:";=LJA$:A$"Y"A$"N"19020=VJA$:A$"N"Ā>`JDK$"