' +JJJJ ?\>m0M='+l> /+l  P˵B̵CõDĵEµµBD ĵ ⵭µ ۰ µL` 鷎귭෍ᷩ췩緈JJJJx i 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,&" ʎ L/  !"#$%&'()*+,-./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#0EB 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`   d@ŵLҦL [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<ԍ L}JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\8õ浍õĵBD` L[W ԧ 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̦µ_bJLLz L^ ۰L^  ȟ QlXJ̥KlV  ȟ QlV eօ3L׮ʊHLQ &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ȿõ` F`  \ 濭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-U@Ϡ@跻~!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 ꝍ ŤL{ BH [ h`Lo õ ڬL ꝍ Ť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볩쳢8DH ؿ 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뷭鷭  ˤLª 뷰` Lk ݵܵߵ޵ ^`8ܵ i B8` 9L%ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵BֵO G굎뵎쵬 뵎쵌`` ַ յյ`@ +õm浍õĵL õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` F d֠ĭz!# 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠Ġz# u`ĠҠŠŠƠԠРàҠҮƠՠҠŠԠРˠ̠ŠĮˠҠŠŠՠԠĠҠԠΠէŠΠĠҠŠŮǠ̠ŠŠí٠ŠŠӠ٠ϠĠԠΧԠŠŠĠŮҠŠƠŠԠРŠէŠǠȠӠĠΧŠנŠӠĠήҧΠէŠĠϠҠŠŠƠŠŠϠӮŠӠĠӠ٠ŠϠԠΠҠŠĠ٠͠ҠҠӠԠŠɭӠӮŠɭӠŠӠŠŠŠӠŠԠРàȠŠӠҧĠԠŠĮӵԠРϠɭӠӍΠ٠ŠҍĠ٠Ǡ΍ҠǠĠŠŠԠƠӠ͠ӠϠέԠԠРӠҠӠϠɭӠ   "N"CHOICE$"n"DRC1:::CHOICE$"Y"CHOICE$"y"ĺ:D6140R7*** DATAl8128,64,32,16,8,4,2,1}B1,0,4,0,6,0 ,0 C0:1925000308*** GET USER SET-UP]:"DO YOU WANT INSTRUCTIONS? ";CHOICE$:CHOICE$"Y"CHOICE$"y"ĺCHOICE$:4300:6130CHOICE$"N"CHOICE$"n"ī6110::"DO YOU HAVE AT LEAST 2 DRIVES? ";CHOICE$:CHOICE$30796:L530820:L630844:CV22:CW23:CN14:DR2:FLAGC1VXS(8):V1C1C8:XS(V1):sV1768773:V2:V1,V2:B$(7):D$:D$;"OPEN PS.INF":D$;"READ PS.INF":DOC:DOC$(DOC):V1C1DOC:DOC$(V1):V2:ER$(V2):V1C1V2:ER$(V1)::D$"CLOSE"":2100.CHOICE$"N"CHOICE"n"ĺCH$:100085300Sn*** ONE TIME ROUTINESao*** INITpV30:C0V3:YXC0:YC0:ZC0:XC0:XOC0:YMC0:C77:C88:YAC0:YBC0:R2C0:B3C0:R1C07zB2C0:BC0:B1C0:RC0:CO15:LA30720:L130724:L230748:L330772:L4R$;" AT LINE "EL1NE:;(ERR0R254ĺER$(C8)::5220T2ERR0R255ĺER$(9):\<30|FEL1NE1000EL1NE10991000PEL1NE2030EL1NE29982100ZELINE40001010d216,C0:CHOICE$:CHOICE$"Y"CHOICE$"y"ĺCH$:D$"UNLOCK "FILE$".HR$ERR0R$(EV): ::B$B$B$<ERR0R4ĺER$(C1):5180WERR0R6ĺER$(2):5180sERR0RC8ĺER$(3):5180ERR0R9ĺER$(4):5180ERR0R10ĺFILE$ER$(6):ER$(7):5300ERR0R13ĺER$(5):5180 ERR0R16ĺ"ERROR "ERR0R;:5150:E):(37):10:CH2$FHD(HD$):AG(AG$):CH(CH$)=$FX14$FSN$(X);" ABILITY (%): ";SP%(X);:(36)((SP%(X)))1:"";A$:(A$)0(A$)100Ģ(37):18120$FA$""A$(SP%(X)):(37):(SN$(X))15:A$$FSP%(X)(A$):c%F"ARMOUR TYPE:":" 1. CHARACTER:";NA$;:(36)(NA$)1:"";A$:A$""A$NA$:1:19:A$L#FNA$A$#F"HARDINESS:";HD;:11:"";HD$:HD$""HD$(HD):(37):11:HD#F"AGILITY:";AG;:9:"";AG$:AG$""AG$(AG):(37):9:AG$F"CHARISMA:";CH;:10:"";CH$:CH$""CH$(CHCHARACTERS.EXT,R0":NC:DK$;"WRITE CHARACTERS.EXT,R";NC1:12080:DK$;"WRITE CHARACTERS.EXT,R0":NC1:DK$;"CLOSE":100"PF /// GEN TEST CHAR"ZF:"DO YOU WANT TO USE STANDARD?";"dFST$:ST$"N"ST$"Y"18020"nFST$:ST$"Y"19010A#F:"NAME OF):AGA(8):CHA(8):X15:WA%(X)DW%(X)::X14:SA%(X)DS%(X)::AE20!BGOLD500:BANK300:AC3:WN$(1)"MACE":WT%(1)3:WO%(1)10:WD%(1)1:WS%(1)4:X24:WN$(X)"NONE":WT%(X)0:WO%(X)0:WD%(X)0:WS%(X)0:w"BDK$;"OPEN CHARACTERS.EXT,L256":DK$;"READ >22:7:"";:A$:1008 ?R hB /// ADD A CHARACTER rB6:958:20000:FOUNDNA$""ĺ:"INVALID NAME OR ALREADY ON FILE.":2030 wB10:" MALE OR FEMALE (M / F): "; |BSEX$:SEX$"M"SEX$"F"17020G!BSEX$:HDA(8$"READ CHARACTERS.EXT,R";R:N$:ME$8>N$""Ă:16110T>ME$(NA$,2)Ă:16110>DK$"WRITE CHARACTERS.EXT,R";R:NA$:DK$"CLOSE"::"VERY WELL,";NA$;",":" YOU HAVE BEEN RESURRECTED.":16120>:NA$;" ISN'T DEAD OR DOESN'T EXIST.":DK$"CLOSE"2:DK$;"CLOSE"::(> ///RESURRECTv>:5:10:"INSERT MASTER DISKETTE."::07:" ";:A$:|>>DK$;"OPEN CHARACTERS.EXT,L256">:"CHARACTER TO BE RESURRECTED:";NA$>DK$;"READ CHARACTERS.EXT,R0":NC#>R1NC:DKBL:HE:SP:PO:X15:WA%(X):815:"M":2000:1300:4:"AXE":1:10:1:6:"BOW":2:10:1:5:"MACE":3:10:1:4:"SWORD":5:10:1:88DK$"CLOSE":DK$"OPEN EAMON.NAME":DK$"READ EAMON.NAME":AD$:DK$"CLOSE"9DK$"RUN ";AD$: /// END ("RAT",X,1)Ă:8000:14050(6SX:X3:A7:S100,12000,14500L8180008:5:"INSERT ADVENTURE TO TEST AND PRESS ANY"::" KEY TO CONTINUE"8A$::DK$;"OPEN FRESH MEAT":DK$;"WRITE FRESH MEAT"81:"TESTOR OF BENCH":HD:AG:CH:/TEST ADVENTURE26:14::"TEST ADVENTURE"::6\612::"R";::"ETURN TO MAIN MENU":612::"A";::"DVENTURE WITH REG. CHAR.":612::"T";::"EST CHARACTER":680006:"R";:22::CMD$6CMD$(13)CMD$"R"6X13:CMD$$(I)"NONE"13280v3WN$(I);17(WN$(I)));WO%(I);"%";6(WO%(I)0)((WO%(I))9)((WO%(I))99));WD%(I);"D";WS%(I);33(WS%(I)9));WO%(I)2AGEAWA%(WT%(I));"%"3I324::" PRESS ANY KEY TO CONTINUE ";::A$:31006 //80^3"SKIN";:13190-h3"LEATHER";:13190Br3"CHAIN";:13190W|3"PLATE";:131903(" AND SHIELD",110(AC2(AC2)));" AE=";AE;"%"3" "3"WEAPON INFORMATION:"3"NAME COMPLEXITY DAM ODDS"3" "3I143WNAMET ";SA%(1);" HEAL ";SA%(2);" SPEED ";SA%(3);" POWER ";SA%(4)_,3" ":13);"WEAPON ABILITY"63"AXE ";WA%(1);9);"BOW ";WA%(2);9);"CLUB ";WA%(3)@34);"SPEAR ";WA%(4);10);"SWORD ";WA%(5)J3" "T3"ARMOUR: ";:(AC2)113150,13160,13170,1312 DISPLAY CHAR2:10=220000:FOUNDİ20100:4000G29000[2:"NAME: ";NA$2"SEX ";SEX$;3);"GOLD ";GOLD;3);" IN BANK ";BANK2" "3"HARDINESS ";HD;" AGILITY ";AG;" CHARISMA ";CH3" "313);"SPELL ABILITY"?"3"BLASW *** CHAINING HELLO)*** 4/7/97?*** DOUG TRUEMANU((4);"RUN HELLO" :}A]]M迌сر*>"*>">>$$>0<"<$">$<$"$ȁ$>*">$">""Ġ"*"*  "  """""" <"""""*$" "<ρÁ㣞*"">"**" <   """""*"<a]U]Uȁؿكș*""*""""$$"0·޿ " $"">$ $ "$$"*<" $""<"ᗠ"*"&<" ""< Ƈ&<< "< "THIS IS NOT THE MASTER DISKETTE."S,21::"ERROR";::":";ERR;" -IN LINE ";LN,:7:"";:A$::100LL ABILITIES*+jm BLAST,HEAL,SPEED,POWERJ+tm AXE,BOW,MACE,SPEAR,SWORDa+`///ERROR ROUTINESp+jERR(222)+tLN(218)(219)256+~ERR6ERR5LN4040ė:10:5:"DISK DOES NOT CONTAIN PROPER":10:"CHARACTERS FILE."",ERR6LN350ė:10:5:OW/MACE/SPEAR/SWORD4*e MACE,3,10,1,4: 1ST WEAPONV*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 ABIL. +i 0,45,0,65: DEFAULT SPETIME11000:TIME:DK$;"CLOSE":4)NDK$;"CLOSE":I)e TESTOR: NAMEv)e 20,18,16: HARDINESS/AGILITY/CHARISMA)e 50,90,60,50: BLAST/HEAL/SPEED/POWER)e 30 : ARMOUR EXPERTISE)e 4: ARMOUR CLASS*e 40,10,55,15,40: WEAPON ABIL: AXE/BAR3(*N"NAME OF ADVENTURER:";NA$:NA$""FOUND0:(/NDK$"OPEN CHARACTERS.EXT,L256":DK$"READ CHARACTERS.EXT,R0":NC:REC1NC:DK$"READ CHARACTERS.EXT,R";REC:N$(4NN$NA$Ă:DK$:FOUND0:(>NFOUND1:DK$:!)N:10:10::"CHARACTER NOT FOUND"::";!'JGA$:A$"Y"A$"N"18250/'TGA$"Y"ı:'^G18050V'8J /// READ DEFAULT CHAR~'BJ:NAME$:HD,AG,CH:X14:SP%(X):'LJAE:AC:X15:WA%(X)::X14:WN$(X),WT%(X),WC%(X),WD%(X),WS%(X):'VJSEX$,GOLD,BANK'`JNM$NA$'jJ( N /// FIND CH:958::AC(A$):AC&GX15&"G9X:958:WT$(X);" EXPERTISE (0-100%) ";WA%(X);:(36)((WA%(X)))1:"";A$:(A$)0(A$)10018210&,GA$""A$(WA%(X)):(37):(WT$(X))21:A$&6GWA%(X)(A$):'@G::" IS THIS ACCEPTABLE? (Y/N) ";::" SHIELD ONLY":" 2. LEATHER":" 3. LEATHER AND SHIELD":" 4. CHAIN MAIL":" 5. CHAIN AND SHIELD"%F" 6. PLATE ARMOUR":" 7. PLATE AND SHIELD":"INPUT NUMBER 1-7 : ";AC;(8);%FA$:(A$"1"A$"7")A$(13)18170%GA$(13)A$(AC)&G9:13::2210A$"T"2296"A$"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)"NONE8 :"MARCOS ASKS YOU :2300="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$":Lĺ"MARCOS 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":2294S, '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.":100YL(W$,5)"SWORD"(W$,5)"SPEAR"(W$,4)"MACE"(W$,3)"BOW"(W$,3)"AXEP;" GOLD PIECES FOR IT, TAKE IT OR":"LEAVE IT!'"::"(HIT T OR L) ";dA$:A$"L"ĺA$::2210vA$"T"22607A$::"MARCOS SAYS, 'OKAY, WHAT'VE YOU GOT?"::"(ENTER THE WEAPON NAME)";W$:WW14:WN$(WW)W$Ă::"MARCOS FROWNS AT YOU AND SAY 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"2230HA$::P(50RTIO.5):"MARCOS SAYS, 'THEN I CAN ONLY GIVE YOU":ā̃>"""<<<""<<"<"<<""<""<<<<"<"<A]]c]Á́Ʊ"<"Ã">>Ł<"< < " Ȣ "< "<賐Ї"""" """"""""""""*"""""""""""" ""*"""}]]]]6""""0ύ࿂""" 8""8"8̣ 8 "" 8"""號Ё>""2<><""""""<"""*">"*$>>"2"""**><"""*>"*>""AVERAGE":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:2950L,r "MATCHLESS":DICE((((.55(1))2)10)LY GET 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,2930]+^ ANOTHER NAME?":::28303)% (N$,4)"NONE"ī2210])' (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 USUAL (TYPE IT IN NOW) ==> ";N$x( :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 A$:A$"P"ĺ"PEAR":BP25:N$"SPEAR":TP4:SIDE5:2750I' A$"W"2720r' "WORD":BP50:N$"SWORD":TP5:SIDE8' DICE1:' ///UNUSUAL WEAPONS BY BOB LINDEN' "UNUSUAL"' :"'WHATSA THIS UNUSUAL WEAPON CALLED?'":( "YOU NAME THE WEAPONRESS KEY(S): A B M SP SW OR U :";L&d A$:W15:A$("ABMSU",W,1)Ă:2660l&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$;:7'N'T GIVE CREDIT!'"::2630k%< GOLDGOLDP(50):SH1:"MARCOS TAKES YOUR GOLD AND GIVES YOU":"A SHIELD.":%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 "P HAVE ONE FOR":"ONLY ";P(50);" GOLD PIECES!'"::"(HIT Y OR N)";^$ A$:A$"N"ĺA$::2630p$( 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":"DO 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# SH2630B$ "MARCOS SMILES AND SAYS, 'NOW HOW ABOUT":"A SHIELD? I CAN LET YOUH" "WELL, WHAT WILL IT BE?'"::"(HIT N FOR NOTHING OR L C OR P) ";r" A$:A14:A$("NLCP",A,1)Ă:2530" A$::A125709# PP(100(A2)250(A3)500(A4))TI:PGOLDĺ"MARCOS FROWNS WHEN HE SEES THAT YOU DO":"NOT HAVE ENOUGH TO PAY FORYS, '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.":25:2370 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 SA"FOR IT, TAKE IT OR LEAVE IT.'"::"(HIT T OR L) ";QV A$:A$"L"ĺA$::2210c` A$"T"2390sj A$::2300t :WW14:("ABMS",WW,1)(W$,1)ĴWW2440,2450,2460,2470~ WW BP25:2370 BP40:2370 BP20:2370 (W$,2,1)"P"BPǍ 'YOU NEVER":"BOUGHT ONE FROM ME, REMEMBER?'"::2210B BPBPBP(WO%(T)5)BP2(WO%(T)5):P(BPRTIO.5):PBP4P(BP4.5)5L "MARCOS EXAMINES YOUR WEAPONS AND SAYS,":"'WELL, YOU'VE BANGED IT UP A BIT, BUT":"I CAN GIVE YOU ";P;" GOLD PIECES":, 'HOW ABOUT BUYING A":"WEAPON?'"::"(HIT Y OR N) ";T A$:A$"Y"ĺA$::2050f A$"N"2320v$ A$::2160. :"MARCOS ASKS, 'WELL, WHAT WEAPON YOU":"WANTA RETURN'?"::2635:68 W2W:W14:(WN$(W),(N$))N$Ă:"MARCOS LAUGHS AND SAYS,":"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;MNYGOLDĺ:"THE BALDGOLDMNY: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 DOYOU'RE NOT MAKING SENSE! TRY AGAIN.'"::40608MNYBANKĺ:"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."::1009GOCK SAYS, 'WELL, YOU HAVE ";BANK:"GOLD PIECES STORED WITH ME. HOW MANY":"DO YOU WANT TO TAKE BACK?'":.8"(ENTER THE NUMBER OF GOLD PIECES TO":" WITHDRAW) ";A$:MNY(A$):MNY0MNY(MNY)(MNY)A$ĺ:"THE BANKER SCOWLS AND SAYS,'COME, COME,":"d6NAME$;", MY DEAR ";("GIRLBOY",(SEX$"M")41,4);",":"WHAT A PLEASURE TO SEE YOU! DO YOU WANT"6"TO MAKE A DEPOSIT OR A WITHDRAWL?'"::"(HIT 'D' FOR DEPOSIT, 'W' FOR WITHDRAWL) ";6A$:A$"D"ĺA$::40906A$"W"4030h7A$::"SHYLOABOUT 'CHEAPSKATE ADVENTURERS":"WHO CAN'T MAKE UP THEIR MINDS.'":::1005:"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,"DGOLDP: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"4: "HIM ORDER A DOUBLE DRAGON BLOMB."::1004D J5 :::"AS YOU LEAVE, YOU HEAR HOKAS MUTTERING":"RS WHO":"SHOULD BE TURNED INTO FROGS."::1003& SA%(SP)ĺ"HOKAS SAYS, 'I OUGHT TO TAKE YOUR":"GOLD ANYWAY, BUT HAVEN'T YOU FORGOTTEN":"SOMETHING? I ALREADY TAUGHT YOU THAT":"SPELL!'"::"SHAKING HIS HEAD SADLY, HE RETURNS TO":"BAR."::10040 GOL70,3080,3090,3200/2 "BLAST":PP(3000):3100L2 "HEAL":PP(1000):3100j2 "SPEED":PP(5000):31002 "POWER":PP(100).3 ::PGOLDĺ"WHEN HOKAS SEES THAT YOU DON'T HAVE":"ENOUGH TO PAY HIM, HE STALKS TO THE":"BAR, MUTTERING ABOUT ADVENTURE:5((KK)));KK;:" GOLD PIECES"e1 " POWER ";:KKP(100):5((KK)));KK;:" GOLD PIECES":1 "WHICH WILL IT BE?'"::"(PRESS B, H, S OR P FOR YOUR SPELL,":"OR PRESS N FOR NONE.) ";1 A$:SP15:A$("BHSPN",SP,1)Ă:30402 SP3060,30"Z0 :"'WELL, IT'LL COST YOU. MY FEES ARE:":C2CH(11(1)5):C2C2(C20):RTIO10C20 :" BLAST ";:KKP(3000):5((KK)));KK;:" GOLD PIECES"0 " HEAL ";:KKP(1000):5((KK)));KK;:" GOLD PIECES""1 " SPEED ";:KKP(5000)ERS. FINALLY, YOUHERE A MUFFLED 'AHA!' AND MARCOS EMERGESWITH HIS ARMS FULL."S/ 0 ::"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 A MAGIC SPELL?' A$;:A. A$:A$"P"ĺ"PEAR":BP(BP5):SIDE(SIDE1):TP4:2997S. A$"W"2988}. "WORD":BP(BP10):SIDE(SIDE1):TP5. SIDE3SIDE3M/ :"MARCOS DISAPPEARS INTO THE BACK ROOM. YOU HEAR THINGS BEING DRAGGED ABOUT AND THE RATTLING OF CONTAINBOW, MACE, SPEAR, OR SWORD?"H- "(HIT THE KEY(S), A B M SP OR SW): ";:r- 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.1):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,  PRIME":"ATTRIBUTES!' (PRESS 'Y' TO CHANGE OR":"'N' FOR NO CHANGE)";clA$:A$"Y"A$"N"620uv::A$"N"ı"HERE ARE YOUR NEW PRIME ATTRIBUTES:":::110N THE ADVENTURER,S6,D1":DK$;"READ THE ADVENTURER":NAME$:DK$;"CLOSE"x 2:"THE I:"200":"0":"0"70W14:"NONE":"0":"0":"0,0":H:DK$;"CLOSE"DDK$;"OPEN THE ADVENTURER":DK$;"WRITE THE ADVENTURER":NAME$:R:DK$;"CLOSE"NDK$;"RUN VILLAGE"SX///CHANGE PRIME ATTRIBUTESFb:"IF YOU WISH, YOU MAY CHANGE YOUR256":DK$;"READ CHARACTERS.EXT,R0":NC R1NC:DK$;"READ CHARACTERS.EXT,R";R:A$:A$""Ă:DK$;"WRITE CHARACTERS.EXT,R0":NC1:RNC1DK$;"WRITE CHARACTERS.EXT,R";R:NAME$HD:AG:CH:X14:"0":&"5":"-10":"20":"10":"0":"0":SEX$HIND 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."&DK$;"OPEN CHARACTERS.EXT,LLL NOT":"WORK IN OTHER ADVENTURES THAN WHERE 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 BER BODY.":"SPEED--DOUBLE YOUR DEXTERITY FOR A TIME""POWER--DOES SOMETHING WEIRD. THE EXACT":" EFFECT IS UNPREDICTABLE.":Y:"OTHER TYPES OF MAGIC MAY WORK IN VARIOUSADVENTURES, AND ITEMS MAY HAVE SPECIAL":"PROPERTIES. HOWEVER, THESE WIRN] TO CONTINUE ...";A$:100SDhB(222)5ĺ(4);"RUN THE WONDERFUL WORLD OF EAMON"YD|BHE SEES":"YOU DO NOT HAVE THE GOLD AND STARTS TO":"GRUMBLE ABOUT USING YOU FOR PRACTICE":"TARGET.":100{CGOLDGOLDPRCWA%(TP)WA%(TP)((1)15)::"THE TRAINING INSTRUCTOR DRILLS YOU ON":"THE FINE ARTS OF THE ";N$;"."C100D:"PRESS [RETU2(C20):RTIO10C2BPRP(BP20)::"THE ATTENDANT SAYS THAT WILL BE ";PR:"GOLD PIECES."::"DO YOU WANT TO TAKE THE TRAINING?"B"ENTER (Y OR N) ";BA$:A$"Y"A$"N"7080BA$:A$"N"100jCPRGOLDĺ:"THE ATTENDANT IS IRRITATED WHEN TER THE TRAINING CENTER, THE":"SMELL OF SWEAT GREETS YOU AT THE DOOR."::"AN ATTENDANT COMES OVER AND ASKS IF YOU"Al"WOULD LIKE TRAINING ON THE AXE, BOW, MACE, SPEAR OR SWORD. ENTER 'A' 'B' 'M' 'SP' OR 'SW' ";Av2660BC2CH(11(1)5):C2C YOU ON THE BACK":"AND SAYS, 'Y'ALL COME BACK REAL SOON,":"YA HEAH?'"@zDK$;"OPEN CHARACTERS.EXT,L256":DK$;"WRITE CHARACTERS.EXT,R";REC:200:DK$;"CLOSE"@DK$;"DELETE THE ADVENTURER"@@X ///TRAINING CENTER BY JOHN NELSONtAb:"AS YOU EN NO WEAPONS":5090t?WN$(W);20(WO%(W)0)((WO%(W))10)((WO%(W))100));WO%(W);"% ";WD%(W);" D ";WS%(W)?W:23:16368,0:"(HIT ANY KEY TO CONTINUE) ";:A$::100?G@p:"AS YOU LEAVE THE HALL, THE IRISHMAN":"COMES UP TO YOU, SLAPSb>:A2(AC2):"ARMOUR: ";("SKIN LEATHERCHAIN PLATE ",A271,7);:ACA22ĺ" AND SHIELD";>30);"AE=";AE;"%"::"GOLD IN HAND=";GOLD;", BANK=";BANK">:"WEAPONS";19);"CMPLX DAM":W14:W1WN$(W)"NONE"5090?WN$(W)"NONE"ĺ:" LS--":SM0:S14:SA%(S)ĺ("BLASTHEAL SPEEDPOWER",(S1)51,5);" ";:SM1h=S:SMĺ" NO SPELLS";>::"YOUR WEAPON ABILITIES ARE--":" AXE BOW CLUB SPEAR SWORD":" ";:W15:1(WA%(W)0)((WA%(W))10)((WA%(WA))100));WA%(W);"% ";::EY, PUTS IT IN":"HIS BAG, LISTENS TO IT JINGLE, THEN":"THANKS YOU AND WALKS AWAY."::100a<"<:"YOU ARE THE ";("MIGHTY FAIR ",17(SEX$"F"),7);NAME$::"YOUR ATTRIBUTES ARE:":" HD=";HD;" AG=";AG;" CH=";CH:K="YOU KNOW THE FOLLOWING SPELNKER 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."::100[<GOLDGOLDMNY:BANKBANKMNY:"SHYLOCK TAKES YOUR MONᬠ堠堠堠졠ź蠠䭭栠堠堠䠠衠ᠠ堠젠堠󠠠栠砠嬠堠嬠쩮ᠠ堠嬠򮠠㠠堠ᠠ䍧ȧ젠󬠠蠠򬠠䠠ǧ젠砠砠ᠠ堠󮍠䮠ᠹ󮍠ٍ䠠㠠栠쬠젠󬠠蠠堠讍堠栠䬠堠󮠠󮠠嬍㠠򍱳󩮠堠栠堠欠쩬㠠塍堠䠠č󩠠栠堨䠠Ԡ쩠򠱰栠宍㠠堠譭栠젠󮠠堠栠堠堠宠󬠠堠㠠쮠㠠砠堠嬠堠䩮Ӭ٬󠠠䠠堠Ӎ򬠠蠠䍧堠󠧳ĸ孍姠ﮍҠӍ㠠砠짍򮠠堠젠堠⡩Π堠䠠󮠠嬠젠䠠姭󢮠堨ũ堠䭭䠠䠠䬠堠젨򠠨򬠠堠栱場򠶰宍砠堠栠䮍쬠㠠蠠栱젠堠򍶷ᠠ堠堠蠠堠栠砠堠쬠堠堠嬠堠䮠󬠠栠堠㠠젠䠠堠젠場堠堠󺠠젠䠠㠠砠򿠠쬠嬠䠠栲䠨栠堠砠򬠠堠ᠠ栠󠴰򠴰砠堠栠砠堠笠箠䠧蠠󮠠󺠠󬠠󬠲󬠱䠰󮠨堠堠䠠堠笠젠䠠󠠨󩬠󩬠󠠨󩬠宍󮠠󭭍䠠堠䬠䠠䮍嬠󮠠蠠ԍ蠠䠠䬍󬠠䍭欠堠䬠栲ᠷᠠ砠捰젠쬠㬠堠ᮍᠵ笠蠠栠젠宠ᠠ栵ᠴ󠨵蠠蠠㬍򬠠栠ᠠ젠堠栠㠠󠠠젠堠䮍ᠲ宠젠렠婮栨宠堠ᠠ󭭍砠栠ᠠӠƠҠҠԠōԠӠ̠堠栠堠󩮠嬍䠠堠젠쭭堠젠堠宠堠栠䠠䠠젠쬠젠ᠠ젠젠砠栠堠䠠젠堠䠠젠堠󠠠䠠堠嬠򬠠렠堠䠠짮栠堠堠䬠堠堠堠堠䩬ᠱ堠婬蠠堠嬠򠨱Í砠堠堠堠蠠堠栠堠砠栠堠砠󠠨堠堠堠婺堠򠨵堨젠堠堠堨㠠젠򩮍栠嬠󮠠堠렠栠堠堠젠፧䠠堠򠠠䠠蠠嬍󠲬󠵍栠箍ᠠ堠ΠĠΧ򠠳ĸ堠堠󿩠卲򬠠堰砲嬠젠򮠠栠Š䠠堠堠ŠŬ堠栠堠򠠠堠栠堠堠䮍堠󠠨ᠠ砠孭蠠򠠠䬠嬠蠠䭭砠젠堠䠠䠠󮠠堠堠宍堠䬠砠栠堠쬍젠堠堠栠堠堠䮍젠砠䠠堠宠젠䠠젠砠堠栠䠠堠栠󮍠쬠堠䠠󮠠٠堠堠졍ǠȠӍ堠堠笠󠠠䠠嬠砠堠殍䠠砢硢젠嬠䠠堠堠䠠젠欠堠ᠹ穮ҍ젠젠堠젠젠堠砠堠䠠젠堠栠ᠠ堠栠堠堠砠쬠蠠栠堠󠲰堠젠殍젠堠堠䠸č젠젠젠󮠠堠̍젠箠報Ġ󬠠㬠栠孭栠堠宍򬠠堠젠砨婠堠堠堠젠Ġ栠堨󮍠庍ԍ젠堠堠򮍠쬠堠젠䠠堲ᠠ򬠠󮠠堠砠󮠨嬠ǠӠĠҍ栠嬠孭󠠠宠ᠠ堠ᠠ栠䮠ɠ䠠庠䮠栠堠àԧ婮ᠠ宠嬠렠䬠堠堠堠堠堠宠堠䠠堠蠠塩殍堠ǠΠΠō嬠栠젠󮠠栠젠堠󮠠宍栠堠䠠򮠠嬠ᠠ򡩮ɬ堠젠䠠堠젠嬍렠栠䠠젠堠栠嬠䠠堠䠠뮠栠堠쬠䠠쮍堠塩䠠堠䠠堠ΠҠˮ堠孭堠卨蠠堢â젠נϠ٠Ġ٠٠΍嬠Π堠ɬ𧠠䠢Š̠Ġƍ΢򠠠謠堠堠䠧堠堠䠠蠠󬠠堠󬠠蠠󮠠렠ᠠ蠠젠嬠ɠ򠠠󬠠󬠠ﺍϠ砠堠宠䠠蠠󠠠ɠɍ䠠堠ɍ󮠠ɠ䠠򮠠堠䬠讍䬠䠠堠堠嬠塍ǠŠō砠宍䠠嬠堠堠䠠堠쬠砠󮠠堠砠堠嬠䠠堠嬠󮠠堠蠠뮩Ǡƍ젠䬠宍Šҍ蠠󩬠젨󩬠􍨳䠠󩬠䠠䠠󩮠蠠蠠堠젠堠嬍ᠠ堠쬠孭宍ǠӍ󬠠堠쬠砠宠庠򠨱ᠠ䬠򬠠쬠䠵򮠠堠젠ᠠ栠嬠堠堠䠠쬍栱묠䠠宍卵蠠栱婮嬍堠堠堠嬠󠠠󠠠ĸ䠠栵蠠󠠠栭栠婬蠠ᠠ栰婬䠨嬠Ķ栲Ķᠠ堠堠栠Ĵ堠捲ᠠ蠠ĵ栠ᠠ                    䠠ᠠ䠠宠ᡩ宠ᡩ忍堠砠﬍䠠宠嬠䠠嬠栠堠堠z笠蠠砧堠à䠠纍ŠϠŠҧӠҍᩮ쮍嬠栠宠䬠ᠠź堠쬠堠堠砠婠讠ﬠ򠠨堠蠠蠠堠򡩠Ԡ̠宠堠歍堠٠򠠢ɢ堠箍٠ˠ䮍Ԡᠠ詮䠠䮍䠠άӬŬ׬լĬȬȬԬԬЬΠ젠堠䠠堠󮠠嬠栠堠č٠䠠Р٠䮨堠堠堠堠졩嬠砠ԠŢ栠ᠠ⠠䬠젠堠䮍讠젠䠠젠宠젨婠堠䬍砠宠宠堠䠠堠䠠ŠҧӠō砠ᠠ堠箠堠堠堠󠠠󠠠蠠젠堠堠蠠󮠠栠嬠堠嬠堠堠䠠󩠠堠򡠠쮍Πᠠ宠堠堠ᠠ䠠堠젠䠠䠠宠蠠󬠠󬠠宠䠠Ġ嬠堠䠠堠堠ᠠ䮠򠠠栠桠堠嬍㠠Π䠠䠠젠宠⭍䮍ɠ堠蠠򬠠䠠䬠堠䠠堠䠠宍堠嬠ᠠ孭򬠠Ѝ堠嬠堠嬠場ˮ䠠젠䬠䠠䠠堠򡩮堠堠堠Ӻ젠젠穬렠󮍠ɬ렠嬠ˠàӢ堠󬠠堠嬠堠宠䬠栠讠魍砠堠䠠󮍨堠嬠젠堠堢ӠΠŠĠƠōĠ䬠ᠠ䠠嬍砠砠ﮍ젠䬠ŠϠŠ̠ĠƠ΍Π䠠󮢠堠򠠠婠                                                                  z!#??  ! ŮҮԠ"ҮϮҮԠ ӮԠ î͠! ȠԠ  ήӠ ήŠΠ̠ ŮŠήҮŠ̮ĮŠ׮ӮŠ ٠ נӠ!Ӡ"Ҡ̠Ҡ̮ԠӮԠŠԠ5ήà Ϡ ϮԠŲΠҠ&Š̠ĠƠΠήà"Š>ǠĠŠ ˠŮˠŮŠŲª " 7. ARMOR"W*S$;" 8. SEX":S$;" 9. GOLD":S$;"10. ARMOR EXPERTISE":S$;"11. WEAPON"4S$;"--------------------":S$;"12. DISPLAY RECORD":S$;"13. RETURN TO MAIN MENU">S$;"14. ADD AS A NEW RECORD":S$;"15. CANCEL CHANGES"::" INPUT (1-15) ";I,0)WD%(I,C):WS%(I,0)WS%(I,C):3DD$(0)DD$(C)U :(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$;00hNA$(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)I14: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%(:C1C:5000! /// BY RECORD #9"RECORD NUMBER:";CtCNCĺ(7):"ONLY ";NC;" RECORDS IN FILE.":720:1000C1C:5000 /// NEXT RECORDCNCĺ:14);"END OF FILE.":C0:710(CC1:5000 /// MODIFY RECORD C0SUB1:101. NAME":S$;"2. RECORD NUMBER":S$;"3. NEXT RECORD":S$;"4. RETURN TO MAIN MENU":X4:600:vS1100,1210,1300,510L /// BY NAMEV"CHARACTER NAME:";NA$(0)`I1NC:NA$(I)NA$(0)Ă:(7):"NO SUCH CHARACTER IN THIS FILE.":720:1000 jCIT (1-";X;"):";+lA$:S(A$):S1SX6205vA$:Q /// CONTINUE PROMPT :" (PRESS ANY KEY TO CONTINUE)";:A$::510:" (PRESS ANY KEY TO CONTINUE)";:A$:: /// SELECT RECORD \:6:" SELECT RECORD BY:"::S$;"RECORD":S$;"2. MANIPULATE THIS RECORD":S$;"3. FILE MAINTENANCE"&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:" INPUHE 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:":AS$;"1. SELECT A THE CHARACTERS.EXT FILE IS EMPTY."j :S$;" YOUR ONLY OPTION IS TO":S$;" GENERATE A NEW CHARACTER." ::S$;:" DO YOU WISH TO DO THIS?";A$:A$"Y"8000 9050  /// MAIN MENU ZUP0::FULL0Ģ8:" THE DIMENSIONED ARRAYS ARE FULL; T)"M"SEX$(I)"F"SEX$(I)""380V hD$:D$;"READ CHARACTERS.EXT,R";I:NA$(I):DD$(I)o 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$ " NA$(I)""320 10000R "DD$(I):DD$(I)""NA$(I)"(BAD DATA IN FILE)":400 ,DD(DD$(I)):DD$(I)""DD0NA$(I)"(DEAD)" 6DD0HD(I)DD:330 @HD(I) JAG(I):CH(I) TJ14:SA%(J,I)::J15:WA%(J,I): ^AE(I):SEX$(I):SEX$(I FILE":::440" NNC10: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) NC0420 I1NC D$;"READ CHARACTERS.EXT,R";I:NA$(I) :10T " INSERT MASTER DISKETTE"::" AND PRESS ANY KEY":A$:u /// INPUT DATA FROM DISK  215 D$"OPEN CHARACTERS.EXT,L256":D$"READ CHARACTERS.EXT,R0":NC:D$:216,0:220 216,0:(7)::"UNABLE TO LOAD CHARACTERS3 CHARACTER FILE / MAINTENANCE B - BY - \THOMAS J. ZUCHOWSKI v WINSTON-SALEM, NC  REV. 2/11/90 dI768777:N:I,N:n 104,168,104,166,223,154,72,152,72,96xD$(4):S$" ":7 SPACES W *** CHAINING HELLO)*** 4/7/97?*** DOUG TRUEMANU((4);"RUN HELLO" :ODDS:";WO%(W,0):4260:#UP1:"NEW DICE:";WD%(W,0):4260`#UP1:"NEW SIDES:";WS%(W,0):4260#WW1:W4260,4260,4260,4260,4380##0C1C:C0:SUB1:5000:CC1:# /// CHANGE ARRAY)$NA$(C)NA$(0):SEX$(C)SEX$(0):GOLD(C)GOLD(0):BANK(C)BA00.":S4290,4300,4340,4350,4360,4370,4200S"UP1:"NEW NAME:";WN$(W,0):4260i"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 TURN 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:6;::I14Y 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%(I,0)WO%(I,0))));2AG(0)WA%(I,0)WO%(I,0);"%" !"-----------------":"5. RE(X)ĺ::"INVALID AMOUNT.":38300BANK(0)X::"OLD ARMOR EXPERTISE:";AE(0):"NEW ARMOR EXPERTISE:";X:X0X99ĺ:"INVALID EXPERTISE.":X0:4000UP1:AE(0)X: h:8:"SELECT WEAPON TO CHANGE:"::" NAME TYPE CMPLX DMG ODDS"sUP1::8:"SELECT ONE:"::S$;"1. GOLD IN HAND",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:X0X50000XIN ARMOR"^R S$;"5. CHAIN ARMOR & SHIELD":S$;"6. 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$:W CLUB EXPERTISE:";WA%(3,0):3200Q UP1:"NEW SPEAR EXPERTISE:";WA%(4,0):3200 UP1:"NEW SWORD EXPERTISE:";WA%(5,0):3200 H UP1::" ARMOR CLASS:"::S$;"1. SHIELD ONLY":S$;"2. LEATHER ARMOR":S$;"3. LEATHER ARMOR & SHIELD":S$;"4. CHA,WA%(3,0)o S$;"4. SPEAR",WA%(4,0):S$;"5. SWORD",WA%(5,0):S$;"----------":S$;"6. RETURN TO MENU":X6:600 :S3230,3240,3250,3260,3270,3280 UP1:"NEW AXE EXPERTISE:";WA%(1,0):3200 UP1:"NEW BOW EXPERTISE:";WA%(2,0):3200! UP1:"NENG:";SA%(1,0):3000? UP1:"NEW HEAL RATING:";SA%(2,0):3000l UP1:"NEW SPEED RATING:";SA%(3,0):3000 UP1:"NEW POWER RATING:";SA%(4,0):3000  :8:" SELECT WEAPON ABILITY:":S$;"1. AXE",WA%(1,0):S$;"2. BOW",WA%(2,0):S$;"3. CLUB"00 UP1:CH(0)X:z :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 RATI)ĺ:"INVALID HARDINESS.":24002j UP1:HD(0)X:( :"OLD AGILITY:";AG(0):"NEW AGILITY:";X:X3X300X(X)ĺ:"INVALID AGILITY.":26002 UP1:AG(0)X: :"OLD CHARISMA:";CH(0):"NEW CHARISMA:";X:X3X300X(X)ĺ:"INVALID CHARISMA.":28:(X$)0(X$,1)"A"(X$,1)"Z"(X$)20ĺ:"INVALID NAME.":2200]I1NC:NA$(I)X$ĂNA$(I)X$CIĺ:"THAT NAME IS ALREADY BEING USED.":2200DD$(0)"":UP1:NA$(0)X$:` :"OLD HARDINESS:";HD(0):"NEW HARDINESS:";X:X3X300X(XSRHS2200,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)C"NEW NAME: ";X$W *** CHAINING HELLO)*** 4/7/97?*** DOUG TRUEMANU((4);"RUN HELLO" :::I1NC:S$;" ";I;".";:8(S$):NA$(I);:DD$(I)""Ė21:"(?)";DD$(I);S1:o1S$" ":720:60001X /// MOVE CHARACTER 1bC0SUB1:100062l:"THIS ROUTINE WILL MOVE AN ADVENTURER FROM ONE DISKETTE/FILE TO ANOTHER. THE CHARACTE 0:I1NC.0:"RECORD #";I;": ";NA$(I)m0" KEEP THIS RECORD?";:A$:A$:A$"N"NA$(I)"":UP(I)1s0}060000/// SHORT LIST0I1NC:DD$(I)""S$""00:8:"SHORT LIST:"::S$;"REC # NAME";:S$""Ė20:"OLD NAME";K1HIS DISK? ";A$7/2A$"Y"ĺ::13:"ARE YOU SURE? ";A$I/<A$"Y"6000i/FD$;"DELETE CHARACTERS.EXT"/PNC1:D$;"OPEN CHARACTERS.EXT,L256":D$;"WRITE CHARACTERS.EXT,R0":NC/ZD$;"WRITE CHARACTERS.EXT,R1"::D$:NC0:410//// CHAR LIST/DELETEI:::16)"DONE":I1500:I:60008./// INIT FILET. :6:16::"WARNING":h.I13:(7);:.::" THIS SUBROUTINE WILL DELETE EVERY CHARACTER ON THIS DISK!!!"/(::" DO YOU WANT TO DELETE ALL THE":" CHARACTERS ON TCH(J1))-`K14:SA%(K,J)SA%(K,J1):J-jK15:WA%(K,J)WA%(K,J1):j-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%.:X6:600-,S6100,6800,6200,6400,6600,510?,///LIST FILER,AU1:C0:1300i,8/// CONDENSE FILEu,BI1NC,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)0+AU11300#+SUB1SUB0:,+510I+p /// FILE MAINTENANCE j+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"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:CR" )FAC(C)3A$"CHAIN ARMOR">)PAC(C)5A$"PLATE ARMOR"i)Z(AC(C)2)AC(C)2A$A$" & SHIELD"})d:"ARMOR: ";A$)n" EXPERTISE: ";AE(C);"%")x:"WEAPON INFORMATION:")" NAME TYPE CMPLX DMG ODDS";)I14=*WN$(I,HEAL:";:12:SA%(2,C);:21:"3.CLUB:";:30:WA%(3,C)r(" 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 ARMO(C);:21:"IN HAND: ";GOLD(C)S'"AGILITY:";:12:AG(C);:21:"IN BANK: ";BANK(C)m'"CHARM:";:12:CH(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)4( " NCNC1:CNC:ADD1:UP(C)1:NCFULLFULL05&4610S& /// DISPLAY CHARACTER t&:"RECORD #: ";:SUB1ĺC1;&SUB0ĺC;&15:"NAME: ";NA$(C)&:SEX$(C)"M"ĺ"MALE";&SEX$(C)"F"ĺ"FEMALE";&20:"GOLD:"'"HARDINESS:";:12:HDP(C)1:UP0%4:510%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:+&NK(0):HD(C)HD(0):AG(C)AG(0):CH(C)CH(0)c$ 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) %*UP1UW *** CHAINING HELLO)*** 4/7/97?*** DOUG TRUEMANU((4);"RUN HELLO" :       ΠŠҢԠˤŠŠҢԠŤԠҺԠˤŢԠˤΠî͢ԠˤŠî͢ԠҺԠˤŢΠ14:WN$(J,I):WT%(J,I):WO%(J,I):WD%(J,I):WS%(J,I)::D$K;#D$"CLOSE"Q;#j;' ///ONERR ROUTINE s;'768;$'NC1(222)5NC0:410;.'D$;"CLOSE";8'D$;"OPEN CHARACTERS.EXT,L256";B'410IRAM ***"::&:# /// WRITE RECORD I:#D$;"OPEN CHARACTERS.EXT,L256"k:#D$"WRITE CHARACTERS.EXT,R";I:#DD$(I)""NA$(I)"":#NA$(I):HD(I):AG(I):CH(I):J14:SA%(J,I)::J15:WA%(J,I)::#AE(I):SEX$(I):GOLD(I):BANK(I):AC(I)<;#J1:NCNC1:CNC:UP(C)1:NCFULLFULL0?9|NA$(C)NA$(0):2000X9(# /// QUIT ROUTINE h92#D$;"CLOSE"9<#I1NC:UP(I)1İ91109F#9P#ADDĺD$;"OPEN CHARACTERS.EXT,L256":D$"WRITE CHARACTERS.EXT,R0":NC:D$ :Z#D$;"CLOSE":20:8:"*** END OF PROG80!8@ // GENERATE NEW RECORD I8J:"NAME OF NEW CHARACTER: ";NA$(0)y8THD(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:AC0'9rADDERS.EXT,L256":510@7J1C2:D$;"READ CHARACTERS.EXT,R";J:N$7NA$(C)N$IJĺD$:(7):"THE CHARACTER NAME ";NA$(C):"ALREADY EXISTS IN THIS FILE IN RECORD ";J::70807(:8x:J1C2:D$;"READ CHARACTERS.EXT,R";J:N$:S$;J;". ";N$::D$:70:10:"RECORD #:";I:I(I)IC2I1ĺD$::"THE HIGHEST RECORD IN THIS FILE IS ";C2:7080f6`7700p6j91206t:18:"DONE."::7206/// RETURN6D$"CLOSE"::5:" INSERT ORIGINAL DISKETTE AND PRESS":16:"ANY KEY":A$:7D$"OPEN CHARACT REPLACE BY RECORD #":S$;"3. RETURN TO FIRST MENU":X3:600R5S7400,7500,7080i5:10:"NAME:";N1$5I1C2:D$"READ CHARACTERS.EXT,R";I:N2$:N2$N1$Ă:D$::"I DON'T FIND THAT NAME.":70805D$:7700:75305L/// REPLACE BY REC#\6VD$:IN THIS FILE":S$;"4. RETURN TO MAIN MENU":X4:600N4S7200,7300,7800,7600i4 /// ADD NEW CHARACTERz4*IC21:770044D$"WRITE CHARACTERS.EXT,R0":I:IC:75304/// REPLACE CHARACTER<5:" SELECT METHOD:":S$;"1. REPLACE BY NAME":S$;"2.O RETURN TO THE MAIN MENU.":43A$::A$"C"5103D$"CLOSE":D$"OPEN CHARACTERS.EXT,L256":D$"READ CHARACTERS.EXT,R0":C2:D$34:" SELECT ACTION:":S$;"1. ADD CHARACTER AS NEW":S$;"2. REPLACE EXISTING CHARACTER":S$;"3. LIST CHARACTERS.EXT R MUST BE LOADED WHEN THIS FUNCTION IS EXECUTED."x2v:"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'."3:"HIT ANY OTHER KEY TW *** CHAINING HELLO)*** 4/7/97?*** DOUG TRUEMANU((4);"RUN HELLO" :͍ΠҍҍҍōǍ͍ōҍԍĠҍȍ͍ǠōčōŠҍÍ͍ҍčҍҍΠӍ͍ҧӠҍɍàԍà׍č͍ŠōōŠţčŠ΍ƍ΍ȠǍРōȠЍŠ͍̍׍Ѝ׍ףƍōȠЍȠǍōǍ͍ōĠٍōàčΠōƍ͍ȧӠčԠčΠč̠Ǎ͍ҍ̠Ġ΍Ѝ̠ҍŠύ͍ҍōǍӍW *** CHAINING HELLO)*** 4/7/97?*** DOUG TRUEMANU((4);"RUN HELLO" :ῠȁ6""$" " "  }kI]]਼揿"0ऎ񟈌$؛  $̱>"" > О쁠"  Aw]c]ο"  >>Ɓٍ͍ōōōōٍ͍ōōōō͍͍ōōōōōW *** CHAINING HELLO)*** 4/7/97?*** DOUG TRUEMANU((4);"RUN HELLO" :ΠōCLOSE" DK$;"RUN VILLAGE"T hB(222)5ĺ(4);"RUN THE WONDERFUL WORLD OF EAMON"Z |BDERFUL WORLD OF EAMON"z |BRLD OF EAMON" |BHARACTERS.EXT,L256"9 ZDK$;"WRITE CHARACTERS.EXT,R";REC] d === WRITE EXTENDED RECORD === NAME$:HD:AG:CH:X14:SA%(X)::X15:WA%(X)::AE:SEX$ GOLD:BANK:AC:W14:WNAME$(W):WTYPE%(W):WODDS%(W):WDICE%(W):WSIDES%(W): DK$;""READ CHARACTERS,R";REC:NAME$:HD,AG,CH:X14:SA%(X)::X15:WA%(X)::AEX <SEX$ FGOLD,BANK:AC:W14:WNAME$(W),WTYPE%(W),WODDS%(W),WDICE%(W),WSIDES%(W):W:DK$;"CLOSE" PDK$;"OPEN REC.NUM":DK$;"READ REC.NUM":REC:DK$;"CLOSE":DK$"OPEN C\' NORMAL MAIN HALL CALLED VILLAGE^ VILLAGE HAS EXTENDED CHARACTER FILE MODIFICATIONd q DK$(4)}17000DK$;"OPEN THE ADVENTURER":DK$;"READ THE ADVENTURER":NAME$:REC:DK$;"CLOSE"(100N 2DK$;"OPEN CHARACTERS,L150":DK$;V2,V1)::lD$:D$"CLOSE"0vT11:WAR:T2W6D VERSION A (NORMAL)T:o D$(4):D$;"PR#0"::~V10:7000:A$"+":800:(14:A$"DISTRIBUTED BY":300:6:A$ISSUE$:300:7:A$DISKNAME$:300= 216:A$"THE BIG RED APPLE CLUB":S ANY KEY TO CONTINUE ";::PT$:PT$::6:BW***READ TEXT FILEXD$:D$"OPEN HELLO.TXT":D$"READ HELLO.TXT":ARTICLE:TITLE$(AR,1):V11AR:TITLE$(V1,0):TITLE$(V1,1)::ISSUE$:DISKNAME$:FILE$ bARTICLE$(AR1,14):V21AR1:V1114:ARTICLE$(21(A$)2):A$::*** CENTER LINEU 21:3:"M = MENU R = RUN PROGRAM ";:A$:A$u A$"M"A$"R"Č198:400 3:: *** PRINT BORDERS 1:X140:A$;: *23:X140:A$;::2:X222:1:A$;:40:A$;::+16368,0:22::"PRESARTICAL$(PK,V1):( PK15PKWĉ:70p 21:"PRESS ";::"M";::" FOR MAIN MENU ";::"R";::" TO RUN "; A$:(A$)96A$((A$)32) A$"M"A$"R"Č198:163 A$:A$"R"ĉ::D$:D$TITLE$(PK,0)TITLE$(PK,1) :70 +::" ,(96A$((A$)32)7 A$"A"A$"Z"A$((A$)649)] PK((A$)):PK1PKWČ198:130m PKWĉ:: 2::A$" ":300: 2::A$TITLE$(PK,1):300: 34,3:35,22:32,1:33,36:5:10::32,5:6 PKARāV1114::(I2SUE$)2((I2SUE$)2)I2SUE$I2SUE$" "q P2::A$I2SUE$:300::23:A$" THE BIG RED APPLE CLUB ":300 ZV1T1T2:5:5V1T1: dV19ĺ(55V1);:120 nV1; x:10);TITLE$(V1,1): 21:10:"ENTER SELECTION ";:A$:A$ (A$)300:A$"423 NORFOLK AVENUE":300:A$"NORFOLK, NE 68701":300J <8:5000 F::A$" ":810::2:2::V115:" ";::35:V115:" ";:: K1::A$": :":300:3:300:0 MV113((ISSUE$)2):I2$IS$:V21V1:I2$" "I2$" ":8*** BIG RED APPLE CLUB2*** VERSION 1.3N*** VERSION A (NORMAL)T:o D$(4):D$;"PR#0"::~V10:7000:A$"+":800:(14:A$"DISTRIBUTED BY":300:6:A$ISSUE$:300:7:A$DISKNAME$:300= 216:A$"THE BIG RED APPLE CLUB":     AN":"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?":2650Y:"MARCOS SAYS, 'WELL, I JUST HAPPEN TO":"HAVE THREE ";N$;"S IN, OF VARYINGC2CH(11(1)5):C2C2(C20):RTIO10C2WA$:TR13:A$("BSA",TR,1)Ă:2030tA$::TR2050,2220,2490(WN$(4)"NONE"ĺ"MARCOS SMILES AT YOU AND SAYS, 'THATSA":"GOOD, BUT FIRST YOU GOTTA SELL ME A":"WEAPON. YOU KNOW THE LAW--NO MORE TH":"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 GET":"SOME BETTER ARMOUR?"::"(HIT THE KEY, B S OR A) ";,MON.NAME":DK$;"READ EAMON.NAME":ADNAME$:DK$;"CLOSE"s:5:"YOU ARE ABOUT TO ADVENTURE IN":::ADNAME$:::$DK$;"OPEN FRESH MEAT":DK$;"WRITE FRESH MEAT":REC:200:DK$;"CLOSE":DK$;"RUN ";ADNAME$R::"AS YOU ENTER THE WEAPON SHOP, MARCOSE":REM CHANGED TO 'REM' TO PREVENT CHARACTER FROM BEING ERASED :5:"NOW REMOVE THE EAMON MASTER AND"::"INSERT THE DISKETTE WITH THE ADVENTURE"::"OF YOUR CHOICE."::"PRESS 'C' TO CONTINUE.";:16368,0 A$:A$"C"1020 6DK$;"OPEN EA ԠˤŢŠî͢ԠúԠˤŢԠˤΠȠԢԠˤŠȠԢԠ ԠˤŢԠˤΠŤԠˤΠӮԬ̲ԠˤŠӮԬҢúةԠԠō͠ԠˤΠӮԬ̲ԠˤŠӮԬҢúԠԠˤŢ͠ĠϠͧϠԠҠ͠ǠĠԠˤΠî͢ԠˤԍԠˤΠî͢ԠˤĠî͢ԠúԠˤŢԠˤΠӮԬ̲ԠˤĠӮԬҢúԠŤԠĬǬȺҠؠϠԠةԠҠؠϠ Ҡ͠ϠΠƠ٠ŠҠˠōΠΠƠȠŠӠĮŠΠӍ٠Ӯ٠ӠԠŠԮ٠ōԠҠŠҠŠōԠҠˠŠҠˠōԠԴӍΠȠŠӠĠȠŠĠƠǠ΢Ҡ΢ҠâŠԠ٠ĠŠԠϠçĠ٠٠ōԠҠŠҠŠōԠҠˠŠҠˠōԠԠΠŲ젠㠍堍ԠŠӠҠƠӍӠԠŠӠΠ΍ŲΠҠ΍Š̠ĠƠ΍ԠϠÍŠŲĠΠҠҮ󠠠򠠠堍䠍󮍍   (W):WD/DK$:N/b/el/DK$;"OPEN EAMON.NAME":DK$;"READ EAMON.NAME":ADNAME$:DK$;"CLOSE"v/:5:"YOU ARE ABOUT TO ADVENTURE IN":::ADNAME$:::/DK$;"OPEN FRESH MEAT":DK$;"WRITE FRESH MEAT":1:12080:DK$;"CLOSE":DK$;"RUN ";ADNAME$SE"\/:"INSERT ADVENTURE DISKETTE INTO DRIVE 1"::" AND PRESS ANY KEY TO CONTINUE";m&/A$::121100/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%DES%(X):XQ#EA5(AC2(AC2)):AC1EAEA10:AC3EAEA10:AC5EAEA40i#EAEAAE:EA0EA0z#DK$;"CLOSE"&. /// ADVENTURE.:10:20000:FOUNDİ20100:14000.9000/DK$;"OPEN REC.NUM":DK$;"WRITE REC.NUM"REC:DK$;"CLOCLICK110:S(Q):CLICK:TIME110:TIME:BUZ:7T\(#DK$;"READ CHARACTERS.EXT,R";RECe2#NA$s<#HD,AG,CHF#X14:SA%(X):XP#X15:WA%(X):XZ#AEd#SEX$n#GOLD,BANKx#AC #X14:WNAME$(X),WTYPE%(X),WOODS%(X),WDICE%(X),WSI;N:N$N$""ĄN2$EDK$:"#";N;": ";N$;:N$""ĺ"(";N2$;")";K(N20)N20ĺ:8:"";:A$::N:DK$;"CLOSE"::8:"";:A$100@::20:15:"SELECT:";1JBUZ12:8000:4090CMD$:CX:X6:G"C100,17000,13000,14000,15000,16000QJ8000[T4090c^:uhDK$"CLOSE": ///DISPLAY & CHANGEDK$;"OPEN CHARACTERS.EXT,L256":DK$;"READ CHARACTERS.EXT,R0":NC:N1NC:DK$;"READ CHARACTERS.EXT,R"CHARACTER":112::"S";::"EE CHARACTERS":Y12::"T";::"EST AN ADVENTURE":s12::"E";::"ND":12::"R";::"ESURRECT A CHARACTER":8000:"M";::22:CMD$CMD$(13)CMD$"M" X16:CMD$("MASTER",X,1)Ă:S FILE."::"ENTER A NEW NAME: ";NA$:DK$;"CLOSE":3520 DK$;"WRITE CHARACTERS.EXT,R";REC:12080:RECNCĺDK$;"WRITE CHARACTERS.EXT,R0":REC DK$;"CLOSE":100///OTHER MENU7:95812::"M";::"AIN MENU": 12::"A";::"DD A SKETTE TO RECEIVE CHARACTER"::" AND PRESS A KEY ...";E A$: DK$;"OPEN CHARACTERS.EXT,L256":DK$;"READ CHARACTERS.EXT,R0":NC:REC1NC:DK$;"READ CHARACTERS.EXT,R";REC A$:A$NA$Ă:35507 :DK$:6:"THAT CHARACTER IS ALREADY ON THI10::"CHARACTER TRANSPORTING":J 6:12::"M";::"OVE A CHARACTER":r 12::"R";::"ETURN TO MAIN MENU"| 8000 CMD$  CMD$"M"3500  CMD$"R"100  8000 & 3060 20000:FOİ20100:100 9000; :6:"INSERT DIER"::6$ 20000:FOİ20100:100 DK$;"OPEN CHARACTERS.EXT,L256":DK$;"WRITE CHARACTERS.EXT,R";REC::DK$;"CLOSE"::8:12::"CHARACTER DELETED.": 100:FOR TIME = 1 TO 2000: NEXT TIME: GOTO 100 ///MOVE A CHARACTER 16368,0: E"0 X15:CMD$("EAMON",X,1)Ă:8000:210D CMD$:CX:X5:d C1000,2000,3000,4000,5000n 8000w 220  /// ENTER EAMON DK$;"RUN THE WONDERFUL WORLD OF EAMON"  /// ASSASSINATE 16368,0: 8::"ASSASSINATE A CHARACT"E";::"NTER THE WORLD OF EAMON":Q 12::"A";::"SSASSINATE A CHARACTER":x 12::"M";::"OVE A CHARACTER": 12::"O";::"THER MENU": 12::"N";::"AMES OF CHARACTERS": 8000 :"E";::22 CMD$ CMD$(13)CMD$":DS%(X):: FR(X)((1)X1):A(X)R(X)R(X)R(X)` PX14:SN$(X)::X15:WT$(X):t d /// MAIN MENU n::15::": :":15:" EAMON MASTER ":15:" MENU ":15:": :": o958 s16:CP$:# x7:12::$EAMON MASTER MENU=BY JON HENG & JOHN NELSONC_REVISED BY RON MALEIKAetREV 09/85z EXTENDED CHARACTER FILE MODIFICATON 4/89 (REV 8/85)  DK$(4):60000Q16336 219000:X15:DW%(X)::X14               $:SP15:A$("BHSPN",SP,1)Ă:3040G1 SP3060,3070,3080,3090,3200e1 "BLAST":PP(3000):31001 "HEAL":PP(1000):31001 "SPEED":PP(5000):31001 "POWER":PP(100)d2 ::PGOLDĺ"WHEN HOKAS SEES THAT YOU DON'T HAVE":"ENOUGH TO PAY H));KK;:" GOLD PIECES"X0 " SPEED ";:KKP(5000):5((KK)));KK;:" GOLD PIECES"0 " POWER ";:KKP(100):5((KK)));KK;:" GOLD PIECES":0 "WHICH WILL IT BE?'"::"(PRESS B, H, S OR P FOR YOUR SPELL,":"OR PRESS N FOR NONE.) ";&1 A'SO YOU WANT OLD":"TOKEY TO TEACH YOU A MAGIC SPELL?'"/ :"'WELL, IT'LL COST YOU. MY FEES ARE:":C2CH(11(1)5):C2C2(C20):RTIO10C2/ :" BLAST ";:KKP(3000):5((KK)));KK;:" GOLD PIECES"0 " HEAL ";:KKP(1000):5((KK)THINGS BEING DRAGGED ABOUT AND THE RATTLING OF CONTAINERS. FINALLY, YOUHERE A MUFFLED 'AHA!' AND MARCOS EMERGESWITH HIS ARMS FULL.". 7/ ::"AFTER A FEW MINUTES DILIGENT SEARCHING,":"YOU FIND HOKAS TOKAS, THE OLD MAGE. HE":"LOOKS AT YOU AND SAYS, 9972- "MACE":BP(BP4):SIDE(SIDE2):TP3:2997<- A$;:w- A$:A$"P"ĺ"PEAR":BP(BP5):SIDE(SIDE1):TP4:2997- A$"W"2988- "WORD":BP(BP10):SIDE(SIDE1):TP5- SIDE3SIDE3. :"MARCOS DISAPPEARS INTO THE BACK ROOM. YOU HEAR ME WHICH WEAPON YOUR UNUSUAL WEAPON IS MOSTLIKE: AXE, BOW, MACE, SPEAR, OR SWORD?"~, "(HIT THE KEY(S), A B M SP OR SW): ";:, A$:W14:A$("ABMS",W,1)Ă:2960, W2970,2975,2980,2985, "AXE":BP(BP5):TP1:2997- "BOW":BP(BP8):TP2:2àϠúԠˤĠӮԬҢúԠΤӮԬҰԠúԠˤŠӮԬҢà ԠˤŠӮԬҰԠàԠˤŢϠԠˤΠӮԬ̲ԠˤĠӮԬҰԠúҠӮԬҢҺԠΤԠŤԠˤŠӮԬҢҺԠԠˤŢԠԠ٠̬ԠՠŠΠĮϠԠˤΠӮԬ̲ԠˤĠȠԢԠˤŠȠԢԠ ԠˤŢԠˤΠŤԠˤΠӮԬ̲ԠˤĠӮԬҰԠÍҠҠϠúԠˤĠĠӮԬҰԠúҠΠϠúԠˤĠӮԬҢκԠΤԠˤĠӮԬҢÍԠˤΠî͢ԠˤŠî͢ԠúԠˤŢԠˤΠԬҰԠúҠàϠúԠˤĠӮԬҢÍԠˤŠӮԬҢú ƠààΠԠˤŠӮԬҰԠÍԠˤΠӮԬ̲ԠˤԠˤΠӮԬ̲ԠˤŠӮԬҢúԠԠˤŢŠ  ŠԠҠĮ̠ԠˤΠӮԬ̲ԠˤĠӮ     ԠˤΠӮԬ̲ԠˤĠӮԬҰԠúԠˤҠҠϠúԠˤĠӮԬҢҺԠƠŤΠ ԠˤΠŬӶıԠˤ FINGERS!'":"THE MAN THEN SPINS AROUND AND RUNS YOU":"THROUGH WITH A SPEED YOU HAVE NEVER":"SEEN BEFORE! (AND NEVER WILL AGAIN.)":SED BY JOHN NELSON d(4);"MAXFILES 8" n:DK$(4):DK$;"BLOAD EAMON.PIC,A$2000":16304,0:16297,0:E!!":CNT3ĺ"THE MAN CUTS ONE OF YOUR FINGERS OFF!!":"HE THEN EATS IT!!!!":"THEN HE SAYS 'ARE YE READY T' TALK NOW?":CNT13ĺ"THE MAN CUTS OFF ANOTHER FINGER!!!":"HE EATS THIS ONE TOO!!":"THE MAN STARTS SLOWLY, 'WELL YE BE ":"OUTTACNTCNT1:CNT1450" 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!!!"CNT2ĺ"I'VE 'BOUT HAD ME FILL O' YER SICK":"SENSA 'UMOR!!":"NOW GIMME YER NAM::"BE! WELL, GO AND HAVE FUN IN THE HALL!'":RT350:DK$;"RUN VILLAGE,S6,D1"^DK$;"OPEN THE ADVENTURER":DK$;"WRITE THE ADVENTURER":NAME$:R:DK$;"CLOSE"hDK$;"OPEN REC.NUM":DK$;"WRITE REC.NUM":R:DK$;"CLOSE": ///NO NAME ROUTINE6A$::" 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"0JDK$::" HE LOOKS UP AND SAYS, 'AH, HERE YE"READ CHARACTERS.EXT,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"290,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$;"NS!'": A$:::" 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$X11000:(16384)155ĂX, 16368,0:@ A$:A$"D"220Q A$"M"190 A$:::" 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 DIRECTIO OF THE CHAMBER IS"~ :"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) "; .EXT,L256":DK$;"READ CHARACTERS.EXT,R0":NC:DK$ 5:" 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 SIDEDK$(4):DK$;"BLOAD EAMON.PIC,A$2000":16304,0:16297,0:16302,0Z 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"1 DK$;"OPEN CHARACTERS +THE WONDERFUL WORLD OF EAMON1FBY DONALD BROWNLyDRAGON PICTURE BY R. PHILLIPSREVISED BY JOHN NELSON EXTENDED CHARACTER FILE MODIFICATION ADDED 4/89 (REV 8/85)d(4);"MAXFILES 8"D n:     }]U]Yп那ȇಠ"<"0ǟ࿈$$فȖ$  描ῠȁ6""$" " "  }kI]]਼揿"0ऎ񟈌$؛  $̱>"" > О쁠"  Aw]c]ο"  >>Ɓ ǟ ȇФ£ۃ㟬Ⴣ Ïئ          "THE PRICE FROM YOU.":-pGOLDP(50)2210{z"HE NOW ASKS YOU, 'NOW HOW ABOUT SOME":"ARMOUR?'"::"(HIT Y OR N) ";A$:A$"N"ĺA$::2210A$"Y"2180A$:2490"MARCOS SMILES AND SAYS, 'COME BACK":"AGAIN SOON!' AS HE SHOOS YOUNE"ĂxT(N$,3)"AXE"(N$,3)"BOW"(N$,4)"MACE"(N$,5)"SPEAR"(N$,5)"SWORD"U((((1)2)4.5)1.9):2140WU2\WN$(W)N$:WT%(W)TP:WO%(W)(5U)(2Q):WD%(W)DICE:WS%(W)SIDES:GOLDGOLDPf"MARCOS HANDS YOU YOUR WEAPON AND TAKES": 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)"NO 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) ";*A$:Q13:A$("GFP",Q,1)Ă:20904A$:PBPBP(Q1)BP2(Q3):PP(P)>PGOLDĺ:"MARCOS SHAKES A FINGERSMILES AT YOU AND SAYS, 'GOOD.":"I GOTTA THE BEST. YOU WANTA AXE, BOW,":"MACE, SPEAR, SWORD, OR UNUSUAL WEAPON?":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);"TR13:A$("BSA",TR,1)Ă:2030>A$::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!'"::2220x "MARCOS 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 GET":"SOME BETTER ARMOUR?"::"(HIT THE KEY, B S OR A) ";C2CH(11(1)5):C2C2(C20):RTIO10C2!A$:E"?:5:"YOU ARE ABOUT TO ADVENTURE IN":::ADNAME$:::$DK$;"OPEN FRESH MEAT":DK$;"WRITE FRESH MEAT":1:200:DK$;"CLOSE":DK$;"RUN ";ADNAME$::"AS YOU ENTER THE WEAPON SHOP, MARCOS":"CAVIELLI (THE OWNER) COMES FROM OUT OF":"THE BACKK$;"CLOSE":5:"NOW REMOVE THE EAMON MASTER AND"::"INSERT THE DISKETTE WITH THE ADVENTURE"::"OF YOUR CHOICE."::"PRESS 'C' TO CONTINUE.";:16368,0A$:A$"C"1020DK$;"OPEN EAMON.NAME":DK$;"READ EAMON.NAME":ADNAME$:DK$;"CLOS%(W):WSIDES%(W):W  PRINT DK$;"OPEN CHARACTERS.EXT,L256": PRINT DK$;"WRITE CHARACTERS.EXT,R";REC: PRINT : PRINT DK$;"CLOSE":REM CHANGED TO 'REM' TO PREVENT CHARACTER FROM BEING ERASED DK$;"OPEN REC.NUM":DK$;"WRITE REC.NUM":REC:D(HIT THE KEY FOR YOUR CHOICE, 1-7)";G A$:CMD(A$):CMD1CMD7130z 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):WDICEUR." 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:"WNAME$(W),WTYPE%(W),WODDS%(W),WDICE%(W),WSIDES%(W):W:DK$;"CLOSE"Z PP(X)(XRTIO.5) d:"IN THE MAIN HALL, YOU DISCOVER":"YOU CAN DO ONE OF THESE THINGS:"::" 1. GO ON AN ADVENTURE.":" 2. VISIT THE WEAPON SHOP FOR WEAPONS AND/OR ARMOAME$:REC:DK$;"CLOSE"T #DK$;"OPEN REC.NUM":DK$;"READ REC.NUM":REC:DK$;"CLOSE"^ (100 2DK$;"OPEN CHARACTERS.EXT,L256":DK$;"READ CHARACTERS.EXT,R";REC:NAME$:HD,AG,CH:X14:SA%(X)::X15:WA%(X)::AE <SEX$B FGOLD,BANK:AC:W14:Z<MAIN HALL+BY DONALD BROWN17=LREV 12/84 EXTENDED CHARACTER FILE MODIFICATION ADDED 4/89 (REV 8/85)  (4);"MAXFILES 3"DK$(4)17000 DK$;"OPEN THE ADVENTURER":DK$;"READ THE ADVENTURER":N                   ŠϠŠ̠ĠƠ΍Π䠠󮢠堠򠠠婠            !!! ! ! ! ! !!!!!!!!!""" " " " " """""""""                             '": :DK$;"CLOSE"2 :::DK$;"CATALOG": R=CIOU[ o DK$(4):C3232z1000 :5::11:"EAMON PLAYER'S MANUAL"::::"PRESS 1 FOR MANUAL TO PRINT--"::" 1. PLAYER'S MANUAL"::" 2. QUIT - CATALOG": "TO 1 IF YOUR PRINTER CANNOT ACCEPT":"LOWER-CASE CHARACTERS AND 0 OTHERWISE,":"AND SET LL TO YOUR LINE WIDTH LESS ONE.":"LINE WIDTH MUST BE AN EVEN MULTIPLE OF":"40, SO LEGAL LLS ARE 39,79,139,ETC." :"FINALLY, YOUR ROUTINE MUST DO A 'RETURN͍ԠˤŠӮԬҢҺԠŤԠˤΠŢԠˤΠӮԬ̲ԠˤĠӮԬҰԠÍҠҠϠúԠˤĠӮԬҢҺԠƠΠԠԠˤŠӮԬҰԠàҠàŠΠҠӮŠԠΠŠҠԠȠŠ٠ǮĠԠĠĠҠĠϠ̠Π֮ŠĠŠϠӠҠĠŠϠٍŠĠŠϠӠҠĠԠƮǠΠĠ٠ҠĠΠӠԍ٠ǠӠŠΧΠƠȠŠҠȮ٠ӠΧΠ٠ĠҠŠΠϠϮǠӠΧҠ̠ŠӠΧРĠ̠٠Ġ̠ԠӠҠҠήǠϠŠӠΠˠӠŮǠΠ٠ӠŠԠҠǠŠӠ׭ԭ̠ӠƠŠנӠ̠Ϡ͠ήƠŠӠŠŠŧӠǠϠԠӠԠŮŠĠŠϠӠҠĠΠΠήĠҠΧǠӠĠŠΠԠΠǮŠΠӠŠΠҠŠԠŠ̮ŠĠŠϠӠҠĠŠϠٮǠҠӠϠϠΠǠŠӠƠӮǠέӠӠĠŠϠĠ͠٠ŠčŠӠŠӠϠȠҠ