' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL] RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֝uW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'Ӝu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wU H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   vLDcpq` [` ~  Lh@(LH9LHH/Hh/ H-З( ܸ(& ¸$8 H` *HVDP (ED Z $0x8x D- ܸDD#HIHHHHhHH݌hHhHh݌H6 h Լ ռ ռ ռ`HJ>݌h Hh݌`  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#0FG8`0($ p,&"_]` L/浍굺L  !"#$%&'()*+,-./0123456789:;<=>?&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ穎鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` `II`ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LL[dmx-#(#6 @I͠٠ˠ@跻~!Wo*9~~~~ɬƬ~UVERIF!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 @ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABR^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHn 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)nooõĵL LLЦ  #-µµ( zegehtpjigh q Ql` z8L`MaEK@>ˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ@ NL   L` -e L գsr ࣭ml ࣭srL -µLЦ գ ze)rs zrsLq ] Qlr L̦ գ8gh ࣥhgL գ8LʨM ࣥˤLµH hLħõµ µõL&E`( 80 0 DDLDLDL^ t^`,tP ȟpMt-^^`DH hWLԧ d@` Lꢩ  c ȢL LqLգcl mllm ꢥELȦAD@ C N cLuɠ% d: L ЌĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ Iu`浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠Iz# 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `ٍ͍ōō TO THE MAIN HALL.'":230108TVAEWA%(1)5WA%(3)20WA%(5)0ĺ"HE SHAKES HIS HEAD AND SAYS, 'YOU ARE":"NOT A BEGINNER! YOU CANNOT ADVENTURE":"HERE! GO BACK TO THE MAIN HALL.'":230108^VWN$(2)"NONE"W21:22160]9hV"HE TELLS YOU, 'YOU MAY ONLY TAKE ONE":"WEAPON INTO THE CAVE. WHICH SHALL IT BE?":W14:WN$(W)"NONE"ĺ" ";WN$(W):Wz9rV:"(HIT 1-";W1;") ";9|VA$:W2(A$):W21W2W1221409VA$:1:VNANA1: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)k:VEA0:MD%(0,8)0:A2(AC2):A22ACMD%(0,8)1:EA5:VA2MD%(0,8)MD%(0,8)A2:EAEAA210:A23MD%(0,8)MD%(0,8)2:EAEA301;VMD%(0,10)(EAAE)(EAAE)WO%(W2)WA%(WT%(W2))2MD%(0,2):MD%(0,7)0:MD%(0,9)NA:MD%(0,11)WD%(W2):MD%(0,12)WS%(W2)A;VMD%(0,14)1b;VNC:C$(NC):C1NC:C$(C):};VS14:S2%(S)SA%(S):;VV%(26):ROOM1;VA1NA1:AN$(NA)AN$(A)AN$(A)AN$(A)"#":22235;VTZW2W:W31NA1:AD%(W3,2)1AD%(W3,4)1WN$(W2)AN$(W3):WP%(W2)W3:W2W21:AD%(W3,4)0G>(ZW3:W2623160>2Z:5:"AS YOU TRY TO LEAVE, THE KNIGHT":"MARSHALL REAPPEARS AND TELLS YOU, 'YOU":"HAVE TOO MANY WEAPONS--4 IS THE LEGAL":"LIMIT.'"::"YOUR WEAPONS ARE--"S?///READY A WEAPONO->1950->A1NA:AN$(A)S$AD%(A,4)1Ă::"YOU AREN'T CARRYING IT!"::100->AD%(A,2)2ĺ:"THAT ISN'T A WEAPON!"::100=.>MD%(0,10)(EAAE)(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)h.>S$"TROLLSFIRE"ĺ:"READIED."::300.>TR0:MD%(0,12)10:20000.hB///FLEE COMMAND.rBNBTLĺ:"WHAT ARE YOU FLEEING FROM?"::100/|BMD%(7,5)ROOMĺ:"YOU ARE HELD FAST BY THE MIMIC AND":" CANNOT ";V$::300-/BM0:17500>/BNBTL0:5100w/\DDK$;"READ EAMON.ROOMS,R";ROOM:D16:DR%(D)::DK$/fDR2DR%(6(1)1):R2117510/pD/PF:"YOU ARE CARRYING THE FOLLOWING--":A1NA:AD%(A,4)1ĺ" ";AN$(A)/ZF:30008JNBTL20200BJ1950/0LJS$"WATER"S$"SEA"190400VJ:"SORRY, BUT I'M AFRAID TO GO INTO THE":" WATER WITHOUT MY LIFE PRESERVER!"::3000`JS$"CAVE"ROOM1V$"S":50001jJ:"I'M NOT SURE WHAT YOU MEAN BY THAT.":"TRY GIVING A DIRECTION TO MOVE."::100$1 N///TROLLSFIRE ACTIVATION.T1*NAD%(10,4)1ĺ:"NOTHING HAPPENS."::300c14NTR205001>NDK$;"READ EAMON.DESC,R206":A$:DK$::A$::TR0:AD%(10,8)6:MD%(0,9)10MD%(0,12)61HN300M2PDK$;"READ EAMON.DESC,R204":A$:DK$::A$::MD%(0,9)10ĺDK$;"READ EAMON.DESC,R205":A$:DK$:A$::S5:D1:DF0:A0:3650:300u2PTR1:MD%(0,12)10:AD%(10,8)10:3002R///OPEN COMMAND2RNBTL20202RS$"CHEST"ROOMAD%(12,4)21050 3&RDK$;"READ EAMON.DESC,R201":A$:DK$::A$::AD%(12,4)0:MD%(7,5)ROOM30RR2ROOM:5100h3:RS$"DOOR"ĺ:"THE DOOR WILL OPEN WHEN YOU MOVE THROUGH":"IT."::1003DR:"MIND TELLING ME HOW?"::1003U///INIT THINGS4UDK$;"OPEN EAMON.DESC,L256":DK$;"READ EAMON.DESC,R0":NR,NA,NE,NM:AN$(NA1),AD%(NA1,8),MN$(NM),MD%(NM,15)_4UDK$;"OPEN EAMON.ARTIFACTS,L128":A1NA:DK$;"READ EAMON.ARTIFACTS,R";A4UAN$(A):A214:AD%(A,A2):A2:AD%(A,2)1āA258:AD%(A,A2):A24VA:DK$;"OPEN EAMON.MONSTERS,L128":A1NM:DK$;"READ EAMON.MONSTERS,R";A&5 VMN$(A):A2112:MD%(A,A2):A2,A:DK$;"CLOSE"5VDK$;"OPEN FRESH MEAT":DK$;"READ FRESH MEAT":REC:MN$(0),MD%(0,1),MD%(0,2),CH:A14:SA%(A):5VA15:WA%(A)::AE,SEX$,GOLD,BANK,AC5"VA14:WN$(A),WT%(A),WO%(A),WD%(A),WS%(A)::DK$;"CLOSE"Q6,VDK$;"O"::300''."NOTHING HAPPENS."::300;'2///SAY COMMANDE'21950`'2S$"TROLLSFIRE"20000u'2S$"POWER"6000'2S$"HEAL"7000'2S$"BLAST"8000'3S$"SPEED"10000'3:"OKAY, '";S$;"'"::300'6///DRINK COMMAND'61950(6NBTL20(0,2)2MD%(0,2)h&.'SPD(25(1)1)::"YOU CAN FEEL THE NEW AGILITY FLOWING":" THROUGH YOU!"::300&*:NBTLĺ"AS YOU SMILE, THE ENEMY ATTACKS YOU."::300&+"NOTHING HAPPENS."::300'.:NBTLĺ"AS YOU WAVE AT YOUR ENEMY, HE ATTACKS":" YOU. FR953550U " WEAPON BROKEN!":AD%(MD%(OF,9),4)0:MD%(OF,9)1:(1).9ĺ:x " BROKEN WEAPON HURTS USER!" FR1003560 DMD%(OF,11):SMD%(OF,12):DFOF:A1:3650 DMD%(OF,11)2:SMD%(OF,12):DFOF:A0:3650&INC((100(1)1)MD%(OF,10)):MD%(OF,10)MD%(OF,10)2INC^DMD%(OF,11):SMD%(OF,12):A1:RL5ĺ"A HIT!":3650"A CRITICAL HIT!":R2(100(1)1):R251A0:3650R286S1.5S:3650$R296D2D:3650)R2100D3D:3650.3700HBD20:D31D:D2D2(S(1)1)::D2D2AMD%(DF,8):D21ĺ" BLOW BOUNCES OFF ARMOUR"::GMD%(DF,13)MD%(DF,13)D2:MD%(DF,13)MD%(DF,1)3700LAMD%(DF,14):FD%(A)FD%(A)D2Q(MD%(DF,13)5MD%(DF,1)1)3670,3675,3680,3685,3690 V:MN$(DF);" TAKES DAMAGE BUT":" IS STILL IN GOOD SHAPE.":@[:MN$(DF);" IS HURTING.":``:MN$(DF);" IS IN PAIN.":e:MN$(DF);" IS VERY BADLY INJURED.":j:MN$(DF);" IS AT DEATH'S DOOR,":" KNOCKING LOUDLY.":dtMN$(DF);" IS DEAD!"::AMD%(DF,14):FD%(A)FD%(A)MD%(DF,1)MD%(DF,13)D2:MD%(DF,5)0:A2NA1NMDF:AD%(A2,4)ROOM:MD%(DF,9)0AD%(MD%(DF,9),4)ROOM~FD%(0)TD%(0)NBTL0DF0DIE1:23010MN$(DF)"PIRATE"ĺDK$;"READ EAMON.DESC,R203":A$:DK$::A$::AD%(10,8)6:V%(ROOM)0:aMN$(DF)"MIMIC"ĺ:"AS THE MIMIC DIES, IT ROLLS OVER AND":"YOU FIND A RING UNDERNEATH IT.":AD%(6,4)ROOMi:~///LOOK COMMANDNBTL2020S$"LABEL"S$"BOTTLE"15000LK0"A1NA1:AN$(A)S$(AD%(A,4)ROOMAD%(A,4)1)ĺDK$;"READ EAMON.DESC,R";A100:A$:DK$::A$::LK11A:LK300rDK$;"READ EAMON.DESC,R";ROOM:A$:DK$::A$::ROOM15300"YOU FOUND A HIDDEN TUNNEL GOING OFF TO":"THE EAST!"::300///MOVE COMMANDNBTL2020D16:(V$,1)("NSEWUD",D,1)Ă5DK$;"READ EAMON.ROOMS,R";ROOM:D21D:R2::DK$BR25100ROOM1D1ĺ:"YOU SUCCESSFULLY RIDE OFF INTO THE":"SUNSET.":23010:"YOU CAN'T GO THAT WAY!":V%(ROOM)0:100 R3ROOM:ROOMR2:TD%(0)0:TD%(1)MD%(0,1):FD%(0)0:FD%(1)MD%(0,13)N M1NM:MD%(M,5)R3ĭMD%(M,14)200(1)MD%(M,4)MD%(M,5)ROOM:5150g MD%(M,5)ROOM5160 FRMD%(M,3):FRFR100FRFR((CH10)2) MD%(M,14)(FR100(1)):MD%(M,14)NBTL1!AMD%(M,14):FD%(A)FD%(A)MD%(M,13):TD%(A)TD%(A)MD%(M,1)!(M:NBTL(TD%(0)0)$!21008!p///POWER SPELLP!zS4:7500:SUC300 "RAISE0:M1NM:M213M:AD%(M2,4)ROOMAD%(M2,4)1RAISE1:MN$(M);" COMES ALIVE!":AD%(M2,4)0:MD%(M,5)ROOM:MD%(M,13)0:MD%(M,9)0AD%(MD%(M,9),4)0:MD%(M,9)MD%(0,9)MD%(0,9)0."M:RAISENBTL0:R2ROOM:5100q"A1NA:AD%(A,4)ROOMRAISE1:AN$(A);" VANISHES!":AD%(A,4)0"A:RAISEĺ:300"RR(100(1)1):RR11ĺ:"THE SECTION OF TUNNEL YOU ARE IN ":" COLLAPSES AND YOU DIE.":DIE1:23010R#RR31ĺ:"YOU ARE TELEPORTED SOMEWHERE IN THE":" DUNGEON"::R2(26(1)1):NBTL0:5100#RR86ĺ:"YOU HEAR A VERY LOUD SONIC BOOM":" THAT ECHOES THROUGH THE TUNNELS."::300#RR95ĺ:"ALL OF YOUR HITS ARE HEALED."::MD%(0,13)0:300#10020 $X///HEAL SPELL&$bS2:7500:SUC14050/$l300v$LSUC0:SA%(S)RL(100(1)1):SUC(((RLS2%(S))(RL5))(RL95))$VSUCĺ:"NOTHING HAPPENED.":$`RL(100(1)1):RLS2%(S)S2%(S)S2%(S)2:SA%(S)SA%(S)2$jS2%(S)S2%(S)2$t%@///BLAST SPELL%J1950^%TM1NM:S$MN$(M)MD%(M,5)ROOMĂ::"YOU CAN'T BLAST ";S$;"!"::300v%^S1:7500:SUC300%h:"DIRECT HIT!"::S5:D1:DFM:3650::300%'///SPEED SPELL%'S3:7500:SUC300&$'SPDMD%(0,10)MD%(0,10)2MD%(0,2):MD%" --";= RL(100(1)1):HIT0:RL5RLMD%(OF,10)HIT1K HIT3600c RL97ĺ"A MISS.": "A FUMBLE!":FR(100(1)1):FR3540(MD%(OF,9))ĺ" FUMBLE RECOVERED.":: FR76ĺ" WEAPON DROPPED!":AD%(MD%(OF,9),4)ROOM:MD%(OF,9)1::(DF,14))DF0300D MD%(DF,3)MD%(DF,3)2:NBTLMD%(DF,14)0:TD%(0)TD%(0)MD%(DF,1):TD%(1)TD%(1)MD%(DF,1):FD%(0)FD%(0)MD%(DF,13):FD%(1)FD%(1)MD%(DF,13):300N R2ROOM:MD%(DF,14)0:5100 HIT0:MD%(OF,9)1ı MN$(OF);" ATTACKS ";MN$(DF):\< EAMON ADVENTURE #1:-> THE BEGINNERS CAVE <-@Y BY DONALD BROWN_ EAMON ADVENTURER'S GUILD 7625 HAWKHAVEN DR. CLEMMONS, NC 27012 (919)766-7490 (:10:"PLEASE WAIT A SHORT WHILE"::" (WAKING UP THE MONSTERS)" 2DK$(4):220002 d///GIVE ROOM DESC IF NEVERQ i///HERE, THEN GET COMMANDW n sSPDSPDSPD1:SPDMD%(0,2)MD%(0,2)2:MD%(0,10)MD%(0,10)2MD%(0,2) xV%(ROOM)ĺDK$;"READ EAMON.ROOM NAMES,R";ROOM:A$:DK$:"YOU ARE STANDING IN":" ";A$:< }V%(ROOM)ĺDK$;"READ EAMON.DESC,R";ROOM:A$:DK$:A$:u M1NM: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:M10ĺDK$;"READ EAMON.DESC,R202":A$:DK$::A$:[ M:A1NA1:AD%(A,4)ROOM(ANA)V%(ROOM)ĺDK$;"READ EAMON.DESC,R";A100:A$:DK$:A$ AD%(A,4)ROOM(ANA)V%(ROOM)ĺ"YOU SEE ";AN$(A) A:AD%(NA,4)ROOMĺ"YOUR ";AN$(A);" IS HERE." V%(ROOM)1 :" YOUR COMMAND?";A$ (A$,1)" "A$(A$,2):1651 A$""A$CZ$:(37):17:A$Y CZ$A$:A2(A$):(A$,A,1)" "Ăw V$(A$,A1):S$(A$,A1) (S$,1)" "S$(S$,2):185 C1NC:C$(C)V$C$(C)S$Ă::"HUH? I ONLY UNDERSTAND THESE COMMANDS-- ";:C1NC:C$(C);20(C$(C)));::::1604 C$(C)S$S$V$:V$C$(C) C1000,1000,2000,3000,4000,4000,5000,5000,5000,5000,5000,5000,5000,5000,5000,5000,5000,5000,6000,7000,8000,10000,11000,12000,13000,14000,15000,16000,17000,17000,17000,18000,18000,19000,20000,21000,///COMMANDS RETURN TO HERE-6NBTL440M@M1NM:MD%(M,5)ROOM430JMRFD%(MD%(M,14))TD%(MD%(M,14))FD%(MD%(M,14))TD%(MD%(M,14))5(41(1)20)<TMD%(M,4)MRĺ:MN$(M);" FLEES OUT AN EXIT."::17500:MD%(M,5)R2:TD%(MD%(M,14))TD%(MD%(M,14))MD%(M,1):FD%(MD%(M,14))FD%(MD%(M,14))MD%(M,13):430O^MD%(M,14)390yhOFM:TD%(1)MD%(0,1)DF0:3500:430rM21NM:MD%(M2,5)ROOMMD%(M2,14)(1).25DFM2:3500:M2200:M2:430|M2:DF0:3500:430OFM,M21NM:MD%(M2,5)ROOMMD%(M2,14)DFM2:3500:M2200:M2:4309M2:400?aNBTL(FD%(0)TD%(0)):NBTLĂMgp100///GET COMMAND1950S$"TORCH"ĺ:"ALL TORCHES ARE BOLTED TO THE WALL AND":"CANNOT BE REMOVED."::300S$"ALL"1120S$"RAT"10704A1416:AD%(A,4)ROOMS$AN$(A):$^.S$"GOLD"S$"COINS"S$AN$(5)8A1NA:AN$(A)S$AD%(A,4)ROOMĂ::"I SEE NO ";S$;" HERE!"::100BWTAD%(A,3)10MD%(0,1)ĺ:"IT IS TOO HEAVY FOR YOU."::1006L:"GOT IT.":AD%(A,4)1:WTWTAD%(A,3)::AD%(A,2)2MD%(0,9)1300AV16000b`A1NA:AD%(A,4)ROOM1150jWTAD%(A,3)10MD%(0,1)ĺAN$(A);" IS TOO HEAVY":1150tAN$(A);" TAKEN.":AD%(A,4)1:WTWTAD%(A,3)~::300S$""ĺ:C$(C);" WHAT";:S$:1950///DROP COMMAND'1950oNBTLĺ:"YOU CAN'T DO THAT WITH UNFRIENDLIES ABOUT!"::100S$"ALL"2060A1NA:AN$(A)S$AD%(A,4)1Ă::"YOU AREN'T CARRYING A ";S$::100WTWTAD%(A,3)::"DROPPED.":AD%(A,4)ROOM::300$ A1NA:AD%(A,4)12080YWTWTAD%(A,3):AD%(A,4)ROOM:AN$(A);" DROPPED."e A:300| ///ATTACK COMMAND 1950 S$"RAT"3050 M13:MD%(M,5)ROOMS$MN$(M) M M1NM:S$MN$(M)MD%(M,5)ROOMĂ::"ATTACK WHO?"::100= MD%(0,9)1ĺ:"YOU HAVE NO WEAPON READY!"::100\ OF0:DFM:3500:HIT3130 INCW2AD%(MD%(0,9),6):WA%(W2)WA%(W2)2 EAAE300 (100(1)1)MD%(0,10)3130& A2:EAAE1A10 AEAEA:MD%(0,10)MD%(0,10)A: (MD%                    10;.'D$;"CLOSE"1;8'D$;"OPEN CHARACTERS,L150":;B'400AY - \THOMAS J. ZUCHOWSKI v WINSTON-SALEM, NC  DEC 1983  EAMON ADVENTURER'S GUILD 7625 HAWKHAVEN DR. CLEMMONS, NC 27012 dI768777:N:I,N: n 104,168,104,300,7800,7600(4 /// ADD NEW CHARACTER94*IC21:7700c44D$"WRITE CHARACTERS,R0":I:IC:7530~4/// REPLACE CHARACTER4:" SELECT METHOD:":S$;"1. REPLACE BY NAME":S$;"2. REPLACE BY RECORD #":S$;"3. RETURN TO FIRST MENU":X3:600 5S7400,7500,7080$5:10:"NAME:";N1$5I1C2:D$"READ CHARACTERS,R";I:N2$:N2$N1$Ă:D$::"I DON'T FIND THAT NAME.":70805D$:7700:75305L/// REPLACE BY REC#6VD$::10:"RECORD #:";I:I(I)IC2I1ĺD$::"THE HIGHEST RECORD IN THIS FILE IS ";C2:70806`7700'6j9120A6t:18:"DONE."::720Q6/// RETURN6D$"CLOSE"::5:" INSERT ORIGINAL DISKETTE AND PRESS":16:"ANY KEY":A$:6D$"OPEN CHARACTERS,L150":5106J1C2:D$;"READ CHARACTERS,R";J:N$_7NA$(C)N$IJĺD$:(7):"THE CHARACTER NAME ";NA$(C):"ALREADY EXISTS IN THIS FILE IN RECORD ";J::7080g7(:7x:J1C2:D$;"READ CHARACTERS,R";J:N$:S$;J;". ";N$::D$:70807@ // GENERATE NEW RECORD 7J:"NAME OF NEW CHARACTER: ";NA$(0)$8THD(0)0:AG(0)0:CH(0)0:I15:WA%(I,0)0:8^I14:SA%(I,0)0::GOLD(0)0:BANK(0)0:I14:WN$(I,0)"NONE":WT%(I,0)0:WD%(I,0)0:WO%(I,0)0:WS%(I,0)0:8hAE0:AC08rADD1:NCNC1:CNC:UP(C)1:NCFULLFULL08|NA$(C)NA$(0):20009(# /// QUIT ROUTINE 92#D$;"CLOSE".9<#I1NC:UP(I)1İ911049F#_9P#ADDĺD$"WRITE CHARACTERS,R0":NC:D$:9Z#D$;"CLOSE":20:8:"*** END OF PROGRAM ***"::9# /// WRITE RECORD 9#D$;"OPEN CHARACTERS,L150"9#D$"WRITE CHARACTERS,R";I:#DD$(I)""NA$(I)""M:#NA$(I):HD(I):AG(I):CH(I):J14:SA%(J,I)::J15:WA%(J,I):z:#AE(I):SEX$(I):GOLD(I):BANK(I):AC(I):#J14:WN$(J,I):WT%(J,I):WO%(J,I):WD%(J,I):WS%(J,I)::D$:#:' ///ONERR ROUTINE :'768;$'NC1(222)5NC0:4     H3D$"CLOSE":D$"OPEN CHARACTERS,L150":D$"READ CHARACTERS,R0":C2:D$3:" SELECT ACTION:":S$;"1. ADD CHARACTER AS NEW":S$;"2. REPLACE EXISTING CHARACTER":S$;"3. LIST CHARACTERS IN THIS FILE":S$;"4. RETURN TO MAIN MENU":X4:600 4S7200,7ŠŠŢˠȯȠ̢ŠԠŠҢŠҢŠԠŠҢԠ̢ŠȠĠƠǠŢΠԠ̢Ԡ̢ŠŠƠǠŢΠԠ̢Ԡ̢ŠȠĠƠǠŢΠԠ̢ΠȯȠŢΠůנ̠ȠԠâΠůנ̠ȠĠâŠŢŠ٢ԭέΠĠůעΠůנ̢ŠРƠ٢Š͠Ơ٢Πůנ̢Πůנ̠ǠƠԢŠŧӠŢ6600,510,///LIST FILE-,AU1:C0:1300D,8/// CONDENSE FILEP,BI1NCe,LNA$(I)""6300,VJINC1:NA$(J)NA$(J1):SEX$(J)SEX$(J1):GOLD(J)GOLD(J1):BANK(J)BANK(J1):HD(J)HD(J1):AG(J)AG(J1):CH(J)CH(J1)-`K14:SA%(K,J)SA%(K,J1):%-jK15:WA%(K,J)WA%(K,J1):E-tAC(J)AC(J1):AE(J)AE(J1)-~K14:WN$(K,J)WN$(K,J1):WT%(K,J)WT%(K,J1):WO%(K,J)WO%(K,J1):WD%(K,J)WD%(K,J1):WS%(K,J)WS%(K,J1):-UP(J)1:J-NCNC1:ADD1.I:::16)"DONE":I1500:I:6000./// INIT FILE/. :6:16::"WARNING":C.I13:(7);:.::" THIS SUBROUTINE WILL DELETE EVERY CHARACTER ON THIS DISK!!!".(::" DO YOU WANT TO DELETE ALL THE":" CHARACTERS ON THIS DISK? ";A$/2A$"Y"ĺ::13:"ARE YOU SURE? ";A$$/<A$"Y"6000@/FD$;"DELETE CHARACTERS"/PNC1:D$;"OPEN CHARACTERS,L150":D$;"WRITE CHARACTERS,R0":NC/ZD$;"WRITE CHARACTERS,R1"::D$:NC0:410//// CHAR LIST/DELETE/:I1NC/:"RECORD #";I;": ";NA$(I)80" KEEP THIS RECORD?";:A$:A$:A$"N"NA$(I)"":UP(I)1>0H06000\0/// SHORT LISTz0I1NC:DD$(I)""S$""00:8:"SHORT LIST:"::S$;"REC # NAME";:S$""Ė20:"OLD NAME";1::I1NC:S$;" ";I;".";:8(S$):NA$(I);:DD$(I)""Ė21:"(?)";DD$(I);1::1S$" ":720:6000U1X /// MOVE CHARACTER j1bC0SUB1:10002l:"THIS ROUTINE WILL MOVE AN ADVENTURER FROM ONE DISKETTE/FILE TO ANOTHER. THE CHARACTER MUST BE LOADED WHEN THIS FUNCTION IS EXECUTED."C2v:"THE CHARACTER NOW LOADED IS:"::(40(NA$(C)))2:NA$(C)2:"IF THE CHARACTER IS ALREADY LOADED, INSERT THE DISK IT IS TO BE TRANSFERED TO, AND PRESS 'C'."2:"HIT ANY OTHER KEY TO RETURN TO THE MAIN MENU.":2A$::A$"C"510     +510$+p /// FILE MAINTENANCE E+z:8:" SELECT ACTION:":+S$;"1. LIST FILE":S$;"2. SHORT LIST":S$;"3. CONDENSE FILE":S$;"4. INIT FILE":S$;"5. LIST/DELETE CHARACTERS"+S$;"6. RETURN TO MAIN MENU":X6:600,S6100,6800,6200,6400,ŠӠōD",GOLD(0):S$;"2. GOLD IN BANK",BANK(0):X2:600::S3810,3830"HOW MUCH GOLD IN HAND:";X:X0X50000X(X)ĺ:"INVALID AMOUNT.":3810GOLD(0)X:"HOW MUCH IN BANK:";X:X0X50000X(X)ĺ::"INVALID AMOUNT.":3830BANK(0)X:g:"OLD ARMOR EXPERTISE:";AE(0):"NEW ARMOR EXPERTISE:";X:X0X99ĺ:"INVALID EXPERTISE.":X0:4000zUP1:AE(0)X:h:8:"SELECT WEAPON TO CHANGE:"::" NAME TYPE CMPLX DMG ODDS";::I14& rI;".";WN$(I,0);16(WN$(I,0)));WT%(I,0);6((WO%(I,0))));WO%(I,0);"%"; |7((WD%(I,0))"D"(WS%(I,0))));WD%(I,0);"D";WS%(I,0);5((2AG(0)WA%(WT%(I,0),0)WO%(I,0))));2AG(0)WA%(WT%(I,0),0)WO%(I,0);"%"  "-----------------":"5. RETURN TO MENU":X5:600!WS::S5ı!" SELECT FIELD TO CHANGE:"::S$;"1. NAME",WN$(W,0):S$;"2. TYPE",WT%(W,0):S$;"3. COMP.",WO%(W,0):S$;"4. DICE",WD%(W,0):S$;"5. SIDES",WS%(W,0)!S$;"6. NEXT WEAPON":S$;"7. RETURN TO WEAPON MENU":X7:600 ":S4290,4300,4340,4350,4360,4370,4200."UP1:"NEW NAME:";WN$(W,0):4260D"UP1:"NEW TYPE:"":S$;"1. AXE":S$;"2. BOW":S$;"3. CLUB":S$;"4. SPEAR":S$;"5. SWORD"":WT%(W,0):4260"UP1:"NEW TYPE:";WT%(W,0):4260"UP1:"NEW ODDS:";WO%(W,0):4260#UP1:"NEW DICE:";WD%(W,0):4260;#UP1:"NEW SIDES:";WS%(W,0):4260a#WW1:W4260,4260,4260,4260,4380g##0C1C:C0:SUB1:5000:CC1:# /// CHANGE ARRAY$NA$(C)NA$(0):SEX$(C)SEX$(0):GOLD(C)GOLD(0):BANK(C)BANK(0):HD(C)HD(0):AG(C)AG(0):CH(C)CH(0)>$ I14:SA%(I,C)SA%(I,0)::I15:WA%(I,C)WA%(I,0):$AE(C)AE(0):AC(C)AC(0):I14:WN$(I,C)WN$(I,0):WT%(I,C)WT%(I,0):WO%(I,C)WO%(I,0):WD%(I,C)WD%(I,0):WS%(I,C)WS%(I,0):$ DD$(C)DD$(0)$*UP1UP(C)1:UP0$4:510u%FULL0ĺ:"THE DIMENSIONED ARRAYS ARE FULL. YOU MAY NOT ADD A CHARACTER TO THIS FILE UNTIL THE PROGRAM IS RERUN.":720:%I1NC:NA$(I)NA$(0)Ă%NA$(I)NA$(0)ĺ:" THAT NAME IS ALREADY BEING USED.":720:&NCNC1:CNC:ADD1:UP(C)1:NCFULLFULL0&4610.& /// DISPLAY CHARACTER O&:"RECORD #: ";:SUB1ĺC1;^&SUB0ĺC;w&15:"NAME: ";NA$(C)&:SEX$(C)"M"ĺ"MALE";&SEX$(C)"F"ĺ"FEMALE";&20:"GOLD:"&"HARDINESS:";:12:HD(C);:21:"IN HAND: ";GOLD(C).'"AGILITY:";:12:AG(C);:21:"IN BANK: ";BANK(C)H'"CHARM:";:12:CH(C)c'20:"WEAPON ABILITY:"'"SPELL ABILITY:";:21:"1.AXE:";:30:WA%(1,C)'" BLAST:";:12:SA%(1,C);:21:"2.BOW:";:30:WA%(2,C)( " HEAL:";:12:SA%(2,C);:21:"3.CLUB:";:30:WA%(3,C)M(" SPEED:";:12:SA%(3,C);:21:"4.SPEAR:";:30:WA%(4,C)(" POWER:";:12:SA%(4,C);:21:"5.SWORD:";:30:WA%(5,C)((A$"NONE"(2AC(C)1A$"SHIELD ONLY":5220(<AC(C)1A$"LEATHER ARMOR"(FAC(C)3A$"CHAIN ARMOR")PAC(C)5A$"PLATE ARMOR"D)Z(AC(C)2)AC(C)2A$A$" & SHIELD"X)d:"ARMOR: ";A$v)n" EXPERTISE: ";AE(C);"%")x:"WEAPON INFORMATION:")" NAME TYPE CMPLX DMG ODDS";)I14*WN$(I,C);18(WN$(I,C)));WT%(I,C);6((WO%(I,C))));WO%(I,C);"%";*7((WD%(I,C))"D"(WS%(I,C))));WD%(I,C);"D";WS%(I,C);5((2AG(C)WA%(WT%(I,C),C)WO%(I,C))));2AG(C)WA%(WT%(I,C),C)WO%(I,C);"%"*:SUB2SUB0:*720*AU1CNCAU0:C0*AU11300*SUB1SUB0:  PLATE ARMOR":S$;"7. PLATE ARMOR & SHIELD"`\ :S$;"(CURRENTLY ";AC(0);")":X7:600:AC(0)S:{:"OLD SEX: ";SEX$(0)"NEW SEX: ";X$:X$"M"X$"F"ĺ:"INVALID SEX":3600$UP1:SEX$(0)X$:@UP1::8:"SELECT ONE:"::S$;"1. GOLD IN HANˠԍΠԍΠԍԍȍÍԍō0. ARMOR EXPERTISE":S$;"11. WEAPON"z4S$;"--------------------":S$;"12. DISPLAY RECORD":S$;"13. RETURN TO MAIN MENU">S$;"14. ADD AS A NEW RECORD":S$;"15. CANCEL CHANGES"::" INPUT (1-15) ";SHS2200,2400,2600,2800,3000,3200,3400,3600,3800,4000,4200,4400,4600,4800,510)R2060DD$(0)""ĺ:"THIS CHARACTER IS DEAD. THE PREVIOUS NAME OF THIS CHARACTER WAS:"::15:"(?)";DD$(0)::2220:"OLD NAME: "NA$(0)"NEW NAME: ";X$:(X$)0(X$,1)"A"(X$,1)"Z"(X$)20ĺ:"INVALID NAME.":2200*I1NC:NA$(I)X$ĂjNA$(I)X$CIĺ:"THAT NAME IS ALREADY BEING USED.":2200DD$(0)"":UP1:NA$(0)X$:` :"OLD HARDINESS:";HD(0):"NEW HARDINESS:";X:X3X300X(X)ĺ:"INVALID HARDINESS.":2400j UP1:HD(0)X:\( :"OLD AGILITY:";AG(0):"NEW AGILITY:";X:X3X300X(X)ĺ:"INVALID AGILITY.":2600o2 UP1:AG(0)X: :"OLD CHARISMA:";CH(0):"NEW CHARISMA:";X:X3X300X(X)ĺ:"INVALID CHARISMA.":2800 UP1:CH(0)X:G :8:" SELECT SPELL:":S$;"1. BLAST",SA%(1,0):S$;"2. HEAL",SA%(2,0):S$;"3. SPEED",SA%(3,0) S$;"4. POWER",SA%(4,0):S$;"----------":S$;"5. RETURN TO MENU":X5:600::S3020,3030,3040,3050,3060 UP1:"NEW BLAST RATING:";SA%(1,0):3000  UP1:"NEW HEAL RATING:";SA%(2,0):30009 UP1:"NEW SPEED RATING:";SA%(3,0):3000f UP1:"NEW POWER RATING:";SA%(4,0):3000l  :8:" SELECT WEAPON ABILITY:":S$;"1. AXE",WA%(1,0):S$;"2. BOW",WA%(2,0):S$;"3. CLUB",WA%(3,0)< S$;"4. SPEAR",WA%(4,0):S$;"5. SWORD",WA%(5,0):S$;"----------":S$;"6. RETURN TO MENU":X6:600c :S3230,3240,3250,3260,3270,3280 UP1:"NEW AXE EXPERTISE:";WA%(1,0):3200 UP1:"NEW BOW EXPERTISE:";WA%(2,0):3200 UP1:"NEW CLUB EXPERTISE:";WA%(3,0):3200 UP1:"NEW SPEAR EXPERTISE:";WA%(4,0):3200N UP1:"NEW SWORD EXPERTISE:";WA%(5,0):3200T H UP1::" ARMOR CLASS:"::S$;"1. SHIELD ONLY":S$;"2. LEATHER ARMOR":S$;"3. LEATHER ARMOR & SHIELD":S$;"4. CHAIN ARMOR"+R S$;"5. CHAIN ARMOR & SHIELD":S$;"6.  " :(40(NA$(0)))2:NA$(0):" INPUT FIELD TO CHANGE:"::S$;" 1. NAME":S$;" 2. HARDINESS":S$;" 3. AGILITY":S$;" 4. CHARISMA" S$;" 5. SPELL ABILITIES":S$;" 6. WEAPON ABILITIES":S$;" 7. ARMOR"$*S$;" 8. SEX":S$;" 9. GOLD":S$;"1ԭĠҠӠΠŠͬǠՠȠϠӠĠǠϠŠՠȠĮŠӠŠΠΠӠ ĠΠŠˠΠӠŮΠӠԠĠŠӠŮՠŠ̠̠ΠǠŠӮՠŠҠӠŠͧӠԭϭԠҮՠŠΠȠĠĠӠǠΠӠҮŠӠǠӠŠԠƠˠĠӠǠ٠٠ĠĮ10:FULLN NA$(N),SEX$(N),GOLD(N),BANK(N),HD(N),AG(N),CH(N),SA%(4,N),WA%(5,N),AC(N),AE(N),WN$(4,N),WT%(4,N),WO%(4,N),WD%(4,N),WS%(4,N),UP(N),DD$(N) I1NC D$;"READ CHARACTERS,R";I:NA$(I) NA$(I)""320 10000( "DD$(I):DD$(I)""NA$(I)"(BAD DATA IN FILE)":400Z ,DD(DD$(I)):DD$(I)""DD0NA$(I)"(DEAD)"s 6DD0HD(I)DD:330~ @HD(I) JAG(I):CH(I) TJ14:SA%(J,I)::J15:WA%(J,I): ^AE(I):SEX$(I):SEX$(I)"M"SEX$(I)"F"SEX$(I)""380( hD$:D$;"READ CHARACTERS,R";I:NA$(I):DD$(I)A rNA$(I)"(DEAD)":320^ |GOLD(I):BANK(I):AC(I) J14:WN$(J,I):WT%(J,I):WO%(J,I):WD%(J,I):WS%(J,I): I:D$ 216,0:NC0510 :10 " THE CHARACTERS FILE IS EMPTY."7 :S$;" YOUR ONLY OPTION IS TO":S$;" GENERATE A NEW CHARACTER.p ::S$;:" DO YOU WISH TO DO THIS?";A$:A$"Y"8000z 9050  /// MAIN MENU 'UP0::FULL0Ģ8:" THE DIMENSIONED ARRAYS ARE FULL; THE CHARACTER ARRAYS ARE BEING SAVED TO DISK. RERUN THE PROGRAM TO CONTINUE.":9000:17);"EAMON"::" CHARACTER FILE MAINTENANCE":6:S$;" CHARACTER: NONE";:C0Ė21:NA$(C);" ";8::" SELECT ACTION:":S$;"1. SELECT A RECORD":S$;"2. MANIPULATE THIS RECORD":S$;"3. FILE MAINTENANCE"R&S$;"4. TRANSFER THIS RECORD":S$;"5. GENERATE A NEW CHARACTER"0S$;"6. UPDATE RECORD AND QUIT":X6:600:S1000,2000,6000,7000,8000,9000X /// GET NUMBER b:" INPUT (1-";X;"):";lA$:S(A$):S1SX620vA$: /// CONTINUE PROMPT U:" (PRESS ANY KEY TO CONTINUE)";:A$::510:" (PRESS ANY KEY TO CONTINUE)";:A$:: /// SELECT RECORD ):6:" SELECT RECORD BY:"::S$;"1. NAME":S$;"2. RECORD NUMBER":S$;"3. NEXT RECORD":S$;"4. RETURN TO MAIN MENU":X4:600:CS1100,1210,1300,510UL /// BY NAMEsV"CHARACTER NAME:";NA$(0)`I1NC:NA$(I)NA$(0)Ă:(7):"NO SUCH CHARACTER IN THIS FILE.":720:1000jCI:C1C:5000 /// BY RECORD #"RECORD NUMBER:";CACNCĺ(7):"ONLY ";NC;" RECORDS IN FILE.":720:1000PC1C:5000f /// NEXT RECORDCNCĺ:14);"END OF FILE.":C0:710(CC1:5000 /// MODIFY RECORD C0SUB1:10005NA$(0)NA$(C):SEX$(0)SEX$(C):GOLD(0)GOLD(C):BANK(0)BANK(C):HD(0)HD(C):AG(0)AG(C):CH(0)CH(C)oI14:SA%(I,0)SA%(I,C)::I15:WA%(I,0)WA%(I,C):AE(0)AE(C):AC(0)AC(C):I14:WN$(I,0)WN$(I,C):WT%(I,0)WT%(I,C):WO%(I,0)WO%(I,C):WD%(I,0)WD%(I,C):WS%(I,0)WS%(I,C):DD$(0)DD$(C)ΠҠӠŠլĠǠĠĠǠĮΠӠĠӠҠȠӬɡɧ͠ȡŠӠŬ٬ǠĠ٠ΠŠ͠Ƞա z   ŠĠ٠ƠŠ̠ӠŮŠĠ٠ƠŠŠӠŮӠՠȠŠԬԠ٠ӠŠĠϠӠŠƠŠŬǠՠԮҠŠӠ͠ŠРĠϠԠծӠŠŠӠĠԠՠΧԠŠԬԠΠŠӠŠŠƠӠĮӠŠŠӠĠӬŠΠӠĠӠϮӠՠ٠ŠħӠŠũԠΠŠӠĠŠħӠŮŠՠŠǠŠĠΠĠάՠŠŠΠŠ̠ŠĠǠҠӠƠοӠӠŮӠՠ٠ŠħӠŬŠԠΠŠӠ͠ŠĮ       ŠӠŠˠԠȠРŠȠšŠӠŠΠԠȠРŠȠšŠӠŠΠԠȠРŠȠšŠӠĠĠԠϠӠӠƠŠΧԠΠȠΠ٠өΠŠͮŠԠӠĠŬ̠ȠˠƠ̠ĠΠӠŮŠĠ٠ƠŠԭàӠĠΠŠĮŠӠΠĠĠǠŮŠӠȠ٠ӠŠŮŠŠ̠ŠӠŮŠӠΠĠˠŮԠӠΠŠӠĠӠ٠̠ĮŠӠ̠ĠŠȠŠǠΠŠŮΠΠŠŠӠŠŬŧŠӠŠŠƠӠšŠӠŠԠΠŠҠƠŠͮŠӠΠ٠ŠŮŠӠĠˠԠŮŠӠĠΠԠŮŠӠĠΠԠŮŠԧӠ٠ӠĠŮŠ٠ŠƠӠŮŠĠ٠ƠȠӠŮŠŠĠӠšŠӠҠ٠ӠĠŮՠŠΠԠԯԠŮՠҠԠ٠Ǡ͠ŠԮՠŠΠΠԯԠŮՠΠ٠٠ҠӠàǠĬĠΠ̠ŠŠԮՠŠΠŠŮӠƠԠӠҠŠӮŠŠϠӠŬŠĠȠĠԠĠŠҠĠȠĮŠ٠ԠӠϠŠԮՠŠΠԠӠŠ٠ٮԠƠŠӠŠΠĬȠŠӠǠΠŠĮҬΠ͠ӠӬϠӠΠŠĮŠԠӠϠŠԮՠŠΠԭήǠȠӠĠϠŠȠ̮ˠӠĠȠĠԮϠŠԠӠŠŠŠĬԠԠӠΠΠ͠ӠӮՠŠΠˠԯԠ̮ՠΠŠԠȠӮՠŠԠŠРƠԠƠӮȠӠΠŠ̮ԠӠ٠ˠΠŮ̠ӠԮՠŠԠŠ͠ƠԠƠԠΠŠΠРԠŠРƠӬĠ٠͠ԠΠŠΠŠ̠ϠŠԮՠŠΠΠԯԠ̮͠ԠΠŠΠΠȠӮՠŠΠΠԯԠ̮ՠԠϠŠԬĠ̠̠ĠǠ͠ŮΠŠĠՠԠƠԮՠŠΠ̠ٮȠӠĠՠϠԠŠ٠ԠӠˠΠŠ̠ϠŠԮϠŠԬΠŠˠƠŠӠΠĠԮŠӠŠƠӠšŠӠĠӠŠŮŠӠŠŠȠŠΠšՠŠΠ̠ǠȠĠȮŠӠƠŠ̠ŠΠĠȮՠŠԠϠŠȮՠŠΠ̬ˠ̠ȠҠΠŠԠŮՠŠԠŠŠƠŮϠŠȬҠŠ̠ŬӠΠǠӠٮϠŠȠӠŠĠˠϠήՠŠΠˠȯȠ̮ϠŠȠՠŠŠԠԠǠΠ͠ŠŮϠŠȠՠŠǠȠԬԠՠԠŠԠ٠ӮՠŠΠ̠ŠҠϠԠƠŠŠҮԠӠ٠ĠŬĠŠ٠ԠӠΠ٠͠ŠŠҮՠŠΠŠҬŠƠӠԠƠԮǠӠŠӬǠԠ٠ϠŮĠȠĠȬĠŠŠŠӠϠȠŠԠĠԮŠӠϠȠŠԠĠԮՠŠΠ̠ŠҠϠԠƠŠŠҮԠӠ٠ĠŬĠŠ٠ԠӠΠ٠͠ŠŠҮՠŠΠ̬ˠ̠ȠҠΠŠԠŠƠŠͮՠŠԠŠȠĠƠǠ̮̠ӠȮϠŠԠĠԠŠӠԠŠĠԠǠǠοΠŠ͠ՠΠŠԠŠ̠ӠȬՠԠŠԠ٠ӮӠŮՠŠΠ̬ˠ̠ȠҠΠŠԠŠƠŠͮՠŠΠ̬ˠ̠ȠҠΠŠԠŮէŠΠŠŠƠŠǠ̮ӠŠĠΠȠӠƠՠԠĠԩŠ̠ӠĠȮՠŠΠ̬ˠ̠ȠҠΠŠԠŮՠŠΠ̬ˠ̠ȠҠΠŠԠŮՠŠԠŠȠĠƠŠǠ̮ϠҠԠˠŠϠӠΠŠԠĠԮŠ̠Ӡ͠ŬĠΠ̠ӠȮ                      166,223,154,72,152,72,96& xD$(4):A S$" ":7 SPACESK :10 " INSERT MASTER DISKETTE"::" AND PRESS ANY KEY":A$: /// INPUT DATA FROM DISK D$"OPEN CHARACTERS,L150":D$"READ CHARACTERS,R0":NC:D$ NNCӍōōčĠӍǍōӍˍōӍԍ٠ōĠˠԍĠΠԍĠΠԍĠԍĠĠȍĠÍĠԍĠĠō                         ;3 CHARACTER FILE / MAINTENANCE B - BY - \THOMAS J. ZUCHOWSKI v WINSTON-SALEM, NC  DEC 1983  EAMON ADVENTURER'S GUILD 7625 HAWKHAVEN DR. CLEMMONS, NC 27012 dI768777:N:I,N: n 104,168,104,     Iz# ΠϠŠ̠ĠƠΠήà"נӠΠ̠/!ŭŠӠ"ׯŠӠ ήӠ ήàE ήӠ ήŠή͠ӠήӠŠӠŠ> ŠҠ ԠҧӠ̠ ҧӠ̠cΠҠŠԠ5Ӡ٠"ԠҠ Ԡź"ΠҧӠΠҮӬà ͠٠ˠ˧ӠϠӮŠӠޭΠΠϠϠԠޭ68(ST6UVk,ȱk-`),-`G ::63000]Y140:"=";::qX;:5:A$(X):(" "X" ";:6:(A$(X),15):2X" ";:5:(NA$(X),8,15):<1:20:22:20:34,1:2:FP33,21:32,19:1:1:: U33,40:32,0:23:1::U Z85:23:"IS YOUR PROGRAM LISTED HERE? Y/";::"N";::" ";:A$:w dA$"Y"MAXN1:N105::2000 n23:958:34,1:35,21::35,24: 60:X0 N1105 ((NA$(N),8,1))652000 ((NA$(N),8,1))61N105:2000 ((NA$(N),8,1))942000! XX1: A$(X)(NA$(N),8,30)T T(X)((NA$(N),2,1))h X21İ30:2000 X21X61X101İ80 X41İ40:2000 $X41X81İ90 .X61İ30:2000 8X81İ40:2000 BX101İ30:2000 L40  MAXX 85:34,22 23:958T "SELECT A FILE BY NUMBER -->";A$:A(A$):AMAX2010_ A1Ĭ} :::T(A)66T$"BRUN " T(A)84T$"EXEC " T(A)65T(A)73T$"RUN " 23:T$A$(A) 23:D$T$A$(A)  NAME$(105),A$(105),T(105) "X138:B$B$"=":3 ,X10511:NAME$(X)B$:I 6NAME$(0)(B$,19)U @D$(4)} E12:12:"READING CATALOG ":12:29 Y63075 ^2054:D$"CATALOG" c216,0:D$"PR#0":D$"IN#0": h(NA$(0),1)" "Ģ12:868:"!!! ERROR - UNABLE TO READ DIRECTORY !!!": |:10005 1:" 80N":0,63998:0ٍ΍̠čˍȍ͍ōōōō΍͍čōōōҠԍ͍ōōōō     _ (4);"PR#3"&(4);"CATALOG"0500R("Enter program name to run."_-B$"RUN"g2A$w<(4);B$;A$}F(222)13ī600(222)6ĺ"Wrong name!! Try again.":50 (222)11ĺ"Incorrect parameter or form! BE more CAREFULL & enter name AGAIN!!":503 X216,0:B$"B"B$:1000C (4);B$;A$] B$"EXEC":(4);B$;A$   dD$(4):(21)<x::3:10:"PRINT MANUALS PROGRAM":"THIS PROGRAM WILL PRINT THE MANUAL FROM DISK TO A PRINTER IN SLOT 1"::"IF YOU DO NOT HAVE A PRINTER, YOU MAY OBTAIN PRINTOUTS OF THE MANUAL. SEND $1.00 TO:"; :"EAMON ADVENTURER'S GUILD":"7625 HAWKHAVEN DR.":"CLEMMONS, NC 27012"::s "READY YOUR PRINTER AND TYPE 'P' TO PRINT MANUAL." 16368,0:A$:A$"P"A$"p"150 A$ ,D$"PR#1" D$"OPEN PLAYER'S MANUAL" 6000 XD$"READ PLAYER'S MANUAL" A$2 A$(13)ĺP$:P$"":LPLP1:LP60ĺ(12):LP0M P$P$A$:(P$)80800S t xP8011:(P$,P,1)" "Ă (P$,P1):LPLP1:LP60ĺ(12):LP0 @P$(P$,P):P0::800 pD$"CLOSE":D$"PR#0":d# SEND $1.00 TO:"; :"EAMON ADVENTURǠҠӠϠϠΠǠŠӠƠӮǠӠǠŠϠĠ͠٠ŠčŠӠŠӠϠȠҠŠĠӮŠĠŠϠӠҠĠΠΠήĠҠΧǠӠĠŠΠԠΠǮŠΠӠŠΠҠŠԠŠ̮ŠĠŠϠӠҠĠŠϠٮǠϠŠӠΠˠӠŮǠΠ٠ӠŠԠҠǠŠӠ׭ԭ̠ӠƠŠנӠ̠Ϡ͠ήƠŠӠŠŠŧӠǠϠԠӠԠŮ٠ǠӠŠΧΠƠȠŠҠȮ٠ӠΧΠ٠ĠҠŠΠϠϮǠӠΧҠ̠ŠӠΧРĠ̠٠Ġ̠ԠӠҠҠή ҠӍ򮠠砳᪪ӍӠӠӠϠҍغӮٍýĠ׬ҩ˽ˠϠөӽҠŠԩҽӠϠ׍ֱïǠԠƍҠƹРÍРōԠčӠ·µӠųŠԠ·čˠ·ÍĠ·ƴƠ·ư̠·Π·ƵԍҍԍҫРԍԠЍĠƍԍĠ̍ҍҍҍҍˍؠÍ̠Ыàč؍ĠؠčЫ̍̍̍ĠưˍˍЍƍЫƫԢҠԍˍҠōҠÍӢҠԍԍҠōҠÍҠԍƫҠōƍҠōҠÍؠč؍׬؍ҠԍҠӍҠӍؠàǬ؍Ҡԍ؍̠Í΍РōàРԍנ ҢעǠàҢ č                      ! ! ! ! !!!!!!!!!" " " " """"ŠϠŠ̠ĠƠΠ䠲Π䠢󢮠婠謠䬠嬠箠䬠󮍍Π宠宠䮍Π宠嬠󮍍䠨宠ﬠ宠堧觠󮠠嬠宠塍    󩬠姠󮠠󺠵 L?   ʽ   LL׽ҍ 15 2A:3) Change the 22 to 60 - on my disk at Block 8C Byte 022MKNOTE:- After using䠧󠧳ĸ嬠堠䩮Ӭ٬Ӎ󮠠宠쮠栱堨Ԡ쩠򠱰宠譭堨㩬塍嬠󮠠쬠讍젳䮠ᠹ󮍍ٍᮠ嬠򮠠䭭衠ᬠ栰ԍ䬠䠭䬠󮠠䮍󮠠堳笠ӠƠҠҠԠŠԠӠ̠宠栱嬠9  D$(4)7D$"RUN THE WONDERFUL WORLD OF EAMON" 80"KD$(4)\(D$"CATALOG" 󬠭󬠲󬠱䠰󮠨笠箍笠堧秠䮍箍䮠쬠䬠򮠠宠䭠󮠠󮍍ģĸ堳󿩠䠠嬠󠲬󠵠宍嬠󮠠ᠧ婺򠨵堨堨堨젨堨䩬ᠱ婬栨栨Í䠧짮䬠場宠쬠󩮠嬠쭠󭭠EVER":"SEEN BEFORE! (AND NEVER WILL AGAIN.)":IN:X A COMPUTERIZED FANTASYs ROLE-PLAYING SYSTEMy RULES AND CORE PROGRAMS BY DONALD BROWN  EAMON ADVENTURER'S GUILD 7625 HAWKHAVEN DR. CLEMMONS, NC 27012 (919)766-0 THE WONDERFUL WORLD OF4 EAMON:X A COMPUTERIZED FANTASYs ROLE-PLAYING SYSTEMy RULES AND CORE PROGRAMS BY DONALD BROWN  EAMON ADVENTURER'S GUILD 7625 HAWKHAVEN DR. CLEMMONS, NC 27012 (919)766-7490 '  DRAGON PICTURE SHOWN?  DURING PROGRAM BY]  R.L. PHILLIPS & FRIENDSw  OF ANN ARBOR, MICH.  THE BEAUTY IS GREATLY  ENJOYED.  ///BOOTUP PROGRAM FOR !///EAMON UNIVERSE. "///GETS NAME OF PLAYER #///AND EITHER SENDS TO- $///MAIN HALL (IF OLDJ %///CHARACTER) OR TO NEWg &///CHARACTERS (IF NEW).m ' d(4);"MAXFILES 3" i:::"EAMON ADVENTURER'S GUILD":"7625 HAWKHAVEN DR.":"CLEMMONS, NC 27012":"(919)766-7490":I1500::::A nDK$(4):DK$;"BLOAD EAMON.PIC,A$2000":16304,0:16297,0:16302,0W xX((78)(79)) }DK$"OPEN SNAPPY,L64":DK$"READ SNAPPY,R0":NS:R((1)NS1):DK$"READ SNAPPY,R";R:CM$:C1$(CM$,23):C2$(CM$,24):DK$"CLOSE SNAPPY"& DK$;"OPEN CHARACTERS,L150":DK$;"READ CHARACTERS,R0":NC:DK$ " YOU ARE IN THE OUTER CHAMBER OF THE":"HALL OF THE GUILD OF FREE ADVENTURERS.":"MANY MEN AND WOMEN ARE GUZZLING BEER" "AND THERE IS LOUD SINGING AND LAUGHTER."::" ON THE NORTH SIDE OF THE CHAMBER IS"f "A CUBBYHOLE WITH A DESK. OVER THE DESK":"IS A SIGN WHICH SAYS 'REGISTER HERE":"OR ELSE!'": ::"DO YOU GO OVER TO THE DESK OR JOIN THE":" MEN DRINKING THE BEER?"::" (HIT 'D' FOR DESK OR 'M' FOR MEN) ";X11000:(16384)155ĂX16368,0:(A$:A$"D"2209A$"M"190A$:::" AS YOU GO OVER TO THE MEN, YOU FEEL"::"A SWORD BEING THRUST THROUGH YOUR BACK"::"AND YOU HEAR SOMEONE SAY, 'YOU REALLY"::"MUST LEARN TO FOLLOW DIRECTIONS!'":yA$:::" YOU ARE GREETED THERE BY A BURLY"::"IRISHMAN WHO LOOKS AT YOU WITH A SCOWL"::"AND ASKS YOU, 'WHAT'S YOUR NAME?'"::"YOU GIVE HIM YOUR NAME (TYPE IT IN NOW) ";NAME$:NAME$""(NAME$)2(NAME$,1)"A"(NAME$,1)"Z"İ400:230(NAME$)20ĺ" HE SCOWLS AT YOU AND SAYS, 'YER"::"NAME'S TOO LONG FER ME BOOK. I CANNA"::"USE MORE THAN TWENTY LETTERS."::230" HE STARTS LOOKING THROUGH HIS BOOK,"::"MUTTERING ABOUT ";C1$::C2$:R1NC:DK$;"READ CHARACTERS,R";R:A$:A$NAME$330R:DK$:" HE EVENTUALLY LOOKS AT YOU AND SAYS,"::"'YER NAME'S NA IN HERE. HAVE YE GIVEN"::"IT TO ME ARIGHT?'"::"HOW DO YOU ANSWER (HIT 'Y' OR 'N') ";"A$:A$"N"ĺA$::400:230,A$"Y"2906A$::" HE HITS HIS FOREHEAD AND SAYS, 'AH,"::"YE MUST BE NEW HERE! WELL, WAIT JUST"::"A MINUTE AND I'LL BRING SOMEONE OUT TO"::"TAKE CARE OF YE.'":@350:DK$;"RUN NEW CHARACTERS,S6,D1"JDK$::" HE LOOKS UP AND SAYS, 'AH, HERE YE"::"BE! WELL, GO AND HAVE FUN IN THE HALL!'":8T350:DK$;"RUN MAIN HALL,S6,D1"^DK$;"OPEN THE ADVENTURER":DK$;"WRITE THE ADVENTURER":NAME$:R:DK$;"CLOSE": ///NO NAME ROUTINECNTCNT1:CNT1450M" HE PULLS OUT A SWORD AND BEGINS TO":"SHARPEN IT, SAYING 'YE'D BEST BE GIVIN'":"ME YER NAME LADDIE, IF YE KNOW WOTS":"GOOD FER YE!!!"SCNT2ĺ"I'VE 'BOUT HAD ME FILL O' YER SICK":"SENSA 'UMOR!!":"NOW GIMME YER NAME!!":(CNT3ĺ"THE MAN CUTS ONE OF YOUR FINGERS OFF!!":"HE THEN EATS IT!!!!":"THEN HE SAYS 'ARE YE READY T' TALK NOW?":vCNT13ĺ"THE MAN CUTS OFF ANOTHER FINGER!!!":"HE EATS THIS ONE TOO!!":/"THE MAN STARTS SLOWLY, 'WELL YE BE ":"OUTTA FINGERS!'":"THE MAN THEN SPINS AROUND AND RUNS YOU":"THROUGH WITH A SPEED YOU HAVE N     נϠ٠΍Πɬ嬠򠱠報䬠ᠵ箍場庍ԍ宠Ķ堨̍報讍č󮠠殠ҍ砢硢嬠笠󮠠쬠󮍍٠졍ǠȠӍ쮍쬠󮠠宠宍䬠쬠䮠䭠󮠠䮍䮠孠󮠠䠧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.:}]U]Yп那ȇಠ Ïئۃ㟬Ⴣ£ ǟ ȇФ"  >>ƁAw]c]ο̱>"" > О쁠"  $؛  $"0ऎ񟈌}kI]]਼揿ῠȁ6""$" " "  $$فȖ$  描"<"0ǟ࿈          A]]c]Á́Ʊ " $"">$ $ "$$"*<" $""<"*""*""""$$"0·޿a]U]UȁؿكșĠ"*"*  "  """""" <"""""*$" "<ρÁ㣞*"">"**" <   """""*"<<"<$">$<$"$ȁ$>*">$">""*>"*>">>$$>0}A]]M迌сر>""2<><""""""<"""*">"*$>>"2"""**><"""*>"*>"""" 8""8"8̣ 8 "" 8"""號Ё6""""0ύ࿂}]]]]Ї"""" """"""""""""*"""""""""""" ""*"""<"< < " Ȣ "< "<賐"<"Ã">>Łᗠ"*"&<" ""< Ƈ&<< "< 묠䠱宍堵䬠򬠲쬠䠵堢â쮠뮠䬠嬠뮠쬠쮍歠󮠠宠栠宠嬠笠򡩮ǠΠΠō󮠠󮠠塩殍宠嬠䬠宠庠䮠àԧ婮嬠孠宠䮠ɠ󮍍ǠӠĠҍ堲򮍍󠵠嬠Ķ栲ᠱĶ栴ᠱĴ栲ᠱĵ栲ᠱĸ栵栭婬栰婬䠨栱婮嬠嬠쬠栱ā̃>"""<<<""<<"<"<<""<""<<<<"<"<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  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$;"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 WALKS 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--";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 THE 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 WITH 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 RANDOM 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 PLACED 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;35);"-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, HOWEVER, 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)":6"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 TOLD 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 BY 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.":h"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         讠䬠졮THEYWERE 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 AND 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$;"READ 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$;"CLOSE"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 SUICIDE. 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"560D嬠쬠孠ǠӍ쬠宠庠򠨱󩬠젨䠨嬠䬠宍Šҍ嬠󮠠뮩Ǡƍ쬠嬠塍ǠŠō宠嬠䬠嬠󮠠ɠ򮠠䬠讍ŠҧӠō箠宠宠TIME"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 LES 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') ";A$:A$"Y"2350A$"N"2230A$::PБ- THE WONDERFUL WORLD OF2 EAMON8T MAIN HALL (BUY SPELLSp AND EQUIPMENT AND GO ON ADVENTURES) BY DONALD BROWN REV. 10/19/89 EAMON ADVENTURER'S GUILD 7625 HAWKHAVEN DR. CLEMMONS, NC 27012  DK$(4)o :5:"EAMON ADVENTURER'S GUILD":"7625 HAWKHAVEN DR.":"CLEMMONS, NC 27012":I1500:z 7000 DK$;"OPEN THE ADVENTURER":DK$;"READ THE ADVENTURER":NAME$:REC:DK$;"CLOSE" (100K 2DK$;"OPEN CHARACTERS,L150":DK$;"READ CHARACTERS,R";REC:NAME$:HD,AG,CH:X14:SA%(X)::X15:WA%(X)::AEU <SEX$ FGOLD,BANK:AC:W14:WNAME$(W),WTYPE%(W),WODDS%(W),WDICE%(W),WSIDES%(W):W:DK$;"CLOSE" PP(X)(XRTIO.5)} d:"AS YOU WANDER ABOUT THE HALL, YOU":"REALIZE YOU CAN DO ONE OF SIX THINGS--":" 1. GO ON AN ADVENTURE.":" 2. VISIT THE WEAPON SHOP FOR WEAPONS AND/OR ARMOUR."H n" 3. HIRE A WIZARD TO TEACH YOU SOME SPELLS.":" 4. FIND THE BANKER TO DEPOSIT OR":" WITHDRAW SOME GOLD.":" 5. EXAMINE YOUR ABILITIES.":" 6. TEMPORARILY LEAVE THE UNIVERSE."u x:"(HIT THE KEY FOR YOUR CHOICE, 1-6)"; A$:CMD(A$):CMD1CMD6130 CMD::CMD1000,2000,3000,4000,5000,6000 NAME$:HD:AG:CH:X14:SA%(X)::X15:WA%(X)::AE:SEX$_ GOLD:BANK:AC:W14:WNAME$(W):WTYPE%(W):WOODS%(W):WDICE%(W):WSIDES%(W):We DK$;"OPEN CHARACTERS,L150":DK$;"WRITE CHARACTERS,R";REC::DK$;"CLOSE"c:5:"INSERT DISKETTE WITH ADVENTURE (OR KEEP"::"THIS DISKETTE FOR BEGINNERS CAVE) IN"::"DISK DRIVE IN SLOT SIX, DRIVE ONE THEN"::"HIT 'C'"::::" ";:16368,0yA$:A$"C"1020DK$;"OPEN EAMON.NAME":DK$;"READ EAMON.NAME":ADNAME$:DK$;"CLOSE":5:"YOU ARE ABOUT TO ADVENTURE IN":::ADNAME$:::b$DK$;"OPEN FRESH MEAT":DK$;"WRITE FRESH MEAT":REC:200:DK$;"CLOSE":DK$;"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 BREATH, IF IT ISN'T MY OLD PAL":NAME$;"! SO, YOU WANT TO":"BUY A WEAPON, SELL A WEAPON, OR GET":"SOME BETTER ARMOUR?"::"(HIT THE KEY, B S OR A) ";C2CH(11(1)5):C2C2(C20):RTIO10C2A$:TR13:A$("BSA",TR,1)Ă:2030A$::TR2050,2220,2490WN$(4)"NONE"ĺ"MARCOS SMILES AT YOU AND SAYS, 'THATSA":"GOOD, BUT FIRST 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, OR SWORD?"::2650:"MARCOS SAYS, '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) ";f*A$:Q13:A$("GFP",Q,1)Ă:20904A$:PBPBP(Q1)BP2(Q3):PP(P)u>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":"AFFORD.' HE THEN SHOOS YOU OUT THE":"DOOR."::100HW14:WN$(W)N$N$N$"#":2120RW:W14:WN$(W)"NONE"Ă\WN$(W)N$:WT%(W)TP:WO%(W)10(2Q):WD%(W)DICE:WS%(W)SIDES:GOLDGOLDPOf"MARCOS HANDS YOU YOUR WEAPON AND TAKES":"THE PRICE FROM YOU.":epGOLDP(50)2210z"HE NOW ASKS YOU, 'NOW HOW ABOUT SOME":"ARMOUR?'"::"(HIT Y OR N) ";A$:A$"N"ĺA$::2210A$"Y"2180A$:2490T"MARCOS SMI                    HICH WILL IT BE?'"::"(HIT THE KEY FOR YOUR SPELL:":" N FOR NOTHING, OR B,H,S OR P) ";& A$:SP15:A$("BHSPN",SP,1)Ă:3040& SP3060,3070,3080,3090,3200& "BLAST":PP(3000):3100& "HEAL":PP(1000):3100' "SPEED":PP(5000):3:W14:WN$(W)W$Ă::"MARCOS FROWNS AT YOU AND SAYS, 'YOU":"CAN'T SELL A WEAPON YOU DON'T OWN!'"::2210W$"NONE"ĺ:"MARCOS FROWNS AND SAYS 'THEN WHY DO YOU WASTE MY TIME?'"::"MARCOS SHOOS YOU OUT OF HIS STORE.":100L(W$,5)"SWORD"(W$,5)"SPEAR"(W$,4)"MACE"(W$,3)"BOW"(W$,3)"AXE":Lĺ"MARCOS FROWNS AT YOU AND SAYS, 'THIS IS":"A WEAPON LIKE I SELL, REMEMBER!'":2420L"MARCOS GIVES YOU YOUR MONEY AND TAKES":"YOUR WEAPON."::GOLDGOLDP:W2W4:WN$(W2)WN$(W21):WT%(W2)WT%(W21):WO%(W2)WO%(W21):WD%(W2)WD%(W21):WS%(W2)WS%(W21)::WN$(4)"NONE" :"MARCOS ASKS YOU, 'HOW ABOUT BUYING A":"WEAPON?'"::"(HIT Y OR N) "; A$:A$"Y"ĺA$::2050 A$"N"2320$ A$::2160". :"MARCOS ASKS, 'WELL, WHAT WEAPON YOU":"WANTA RETURN?"::2650:8 W2W:W14:(WN$(W),(N$))N$Ă:"MARCOS LAUGHS AND SAYS, 'YOU NEVER":"BOUGHT ONE FROM ME, REMEMBER?'"::2210B 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 IT, TAKE IT OR LEAVE IT.'"::"(HIT T OR L) ";V A$:A$"L"ĺA$::2210` A$"T"2390j A$::2300t :X14:("ABMS",X,1)(W$,1)ĴX2440,2450,2460,2470~ X( BP25:23708 BP40:2370H BP20:2370g (W$,2,1)"P"BP25:2370w BP50:2370Q 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 CAN 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.": "WELL, WHAT WILL IT BE?'"::"(HIT N FOR NOTHING OR L C OR P) "; A$:A14:A$("NLCP",A,1)Ă:2530 A$::A12570 PP(100(A2)250(A3)500(A4))TI:PGOLDĺ"MARCOS FROWNS WHEN HE SEES THAT YOU DO":"NOT HAVE ENOUGHT TO PAY FOR YOUR":"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 ONE FOR":"ONLY ";P(50);" GOLD PIECES!'"::"(HIT Y OR N)";! A$:A$"N"ĺA$::2630!( A$"Y"2590z"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 GIVE CREDIT!'"::2630"< GOLDGOLDP(50):SH1:"MARCOS TAKES YOUR GOLD AND GIVES YOU":"A SHIELD.":"F ACA22SH::100"P #Z "(HIT THE KEY(S), A B M SP OR SW) ";:=#d A$:W14:A$("ABMS",W,1)Ă:2660X#n W2680,2690,2700,2710#x "AXE":BP25:N$"AXE":TP1:SIDE6:2750# "BOW":BP40:N$"BOW":TP2:SIDE6:2750# "MACE":BP20:N$"MACE":TP3:SIDE4:2750# A$;:#$ A$:A$"P"ĺ"PEAR":BP25:TP4:SIDE5:N$"SPEAR":27505$ A$"W"2720^$ "WORD":BP50:N$"SWORD":TP5:SIDE8k$ DICE1:q$ "% :"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?"}% "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":\& "WELL, W(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"2260mA$::"MARCOS SAYS, 'OKAY, WHAT'VE YOU GOT?"::"(ENTER THE WEAPON NAME)";W$ԠŢ䬠䮠󮠠嬠YWAY, BUT HAVEN'T YOU FORGOTTEN":"SOMETHING? I ALREADY TAUGHT YOU THAT":"SPELL!'"::"SHAKING HIS HEAD SADLY, HE RETURNS TO":"BAR."::100*)0 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 YOU HEAR"Y): "HIM ORDER A DOUBLE DRAGON BLOMB."::100_)D ) ::"AS YOU LEAVE, YOU HEAR HOKAS MUTTERING":"ABOUT CHEAPSKATE ADVENTURERS ALWAYS":"WANTING SOMETHING FOR NOTHING."::100*:"YOU HAVE NO TROUBLE SPOTTING SHYLOCK":"MCFENNEY, THE LOCAL BANKER, DUE TO HIS":"LARGE BELLY."::"YOU ATTRACT HIS ATTENTION, AND HE COMES":"OVER TO YOU AND SAYS, 'WELL,"*NAME$;", MY DEAR ";("GIRLBOY",(SEX$"M")41,4);",":"WHAT A PLEASURE TO SEE YOU! DO YOU WANT"W+"TO MAKE A DEPOSIT OR A WITHDRAWL?'"::"(HIT 'D' FOR DEPOSIT, 'W' FOR WITHDRAWL) ";s+A$:A$"D"ĺA$::4090+A$"W"4030+A$::"SHYLOCK SAYS, 'WELL, YOU HAVE ";BANK:"GOLD PIECES STORED WITH ME. HOW MANY":"DO YOU WANT TO TAKE BACK?'":,"(ENTER THE NUMBER OF GOLD PIECES TO":" WITHDRAW) ";A$:MNY(A$):MNY0MNY(MNY)(MNY)A$ĺ:"THE BANKER SCOWLS AND SAYS,'COME, COME,":"YOU'RE NOT MAKING SENSE! TRY AGAIN.'"::4060-MNYBANKĺ:"THE BANKER THROWS YOU A TERRIBLE GLANCE":"AND SAYS, 'THAT'S MORE THAN YOU'VE GOT!":"YOU KNOW I DON'T MAKE LOANS TO YOUR":"KIND!' WITH THAT HE LOSES HIMSELF IN":"THE CROWD."::100C.GOLDGOLDMNY:BANKBANKMNY::"THE BANKER HANDS YOU YOUR GOLD AND":"SAYS, 'THAT LEAVES YOU WITH ";BANK:"PIECES IN MY CARE.' HE SHAKES YOUR":"HAND AND WALKS AWAY."::100."SHYLOCK GETS A WIDE GRIN ON HIS FACE":"AND SAYS, 'GOOD FOR YOU! HOW MUCH DO":"YOU WANT TO DEPOSIT?'"~/:"(ENTER THE AMOUNT YOU WANT TO DEPOSIT)":" ";A$:MNY(A$):MNY0MNY(MNY)(MNY)A$ĺ:"THE BANKER SCOWLS AT YOU AND SAYS,":"'COME, COME, YOU'RE NOT MAKING SENSE!":"TRY AGAIN.'"::4100^0MNYGOLDĺ:"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, SHOUTING ABOUT FOOLS":"WHO PLAY TRICKS ON A KINDLY BANKER."::1000GOLDGOLDMNY:BANKBANKMNY:"SHYLOCK TAKES YOUR MONEY, PUTS IT IN":"HIS BAG, LISTENS TO IT JINGLE, THEN":"THANKS YOU AND WALKS AWAY."::1000"u1:"YOU ARE THE ";("MIGHTY FAIR ",17(SEX$"F"),7);NAME$::"YOUR ATTRIBUTES ARE:":" HD=";HD;" AG=";AG;" CH=";CH:1"YOU KNOW THE FOLLOWING SPELLS--":SM0:S14:SA%(S)ĺ("BLASTHEAL SPEEDPOWER",(S1)51,5);" ";:SM11S:SMĺ" NO SPELLS";2::"YOUR WEAPON ABILITIES ARE--":" AXE BOW CLUB SPEAR SWORD":" ";:W15:1(WA%(W)0)((WA%(W))10)((WA%(WA))100));WA%(W);"% ";::2:A2(AC2):"ARMOUR: ";("SKIN LEATHERCHAIN PLATE ",A271,7);:ACA22ĺ" AND SHIELD";8330);"AE=";AE;"%"::"GOLD IN HAND=";GOLD;", BANK=";BANK"|3:"WEAPONS";19);"CMPLX DAM":W14:W1WN$(W)"NONE"50903WN$(W)"NONE"ĺ:" NO WEAPONS":5090 4WN$(W);20(WO%(W)0)((WO%(W))10)((WO%(W))100));WO%(W);"% ";WD%(W);" D ";WS%(W)K4W:23:16368,0:"(HIT ANY KEY TO CONTINUE) ";:A$::100Q44p"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?'",5zDK$;"OPEN CHARACTERS,L150":DK$;"WRITE CHARACTERS,R";REC:200:DK$;"CLOSE"M5DK$;"DELETE THE ADVENTURER"S55X(222)5ĺ(4);"RUN THE WONDERFUL WORLD OF EAMON"5ll BY DONALD BROWN REV. 10/19/89 EAMON ADVENTURER'S GUILD 7625 HAWKHAVEN DR. CLEMMONS, NC 2100' "POWER":PP(100)' :PGOLDĺ"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."::100(& SA%(SP)ĺ"HOKAS SAYS, 'I OUGHT TO TAKE YOUR":"GOLD AN䬠젹 THE WONDERFUL WORLD OF2 EAMON8T INITIALIZE CHARACTERSg FILEm BY DONALD BROWN DK$(4) :::"WARNING--INITING LOSES ALL OLD PLAYERS":::"HIT 'C' TO CONTINUE, ANY OTHER KEY TO":"ABORT ";:A$:A$:A$"C"Ā5 DK$;"OPEN CHARACTERS" (DK$;"DELETE CHARACTERS":DK$;"OPEN CHARACTERS,L150":DK$;"WRITE CHARACTERS,R0":"1":DK$;"WRITE CHARACTERS,R1"::DK$;"CLOSE"AĠ٠Р٠䮠詮䮍άӬŬ׬լĬȬȬԬԬЬΠ٠ɢ箍٠ˠ䮍Ԡ򡩠Ԡ̠宠쬠堨詮ﬠ蠨ᩮ쮍嬠宠嬠ź笠砧à纠ŠϠ͠鍍򠱰ﮠ򠲰ǠĠź庠ŠϠ宍Ӻﮠ堧ԠĠ٧ǠĠ٧Ǡħ󻠧ҧРˠ䬠宠Ǻ٠ԠŠ宠Š젧䧠宠䩠䮠堧ǠħǠ٧ԠĠ٧󮠠䬠宠!!  THE WONDERFUL WORLD OF4 EAMON:W VIEW NAMES/REMOVER OFs CHARACTERS STORED ON DISKETTE. BY DONALD BROWN- dDK$(4):DK$;"OPEN CHARACTERS,L150":DK$;"READ CHARACTERS,R0":NC:N1NC:DK$;"READ CHARACTERS,R";N:N$:DK$:"#";N;": ";N$O n" KEEP (HIT 'Y' OR 'N')?";h xA$:A$"Y"ĺA$:160y A$"N"120 A$ DK$;"WRITE CHARACTERS,R";N: N:DK$;"CLOSE": 򮠠嬠򮠠亍庠썠󺠧姠ﮠ箍嬠򮠠ﮍǠ묠宍嬠宠󮠠⬠򠱰宠󮠠䍠򮍠à宠󮠠""k D$(4):@"NAME OF CHARACTER TO BE RESSURECTED:":NA$~D$"OPEN CHARACTERS,L150":D$"READ CHARACTERS,R0":NC:D$2R1NC:D$"READ CHARACTERS,R";R:N$:ME$<N$""Ă:500FME$(NA$,2)Ă:5006 PD$"WRITE CHARACTERS,R";R:NA$:D$"CLOSE"::"O.K. ";NA$;" YOU HAVE BEEN RESURRECTED.":c "I CAN'T FIND ANY DEAD ";NA$:D$"CLOSE"i D""