' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ 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-(]! ΠҠ@跻~!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` UP (rGT1()(\ >>> MONST SEARCH@(aWHRO:HA1:EMBRO(fFO0:X1NM:S$MN$(X)(MN$(X),(S$))S$(MN$(X),(S$))S$4750(pMD%(X,5)WHERMD%(X,5)HAVEMD%(X,5)EMB4850(zFO1:(:( >> ARTIF SEARCH)WHRO:HA1:EMBRO0,9)1300'617000:'@:A1NA:AD%(A,4)ROOM4190N'J4200:GT4190'OWTAD%(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 SOMETHINGEMOVED."::300]&EMBROOM200:WHERROOM:HARO:4810:FOĺ:"I SEE NO ";S$;" HERE!"::100p&"4200:GT100&'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%((1))MD%(M,14)2:FR(100(1))MD%(M,14)3l%VAMD%(M,14):FD%(A)FD%(A)MD%(M,13):TD%(A)TD%(A)MD%(M,1)%<M:NBTL(TD%(1)0):%///GET COMMAND%4900%S$"ALL"4160&S$"TORCH"ĺ:"ALL TORCHES ARE BOLTED TO THE WALL AND":"CANNOT BE R)0:TD%(3)MD%(0,1):FD%(1)0:FD%(3)MD%(0,13)9$$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((CH10)2)-%LMD%(M,14)1:FR(1000:100# >> MOVE IT1# R3ROOM:ROOMR2:3600# DK$;"READ EAMON.ROOMS,R";ROOM:NX0:X1ND:RD%(X):RD%(X)0RD%(X)NRRD%(X)(RD%(X))# RD%(X)0RD%(X)NRNXNX1# :NL:DK$:LTNLLM#100#///CHECK REACTIONS ON MONSTERS-$TD%(1U SUCCESSFULLY RIDE OFF INTO THE":" SUNSET.":2000B"b R23490L" 3490x" AD%(R2100,7)0R2AD%(R2100,5):3040" AD%(R2100,6)0R2AD%(R2100,5):3040" :"THE ";AN$(R2100);" BLOCKS THE WAY!":100# :"YOU CAN'T GO THAT WAY!":V%(ROOM)":100S":NRj4NADV$(NR),ND%(NR),V%(NR),NR%(NR),NA%(NR),NE%(NR),NM%(NR),RT%(NR),DF%(NR),SV%(NR),DT$(NR),AU$(NR)>NR1NR:D$;"READ ADVENTURE LOG FILE,R";R:ADV$(R),ND%(R),V%(R),X,NR%(R),NA%(R),NE%(R),NM%(R),RT%(R),DF%(R),SV%(R),DT$(R),AU$(R):zND$;"CLOSEN.NAME":AD$:ND:V$:D$;"CLOSE"::D$(4):"NBR ADV:";A:D$;"OPEN ADVENTURE LOG FILE,L128":D$;"WRITE ADVENTURE LOG FILE,R0":A:D$;"CLOSE": N === READ NEW ADVLOG*ND$;"OPEN ADVENTURE LOG FILE,L128,S";SL;",D";DR:D$;"READ ADVENTURE LOG FILE,R0"CLOSE":1020),3 /// NBR R/A/E/M - MANB63"NBR ROOMS:";NR%(A)[@3"NBR ARTIF:";NA%(A)uJ3"NBR EFFECT:";NE%(A)T3"NBR MONST:";NM%(A)^310206D$(4):"NAME:";AD$:"NBR DIRECTIONS:";ND:"VERSION:";V$"6D$;"OPEN EAMON.NAME":D$;"WRITE EAMOɠҍč͍ōč .":300WeTR26500QWe:R6:23800:TR0:AD%(10,8)6:MD%(0,9)10MD%(0,12)6ZWe300Wg:R4:23800:MD%(0,9)10R5:23800:D1:S5:DF0:7635:300WgTR1:AD%(10,8)10:MD%(0,12)10:300Wi30026ĺ:"I'M AFRAID TO GO INTO THE WATER WITHOUT MY LIFE PRESERVER!":100jVaS$"CAVE"ROOM1V$"S":3000Va:"I'M NOT SURE WHAT YOU MEAN BY THAT. TRY GIVING A DIRECTION TO MOVE IN."V,e100Ve >> TROLLSFIREWeAD%(10,4)1ĺ:"NOTHING HAPPENS10:958:"INPUT VERSION: ";V$:V%(A)(V$):1020U/216,0:V$"4.0":ND%(A)6:12070p 0216,0:V$"5.0":120702 === CHG #R/A/E/M2MAN1310029200 2D$;"OPEN EAMON.DESC,L256,S6,D1":D$;"READ EAMON.DESC,R0":NR%(A),NA%(A),NE%(A),NM%(A):D$;1020. === CHG VERSION*.MAN121006.12020@.9200|.D$;"OPEN EAMON.NAME,S6,D1":D$;"READ EAMON.NAME":ADV$/12200/ND/12300/V$:V%(A)(V$)!/216,0&/D$;"CLOSE":ND%(A)ND:1020D/ === CHANGE VERSION - MAN1N/0!\+ === CHANGE # DIRECT - MANUf+10:958:"INPUT NUMBER OF DIRECTIONS: 6/10 ";|p+A$:A$"6"A$"1"ĺ(7);:11120z+A$"6"ĺA$;:ND%(A)6:1020+A$;+A$:A$"0"A$(8)ĺ(7);:11150+A$(8)ĺA$;:868:11120+A$:ND%(A)10::V%(A):A:NR%(A):NA%(A):NE%(A):NM%(A):RT%(A):DF%(A):SV%(A):DT$(A):AU$(A)\f&D$:o&X11500:X:* === CHG NBR DIRECTIONS+MAN11100 +9200+D$;"OPEN EAMON.NAME,S6,D1":D$;"READ EAMON.NAME":ADV$:ND:D$;"CLOSE":ND%(A)ND:102NTURE AND PRESS A KEY";:A$::7%:6:"SLOT ===> ";S&%A$:A$"1"A$"7"9510f0%A$:SL(A$):%:6:"DRIVE ===> ";%A$:A$"1"A$"2"9610%A$:DR(A$):H& === WRITE REC AR&D$;"WRITE ADVENTURE LOG FILE,R";AR\&ADV$(A):ND%(A)(A$)1ġ:100F#A(A$):.# === GET MAN#10:958:"MANUAL INPUT OR DETERMINE FROM DISKETTE":" (A COPY OF THE ADVENTURE) - (M OR D)":#A$:A$"M"A$"D"9120#MAN(A$"M"):# === REQUEST DISK CHG#10:958:"INSERT EAMON ADVEUITbz::" * * * CONFIRM * * * ":::::"PRESS 'Q' TO QUIT OR ANY OTHER TO ":" CONTINUE ... ";A$:A$"Q"ĺ:A$:100(# === SELECT ADVENTURE2#10:958:"ADVENTURE NUMBER:";A$:A$""ġ:100<#(A$)NRBER:";A;" RATING:";RT%(A);" DIFF:";DF%(A)y"ROOMS:";NR%(A);" ARTIF:";NA%(A);" EFFECTS:";NE%(A);" MONST:";NM%(A)"SAVE:";("NY",SV%(A)1,1);" REV.DATE:";DT$(A)::24::" PRESS ANY KEY TO CONTINUE ";:A$:::100p === Q FILE."F+ERR6LN350ė:10:5:"THIS IS NOT THE MASTER DISKETTE."w+21::"ERROR";::":";ERR;" -IN LINE ";LN+:7:"";:A$::1000BIL.0*i 0,45,0,65: DEFAULT SPELL ABILITIESN*jm BLAST,HEAL,SPEED,POWERn*tm AXE,BOW,MACE,SPEAR,SWORD*`///ERROR ROUTINES*jERR(222)*tLN(218)(219)256+~ERR6ERR5LN4040ė:10:5:"DISK DOES NOT CONTAIN PROPER":10:"CHARACTERS 40,10,55,15,40: WEAPON ABIL: AXE/BOW/MACE/SPEAR/SWORDX)e MACE,3,10,1,4: 1ST WEAPONz)e SWORD,5,10,1,8: 2ND WEAPON)e EXCALIBUR,5,25,2,8: 3RD WEAPON)f NONE,0,0,0,0 : 4TH WEAPON)f M,2000,4000*i 10,-10,30,15,20: DEFAULT WEAPON AOUT.":100FU8^MD%(G,5)ROOMĺ:MN$(G);" WON'T LET YOU DO THAT!":300UB^AD%(K,4)1K0ĺ:"YOU DON'T HAVE THE KEY!":100UV^:"YOU HAVE FREED ";MN$(M);".":MD%(M,5)ROOM:AD%(A,4)0:R3ROOM:3600:300Ua >> ENTERGVa(S$"WATER"S$"SEA")ROOMA$:DK$:A$:T] >> FREEnT]4900:A1NA:S$AN$(A)S$(AN$(A),(S$))Ă::"I DON'T UNDERSTAND.":100T]AD%(A,2)10ĺ:"I DON'T UNDERSTAND.":100T]MAD%(A,5):KAD%(A,6):GAD%(A,7) U.^AD%(A,4)ROOMĺ:"I DON'T KNOW WHAT YOU ARE TALKING AB>> READ ARTIFSZA923300lSZ:X1AD%(A,6):RAD%(A,5)1X:23800:::"PRESS A KEY TO CONTINUE";:A$:uSZ300S[ === READ BOOK ===S[R7:23800S[ROOM26R8:23800:DIE1:2000S"[R9:23800:DIE1:2000 T\DK$;"READ EAMON.DESC,R";R200:FILE,R0":NR:D$;"CLOSE":1002 === WRITE FILEtD$;"OPEN ADVENTURE LOG FILE,L128,S";SL;",D";DR:A1NR:9800:D$;"CLOSE":100 === DISPLAY ADVENTURE9000,ADV$(A);" BY ";AU$(A):"VERSION:";V%(A);" NBR DIRECTIONS:";ND%(A):"NUM č͍ōčΠōҍ WOUNDS SEEM TO ";("OPENHEAL",(AD%(A,6)0)41,4);"!"?RrV300MRY >> READRY4900:WHRO:HAV1:EMBRO200:4810:FO23100RYAD%(A,2)723200R2Z:"YOU CAN'T READ THAT!":300R> READ NON-ARTIFRFZ:"THERE IS NOTHING TO READ.":100 SZ "YOU CAN'T DO THAT!":100KQVAD%(A,7)0ĺ:"THERE ISN'T ANY LEFT.":300kQVAD%(A,5)((1)100)22100Q"V:"NOTHING SEEMS TO HAPPEN.":300QTV === HEAL ===Q^VAD%(A,7)AD%(A,7)1:MD%(0,13)MD%(0,13)AD%(A,6):MD%(0,13)0MD%(0,13)06RhV:"YOURDON'T KNOW WHAT YOU MEAN.":100BPvRXA:S$B$:4800:FOAX21150ePRAD%(X,4)A100::"OKAY.":300PR:"DON'T BE ABSURD.":100PU >> HEALING POTIONPU4900:S$"POTION"S$"BOTTLE"PU4800:FOĺ:"I DON'T UNDERSTAND.":100QVAD%(A,2)6ĺ:FORX1(S$):(S$,X,5)" INTO"X2A$(S$,X1):B$(S$,X6):21100OR(S$,X,3)" IN"X2A$(S$,X1):B$(S$,X3):21100O&R::"PUT WHAT?";A$:"PUT INTO WHAT?";B$:21100O0R:"PUT WHAT?";A$:"PUT INTO WHAT?";B$:21100PlRS$A$:4800:FOĺ"I /GATE?NVOAD%(A,6)ĭAD%(AD%(A,6),4)1ĺ:"IT'S LOCKED!":100NjOAD%(A,6)0::"YOU'VE OPENED THE ";AN$(A);".":X1ND:RD%(X)A100RD%(X)AD%(A,5)NtO:300NP:R1:23800:AD%(12,4)0:MD%(7,5)ROOM:R3ROOM:3600:100NR >> PUTNRS$""21040IT'S LOCKED!":100GMNLK0:X1NA:AD%(X,4)A100AD%(X,4)ROOM:LK1:rMN:LKĺ:"YOU FOUND SOMETHING INSIDE!"{MN300MNS$"DOOR"S$"GATE"ĺ:"IT WILL OPEN WHEN YOU APPROACH.":100MN:"I DON'T KNOW HOW TO OPEN ";S$;".":100NLO >> OPEN DOORD%(A,2)4201009L>NAD%(A,2)7ĺ:"TRY READING IT.":100|LHNAD%(A,2)1ĺ:"YOU'LL MAKE A MESS. WAIT TILL YOU LEAVE.":100LRNAD%(A,2)820300L\N:"THAT'S NOT WHAT YOU DO WITH IT.":100LN >> OPEN CONTAINERMNAD%(A,5)ĭAD%(AD%(A,5),4)1ĺ:":"YOU HAVE TO PICK IT UP FIRST.":100WK`JLTNL:AD%(A,5)0ĺ:"IT WON'T LIGHT!":100KjJLM1:LT1:LCAD%(A,5):LSA::"YOU'VE MANAGED TO LIGHT THE ";AN$(A);".":300K N >> OPENK*N4900:WHRO:HA1:EMBRO200:4810:FO20200K/NA1220500L4NA(EAAE)AD%(A,5)WA%(AD%(A,6))2MD%(0,2):MD%(0,9)A:MD%(0,11)AD%(A,7):MD%(0,12)AD%(A,8)tJFF:"READIED."::300J8J >> LIGHTJBJ4900:4800:FOĺ:"I DON'T KNOW WHAT YOU MEAN.":100JLJAD%(A,2)5ĺ:"YOU BURN YOURSELF!":300&KVJAD%(A,4)1ĺ14000!I>S$"TROLLSFIRE"26000@IB:"OKAY, '";S$;"'"::300XIhB///READY A WEAPON.bIrB4900I|BA1NA:AN$(A)S$AD%(A,4)1Ă::"YOU AREN'T CARRYING IT!"::100IBAD%(A,2)2AD%(A,2)3ĺ:"THAT ISN'T A WEAPON!"::100[J///SAY COMMANDH>4900H>S$"BLAST"V$S$:S$"":11000H>S$"HEAL"12000H>S$"POWER"13000I>S$"SPEED"ɠҍS3:11500:SUC300QG6SPDMD%(0,10)MD%(0,10)2MD%(0,2):MD%(0,2)2MD%(0,2)G6SPDSPD(25(1)10)::"YOU CAN FEEL THE NEW AGILITY FLOWING":" THROUGH YOU!"::300G:///SMILE COMMANDG::M1NM:MD%(M,5)ROOM15100 H:MD%(M,14)15030,1HOES THROUGH THE TUNNELS."::300aF"3RR95ĺ:"ALL OF YOUR HITS ARE HEALED."::MD%(0,13)0:300lF,314020F3 === RAISE DEADF3MN$(M);" COMES ALIVE!":AD%(M2,4)0:MD%(M,5)ROOM:MD%(M,13)0:AD%(M2,4)1WTWTAD%(M2,3)F3F6///SPEED SPELLG6:100  === WRITE NEW ADVLOGo:10:"ENTER 'F' FOR ENTIRE FILE OR 'A' FOR A":"SINGLE ADVENTURE ===> ";A$:A$"F"A$"A"4020A$:A$"F"41009000:D$;"OPEN ADVENTURE LOG FILE,L128,S";SL;",D";DR:9800D$;"WRITE ADVENTURE LOG F%(A):SV%(A):DT$(A):AU$(A):D$;"CLOSE":100K === READ NEW EAMON.NAME[ 9000:9200 D$;"OPEN EAMON.NAME,S6,D1":D$;"READ EAMON.NAME":AD$:ND%(A):V%(A) A:NR%(A):NA%(A):NE%(A):NM%(A):RT%(A):DF%(A):SV%(A):DT$(A):AU$(A):D$;"CLOSE"58:"REVISED DATE:";DT$,DT$(A)DT$:1020K === WRITE NEW EAMON.NAME[9000:9200}D$;"UNLOCK EAMON.NAME,S6,D1"D$;"APPEND EAMON.NAME,S6,D1":D$;"WRITE EAMON.NAME":V%(A)5ĺND%(A):V%(A).A:NR%(A):NA%(A):NE%(A):NM%(A):RT%(A):DA)(RT$)Z"DIFFICULTY:";DF$:(DF$)0(DF$)10ĺ:"MAKE IT 1-10, PLEASE":9900:1420lDF%(A)(DF$)v1020 === SAVE GAME"SAVE GAME (Y/N);"A$:A$"Y"A$"N"1520A$:SV%(A)(A$"Y"):1020@ === REV. DATEJ10:90,1500,1600,100(L === NBR DIRECTIONS9V9100:11000K === VERSION\9100:12000y === #ROOMS/ART/EFF/MON9100:13000x === RATING/DIFF10:958:"RATING:";RT$:(RT$)0(RT$)10ĺ:"MAKE IT 1-10, PLEASE":9900:1410 RT%(":" 1. NBR DIRECTIONS":" 2. VERSION":" 3. # ROOMS/ART/EFF/MON":" 4. RATING/DIFFICULTY" $" 5. SAVE GAME (Y/N)":" 6. REVISED DATE":" 7. RETURN":"INPUT NUMBER (1-7) ===> "; .A$:A$"1"A$"7"10708A$:(A$)1100,1200,1300,140ION:";V%(A);" NBR DIRECTIONS:";ND%(A):"NUMBER:";A;" RATING:";RT%(A);" DIFF:";DF%(A) "ROOMS:";NR%(A);" ARTIF:";NA%(A);" EFFECTS:";NE%(A);" MONST:";NM%(A) "SAVE:";("NY",SV%(A)1,1);" REV.DATE:";DT$(A)::b 10:"SELECT DATA TO CHANGE:. WRITE NEW ADVENTURE LOG FILE"X " 5. DISPLAY ADVENTURE INFORMATION":" 6. QUIT"t "INPUT NUMBER (1-5) "; A$:A$"1"A$"6"150 A$:(A$)1000,2000,3000,4000,5000,6000  === KEY IN DATA 9000Y :ADV$(A);" BY ";AU$(A):"VERS (R1NR:D$;"READ EAMON.ADVLOG,R";R:ADV$(R),AU$(R):H 2D$;"CLOSE"\ d === MAIN MENUz i:13);"CONVERT ADVLOG": n10:"SELECT FUNCTION:":" 1. KEY IN DATA ":" 2. WRITE A NEW EAMON.NAME FILE" x" 3. READ A NEW EAMON.NAME FILE":" 4ANY KEY ...";:A$::A$"S"İ9500:20; A$"D"İ9600:20M N$"N"20000 D$;"OPEN EAMON.ADVLOG,L64,S";SL;",D";DR:D$;"READ EAMON.ADVLOG,R0":NR #ADV$(NR),ND%(NR),V%(NR),NR%(NR),NA%(NR),NE%(NR),NM%(NR),RT%(NR),DF%(NR),SV%(NR),DT$(NR),AU$(NR)8 ՠŠĠ̠ԠԮԠӠ٠ˠĠŠΠŮŠҠӠϠŠȮՠ̠ϠҬРŠӠĠšՠ̠ϠŠĠŠ٠Π٠ҠȡӠՠԠǠŠˬՠ̠ĠΠǠծՠ٠ŠԠՠŠǠϠ̠ȡCE2A1NA:AD%(A,4)ROOMRAISE1:AN$(A);" VANISHES!":AD%(A,4)0XE2A:RAISEĺ:300E3RR(100(1)1):RR11ĺ:"THE SECTION OF TUNNEL YOU ARE IN ":" COLLAPSES AND YOU DIE.":DIE1:2000!F3RR86ĺ:"YOU HEAR A VERY LOUD SONIC BOOM":" THAT EC٠ҍ(1)1):MD%(0,13)0MD%(0,13)05D/DF0:7650:300{D2///POWER SPELL--RE-WRITE THIS SECTION FOR YOUR OWN SPECIAL PLOTSD2S4:11500:SUC300D2RAISE0:M1NM:M2NZNMM:AD%(M2,4)ROOMAD%(M2,4)1RAISE1:13200E2M:RAISER3ROOM:3600:300-:"THE STRAIN OF ATTEMPTING TO CAST THIS SPELL OVERLOADS YOUR BRAIN AND YOU FORGET IT COMPLETELY."::SA%(S)0:C.///HEAL SPELLC.S2:11500:SUC300C.:MD%(0,13)ĺ"SOME OF YOUR WOUNDS SEEM TO CLEAR UP.":!D.MD%(0,13)MD%(0,13)(10IRECT HIT!"::S6:D1:DFM:A0:7635::300B,SUC0:SA%(S)RL(100(1)1):SUC(((RLS2%(S))(RL5))(RL95)):RL10011600B,SUCĺ:"NOTHING HAPPENED.":B-RL(100(1)1):RLS2%(S)S2%(S)S2%(S)2:SA%(S)SA%(S)2B -S2%(S)S2%(S)2B-{CPAN$(A);(" (READY WEAPON)",120(AMD%(0,9))):A0A01:A015ĺ:"(HIT ANY KEY TO CONTINUE)";:A$::A00rA$':300A*///BLAST SPELLA+4900A,M1NM:S$MN$(M)MD%(M,5)ROOMĂ::"YOU CAN'T BLAST ";S$;"!"::100A,S1:11500:SUC300+B,:"DAREN'T CARRYING THAT MUCH GOLD OF YOUR OWN!"::300@&%GOLD(GOLD(S$)):MD%(M,0)MD%(M,0)((S$)):MD%(M,14)0:MD%(M,3)MD%(M,3)(1(S$)100):9120@'///INVENTORY COMMANDgA':"YOU ARE CARRYING THE FOLLOWING--":A00:A1NA:AD%(A,4)1ĺ" ";;S$;"!"::100*?#AMD%(0,9)MD%(0,9)1v?#:"OKAY.":AD%(A,4)M1:MD%(M,14)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:50508@%(S$)GOLDĺ:"YOU "::100!>Z#S$(S$,(MN$(M))1)C>d#(S$,1)" "S$(S$,2):9060U>i#(S$)09500e>l#S$""9085>n#A1NA:AN$(A)""9080>s#(S$,(AN$(A)))AN$(A)AD%(A,4)19095>x#>}#A22A23::"WHAT TO GIVE? ";S$:9065?#:"YOU AREN'T CARRYING A "X0R2ROOM:" ... BUT CAN'T FIND AN EXIT!":S=H!R2RD%(6(1)1):R21R2NR8510Y=R!n=(#///GIVE COMMANDw=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! BY THE MIMIC AND":"CANNOT FLEE!":300x!N!;PDF10R3:23800:AD%(10,8)6;ZDF7ĺ:"AS THE MIMIC DIES, IT ROLLS OVER AND":"YOU FIND A RING UNDERNEATH IT.":AD%(6,4)ROOM;:;@///FLEE COMMAND;JNBTLĺ:"THERE'S NOTHING TO FLEE FROM!"::100'4`RL97ĺ"A MISS.":4e"A FUMBLE!":FR(100(1)1):FR3540(MD%(OF,9))ĺ" FUMBLE RECOVERED."::5jFR76ĺ" WEAPON DROPPED!":AD%(MD%(OF,9),4)ROOM:MD%(OF,10)MD%(OF,10)AD%(MD%(OF,9),5):MD%(OF,9)1:MDAD%(A,2)2AD%(A,2)3Ă:3MN$(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:3LHIT0:MD%(OF,9)174004QMN$(OF);" ATTACKS ";MN$(DF):" --";:RL(100(1)1):HIT0:(RL5RLMD%(OF,10E1A1*2AEAEA:MD%(0,10)MD%(0,10)AE2MD%(DF,14)1DF03002MD%(DF,3)MD%(DF,3)2:M1NM:MD%(M,5)ROOMMD%(M,14)1MD%(M,14)02M:R3ROOM:3600:3002///MONSTER TRIES TO PICK UP WEAPON2MD%(OF,10)0ı3A1NA:AD%(A,4)ROOMATTERS!":300:1:"WHAM!! YOU HIT THE ";AN$(A);"!":300q1zMD%(0,9)1ĺ:"YOU HAVE NO WEAPON READY!"::1001OF0:DFM:7500:HIT73601INCW2AD%(MD%(0,9),6):WA%(W2)WA%(W2)21EAAE3001(100(1)1)MD%(0,10)73602A2:EAA10:FOĺ:"ATTACK WHO?":100Z0AD%(A,2)8AD%(A,2)4ĺ:"THAT WOULD BE STUPID.":100~0S7:K6:AD%(A,2)4SS1:KK1 1 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);" SHYS, 'HEALING POTION'":K/DK$;"READ EAMON.DESC,R";A100:A$:DK$::A$:Q/n/V%(ROOM)V%(ROOM)1:300/X///ATTACK COMMAND/b4900:LTĺ:"YOU SWING WILD --- NOTHING HIT.":300/4700:FO7150/MX:72900WHRO:HAVRO:EMBRO200:48D%(X)NRĺ:"YOU FOUND A SECRET PASSAGE ";C$(X);"!":RD%(X)(RD%(X)):V%(ROOM)2W..A1NZ:AD%(A,4)ROOM300AD%(A,4)ROOM:LK1.:LKĺ:"YOU FOUND SOMETHING.".V%(ROOM)V%(ROOM)1:300.8 /// READ ART DESC/BA3A13ĺ"THE BOTTLE SA1AD%(A,4)200ROOM)İ6200:LK1:AD%(A,9)1_-AN$(A)S$AD%(A,4)200ROOMLK1:AD%(A,4)ROOMn-A:LK300-A1NM:MN$(A)S$MD%(A,5)ROOMĺDK$;"READ EAMON.DESC,R";A300:A$:DK$::A$::LK1-A:LK300-S$""6550Q.X1ND:RD%(X)0RLL FALL TO THE GROUND."::5100P,MD%(0,9)0ĭAD%(MD%(0,9),4)1MD%(0,9)1Y,300,A1NA:AD%(A,4)1ĺAN$(A);" DROPPED.":AD%(A,4)ROOM,A:WT0:5060,p///LOOK COMMAND,zLK0:S$""6060+-A1NZ:AN$(A)S$(AD%(A,4)ROOMAD%(A,4)"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.",WT10MD%(0,1)ĺ"YOU SUDDENLY FIND YOU CANNOT CARRY ALL OF THE ITEMS YOU ARE CARRYING, AND THEY A50 *FO1:*:L*$///ROUTINE TO GET S$ IF NOT PREVIOUSLY SPECIFIED.s*)S$""ĺ:C$(C);" WHAT";:S$:4900y*.*///DROP COMMAND*4900*S$"ALL"5100"+A1NA:(AN$(A)S$(AN$(A),(S$))S$(AN$(A),(S$))S$)AD%(A,4)1Ă::$))S$4750B)pMD%(X,5)WHERMD%(X,5)HAVEMD%(X,5)EMB4850M)zFO1:U):k) >> ARTIF SEARCH)WHRO:HA1:EMBRO)FO0:A1NA:AN$(A)S$(AN$(A),(S$))S$(AN$(A),(S$))S$4850*AD%(A,4)WHERAD%(A,4)HAVEAD%(A,4)EMB48EAVY":4190<(TAN$(A)" TAKEN.":AD%(A,4)1:WTWTAD%(A,3)I(^::300(h///INSERT HERE SPECIAL EFFECTS OF PICKING SOMETHING UP(rGT1((\ >>> MONST SEARCH(aWHRO:HA1:EMBRO )fFO0:X1NM:S$MN$(X)(MN$(X),(S$))S$(MN$(X),(S,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:GT4190 (OWTAD%(A,3)10MD%(0,1)ĺAN$(A);" IS TOO H1)0):&///GET COMMAND%&49008&S$"ALL"4160&S$"TORCH"ĺ:"ALL TORCHES ARE BOLTED TO THE WALL AND":"CANNOT BE REMOVED."::300&EMBROOM200:WHERROOM:HARO:4810:FOĺ:"I SEE NO ";S$;" HERE!"::100&"4200:GT1004''WTAD%(A5)ROOM:3670&%.MD%(M,5)ROOM3900:%8MD%(M,14)3670i%BFRMD%(M,3):FRFR100FRFR((CH10)2)%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)&<M:NBTL(TD%(RRD%(X)(RD%(X))3$ RD%(X)0RD%(X)NRNXNX1K$ :NL:DK$:LTNLLMT$100x$///CHECK REACTIONS ON MONSTERS$TD%(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,0R2AD%(R2100,5):3040K# :"THE ";AN$(R2100);" BLOCKS THE WAY!":100{# :"YOU CAN'T GO THAT WAY!":V%(ROOM)0:100# >> MOVE IT# R3ROOM:ROOMR2:3600$ DK$;"READ EAMON.ROOMS,R";ROOM:NX0:X1ND:RD%(X):RD%(X)0V%(ROOM)1(RD%(X))ND16:(V$,1)("NSEWUD",D,1)Ă=" R2RD%(D):R21003300L" R203500b" ///SPECIAL MOVES" R299ĺ:"YOU SUCCESSFULLY RIDE OFF INTO THE":" SUNSET.":2000"b R23490" 3490" AD%(R2100,7)0R2AD%(R2100,5):3040# AD%(R2100,6)T%(A):WO%(A):WD%(A):WS%(A):t! DK$;"OPEN THE ADVENTURER":DK$;"WRITE THE ADVENTURER":MN$(0):REC:DK$;"CLOSE"!T DK$;"RUN MAIN HALL,S6,D1"! ///MOVE COMMAND! NBTLS$"FLEE"ĺ:"YOU CAN'T DO THAT WITH UNFRIENDLIES ABOUT!"::100"" DIEĺDK$;"OPEN THE ADVENTURER,S6,D1":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):WO GIVEN ";10CH;" GOLD PIECES":"FOR THE SAFE RETURN OF ";MN$(9);".":GOLDGOLD10CHB :"(HIT ANY KEY TO CONTINUE) ";:A$: 2500 :5:"(INSERT EAMON MASTER DISKETTE, THEN":" HIT THE 'C' KEY) ";:16368,0 A$:A$"C"2520 A$J ER FOR SUCH":"THINGS, HE EXAMINES YOUR GOODS AND":"PAYS YOU ";d 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:GOLD0GOLD0T= MD%(9,5)ROOMĺ:"YOU ARE ALSL*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)@ W::5:"AS YOU DELIVER YOUR TREASURES TO SAM":"SLICKER, THE LOCAL BUYS 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$):W51W5W21W5(W5)2080MD%(0,2)2DIE2500W14: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:W262300e :5:"AS YOU START TO ENTER THE MAIN HALL,":"LORD WILLIAM MISSLEFIRE APPEARS AND":"TELLTAKE,DROP,LOOK,EXAMINE,ATTACK,FLEE,GIVE,INVENTORY,BLAST,HEAL,POWER,SPEED,SMILE,WAVE,SAY,READ,READY,LIGHT,OPEN,PUT,DRINK FREE,ENTER,TROLLSFIRE///DONE WITH GAME:"(HIT ANY KEY TO CONTINUE) ";:16368,0:A$: DK$"CLOSE":SPDMD%(0,2)THE KNIGHT MARSHAL THEN SAYS, 'YOU MAY NOW PROCEED.' AND WALKS AWAY."::"(PRESS ANY KEY TO CONTINUE)";:A$:x3500x:"(PRESS ANY KEY TO CONTINUE) ";:16368,0:A$::A$(15)OV1:OV0:v 31w NORTH,SOUTH,EAST,WEST,UP,DOWN,GET,PON TO ADVENTURE":"HERE. GO BACK TO THE MAIN HALL.":1400:OV2000X15:TATAWA%(X)::TA30ĺ"THE KNIGHT MARSHAL SHAKES HIS HEAD AND SAYS, 'YOU ARE NOT A BEGINNER. YOU MAY NOT ADVENTURE HERE. RETURN TO THE MAIN HALL.'":1400:OV2020n:"ADVENTURE. YOU FOLLOW SEVERAL ""SIGNS THAT TAKE YOU TO THE BEGINNERS CAVE."::"AS YOU STAND THERE, YOU SEE THE LOCAL KNIGHT MARSHAL COME OUT TO INSPECT YOU."D:WN$(1)"NONE"ĺ"HE SHAKES HIS HEAD AND SAYS, 'YOU MUST":"HAVE AT LEAST ONE WEA(0,7)0:MD%(0,9)NZ1:MD%(0,11)WD%(1):MD%(0,12)WS%(1):MD%(0,14)3ijNC:C$(NC):C1NC:C$(C)::R21tS14:S2%(S)SA%(S)::V%(NR):ROOM1:ND6~R21:"YOU HAVE NO TROUBLE FINDING A HORSE THATYOU, WELL -- BORROW TO TAKE YOU ON YOUR FIRST (A)WN$(W2)AN$(A)AN$(A)"#":A00::1090lLA,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:EAEA30C`NANZMD%(0,10)(EAAE)(EAAE)WO%(1)WA%(WT%(1))2MD%(0,2):MD%M 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):AD%(NA,8)WS%(W2)::W248WZW2:WTWWZ,BW21WZ:A1NAWZ:AN$(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" >>> PRINT DK$;"DELETE FRESH MEAT"($DK$;"OPEN EAMON.DESC,L256":DK$;"OPEN EAMON.ROOD%(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 FRESH MEAT":DK$;"READ FRESH MEAT":REC:MN$(0),MD%(0,1),MD%(0,2),CH:A14:SA% 100$///INITIALIZE DATAvDK$;"OPEN EAMON.DESC":DK$;"READ EAMON.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):A218:AD%(A,A2):A2ADF0:7500:490lrM21NM:MD%(M2,5)ROOMMD%(M2,14)3(1).25MD%(M2,15)2DFM2:7500:M2200:M2:490|M2:DF0:7500:490OFMM21NM:MD%(M2,5)ROOMMD%(M2,14)1DFM2:7500:M2200:M2:490M2NBTL(FD%(1)TD%(1)):NBTLĂM4)2):X(41(1)20):XX(X0):MRFD%(M2)TD%(M2)XTMD%(M,4)MRĺ:MN$(M);" FLEES!":8500::R2ROOMMD%(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)00,4000,5000,6000,6000,7000,8000,9000,10000,11000,12000,13000,14000,15000,15000,16000,23000,17000,19000,20000,21000,22000,24000,25000,26000,///COMMANDS RETURN TO HERE6NBTL500@M1NM:MD%(M,5)ROOMMD%(M,15)24904JM2MD%(M,14)(MD%(M,1$ :F0:A7NC:C$(A)V$CA:290N (C$(A),(V$))V$FF1:CA:F1275[ :F290 :"HUH? I ONLY UNDERSTAND THESE COMMANDS-- ";:C1NC:C$(C);20(C$(C)));::::210 C$(C)S$S$V$:V$C$(C)"C3000,3000,3000,3000,3000,3000,40E." % :" YOUR COMMAND?";A$F (A$,1)" "A$(A$,2):220g A$""A$CZ$:(37):16:A$v 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$290C,R";M300:A$:DK$:A$:MD%(M,15)1::M10R2:23800s :A1NZ:AD%(A,4)ROOMAD%(A,9)ĺ"YOU SEE ";AN$(A);"." AD%(A,4)ROOMAD%(A,9)ĺDK$;"READ EAMON.DESC,R";A100:A$:DK$:A$:AD%(A,9)1: A:AANA:AD%(A,4)ROOMĺ"YOUR ";AN$(A)" IS HER;ROOM:A$:DK$:"YOU ARE STANDING IN":" ";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.":6 MD%(M,5)ROOMMD%(M,15)ĺDK$;"READ EAMON.DES1000? d///MAIN LOOP. FIRST GIVE ROOM DESC, THEN GET COMMANDE 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!":/ (V%(ROOM)2)V%(ROOM)2ĺDK$;"READ EAMON.ROOM NAMES,R"O EAMON ADVENTURE #1 ; -> BEGINNERS CAVE <-A BY DONALD BROWN REVISED BY JOHN NELSON  REV. 5-28-85 50DK$(4)::10:"PLEASE WAIT A SHORT WHILE "::" (WAKING UP THE MONSTERS)" 2216,0:                                      ٠ҍ ՠŠŠҠΠ٠Ƞ٠ҮŠӠӠŠӠ٠ĠŠӠ͠Į٠ƠŠĠƠԮŠӠҠǠԠՠĠǠϠȠҠĠ͠ҠˡӠŠ٠Ӡ¬ŧӠΠԠ٠ǠԠԠաՠŠ̠٠ǠΠԠΠŠҠƠŠͮŠӠРΠŠӠծՠŠҠ٠ǠĠΠΠĠǮŠӠ٭ǠǠԠˠҠΠĠӠՠٮӠՠĠŠǠĬՠŠŠƠǠǠҠӮՠˠΠϠҠԠΠǠƠĠաנՠŠԠԠŠĠŠҠ͠ԧӠӮԠӠ˭ҡŠŠ̠ԠǬԠŠ٠ĠƠӡ̠ΠȠŭȠˠӠΠҠƠŠͮŠӠ٠ƮŠӠŠҠǠԠԠĠՠĠǮŠӠӠƠŬǠ٠ԠծӠ͠ŠĮՠŠΠȠĠĠӠǠΠӠҮŠӠǠӠŠԠƠˠĠӠǠ٠٠ĠĮĠաՠŠ̠̠ΠǠŠӮՠŠҠӠŠͧӠԭϭԠҮŠ٠ĠƠӡŠӠŠΠΠӠ ĠΠŠˠΠӠŮΠӠԠĠŠӠŮԭĠҠӠΠŠͬǠՠȠϠӠĠǠϠŠՠȠĮΠҠӠŠլĠǠĠĠǠĮΠӠĠӠҠȠӬɡɧ͠ȡРĠϠԠծŠӠŬ٬ǠĠ٠ΠŠ͠ȠաӠŠԠƠˠĠӠǠ٠٠ĠĮŠӠĠĠԠϠӠӠƠŠΧԠΠȠΠ٠өΠŠͮԠҮŠӠŠΠԠȠРŠȠšˠΠӠŮΠӠԠĠŠӠŮŠӠŠΠԠȠРŠȠšϠӠĠǠϠŠՠȠĮŠӠŠˠԠȠРŠȠšǠĮΠӠĠӠҠȠӬɡɧ͠ȡ               Ӡՠ٠ŠħӠŬŠԠΠŠӠ͠ŠĮŠՠŠǠŠĠΠĠάՠŠŠΠŠ̠ŠĠǠҠӠƠοӠӠŮӠՠ٠ŠħӠŠũԠΠŠӠĠŠħӠŮӠŠŠӠĠӬŠΠӠĠӠϮӠŠŠӠĠԠՠΧԠŠԬԠΠŠӠŠŠƠӠĮӠՠȠŠԬԠ٠ӠŠĠϠӠŠƠŠŬǠՠԮҠŠӠ͠ŠРĠϠԠծŠĠ٠Ơ٠ƠĠӠŮՠŠŠĠ٠ƠŠŠĠԠĠծŠ٠ĠϠŠƠԠΠŠԠŠҮŠĠ٠ƠŠ٠ӠŮՠŠŠĠ٠ƠŠĠήŠΧӠӠ̠ҠР٠ŠӮŠΠŠ̠ŠĠǠҠӠƠοӠӠŮŠΠ˭ҠӠΠӠԠˠĠӠĠΠŠҮħӠŮŠƠӠĠĠĮŠΠӠĠӠϮŠŠΠӠĠΠŠҮΧԠŠԬԠΠŠӠŠŠƠӠĮŠĠ٠ƠŠƠӠŮ٠ӠŠĠϠӠŠƠŠŬǠՠԮҠŠӠ͠ŠРĠϠԠծŠĠ٠ƠŠŠӠŮŠĠ٠ƠŠ̠ӠŮŠԠӠĠŬ̠ȠˠƠ̠ĠΠӠŮŠĠ٠ƠŠԭàӠĠΠŠĮŠĠ٠ƠȠӠŮŠ٠ŠƠӠŮŠԧӠ٠ӠĠŮŠӠĠΠԠŮŠӠĠΠԠŮŠӠĠˠԠŮŠӠŠ ŮŠŠ̠ӠǠΠ̠ŠŮŠӠΠ̠ҠҠΠŠҮ z                ŠӠ٠ŠԠ̠ŮŠӠΠǠšӠҠԠ٠͡ՠŠŠԠƠĠĠҠӮŠ٠ӠǠΠԮՠŠ٠ĠĮՠŠŠĠƠŠĠΠӠǠҠήՠŠŠǠנԠŠƠӠǮՠŠ̠٠ĠĮՠŠǠĠǠ͠ҠĠŠԠӠŠĠٮŠӠΠ٠ŠŮŠӠŠԠΠŠҠƠŠͮŠӠŠŠƠӠšŠӠ̠ĠŠȠŠǠΠŠŮΠΠŠŠӠŠŬŧŠӠΠĠˠŮԠӠΠŠӠĠӠ٠̠ĮŠŠ̠ŠӠŮŠӠȠ٠ӠŠŮŠӠΠĠĠǠŮŠŠĠӠšŠӠҠ٠ӠĠŮŠӠŠŠȠŠΠšŠӠĠӠŠŮŠӠŠƠӠšՠŠΠŠήŠǠӠ٠ȠΠŮŠӠȠĠ٠ϠŠ̠ŠԠӠȠԠҠՠϠŮŠ٠ԠӠԮՠŠΠҠԠӠΠ٠٠Ԡ͠ŠǠˮԠӠ٠ԠĠ٬ԠӠӠƠ٠ԮŠ٠ԠӠȮՠŠΠΠԯԠ̮ŠҠϠŠȮĠҠϠŠԮՠŠΠŠ̠ήŠӠĠӠ̠ΠŮҠӠ͠ŠǠ̠ΠŠҠƠŠͮŠ٠ԠӠȮՠŠΠȯȠ̮ŠӠŠĬ٠̮ŠӠҠϠŠȮՠŠԠĠΠŠ̮Š̠Ӡ͠ŠԠϠŠȠŮՠԠŠԠ٠̠ĮՠŠǠԠΠԯԯȠήŠӠȠĠϠŠ̠ŮϠŠԠՠΧԠŠǮŠӠŠԠǠ͠ŠԮՠŠĠ̠٠ҠԠӠĠҠŠŠҠӠϠȠҠӠ̠٠ĠĠŠŠϠԮŠԠӠԮՠŠΠ٠٠ҮԠӠ٠٠Ġ٠ΠŮŧӠԠȠԠΠŮŠŠӠϠ̠Š®Š٠ԠӠԮՠŠΠȯȠ̮ŠŠӠϠŠԠĠԠĠ͠ԠΠŠΠĠϠŠȮՠŠΠ̠ٮȠӠĠՠϠԠŠ٠ԠӠˠΠŠ̠ϠŠԮϠŠԬΠŠˠƠŠӠΠĠԮՠŠΠΠԯԠ̮ՠԠϠŠԬĠ̠̠ĠǠ͠ŮΠŠĠՠԠƠԮՠŠΠΠԯԠ̮͠ԠΠŠΠΠȠӮŠӠҠ̠ǠϠŠȠŮՠŠԠŠ͠ƠԠƠԠΠŠΠРԠŠРƠӬĠ٠͠ԠΠŠΠŠ̠ϠŠԮՠŠԠŠРƠԠƠӮȠӠΠŠ̮ԠӠ٠ˠΠŮ̠ӠԮՠŠΠˠԯԠ̮ՠΠŠԠȠӮՠŠΠԭήǠȠӠĠϠŠȠ̮ˠӠĠȠĠԮϠŠԠӠŠŠŠĬԠԠӠΠΠ͠ӠӮՠŠΠԠӠŠ٠ٮԠƠŠӠŠΠĬȠŠӠǠΠŠĮҬΠ͠ӠӬϠӠΠŠĮŠԠӠϠŠԮՠŠΠŠŮӠƠԠӠҠŠӮŠŠϠӠŬŠĠȠĠԠĠŠҠĠȠĮŠ٠ԠӠϠŠԮՠŠΠΠԯԠŮՠΠ٠٠ҠӠàǠĬĠΠ̠ŠŠԮՠŠΠԠԯԠŮՠҠԠ٠Ǡ͠ŠԮՠŠΠ̠ǠȠĠȮŠӠƠŠ̠Š٠ΠĠȮՠŠԠϠŠȮz#      ήŠ ŠӠŠQŠҠȠԠ ŠǠŠŠҠԠǠ ҠҠ٠ ήӠ ή͠Ӡ ήӠ ήӠήàr"ΠҠ% Š̠ĠƠΠ ήà" נӠΠ̠=Ԡ ӠՠŠΠ̬ˠ̠ȠҠΠŠԠŮՠŠԠŠȠĠƠŠǠ̮ϠҠԠˠŠϠӠΠŠԠĠԮŠ̠Ӡ͠ŬĠΠ̠ӠȮՠŠΠ̬ˠ̠ȠҠΠŠԠŮՠŠΠ̬ˠ̠ȠҠΠŠԠŮէŠΠŠŠƠŠǠ̮ӠŠĠΠȠӠƠՠԠĠԩŠ̠ӠĠȮՠŠΠ̬ˠ̠ȠҠΠŠԠŮՠŠΠ̬ˠ̠ȠҠΠŠԠŠƠŠͮՠŠԠŠȠĠƠǠ̮̠ӠȮԠĠԠŠӠԠŠĠԮǠǠοΠŠ͠ԠՠΠŠŠ̠ӠȬԠՠԠŠԠ٠ӮɢՠŠΠ̬ˠ̠ȠҠΠŠԠŠƠŠͮՠŠΠ̠ŠҠϠԠƠŠŠҮԠӠ٠ĠŬĠŠ٠ԠӠΠ٠͠ŠŠҮՠŠΠŠҬŠƠӠԠƠԮǠӠŠӬǠԠ٠ϠŮĠȠĠȬĠŠŠŠӠϠȠŠԠĠԮՠŠΠ̠ŠҠϠԠƠŠŠҮԠӠ٠ĠŬĠŠ٠ԠӠΠ٠͠ŠŠҮՠŠΠˠȯȠ̮ϠŠȠՠŠŠԠԠǠΠ͠ŠŮϠŠȠՠŠǠȠԬԠՠԠŠԠ٠ӮՠŠԠŠŠƠŮϠŠȬҠŠ̠ŬӠΠǠӠٮϠŠȠӠŠĠˠϠή                     ĠٍԍĠčĠĠ΍ĠٍĠ˭ҍĠ΍Ġ΍ĠƍĠōĠƍĠԍĠĠȍĠÍĠԍĠĠΠԍĠΠԍĠˠԍҠҍӍΠǍԠ̍čԍǠ׍Ġƍ٢٠čԍ٠ōŢӍӍˢǍōčĠӍōŢӍ     ٠ƠčٍҍĠ΍ٍΠ˭ҍ΢΍ƍōƍԍȍÍԍΠԍΠԍˠԍ     ŠήήΠԠԮȯȠ̮ŠήΠԯԠ̮Ԡ٠Ү٠٠Ү̠ԠҮȯԯԠήĠΠŠ̮ůׯӠԧήΠůנ̠ǠƠԮŠŧӠōȯȠ̮ԭέΠĠů׍Πůנ̍ŠРƠٍŠ͠ƠٍΠůנ̠ȠԠÍΠůנ̠ȠĠÍŠōŠٍԠ̍̍Πůנ̠ǠƠԍŠȠĠƠǠōΠԠ̍ΠȯȠŮΠԠ̍ȠԠÍΠůנ̠ȠĠÍԠ̍ŠٍŠŠƠǠōΠůנ̍ΠԠٍ̍Š͠ƠٍŠҍԠ̍ŠԠŠҍōΠԠ̍Ԡ̍ŠȠĠƠǠōŠȠĠƠǠŮΠȯȠōŠŠōŠŠŢ̍ŠԠŠҍˠȯȠ̍ŠԠŠҍŠԠŠҍŠȠĠƠǠō      ٠ǠӠŠΧΠƠȠŠҠȮ٠ӠΧΠ٠ĠҠŠΠϠϮǠӠΧҠ̠ŠӠΧРĠ̠٠Ġ̠ԠӠҠҠήǠϠŠӠΠˠӠŮǠΠ٠ӠŠԠҠǠŠӠ׭ԭ̠ӠƠŠנӠ̠Ϡ͠ήƠŠӠŠŠŧӠǠϠԠӠԠŮŠĠŠϠӠҠĠΠΠήĠҠΧǠӠĠŠΠԠΠǮŠΠӠŠΠҠŠԠŠ̮ŠĠŠϠӠҠĠŠϠٮǠҠӠϠϠΠǠŠӠƠӮǠӠǠŠϠĠ͠٠ŠčŠӠŠӠϠȠҠŠĠӮ    )::AE:SEX$c GOLD:BANK:AC:W14:WNAME$(W):WTYPE%(W):WOODS%(W):WDICE%(W):WSIDES%(W):Wt DK$;"CLOSE"L; 8A$:A$"Y"A$"N"10804 BA$:A$"Y"1040: Lu REC1NC:DK$;"READ CHARACTERS,R";REC:A$:A$""2000 REC:RECNC1:DK$;"WRITE CHARACTERS,R0":NC1 DK$;"WRITE CHARACTERS,R";REC NAME$:HD:AG:CH:X14:SA%(X)::X15:WA%(X:" KEY ";" A$:A$"C"1050 $:DK$;"OPEN CHARACTERS,L150":DK$;"READ CHARACTERS,R0":NC:A1NC:DK$;"READ CHARACTERS,R";A:A$:A$N2$Ă:DK$:1500 .DK$::"ALREADY A CHARACTER NAMED ";A$:" ON THE DISKETTE."::"USE A NEW DISKETTE (Y/N)? "ACTERS,R";RECH NAME$:HD,AG,CH:X14:SA%(X)::X15:WA%(X)::AER SEX$ GOLD,BANK:AC:W14:WNAME$(W),WTYPE%(W),WODDS%(W),WDICE%(W),WSIDES%(W):W:DK$;"CLOSE" :"NOW INSERT DISKETTE TO PLACE CHARACTER IN AND PRESS THE ";::"'C'";: INTO SLOT SIX, DRIVE ONE AND ENTER NAME: ";D xN2$:N2$""100 DK$;"OPEN CHARACTERS,L150":DK$;"READ CHARACTERS,R0":NC REC1NC:DK$;"READ CHARACTERS,R";REC:N$:N$N2$1000 REC:DK$:::"CHARACTER NOT FOUND!":: DK$;"READ CHARu///THE WONDERFUL WORLD5/// OF EAMON >///^///CHARACTER MOVER PROGRAMg////// BY DONALD BROWN/// DK$(4)d:5::5:"EAMON CHARACTER TRANSFER PROGRAM":/ n::"INSERT DISKETTE CHARACTER IS CURRENTLY ON500:HIT7360<1INCW2AD%(MD%(0,9),6):WA%(W2)WA%(W2)2M1EAAE300p1(100(1)1)MD%(0,10)73601A2:EAAE1A11AEAEA:MD%(0,10)MD%(0,10)A1MD%(DF,14)1DF0300 2MD%(DF,3)MD%(DF,3)2:M1NM:MD%(M,5)ROOMMD%(M,14)1D20: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!":3000:"WHAM!! YOU HIT THE ";AN$(A);"!":3000zMD%(0,9)1ĺ:"YOU HAVE NO WEAPON READY!"::1001OF0:DFM:7AND>p"AS YOU LEAVE THE HALL, THE IRISHMAN":"COMES UP TO YOU, SLAPS YOU ON THE BACK":"AND SAYS, 'Y'ALL COME BACK REAL SOON,":"YA HEAH?'" ?zDK$;"OPEN CHARACTERS,L150":DK$;"WRITE CHARACTERS,R";REC:200:D";GOLD;", BANK=";BANK"Z=:"WEAPONS";19);"CMPLX DAM":W14:W1WN$(W)"NONE"5090=WN$(W)"NONE"ĺ:" NO WEAPONS":5090=WN$(W);20(WO%(W)0)((WO%(W))10)((WO%(W))100));WO%(W);"% ";WD%(W);" D ";WS%(W))>W:23:16368,0:E--":" AXE BOW CLUB SPEAR SWORD":" ";:W15:1(WA%(W)0)((WA%(W))10)((WA%(WA))100));WA%(W);"% ";::<:A2(AC2):"ARMOUR: ";("SKIN LEATHERCHAIN PLATE ",A271,7);:ACA22ĺ" AND SHIELD";=30);"AE=";AE;"%"::"GOLD IN HAND=7(SEX$"F"),7);NAME$::"YOUR ATTRIBUTES ARE:":" HD=";HD;" AG=";AG;" CH=";CH:;"YOU KNOW THE FOLLOWING SPELLS--":SM0:S14:SA%(S)ĺ("BLASTHEAL SPEEDPOWER",(S1)51,5);" ";:SM1;S:SMĺ" NO SPELLS";u<::"YOUR WEAPON ABILITIES ARG ABOUT FOOLS":"WHO PLAY TRICKS ON A KINDLY BANKER."::100:GOLDGOLDMNY:BANKBANKMNY:"SHYLOCK TAKES YOUR MONEY, PUTS IT IN":"HIS BAG, LISTENS TO IT JINGLE, THEN":"THANKS YOU AND WALKS AWAY."::100:"S;:"YOU ARE THE ";("MIGHTY FAIR ",1KER SCOWLS AT YOU AND SAYS,":"'COME, COME, YOU'RE NOT MAKING SENSE!":"TRY AGAIN.'"::4100<:MNYGOLDĺ:"THE BANKER WAS VERY PLEASED WHEN YOU":"TOLD HIM THE SUM, BUT WHEN HE DISCOVEREDTHAT YOU DIDN'T HAVE THAT MUCH ON YOU,":"HE WALKED AWAY, SHOUTINR":"HAND AND WALKS AWAY."::1008"SHYLOCK GETS A WIDE GRIN ON HIS FACE":"AND SAYS, 'GOOD FOR YOU! HOW MUCH DO":"YOU WANT TO DEPOSIT?'"\9:"(ENTER THE AMOUNT YOU WANT TO DEPOSIT)":" ";A$:MNY(A$):MNY0MNY(MNY)(MNY)A$ĺ:"THE BAN'VE GOT!":"YOU KNOW I DON'T MAKE LOANS TO YOUR":"KIND!' WITH THAT HE LOSES HIMSELF IN":"THE CROWD."::100!8GOLDGOLDMNY:BANKBANKMNY::"THE BANKER HANDS YOU YOUR GOLD AND":"SAYS, 'THAT LEAVES YOU WITH ";BANK:"PIECES IN MY CARE.' HE SHAKES YOUECES TO":" WITHDRAW) ";A$:MNY(A$):MNY0MNY(MNY)(MNY)A$ĺ:"THE BANKER SCOWLS AND SAYS,'COME, COME,":"YOU'RE NOT MAKING SENSE! TRY AGAIN.'"::4060n7MNYBANKĺ:"THE BANKER THROWS YOU A TERRIBLE GLANCE":"AND SAYS, 'THAT'S MORE THAN YOU?'"::"(HIT 'D' FOR DEPOSIT, 'W' FOR WITHDRAWL) ";Q5A$:A$"D"ĺA$::4090c5A$"W"40305A$::"SHYLOCK SAYS, 'WELL, YOU HAVE ";BANK:"GOLD PIECES STORED WITH ME. HOW MANY":"DO YOU WANT TO TAKE BACK?'":6"(ENTER THE NUMBER OF GOLD PICAL BANKER, DUE TO HIS":"LARGE BELLY."::"YOU ATTRACT HIS ATTENTION, AND HE COMES":"OVER TO YOU AND SAYS, 'WELL,"4NAME$;", MY DEAR ";("GIRLBOY",(SEX$"M")41,4);",":"WHAT A PLEASURE TO SEE YOU! DO YOU WANT"55"TO MAKE A DEPOSIT OR A WITHDRAWLOU HEAR"73: "HIM ORDER A DOUBLE DRAGON BLOMB."::100=3D 3 ::"AS YOU LEAVE, YOU HEAR HOKAS MUTTERING":"ABOUT CHEAPSKATE ADVENTURERS ALWAYS":"WANTING SOMETHING FOR NOTHING."::100t4:"YOU HAVE NO TROUBLE SPOTTING SHYLOCK":"MCFENNEY, THE LO"SOMETHING? I ALREADY TAUGHT YOU THAT":"SPELL!'"::"SHAKING HIS HEAD SADLY, HE RETURNS TO":"BAR."::10030 GOLDGOLDP:SA%(SP)(50(1)26):"HOKAS TEACHES YOU YOUR SPELL, TAKES":"HIS FEE, AND RETURNS TO HIS STOOL ON":"THE BAR. AS YOU WALK AWAY YPGOLDĺ"WHEN HOKAS SEES THAT YOU DON'T HAVE":"ENOUGH TO PAY HIM, HE STALKS TO THE":"BAR, MUTTERING ABOUT YOUNGSTERS WHO":"SHOULD BE TURNED INTO FROGS."::100l2& SA%(SP)ĺ"HOKAS SAYS, 'I OUGHT TO TAKE YOUR":"GOLD ANYWAY, BUT HAVEN'T YOU FORGOTTEN":Y FOR YOUR SPELL:":" N FOR NOTHING, OR B,H,S OR P) ";g0 A$:SP15:A$("BHSPN",SP,1)Ă:30400 SP3060,3070,3080,3090,32000 "BLAST":PP(3000):31000 "HEAL":PP(1000):31000 "SPEED":PP(5000):31000 "POWER":PP(100)1 :[/ "WELL, IT'LL COST YOU. TODAY MY FEES ARE:":C2CH(11(1)5):C2C2(C20):RTIO10C2/ " BLAST ";P(3000);"GP":" HEAL ";P(1000);"GP":" SPEED ";P(5000);"GP":" POWER ";P(100);"GP"::0 "WELL, WHICH WILL IT BE?'"::"(HIT THE KE FINALLY, YOUHERE A MUFFLED 'AHA!' AND MARCOS EMERGESWITH HIS ARMS FULL."O. / :"AFTER A FEW MINUTES DILIGENT SEARCHING,":"YOU FIND HOKAS TOKAS, THE OLD MAGE. HE":"LOOKS AT YOU AND SAYS, 'SO YOU WANT OLD":"TOKEY TO TEACH YOU SOME MAGIC, HEH HEH?";:=- A$:A$"P"ĺ"PEAR":BP(BP5):SIDE(SIDE1):TP4:2997O- A$"W"2988y- "WORD":BP(BP10):SIDE(SIDE1):TP5- SIDE3SIDE3I. :"MARCOS DISAPPEARS INTO THE BACK ROOM. YOU HEAR THINGS BEING DRAGGED ABOUT AND THE RATTLING OF CONTAINERS. MACE, SPEAR, OR SWORD?"D, "(HIT THE KEY(S), A B M SP OR SW): ";:n, A$:W14:A$("ABMS",W,1)Ă:2960, W2970,2975,2980,2985, "AXE":BP(BP5):TP1:2997, "BOW":BP(BP8):TP2:2997, "MACE":BP(BP4):SIDE(SIDE2):TP3:2997- A$SIDE((((8(1))(8(1))(8(1))(6(1))6)2)(DICE)):BP250:2950, :" 'OK', SAYS MARCOS, 'I GOTTA LOOK INNA BACK ROOM TO SEE IF I GOT ANY OF THESE IN STOCK. YOU CAN HELP ME BY TELLING ME WHICH WEAPON YOUR UNUSUAL WEAPON IS MOSTLIKE: AXE, BOW,RAGE":DICE(((1)1.1)1):SIDE((((6(1))(6(1))(6(1))6)2)(DICE)):BP30:2950*h "SUPERIOR":DICE((((.46(1))2)10)1):SIDE((((6(1))(6(1))(6(1))(6(1))5)2)(DICE)):BP100:2950H+r "MATCHLESS":DICE((((.55(1))2)10)1):ET REQUESTS FOR.")6 :" 'WHATSA THE CLASS OF THIS WEAPON THAT YOU FIGURE YOU CAN AFFORD?',MARCOS SAYS,'I GOT AVERAGE, SUPERIOR, AND MATCHLESS'")@ :"(HIT THE KEY, A S OR M) :";)J A$:W13:A$("ASM",W,1)Ă:2890)T W2910,2920,2930Y*^ "AVETHER NAME?":::2830/(% (N$,4)"NONE"ī2210Y(' (N$,1)" "N$(N$,((N$)1)):2855(( U14:UW$(U)N$N$N$"#":2856() U:U14:UW$(U)""Ă(* UW$(U)N$), :" 'HMMM...', SAYS MARCOS, 'THE":;N$;" IS NOT THE TYPE OF":"WEAPON I USUALLY GPE IT IN NOW) ==> ";N$t' :N$""ĺ"MARCOS SAYS, 'YOUR LIPS MOVED BUT I DIDN'T CATCH THE NAME.'":::2830(" (N$)18ĺ"THAT SOUNDS LIKE A STRANGE WEAPON. ALL MY WEAPONS HAVE NAMES OF 18 LETTERS OR LESS. PERHAPS THIS WEAPON IS KNOWN BY ANO$"P"ĺ"PEAR":BP25:N$"SPEAR":TP4:SIDE5:2750B& A$"W"2720k& "WORD":BP50:N$"SWORD":TP5:SIDE8x& DICE1:& UNUSUAL WEAPON ROUTINE BY BOB LINDEN& "UNUSUAL"& :"'WHATSA THIS UNUSUAL WEAPON CALLED?'":' "YOU NAME THE WEAPON (TYY(S): A B M SP SW OR U :";E%d A$:W15:A$("ABMSU",W,1)Ă:2660e%n W2680,2690,2700,2710,2800%x "AXE":BP25:N$"AXE":TP1:SIDE6:2750% "BOW":BP40:N$"BOW":TP2:SIDE6:2750% "MACE":BP20:N$"MACE":TP3:SIDE4:2750% A$;:0& A$:AE CREDIT!'"::2630d$< GOLDGOLDP(50):SH1:"MARCOS TAKES YOUR GOLD AND GIVES YOU":"A SHIELD.":z$F ACA22SH::100$H $K "(HIT THE KEY(S), A B M SP OR SW) ";:$P A$:W14:A$("ABMS",W,1)Ă:2640$U W2680,2690,2700,2710%Z "PRESS KENE FOR":"ONLY ";P(50);" GOLD PIECES!'"::"(HIT Y OR N)";W# A$:A$"N"ĺA$::2630i#( A$"Y"2590$2 A$::GOLDP(50)ĺ"WHEN HE SEES THAT YOU DO NOT HAVE":"ENOUGH GOLD TO BUY THE SHIELD, MARCOS":"FROWNS AND SAYS, 'I'M SORRY, BUT I":"DON'T GIV"ARMOUR AND SAYS, 'I DON'T GIVE CREDIT!'"::2570" "MARCOS TAKES YOUR OLD ARMOUR AND YOUR":"GOLD AND HELPS YOU INTO YOUR NEW":"ARMOUR."::GOLDGOLDP:A2A1" SH2630;# "MARCOS SMILES AND SAYS, 'NOW HOW ABOUT":"A SHIELD? I CAN LET YOU HAVE OWELL, WHAT WILL IT BE?'"::"(HIT N FOR NOTHING OR L C OR P) ";j! A$:A14:A$("NLCP",A,1)Ă:2530~! A$::A125702" PP(100(A2)250(A3)500(A4))TI:PGOLDĺ"MARCOS FROWNS WHEN HE SEES THAT YOU DO":"NOT HAVE ENOUGHT TO PAY FOR YOUR":AN PUT YOU IN ANY OF THESE":"VERY CHEAPLY. I NEED ";P(100);" GOLD":"PIECES FOR THE LEATHER, ";P(250);" FOR":"THE CHAIN, AND ";P(500);" FOR THE PLATE.": TIĺ"ALSO, I CAN GIVE YOU A TRADE-IN ON YOUR":"OLD ARMOUR OF ";TI;" GOLD PIECES.":@! " BP50:2370 A2(AC2):SHACA22:B125(A21)60(A22)100(A23):TI(B1RTIO.5):"MARCOS TAKES YOU TO THE ARMOUR SECTION":"OF HIS SHOP AND SHOWS YOU SUITS OF":"LEATHER ARMOUR, CHAIN ARMOUR, AND PLATE.":TIB12TIB12 :"HE SAYS, 'I C, TAKE IT OR LEAVE IT.'"::"(HIT T OR L) ";IV A$:A$"L"ĺA$::2210[` A$"T"2390kj A$::2300t :WW14:("ABMS",WW,1)(W$,1)ĴWW2440,2450,2460,2470~ WW BP25:2370 BP40:2370 BP20:2370 (W$,2,1)"P"BP25:2370VER":"BOUGHT ONE FROM ME, REMEMBER?'"::2210|B BPBPBP(WO%(T)5)BP2(WO%(T)5):P(BPRTIO.5):PBP4P(BP4.5)-L "MARCOS EXAMINES YOUR WEAPONS AND SAYS,":"'WELL, YOU'VE BANGED IT UP A BIT, BUT":"I CAN GIVE YOU ";P;" GOLD PIECES":"FOR ITABOUT BUYING A":"WEAPON?'"::"(HIT Y OR N) ";M A$:A$"Y"ĺA$::2050_ A$"N"2320o$ A$::2160. :"MARCOS ASKS, 'WELL, WHAT WEAPON YOU":"WANTA RETURN?"::2635:.8 W2W:W14:(WN$(W),(N$))N$Ă:"MARCOS LAUGHS AND SAYS, 'YOU NE0A$"T"2296A$"MARCOS GIVES YOU YOUR MONEY AND TAKES":"YOUR WEAPON."::UW$(U)"":GOLDGOLDP:W2W4:WN$(W2)WN$(W21):WT%(W2)WT%(W21):WO%(W2)WO%(W21):WD%(W2)WD%(W21):WS%(W2)WS%(W21)::WN$(4)"NONE1 :"MARCOS ASKS YOU, 'HOW 23006"BUT I JUSTA GOT ";Q;" OF THOSE IN A COUPLE""A MINUTES AGO AND I DON'T NEED MORE."::"BUT, BECAUSE I LIKE'A YOU, I'LL STILLA":"GIVE YOU ";P;" GOLD PIECES FOR IT;"::"TAKE IT OR LEAVE IT!'"::"(HIT T OR L) ";A$:A$"L"ĺA$::221MARCOS FROWNS AT YOU AND SAYS, 'THIS IS":"A WEAPON LIKE I SELL, REMEMBER!'":2420U14:UW$(U)W$P(P4.2):Q((1)25)11::"AS YOU TRY TO GIVE THE WEAPON TO MARCOS":"HE SHOWS YOU A SHELF BULGING WITH":W$;"S AND SAYS, 'I'M SORRY":2294:YS, 'OKAY, WHAT'VE YOU GOT?"::"(ENTER THE WEAPON NAME)";W$:W14:WN$(W)W$Ă::"MARCOS FROWNS AT YOU AND SAYS, 'YOU":"CAN'T SELL A WEAPON YOU DON'T OWN!'"::2210RL(W$,5)"SWORD"(W$,5)"SPEAR"(W$,4)"MACE"(W$,3)"BOW"(W$,3)"AXE":Lĺ"'N') ";A$:A$"Y"2350/A$"N"2230A$::P(50RTIO.5):"MARCOS SAYS, 'THEN I CAN ONLY GIVE YOU":P;" GOLD PIECES FOR IT, TAKE IT OR":"LEAVE IT!'"::"(HIT T OR L) ";A$:A$"L"ĺA$::2210A$"T"2260A$::"MARCOS SAA$::2210A$"Y"2180+A$:2490"MARCOS SMILES AND SAYS, 'COME BACK":"AGAIN SOON!' AS HE SHOOS YOU OUT OF HIS":"SHOP."::100:"MARCOS ASKS YOU, 'IS THIS WEAPON YOU":"WANT TO SELL ME A STANDARD WEAPON LIKE":"I SELL? (HIT 'Y' OR N$:WT%(W)TP:WO%(W)(5U)(2Q):WD%(W)DICE:WS%(W)SIDES:GOLDGOLDPf"MARCOS HANDS YOU YOUR WEAPON AND TAKES":"THE PRICE FROM YOU.":pGOLDP(50)2210z"HE NOW ASKS YOU, 'NOW HOW ABOUT SOME":"ARMOUR?'"::"(HIT Y OR N) "; A$:A$"N"AFFORD.' HE THEN SHOOS YOU OUT THE":"DOOR."::100YHW14:WN$(W)N$N$N$"#":2120yRW:W14:WN$(W)"NONE"ĂT(N$,3)"AXE"(N$,3)"BOW"(N$,4)"MACE"(N$,5)"SPEAR"(N$,5)"SWORD"U((((1)2)4.5)1.9):2140WU2D\WN$(W)оA$:Q13:A$("GFP",Q,1)Ă:2090M4A$:PBPBP(Q1)BP2(Q3):PP(P)3>PGOLDĺ:"MARCOS SHAKES A FINGER AT YOU AND SAYS,":"'YOU SHOULDN'T PLAY TRICKS ON AN OLD":"FRIEND! COME BACK WHEN YOU GOTTA MORE":"GOLD OR YOU WANT SOMETHING YOU CAN":", 'WELL, I JUST HAPPEN TO":"HAVE THREE ";N$;"S IN, OF VARYING":"QUALITY. I'VE GOT A VERY GOOD ONE FOR":P(2BP);" GP, A FAIR ONE FOR ";P(BP);" GP," "AND A KINDA SHABBY ONE FOR ";P(BP2):"WHICH DO YOU WANT?'"::"(HIT THE KEY, G F OR P) ";$*ST YOU GOTTA SELL ME A":"WEAPON. YOU KNOW THE LAW--NO MORE THAN":"FOUR WEAPONS PER PERSON!'"::2220 "MARCOS SMILES AT YOU AND SAYS, 'GOOD.":"I GOTTA THE BEST. YOU WANTA AXE, BOW,":"MACE, SPEAR, SWORD, OR UNUSUAL WEAPON?":2650:"MARCOS SAYSET":"SOME BETTER ARMOUR?"::"(HIT THE KEY, B S OR A) ";jC2CH(11(1)5):C2C2(C20):RTIO10C2A$:TR13:A$("BSA",TR,1)Ă:2030A$::TR2050,2220,2490fWN$(4)"NONE"ĺ"MARCOS SMILES AT YOU AND SAYS, 'THATSA":"GOOD, BUT FIRK$;"RUN ";ADNAME$:"AS YOU ENTER THE WEAPON SHOP, MARCOS":"CAVIELLI (THE OWNER) COMES FROM OUT OF":"THE BACK ROOM AND SAYS, 'WELL, AS I";"LIVE AND BREATHE, IF IT ISN'T MY OLD PAL":NAME$;"! SO, YOU WANT TO":"BUY A WEAPON, SELL A WEAPON, OR G" ";:16368,0(A$:A$"C"1020.vDK$;"OPEN EAMON.NAME":DK$;"READ EAMON.NAME":ADNAME$:DK$;"CLOSE":5:"YOU ARE ABOUT TO ADVENTURE IN":::ADNAME$:::$DK$;"OPEN FRESH MEAT":DK$;"WRITE FRESH MEAT":REC:200:DK$;"CLOSE":DWSIDES%(W):W a DK$;"OPEN CHARACTERS,L150":DK$;"WRITE CHARACTERS,R";REC::DK$;"CLOSE":5:"INSERT DISKETTE WITH ADVENTURE (OR KEEP"::"THIS DISKETTE FOR BEGINNERS CAVE) IN"::"DISK DRIVE IN SLOT SIX, DRIVE ONE THEN"::"HIT 'C'"::::THE KEY FOR YOUR CHOICE, 1-7)";B A$:CMD(A$):CMD1CMD7130u CMD::CMD1000,2000,3000,4000,5000,6000,7000 NAME$:HD:AG:CH:X14:SA%(X)::X15:WA%(X)::AE:SEX$ GOLD:BANK:AC:W14:WNAME$(W):WTYPE%(W):WOODS%(W):WDICE%(W):" n" 3. HIRE A WIZARD TO TEACH YOU SOME SPELLS.":" 4. FIND THE BANKER TO DEPOSIT OR":" WITHDRAW SOME GOLD.":" 5. EXAMINE YOUR ABILITIES" s" 6. TEMPORARILY LEAVE THE UNIVERSE.":" 7. TAKE SOME WEAPON TRAINING" x:"(HIT PE%(W),WODDS%(W),WDICE%(W),WSIDES%(W):W:DK$;"CLOSE"M PP(X)(XRTIO.5) d:"AS YOU WANDER ABOUT THE HALL, YOU":"DISCOVER YOU CAN DO ONE OF THESE THINGS:":" 1. GO ON AN ADVENTURE.":" 2. VISIT THE WEAPON SHOP FOR WEAPONS AND/OR ARMOUR.DK$;"OPEN THE ADVENTURER":DK$;"READ THE ADVENTURER":NAME$:REC:DK$;"CLOSE"Y (100 2DK$;"OPEN CHARACTERS,L150":DK$;"READ CHARACTERS,R";REC:NAME$:HD,AG,CH:X14:SA%(X)::X15:WA%(X)::AE <SEX$5 FGOLD,BANK:AC:W14:WNAME$(W),WTY: THE WONDERFUL WORLD OF2 EAMON8T MAIN HALL (BUY SPELLSp AND EQUIPMENT AND GO ON ADVENTURES) BY DONALD BROWN W/ TRAINING BY J.NELSON REV. 12-15-84  DK$(4)17000O                     . ENTER 'Y' TO"::"COMMIT SUICIDE, ELSE 'N'";KlA$:A$"Y"A$"N"620]v::A$"N"ı"WE RESSURRECT YOU AGAIN AND YOUR PRIME"::"ATTRIBUTES ARE --":::110D"0":JS:"0":SEX$:JG:"0":"0"560DE"TDDK$;"OPEN THE ADVENTURER":DK$;"WRITE THE ADVENTURER":NAME$:R:DK$;"CLOSE"mNDK$;"RUN MAIN HALL"sSX /// SUICIDE ROUTINE .b:"YOUR CHARACTER IS SUCH A POOR EXCUSE"::"FOR AN ADVENTURER THAT WE WILL ALLOW"::"YOU TO COMMIT SUICIDEEAD CHARACTERS,R";R:A$:A$""Ă:DK$;"WRITE CHARACTERS,R0":NC1:RNC1pDK$;"WRITE CHARACTERS,R";R:NAME$HD:AG:CH:X14:"0":&"5":"-10":"20":"10":"0":"0":SEX$:"200":"0":"0"0W14:"NONE":"0":"0":"0,0"::DK$;"CLOSND SAYS, 'IT IS NOW TIME":"FOR YOU TO START YOUR LIFE.' HE MAKES":"AN ODD SIGN WITH HIS HAND AND SAYS,":"'LIVE LONG AND PROSPER.'":"YOU NOW WANDER INTO THE MAIN HALL."IDK$;"OPEN CHARACTERS,L150":DK$;"READ CHARACTERS,R0":NC:R1NC:DK$;"RTHEYWERE FOUND. THUS, IT IS BEST (AND YOU""HAVE NO CHOICE BUT TO) SELL ALL ITEMS":"FOUND IN ADVENTURES, EXCEPT FOR WEAPONS":"AND ARMOUR.":"(HIT ANY KEY TO CONTINUE) ";:A$::"THE MAN BEHIND THE DESK TAKES BACK THE":"INSTRUCTIONS ATIME"Y"POWER--DOES SOMETHING WEIRD. THE EXACT":" EFFECT IS UNPREDICTABLE.":+:"OTHER TYPES OF MAGIC MAY WORK IN VARIOUSADVENTURES, AND ITEMS MAY HAVE SPECIAL":"PROPERTIES. HOWEVER, THESE WILL NOT":"WORK IN OTHER ADVENTURES THAN WHERE EY TO CONTINUE) ";:A$::|"YOU MAY ALSO HIRE A WIZARD TO TEACH YOU":"SOME MAGIC SPELLS. THERE ARE FOUR":"SPELLS YOU MAY LEARN."::"BLAST--HURT YOUR ENEMIES FROM A DISTANCEHEAL --REMOVE DAMAGE FROM YOUR BODY.":"SPEED--DOUBLE YOUR DEXTERITY FOR A "AFTER YOU BEGIN TO ACCUMULATE WEALTH,":"YOU MAY WANT TO PUT SOME OF YOUR MONEY":"INTO THE BANK, WHERE IT CANNOT BE":"STOLEN. HOWEVER, IT IS A GOOD IDEA TO":"CARRY SOME GOLD WITH YOU FOR USE IN"r"BARGAINING AND RANSOM SITUATIONS."::"(HIT ANY K YOUR":"CHARISMA LESS TEN, DIFFERENCE TIMES TWO":"(";(CH10)2;"%)":^"YOU START OFF WITH 200 GOLD PIECES,":"WHICH YOU WILL WANT TO SPEND ON SUPPLIESFOR YOUR FIRST ADVENTURE. YOU WILL GET":"A LOWER PRICE FOR ITEMS IF YOUR CHARISMAIS HIGH.":hOLD THINGS SUCH AS"::" 'WOW! THAT ONE HURT!'":"OR 'YOU DON'T FEEL VERY WELL'":J"(HIT ANY KEY TO CONTINUE) ";:A$::GT"YOUR CHARISMA (";CH;") AFFECTS HOW CITIZENS":"OF EAMON REACT TO YOU. YOU AFFECT A":"MONSTER'S FRIENDLINESS RATING BY6"ADDITIONALLY, YOUR HARDINESS TELLS HOW":"MANY POINTS OF DAMAGE YOU CAN SURVIVE.":"THEREFORE, YOU CAN BE HIT WITH ";HD:"1-POINT BLOWS BEFORE YOU DIE.":U@"HOWEVER, YOU WILL NOT BE TOLD HOW MANY":"BLOWS YOU HAVE TAKEN. YOU WILL BE":"MERELY THOWEVER, THE NET EFFECT OF ARMOUR":"WILL NEVER INCREASE YOUR CHANCE TO HIT.":|""(HIT ANY KEY TO CONTINUE) ";:A$::,:"YOU CAN CARRY WEIGHTS UP TO TEN TIMES":"YOUR HARDINESS, OR ";HD10;" GRONDS.":"(A MEASURE OF WEIGHT, ONE GROND=10 DOS)":5);"-60%":" SHIELD";18);1;35);"- 5%":::"YOU WILL DEVELOP AN ARMOUR EXPERTISE,":"WHICH WILL GO UP WHEN YOU HIT A BLOW":"WEARING ARMOUR AND YOUR EXPERTISE IS":"LESS THAN THE ARMOUR YOU ARE WEARING."O"NO MATTER HOW HIGH YOUR ARMOUR EXPERTISEIS, ACED UPON YOU(ALMOST":"ALWAYS!) BUT THEY LOWER YOUR CHANCE TO""HIT. THE PROTECTIONS ARE--"::"ARMOR";15);"HITS PROTECT ODDS ADJUST"::" NONE";18);"0";35);"- 0%":" LEATHER";18);1;35);"-10%":" CHAIN";18);2;35);"-20%"" PLATE";18);5;3DOM NUMBER FROM 1-100":"IS LESS THAN YOUR CHANCE TO MISS!":g"(HIT ANY KEY TO CONTINUE)";:A$::?"THERE ARE FOUR ARMOR TYPES, AND YOU MAY":"ALSO CARRY A SHIELD IF YOU DO NOT USE":"A TWO-HANDED WEAPON. THESE PROTECTIONS":"WILL ABSORB HITS PLTH EACH) ARE--":" CLUB/MACE 20%":" SPEAR 10%":" AXE 5%":" SWORD 0%":" BOW -10%":="EVERY TIME YOU SCORE A HIT IN BATTLE,":"YOUR ABILITY IN THE WEAPON CLASS MAY GO":"UP BY 2%, IF A RANE WORLD OF EAMON ": :"YOU WILL HAVE TO BUY A WEAPON. YOUR":"CHANCE TO HIT WITH IT WILL BE THE":"WEAPON COMPLEXITY, PLUS YOUR ABILITY":"IN THAT CLASS, PLUS TWICE YOUR AGILITY.": "THE FIVE CLASSES OF WEAPONS (AND YOUR":"CURRENT ABILITIES WI;HD:" AGILITY --";AG:" CHARISMA --";CH;"'":I }HDAGCH39İ600 "(HIT 'R' TO READ INSTRUCTIONS, 'T' TO GIVE THEM BACK)"; A$:A$"T"500 A$"R"140 ::"YOU READ THE INSTRUCTIONS AND THEY SAY--"::" INFORMATION ABOUT THS AWAY AND IN WALKS A":"TALL MAN OF POSSIBLY ELVISH DESCENT."::"HE STUDIES YOU FOR A MOMENT AND SAYS,":"'HERE IS A BOOKLET OF INSTRUCTION FOR" d"YOU TO READ, AND YOUR PRIME ATTRIBUTES":"ARE--": nHDA(8):AGA(8):CHA(8)3 x" HARDINESS--"$;"READ THE ADVENTURER":NAME$:DK$;"CLOSE" 2:"THE IRISHMAN SAYS, 'FIRST I MUST KNOW":"WHETHER YE BE MALE OR FEMALE. WHICH ARE":"YE (HIT 'M' FOR MALE, 'F' FOR FEMALE)?"; <SEX$:SEX$"M"80 FSEX$"F"60 PSEX$: Z:"THE IRISHMAN WALK THE WONDERFUL WORLD OF4 EAMON:V CHARACTER GENERATORp AND INSTRUCTIONSv BY DONALD BROWN DK$(4)R(X)(X(1)1)A(X)R(X)R(X)R(X)+ (DK$;"OPEN THE ADVENTURER,S6,D1":DK       ā̃>"""<<<""<<"<"<<""<""<<<<"<"<A]]c]Á́Ʊ"<"Ã">>Ł<"< < " Ȣ "< "<賐Ї"""" """"""""""""*"""""""""""" ""*"""}]]]]6""""0ύ࿂""" 8""8"8̣ 8 "" 8"""號Ё>""2<><""""""<"""*">"*$>>"2"""**><"""*>"*>"}A]]M迌сر*>"*>">>$$>0<"<$">$<$"$ȁ$>*">$">""Ġ"*"*  "  """""" <"""""*$" "<ρÁ㣞*"">"**" <   """""*"<a]U]Uȁؿكș*""*""""$$"0·޿ " $"">$ $ "$$"*<" $""<"ᗠ"*"&<" ""< Ƈ&<< "< }]U]Yп那ȇಠ"<"0ǟ࿈$$فȖ$  描ῠȁ6""$" " "  }kI]]਼揿"0ऎ񟈌$؛  $̱>"" > О쁠"  Aw]c]ο"  >>Ɓ ǟ ȇФ£ۃ㟬Ⴣ Ïئ            HE THINGS HE HAS TO GO,HE SHOULD HAVE LISTENED6& 40 THAN WIPING THE NOSES OF GREENHORNS.,NEEDING SOMEONE TO LEAD THEM BY THE HAND,THROUGH FOR SOME STUPID UPSTARTS.,TO HIS MOTHER AND BEEN A BRAIN SURGEON.: SHOULD HAVE LISTENED& 40 THAN WIPING THE NOSES OF GREENHORNS.,NEEDING SOMEONE TO LEAD THEM BY THE HAND,THROUGH FOR SOME STUPID UPSTARTS.,TO HIS MOTHER AND BEEN A BRAIN SURGEON.PSTARTS.,TO HIS MOTHER AND BEEN A BRAI