]_^_]]]\_]^_]\]]_^]\_]\]]_\_\\]_]]]\_^^^^Z^]\]\\]\\\_^_^^__\\_\]^\__]__\]]_Y]_]w_]]_^]_]^]\_]\]]_]^]\_\____]^^\]]]]_^]]]]]_^]]_\__\\\\\\]_\\_\]_\]_\\_\_^^^\_\]_^]^]_\_\\\\\]\_\\\\\\]\]]]_]\]\_]]]_]__\]\\]ZX\_XX_^^_\_\^]\]\][\_\\^_^\]\X]_XP. ,   ,/ . , , - ,  ,   -,  , , -  / ,  , , ,  ,   // - -.- / .,- / .    ,  , ,  , ,,  / ., .   , , /- .- ,     /)$&$$$'%$&$&%$$&$$$$$'%$&$&%'$$$$$$'%$&$'%$$'%&$&&%$$$'%&$$$$$$$&$$$&$'$$$'%%$&%$$'$&$'%$$$'%&'%'%$$$'%&%$$'$$%$$'$$'%$$$'&$&%$$$'%&$$$$'%&%$$$'%$%&%$$%'$%$'$'%'&$$$%%&&$$%&$&%&$$%$$&%%%&$$&$$%%&$&&&$'$&$$%'&%'&%$$$& -( (), ,/(+ (  (-/( )((  ( (/ ((, ((( .( ( (, ) (((( (()(( *((( ( . (- .. (,,-  -( -*,-( (  )  * ((  . ..( , (  ( ) ((+  ) *-) , / (( (+*)-. ( --,  / (,)( ( . ()( )(---  ( ,% + EEbB@GaAbECB``ceCb@A@@AB@@`a`@ccEcb`@bcEABa@cb@cECbAcCaeAdCeBFAbcab@aabB@BAGB@@A``ca`Da@aBdAcACA@Be@aBb`Ab@Da@BB@AbdaG@@c@AG@aGEG`AfEAb@A@a@BA@`@C@fF`BA@@A`A@ecB@c@bFACAbb`BC`bfE@BFBbdCG@`@@AbabbbbAaa@A`E@EDB`edbfbBDcBB@`FABbcecBefB@@@FGB@Cd`gFaB``AG@EEc@G                                                             ܖԔԔ42105Օז֔( ( ( +)* ) *+)(*+( (  *(  )) *))(+(())   *+)#***, +(     ( ))**  (* **(+*()) ( ** ( *  ) ) )( (( ((+(+ ))( (    (+ (( (  ( ) )  -  *- %,(. %FFDLFDFF$DFL&GDDFEGeFELD%EDEFDEDFD$GFEDELDDDENF'FF'DDEDD%DDDEeEDElfDDEDeLFFeE%$EDDdFDgGedDDNLe&EegE$EDEFEMFEEM%G%FEDEDDEEFDEEEDdFFl&EFEFGFFFFFDGdfE&E%EGF$GeDen&DGEGNDG$DD'$edD$E%&DEgED&`fd@@A@Lf@EfcEȈfKdjeIe ʈge@m˺ɊɨJeJb驉ɋd&ɉ$m`fAfJeHdHɬ$Jeˊ$ILب舋ʉ*Ɉ*e(,'讈ʬoeʩ$!N&&$ &$$%%$#,%$$..$&-,&%'--$%/--%%$%$$&$&"$&%&%"&$$&$'$$.-'%&.$.-%,&&!$$&!'!$"&""$!.-,"-,-$&$//(!""$"".$$!"' - # , %-$%$,,, &,/'$+'$%.$&/!'$-%#%/%%--$%$$"!+% %-&%%%$&%$$$&#,&!%-%%$'$&&$&.&&."&,&/%,%/$&%$$&%&$"%%-$&$.'-"" ,%$ &.$$./&$&$"' ,'!$$..& .-/ #$"-  -/./.---,-,, /./,,,-,-..-/- .- -..----.-- -/ -,--,-/.---,. --  ,, - ---,,., ,,  .. - .,/  -, .-,-,-- - ,- --.,/,,.,, -, .--,.,--,,- -,--,.,,,-,,-.,. ,.-,,,--.--,-. . ,- .,,,.,,- --, -- . /,,,-, . - --,,---,,- ., A ALMNILMHLIE@MCEILKHHJOOJHLGHLIJOMNOLHAJMCDHKOMMINLMHKIIHKJHKHIH@HJKEHHHHM IKKKM@IIH@ K HHH HFIH@HHHKHJKHKHAIOFALDAMKHHHIHHH@HH@@HHHHHHHHHH@H@HHHHHHHHHCLH@@HHIHHLMKONLHOKKKLHKKMGLOLJMOMNLMLALIENOMNKKILMDLJKNK LILJLNDK@@             ,       !         .                                  KHJIKJJIHHHJHHIHHHHIKJHKHJ HH HHIHJKKHHK IHJHHHHIHJKKHHK JHJHIIJIHKIJJIIKHJHK IKIHKIJHJI I III KI KIK IIKIHIIJKIJ)IJK) IK IIIHKHIJIJJIKIJKIKIIKIKKHII KH IHHHHHIHHJHHHIKIHIIHIHHIIIIIIHJH KII II HHHHIHIIHIHJIIII IHHHH HIIJI(JH HKHHMLIMLMJ LHH 6>5=4523?Ѐ0000000000000000000000000000000 00000000000008000000000000000000000000080000008000000000 0000000000000000000000000000000;;10>16050076000020000000000000000100@@@@@@@@@P@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@0P8888P0P8088888888088888888880888888888000888080888088080P0P0088PP88808888008888888888888888888800008000080000@@@@@@PPPPPPP@@@@@@@@@@@@@@@  0    0   k`BjjbGHAD`YCpIer`gea@On`eX`ubdySE`FoBjbjMzzrhdYPE`a`Faleu`VrmpppT_pqppyRZJJZPON~TTrqXUPp@bKsHIIz}SXyy_QP`DARC@@S^XtTrR_w@@@rkCHQ`ijmChq`yOq`pTqbd``gnbDdbS\EBppBkChaaijmsxqqiq``dabe``{n|TtrsPUqRpr{SxqRiJ}CHAry_qppTqrF@@NFDTrSW_RTprkChqcij}Sxqsy_qp`Darg`@IGOLJD   -   CKIONHLLMJJINKMHL[^MLHKXHHNIIHKIniMhLOHIKLLJJJMIHHMJMHHJLIIHLJJILI`CbheGEBDE@D@E@CACDEBGC@AGADADABBBBFGB@D@E@FE@D@A@@DG@CD@DEBFCBBB@NBBDBB@GGEB@EAA@BE@AGE@MGCD@ECEFED@C@EDD@AFDBBBBAFD@CEBDAAFLA@D@E@EGCD@EFKEBDAAFF@@ADGCBBBBA@CADD@DG@D@E@GGDC@G@ED@@EEGAABBBBGABNINGL@ID@MAI@GOBK`AGAINCD@IOEAAB@hJlD`aig`@LKoDjjjbDHE`FALEE`IOE`A2pCJXv]COTE`ECDjry\LUwAL@QEaNDIdyYR@sZRFMCOdE@ggtZBHED@Of@mEMobiib`ijlFMCoTE@ypdjbheNdEFInUD@cTadeMendIB`zZFfmSode@a`gDJbhRAd`SUrCCRY@TIB@kJ@FmSDEpQFCDJBhDI`ep]IC}QTCHYB`^Jjf}SODU@BEEDjbHCDBLmC`INDEBBU@D`ATDEM@DEDirjzrDO`SDO@`DHIC`@R_GBA]l`HID`gBECETgbPT969768<104:9769<168:9770<104:971<66:9772<223:9773L`TMi``X@``XOCLvDvSPEAR`@v`HB@`J@C`K`^Lr{ LHN`GO`A@BL``xJDo`qp`TO`sAT`F`M`n``vJSCyLaI`C~H` THE MASTER DISKETTE."@(VǺb(CHARACTER #";C;", TO BE EXACT.)"::bPRESS 'C' TO CONTINUE`TO ADVENTURE"::"OR ANY OTHER KEY TO RETURN TO MENU.";:A$:(`ǭA$"C"ı(jǡ:140(` >>> ADD A RECORDO)j:8:"SELECT GENERAL CHARACTER POWER:":" 1. WEAK CbYOU`ARE`ABOUT`O`TRANSFER`b{NAdzzbTO`AN`ADVENTUREn`IF`YOU`LIVE`THROUGHbzzbTHE`ADVENTUREl`YOU`MUST`RETURN`TO`THISbzzbDISKETTEn"@VhLGzzzbIF`YOU`DO`NOT`RETURN`TO`THIS`DISKETTEbzzbAND`INSTEAD`RETURNED`TO`A`MASTERbzbDISKETTEl`YOU`WOULD`LOSE`A`CHARACTER":"ONESS":" ANY KEY":A$:,&nå50020`&xúD$"OPEN EAMON.NAME":D$"READ EAMON.NAME":DNG$&×:5:"YOU ARE ABOUT TO ADVENTURE IN":::DNG$:&úD$"OPEN FRESH MEAT":D$"WRITE FRESH MEAT":C:&ð5020:D$"RUN ";DNG$&8Dz >>> INSTRUCTIONS'BǗ:ETTE AND PRESS ANY"::" KEY":A$:r% D$"OPEN CHARACTERS,L150":D$"READ CHARACTERS,R0":NC:D$:140%Pò >>> WRITE FRESH MEAT%UíC0ĺ"NO CHARACTER IN MEMORY.":6000:140%ZíUPİ5000 &dð51000::6:" INSERT ADVENTURE TO TEST AND PR:CR:5000:CC3::"DONE.":"PRESS ANY KEY TO CONTINUE";:A$::43000_$ؤ >>> REPLACE BY REC#$⤄"RECORD #:";R:R(R)RC2R142210$줫42120$ >>> RETURN$C0ĺ"NO CHARACTER IN MEMORY.":6000:140/%D$"CLOSE"::5:"INSERT ORIGINAL DISKA$::43000(# >>> REPLACE CHARACTER}#:"SELECT METHOD":" 1. REPLACE BY NAME":" 2. REPLACE BY RECORD #":X2:1000#$S42100,42200#t"NAME:";N$#~R1NC:D$"READ CHARACTERS,R";R:N2$:N2$N$Ă:"I DON'T FIND THAT NAME.":42010E$C3C 1. ADD CHARACTER AS NEW":" 2. REPLACE EXISTING CHARACTER":" 3. RETURN WITHOUT CHANGE":X3:1000}"S41000,42000,43000"( >>> ADD NEW CHARACTER #2C2C21:C3C:CR:5000:CC3:D$"WRITE CHARACTERS,R0":C2::"DONE.":"PRESS ANY KEY TO CONTINUE";:N MEMORY, RETURN":"TO THE PRIMARY MENU BY PRESSING 'R'"P!":";A$:A$"R"140!:5:"INSERT RECEIVING DISKETTE":" AND PRESS ANY KEY":A$:!D$"CLOSE":D$"OPEN CHARACTERS,L150":D$"READ CHARACTERS,R0":C2:D$d""SELECT ACTION:":" 0100,40200,40300! MO$"A":1401 MO$"":140J l >>> MOVE CHARACTER v:"THIS ROUTINE WILL MOVE AN ADVENTURER ":"FROM ONE DISKETTE/FILE TO ANOTHER.":"CHARACTER MUST BE IN MEMORY WHEN THIS ":"FUNCTION IS EXECUTED."8!:"IF CHARACTER IS NOT IY KEY TO CONTINUE)";:A$:l_uA$"U"20010QuMO$"A"ĭUP1UPpz5000:10130dvMOd"A"101s0q vSs140|_v2p010@@`/// SELECT`MODEJ:8:"SELECT ACTIONS WANTED:"zb 1n AUTOMATIC":" 2. MANUALb:" 3.`MOVE`CHARACTERb:X3:1000 TS4N:"3u"NAME TYPE COMP DAM. ODDS":>uX14}uWN$(X);18(WN$(X)));WT%(X);6((WO%(X))));WO%(X);"%";u7((WD%(X))"D"(WS%(X))));WD%(X);"D";WS%(X);5((2AGWA%(X)WO%(X))));2AGWA%(X)WO%(X);"%"uX:u"(PRESS AN);" MACE:";WA%(3)Ilu" SPEAR:";WA%(4);" SWORD:";WA%(5)WquA$"NONE"ovuAC1A$"LEATHER "uAC3A$"CHAIN "uAC5A$"PLATE "u(AC2)AC2A$A$"AND SHIELD"u:"ARMOUR: ";A$;" AE=";AE;"%"u:"WEAPON INFORMATIO GOLD:";GOLD;" ";"BANK:";BANKVDu:"HARDINESS:";HD;" AGILITY:";AG;" CHARISMA:";CH\NuXu" SPELL ABILITY":"BLAST:";SA%(1);" HEAL:";SA%(2);" SPEED:";SA%(3);" POWER:";SA%(4)bu:" WEAPON ABILITY":"AXE:"WA%(1);" BOW:";WA%(2"NEW SIDES:";WS%(W):21102&R211001R20010JS >>> CANCEL CHANGESqSADD1ADD0:UP0:NCNC1:C0:140SUP0:2000:1400u /// DISPLAY CHARACTER5uC0ĺ"NO RECORD IN MEMORY.":6000:140:u:"NAME:";NAME$;" REC:";C::"SEX:";SEX$;" . SIDES",WS%(W)NoR" 6. NEXT WEAPON":" 7. END OF WEAPON CHANGE":X7:1000pRS21110,21120,21130,21140,21150,21160,21170vR"NEW NAME:";WN$(W):21102R"NEW TYPE:";WT%(W):21102R"NEW ODDS:";WO%(W):21102R"NEW DICE:";WD%(W):21102RELD"4R"(CURRENTLY ";AC;")":X7:1000:ACS:20010lR:8:"SELECT WEAPON TO CHANGE:":X14:" ";X;". ";WN$(X)::X4:1000mRWS:nR"SELECT FIELD TO CHANGE:":" 1. NAME",WN$(W):" 2. TYPE",WT%(W):" 3. COMP.",WO%(W):" 4. DICE",WD%(W):" 5 Lc ꠕg`+N\ թ GMI#J#v%m&V'B(+/0pr|t9aSwyN L^#OLD`NAME:@#T`H`y` N`LcNEW`NAME:@#x`@ 9 DK ^ թ9    բl + ꠕ9 L#A W #  l l + ꠕ9 L#Zb`qpn`ARMOUR`CLSS@biA`yH`SN`{ZLvb`qqn`WEAPON`CHANGE@`bic`yH`SN`{Z`NiH`yNLab`qrn`DISPLAY`RECORD@`biM`yH`S`{ZLJb`qsn`RETURN`TO MAIN`MENU@`biq`yH`S`{ZLnb`qtn`CANCEL`CHANGES@`biZ`yH`SN`{ZLL"INPUT`hqmqtiz@`bi~`yH`Bi@`TJi@ECUi_`9K`^L`N)R`9L"@" ꠩   L! 3. AGILITY!   L8! 4. CHARISMA!*   ڠN4 Ld! 5. SPELL ABILITIES!O   L! 6. WEAPON ABILITIES!t   L! 7. ARMOUR EXPERTISE!   ڠN> L! 8. SEX CHANGE!   L! 9. GOLD!   L ) y S ) qLa')& 9 'L# A !  , Lw9') 9La N 9)%  )% " /PL L O CHARACTER IN MMORY. )h y  {Z -La N*  X| 9 y S {ZLD INPUT FIELD TO CHANGE: )-  S {ZL^ 1. ME )T y  L 2. HARDINESS K`^ gt`N b`HCLKL{_THERE`ARENgT THAT`MANYa@_c`H`N`L^g~`N`gLZ_A@_X`Hl`ICL9g`NLaSg`g`NU`b`b`k`b`HCLT`L_END`OF`FILEn@_`H`N`U`b`b`kL@`PRESS`ANY KEY TO CONTINUE ^RED`CHAACTESlR`^iB`yH`SN`ib`9j`nm`{Z`Bi@ "J`iU`DK`^L`Uiy`yH`RiU`hI%]PCL!`vJibU~RLY]L}^I`CANgT`FID`THAT`CHARACTERn@`)``y`SN`{Z`UiW`9H`S {Z`U)n`qNL!S`giV`yN`gVLp^`^i.`yH`Ril`V %]pCLwy`gi``yNLaS`gij`yNLh^RECORD`NUMBERz@`^)Y`y`B)@ TJiCb   L 2. RECORD NUMBER   L= 3. NEXT RECORD,   LR@M ꠕ + Y'.  G |}y'8 9'B LCHARACTER NAME:  9 D ^ 'L  ꠕb + ꠒ~ +'L LREAD CHARACTERS,R     `  ꠕg + ꠒ +`p z  wL^PRESS ANY KEY TO CONTINUED   s򠕩 q ڠ `' ' g ꥝L '$ L@ Lo L_SELECT RECORD BY:   L 1. NAME ꠒ +  ꠒ)  ڠ ꠒ . ڠ ꠒ . ڠ ꠒ . ڠ ꠒ . 6 餕L    ڠ  ꥝L LWRITE CHARACTERS,R0  LWRITE CHARACTERS,R0   ڠ . ڠo`yj`nm`{Z`Uijy`nm`Z`Us`y`U`kQi[`jbM`k`S\`yN`Ud`y`Ui`eM`n`{Z`vJSidURZ`Uis``bd`kk`Q`yRH`k`Si\N``yjit`M`nm`{`vJSdHLuZ`S`yNTi`yjn`ԩ   ڠ . ڠ . ڠ . ڠ  ꠕ +[ L   ڠ `  L.DUMMY( 9 L LrI DON'T ALLOW 'DUMMY' FOR A NAME.P   hh -La LWRITE CHARACTERS,R  LWRITE CHARACTERS,R  b . ڠ 9   ڠ4 . ڠ  ꠕ +[ ꠔ +  ꠒ) l 1l A ^  ꠒ Nl 1Cl ^  ꠒ Nl 1Cl ^  ꠒ Nl 1Cl ^  ꠒ Nl 1Cl ^ 6 餕 ꠕ Nl 1Cl ^ 6 餕%L ꠕ + ꠕ +  ꠔ Nl 1Cl ^ 6 餕 LS  C ^  D ^  C ^  C ^  C ^ :WN$(X)"NOE":%()0:W%(X)0:WS%(X)0:WO%(X)0:e+$"DUMMY":AE0:UP1:ADD1:CNC1:NCNC1:|+0 /// QUIT ROUTINE+:UPİ5000+N$" OE":WA%(3)40:WA%(4)14:WA%(5)10(*260500u*HD22:AG22:CH22:AC4:WA%(1)20:WA%(2)20:WA%(3)50:WA%(4)20:WA%(5)40*60500*HD80:AG80:CH80:WA%(1)50:WA%(2)50:WA%(3)70:WA%(4)40:WA%(5)60*605004+TX15:SA%(X)0::GOLD300:BANK0:X14HARACTER":" 2. AVERAGE NORMAL":" 3. HIGH CHARACTER":" 4. SUPER CHARACTER"t)t1000:S60100,60200,60300,60400})~140)HD10:AG10:CH10:AC0:WA%(1)5:WA%(2)0:WA%(3)20:WA%(4)10:WA%(5)0)60500*(HD16:AG16:CH16:AC2:WA%(1)8:WA%(2)4:2   L3 1. SHIELD ONLY3   LC3 2. LEATHER ARMOUR3/   Lp3 3. LEATHER ARMOUR & SHIELD3S   L3 4. CHAIN ARMOUR3   ڠR L3 5. CHAIN ARMOUR & SHIELD3   L3 6. PLATE ARMOUR3   L4 7. PLAT%2 L2INVALID GOLD.2   Lt1Q L Q LK2HOW MUCH IN BANK:29  C ^  ꠔ q +1 ꠔ q q +렔 #젔 q L2 L2INVALID AMOUNT.2   L/2Q L R L2ARMOR CLASS:ND0   ~ . L01 2. GOLD IN BANK1   ~ . LR11M ꠕ + Y G s1t1/2Q L1HOW MUCH GOLD:1~  C ^  ꠔ L1@q +1 ꠔ q q +렔 #젔 q L/  C ^  ꠑ L200q +0- ꠑ q L{0Lk0INVALID EXPERTISE.0X   L/P  ꠔ +L Q@ L0M0  L0L0F0  W L QJ L0M0  W L Q L1 1. GOLD IN HA q L/ ꠔ 'P L P LG/NEW SWORD EXPERTISE:/2  C ^ Lk/ /f ꠑ q +렑 #접 q L/ ꠔ 'P L P L/OLD ARMOUR EXP:/   . L0NEW ARMOR EXPERTISE:L. ꠔ 'P L P L9.NEW MACE EXPERTISE:.%  C ^ - ꠑ q +렑 #접 q L. ꠔ 'P L P L.NEW SPEAR EXPERTISE:.  C ^ - ꠑ q +렑 #접(/P L-NEW AXE EXPERTISE:-  C ^ LB-4-= ꠑ q +렑 #접 q L- ꠔ 'P L P L-NEW BOW EXPERTISE:-  C ^ L-p- ꠑ q +렑 #접 q Y:+   L, 1. AXE,   ~  . LA, 2. BOW,8   ~  . Lh, 3. MACE,^   ~  . L, 4. SPEAR,   ~  . L, 5. SWORD,   ~  . ڠ ꠕ + YPy  G - --.. #접 q L'+ ꠕ 'P7 L P< LM+NEW POWER RATING:+;  C ^ )| ꠑ q +  q q +렑 #접 q L+ ꠕ 'PA L Px  X(O L,SELECT WEAPON ABILITRATING:)  C ^ )| ꠑ q +  q q +렑 #접 q L* ꠕ 'P- L P2 L*NEW SPEED RATING:*  C ^ )| ꠑ q +  q q +렑 R(   ~   . ڠ[ ꠕ + Y G @) A))*1+P L])NEW BLAST RATING:)K  C ^ L)H)| ꠑ q +  q q +렑 #접 q L) ꠕ 'P# L P( L*NEW HEAL L*( L(INVALID CHARISMA.(   LV'O  ꠕ* +L P  XLT((O Lo(SELECT SPELL:(a   L( 1. BLAST(   ~   . L( 2. HEAL(   ~   . L( 3. SPEED(   ~   . L) 4. POWE #접 q L>' L.'INVALID AGILITY.'   Lm&OV  ꠕ/ +L O Ln'OLD CHARISMA:'`  * . L'NEW CHARISMA:'  C ^ M ꠑ q +% ꠑ q q +렑 #접 q q q +렑 #접 q LU& LE&INVALID HARDINESS.&2   Lv%N  ꠕ4 +L OL L&OLD AGILITY:&w  / . L&NEW AGILITY:&  C ^ M ꠑ q +% ꠑ q q +렑 9  L.% 6 餕'L$   L N LY%THAT NAME IS ALREADY BEING USED.%8   ڠ   LJ#N L%OLD HARDINESS:%  4 . L%NEW HARDINESS:%  C ^ M ꠑ L%@q +% ꠑ  W #  l l +렕9   L0$ q +$+ ꠕq l Lw$ Lg$INVALID NAME.$Y   LJ#N  ꠕ +렕 ꠒ' +N L$READ CHARACTERS,R  L$READ CHARACTERS,R$   . ڠ D ^ XL+CTHIS ROUTINE WILL MOVE AN ADVENTURER C   L^CFROM ONE DISKETTE/FILE TO ANOTHER.C;   LCCHARACTER MUST BE IN MEMORY WHEN THIS Cn   LCFUNCTION IS EXECUTED.C   ڠ  LCIF CHARACTER IS NOT IN MEMORY, RETURNCթO L!BSELECT ACTIONS WANTED:B   L@B 1. AUTOMATICB1   L\B 2. MANUALBP   LB 3. MOVE CHARACTERBl   ڠM ꠕ + YT  G BBBB LBAB , W La LBB , W Lal v ڠu L&A(PRESS ANY KEY TO CONTINUE)A   q ڠu LFAUAD  L u LgAAAe , LA ꠕg LA ꠕg + Lyv LAAA , Lyv M ꠕ Lav L @ J  X(! ꠒ .L@D@   ꠒ ./ 1M 頕q +렕 ꠔ q 砕q +렕 ꠒ q *   / 1M 頕q +렕 ꠔ q 砕q +렕 ꠒ q .L@%@   ڠu  6 餕ۑL? ꠕ +[ ꠑ +u u  ꠒ) L>? ꠒ)  ?9 ꠒ . ꠒ *   ꠒ .L?%?  u  ꠒ * L?D?   W ꠒ * W     L)>L>AND SHIELD >  W u  L?>ARMOUR: >6    L]> AE=>V   .Lv>%>t   ڠu  L>WEAPON INFORMATION:>   ڠu L>NAME TYPE COMP DAM. ODDS>   ڠu     . ڠuq L=NONE=  W uv  ꠔ Lc=LU=LEATHER =L  W u M ꠔ L=L=CHAIN =  W u  ꠔ L=L=PLATE =  W u 1M ꠔ f #정q +1M ꠔ fꠕq  .L< POWER:<    . ڠub  LI< WEAPON ABILITY<3   L^   ~ ꠒ . ڠRo L6 6. NEXT WEAPON6t   L6 7. END OF WEAPON CHANGE6   ڠ! ꠕ + YRp  G 6657}778c9m9Rv L7NEW NA   ꠒ)  6 餕L4[ ꠕ + YRm  ꠑ + ڠRn Ls5SELECT FIELD TO CHANGE:5[   L5 1. NAME5   ~ ꠒ)  L5 2. TYPE5   ~ ꠒ . L5 3. COMP.5   ~ E ARMOUR & SHIELD3   ڠR L44(CURRENTLY 4(   .LM4)4K   ڠ! ꠕ + Y ꠔ +L Rl  X(O L4SELECT WEAPON TO CHANGE:4   ڠ ꠕ +[ ꠑ +Rl L4 4   .L4. 4/f ꠔ 'Q ꠔ '- ꠔ ' L4ST  ꠕ + ꠑG +T  ꠕ Nq 1 ꠕq $ 6 餕GLWSLSS ꠔ + ꠔ + ꠕ +[ ꠑB +T  ꠒ) q 1LSNONES q '2 L4S멌 LR0R ꠕ4 +R ꠕ/ +R ꠕ* +[ ꠔ +$+ ꠔ '$+ ꠔ 'LwRHRr ꠔ '$+ ꠔ 'Q ꠔ '멖 L4S LR R ꠕ4 +R ꠕ/ +R ꠕ* +Rr ꠔ 'Rr ꠔ 'ꠕ* + ꠔ + ꠔ ' ꠔ '$+ ꠔ 'P ꠔ ' ꠔ ' L4S( LtQQo ꠕ4 +Qo ꠕ/ +Qo ꠕ* +1M ꠔ +(O ꠔ '[ ꠔ 'LQ Q ꠔ 'LQ`Q ꠔ 'P ꠔ POWER:O   L+P 1. WEAK CHARACTERP   LOP 2. AVERAGE NORMALP;   LsP 3. HIGH CHARACTERP_   LP 4. SUPER CHARACTERP   ڠt  Y A P PeQ RR~ La LP P ꠕ4 +P ꠕ/ +P LOTO AN ADVENTURE.O   ڠǩV  LPOPRESS 'C' TO CONTINUE TO ADVENTUREO-   LOOR ANY OTHER KEY TO RETURN TO MENU.Oc   q ڠǩ` LOCO  LO`ǩj hhL` j  X(O LPSELECT GENERAL CHARACTERESH MEAT  L%NOPEN FRESH MEATN   LFNWRITE FRESH MEAT  LdNWRITE FRESH MEATNS   ڠb . ڠé  LNRUN  LNRUN N  L   ڠǩ8 ǩB  XLNYOU ARE ABOUT TO TRANSFER N  9   ~Léx LMOPEN EAMON.NAME  L;MOPEN EAMON.NAMEM+   L[MREAD EAMON.NAME  LxMREAD EAMON.NAMEMh   ڠ L D ^ é  X LMYOU ARE ABOUT TO ADVENTURE INM   w򠑩L   sé LNOPEN FRꠕb L=LL*LNO CHARACTER IN MEMORY.L   -LaéZ g ꥝L~L L^LCLOSE  LqLCLOSELk   ڠéd  N X LL INSERT ADVENTURE TO TEST AND PRESSL   LL ANY KEYL   ڠ q ڠén    LK KEYK   ڠ q ڠ LUKOPEN CHARACTERS,L150  LwKOPEN CHARACTERS,L150Kb   LKREAD CHARACTERS,R0  LKREAD CHARACTERS,R0K   ڠ C ^   LaéP éU  +렑 ꠑ q q + ꠑ q LI L1I   ꠕb LJLJNO CHARACTER IN MEMORY.Ji   -La LJCLOSE  LJCLOSEJ   X LJINSERT ORIGINAL DISKETTE AND PRESS ANYJԣLHL!II DON'T FIND THAT NAME.I   LG b ꠑ +렑 ꠕb +  ꠕb + LqIDONE.Ik   LIPRESS ANY KEY TO CONTINUEI   q LCJ  LIRECORD #:I  C ^ #접 q #G   ڠ1M ꠕ + Y$  G 6H7HIt LGHNAME:HA  D ^ ~  ꠑ +렕 ꠑ +려~ LHREAD CHARACTERS,R  LHREAD CHARACTERS,RH   . ڠ u D ^ u L1I 6 ACTERS,R0  L*GWRITE CHARACTERS,R0G   ڠ . LPGDONE.GJ   LzGPRESS ANY KEY TO CONTINUEG`   q LCJ   LGSELECT METHODG   LG 1. REPLACE BY NAMEG   LH 2. REPLACE BY RECORD HARACTER AS NEWE   L?F 2. REPLACE EXISTING CHARACTERF   LjF 3. RETURN WITHOUT CHANGEFO   ڠM ꠕ + Y  G FFGCJ( 2  ꠑ 砑 +렕b ꠑ +렑 ꠕb +  ꠕb +L GWRITE CHAR  LECLOSEE   L8EOPEN CHARACTERS,L150  LZEOPEN CHARACTERS,L150EE   L}EREAD CHARACTERS,R0  LEREAD CHARACTERS,R0E   ڠ C ^   ڠ LESELECT ACTION:E   LF 1. ADD C   L/DTO THE PRIMARY MENU BY PRESSING 'R'D   ڠ LHD:DF  D ^ LeDRDc  La  X LDINSERT RECEIVING DISKETTED   LD AND PRESS ANY KEYD   ڠ q ڠ LECLOSE#,OFF.ODDS,W DICE,W SIDESV VALUE,TYPE,WEIGHT,ROOM,W.COMPLEX,W.TYPE,W.DICE,W.SIDES DTINUE":A$::D$"CLOSE":40* /// QUIT;D$"CLOSE":Q@ /// DATA LABELSfJX16:RL$(X):TML$(12):X112:ML$(X):^X18:AL$(X):hr NORTH,SOUTH,EAST,WEST,UP,DOWN| HD,AG,FRIEND,COUR,ROOM,WEIGHT,DEF. ODDS,ARMOUR,WEAPON$"OPEN EAMON.ROOMS,L64"# R1NRv D$"READ EAMON.ROOM NAMES,R";R:RN$:D$"READ EAMON.ROOMS,R";R:D16:RD%(D):~ D$ D$"PR#1" :"ROOM #";R;RN$ X16:RD%(X)0ĺRL$(X);": ";RD%(X) :R D$"PR#0" :"PRESS ANY KEY TO CONAD%(2)1āA258:AD%(A2):/4D$"PR#1":AN$C>A214:2500:cHAD%(2)1āA258:2500:A2vR:A:::1145 /// CHECK AND PRINT AS(A2)ı AL$(A2);": ";AD%(A2)  /// LIST ROOMS  D$"OPEN EAMON.ROOM NAMES,L64":D!!"E :"DO YOU WANT TO RESURRECT THIS CHARACTER?":"(Y OR N):";A$i (A$,1)"Y"(A$,1)"N"1020| (A$,1)"N"Ā D$"RUN CHARACTER REBIRTH" D  D$(4)1000}D$"OPEN THE ADVENTURER":D$"READ THE ADVENTURER":NA$,REC:D$"CLOSE":D$"DELETE THE ADVENTURER"(NA$;" HAS SUCCESSFULLY RETURNED.":D$"RUN CHAR MAINT" /// ADVENTURER DIED "TOO BAD. YOU'RE DEAD.":"AAA-W-W-W-W-W! 砕 +`0 : g ꥝L+U N L;UCLOSE  LNUCLOSEUH   L ꠒ Nq 1 ꠕq $ ꠒ Nq 1 ꠕq $ ꠒ Nq 1 ꠕq $ ꠒ Nq 1 ꠕq $ 6 餕BLS^ LTDUMMYT 9 W  ꠔ + ꠕg + ꠒ + ꠕ 砕b + ꠕ0 FME$(NA$,2)Ă:500x PD$"WRITE CHARACTERS,R";R:NA$:D$"CLOSE"::"O.K. ";NA$;" YOU HAVE BEEN RESURRECTED.": "I CAN'T FIND ANY DEAD ";NA$:D$"CLOSE" R D$(4):Z:5:"INSERT MASTER DISKETTE AND PRESS"::" ANY KEY":A$:D$"OPEN CHARACTERS,L150":D$"READ CHARACTERS,R0":NC:D$("CHARACTER TO BE RESURRECTED:";NA$2R1NC:D$"READ CHARACTERS,R";R:N$:ME$ <N$""Ă:50 )::AE:SEX$c GOLD:BANK:AC:W14:WNAME$(W):WTYPE%(W):WOODS%(W):WDICE%(W):WSIDES%(W):Wt DK$;"CLOSE"D; 8A$:A$"Y"A$"N"10804 BA$:A$"Y"1040: Lu REC1NC:DK$;"READ CHARACTERS,R";REC:A$:A$""2000 REC:RECNC1:DK$;"WRITE CHARACTERS,R0":NC1 DK$;"WRITE CHARACTERS,R";REC NAME$:HD:AG:CH:X14:SA%(X)::X15:WA%(X:" KEY ";" A$:A$"C"1050 $:DK$;"OPEN CHARACTERS,L150":DK$;"READ CHARACTERS,R0":NC:A1NC:DK$;"READ CHARACTERS,R";A:A$:A$N2$Ă:DK$:1500 .DK$::"ALREADY A CHARACTER NAMED ";A$:" ON THE DISKETTE."::"USE A NEW DISKETTE (Y/N)? "ACTERS,R";RECH NAME$:HD,AG,CH:X14:SA%(X)::X15:WA%(X)::AER SEX$ GOLD,BANK:AC:W14:WNAME$(W),WTYPE%(W),WODDS%(W),WDICE%(W),WSIDES%(W):W:DK$;"CLOSE" :"NOW INSERT DISKETTE TO PLACE CHARACTER IN AND PRESS THE ";::"'C'";: INTO SLOT SIX, DRIVE ONE AND ENTER NAME: ";D xN2$:N2$""100 DK$;"OPEN CHARACTERS,L150":DK$;"READ CHARACTERS,R0":NC REC1NC:DK$;"READ CHARACTERS,R";REC:N$:N$N2$1000 REC:DK$:::"CHARACTER NOT FOUND!":: DK$;"READ CHARu///THE WONDERFUL WORLD5/// OF EAMON >///^///CHARACTER MOVER PROGRAMg////// BY DONALD BROWN/// DK$(4)d:5::5:"EAMON CHARACTER TRANSFER PROGRAM":/ n::"INSERT DISKETTE CHARACTER IS CURRENTLY ON      v   ڠv  Q +`   ꠕg +LXREAD CHARACTERS,R  LwREAD CHARACTERS,Re  b . ڠ 9 D ^  C4 ^  C/ ^  C* ^  ꠕ +[ ꠕ% +  L 7. QUIT   L&`! ꠕ + Y  G X}B 9AKO U  LtINPUT (1-j   .L):   v qv  Q Lq + ꠕq q +렕v  Q l +렕 ꠕl q L LSELECT ACTION:   ڠ L> 1. SELECT RECORD+   La 2. UPDATE RECORDN   L 3. DISPLAY RECORDq   L 4. SELECT MODE   L 5. GO ON AN ADVENTURE   ڠ L 6. ADD A RECORD  READ CHARACTERS,R0  L2READ CHARACTERS,R0   ڠ C ^   ڠ  XLsn LEAMON   L LCHARACTER MAINTENANCE   LP LBY JOHN NELSON     x L1 INSERT MASTER DISKETTE   L] IN DRIVE 1D   L AND PRESS ANY KEYp   ڠ q ڠ LOPEN CHARACTERS,L150,S6,D1  LOPEN CHARACTERS,L150,S6,D1   L   # BaU       d L`[ 0 W n  XL  L| L  L|   L}   L}@ FORWARD REFERENCES:MENTS: *>EMSROWKd)%eQP&Q`^$^ II__ &_&^_`L Q+Ɂ')0)#&*&Q$IQQIQPQ`*۠R{i{ȱ{ȱ{k}ȱl~L`Ю꽌ɪФ`*x'8*xx  ')  x) `0Lh= < ȱ< n ة$l<1 <Q%,`h?L+>q?r SՍȄB` <L <Lvu X$# \ۦuv $LW۩L:ۅ <LPQF eP <ee`   f`  j %_`CCh < > p <=Chhl<`>?L >?^ <^ LHH , hh < , qL7 jL _L_^L % L L NL EL $L`h<kl`?>R  kl>`{|{}kȱ{~lL}R莵 `<=hh`ꬵ RLܠk{lȑ{` < L6 < LE,,-`L LW L LW L: <צ` La L <` 0` ꤄klR ` L Z Z ZL {|  kl{Lj  ,C /,7"C湱 : C>睊>"ȱR :, eL Lv$Lhh Z l  # )!,E -+.д J?> R,К hL L <` <` < L( <L8Lh<>``` h L h L h L h L h L h L  <J` BBB` B8塐L BB`  <H S < bM 4352 >?>ȱ>` L >? <L5>?P>ȥQ>`>?LW>? < &$>?Lu>? < & &e몘e쨊e>Pe?QP` `L ` ` ` ` ` `о <= >? I < ` C                                             z"#??        ŠԠؠԠŠԠŠŠŠԠŠŠ ŠԠŠǠΠĠ ήà ؠԠ͠  !ҠŠ"ҠŠŠҠԠOҠҠҠȠ ҠԠӠ ҠҠ$ҠҠEҠů٠%ҠŠҠҠҠ٠ ҠԠàΠӠĠŠŠĠŠǠĠŠΠԠŠ ؠŠΠŠ" ] STOP COPYRIGHT FRAUD! CLAIM A REWARD. SEE OFFER IN 3A CATALOG.Tč͍ōōōō">(4);"OPEN FIX BOOT PGM":(4);"WRITE FIX BOOT PGM":5,R(4);"CLOSE":Z9D$(4):D$"VERIFY GAME.PTRS":D$"RUN MAIN PGM" 216,00  2,19:1:1::* U33,40:32,0:23:1::p Z85:23:"IS YOUR PROGRAM LISTED HERE? Y/";::"N";::" ";:A$: dA$"Y"MAXN1:N105::2000 n23:958:34,1:35,21::35,24: 60:X0 N1105 ((NA$(N),8,1))61N105:2000 ((K8(ST6UVk,ȱk-`),-`b ::12:12:"ALIGNING MEMORY":63000xY140:"=";::X;:5:A$(X):(" "X" ";:6:(A$(X),15):2X" ";:5:(NA$(X),8,15):<1:20:22:20:34,1:2:F P33,21:3 PTRS":DK$"BLOAD GAME.SVAR":DK$"BLOAD GAME.STR"{ jJDK$;"DELETE GAME.PTRS":DK$;"DELETE GAME.SVAR":DK$;"DELETE GAME.STR" tJDK$;"OPEN EAMON.DESC,L256":DK$;"OPEN EAMON.ROOMS,L64":DK$;"OPEN EAMON.ROOM NAMES,L64" ~J1000111)(112)2561a F:"THE GAME IS NOW SAVED. BOOT ON THIS":" DISKETTE TO RESTART THE GAME."g Fz 8J /// RESTART BJ216,0::"DO YOU WANT TO RESTART THIS GAME?":" Y OR N:"; LJA$:A$"Y"A$"N"19020 VJA$:A$"N"Ā0 `JDK$"BLOAD GAME."Y"A$"N"18020& nFA$:A$"N"100> xFDK$;"CLOSE":X(0)` FDK$"BSAVE GAME.PTRS,A$69,L8" FDK$"BSAVE GAME.SVAR,A";(105)(106)256;",L";(109)(110)256(105)(106)2561 FDK$"BSAVE GAME.STR,A";(111)(112)256;",L";(115)(116)256(DD$(4):D$"OPEN APPEND SAVE BASE":D$"WRITE APPEND SAVE BASE"M10,^D$"CLOSE":g 50DK$(4):DK$"VERIFY GAME.PTRS":190002216,0:1000PF // SAVE GAMEZF216,0::"DO YOU WANT TO SAVE THIS GAME? ":"(Y/N) :"; dFA$:A$͠Ӭ̶ϠŮӢԠˤĠŮҢԠˤĠŮҢԠˤŠŮӢԠˤŠŮҢԠˤŠŮҢԠˤΠήì̲ԠˤΠήӬ̶ԠˤΠŠŮĠ͠ԍŠԠԠϠՠԠϠԠӠſԠ٠ҠκԠƠ٢Ġ΢ΠԠƠ΢ΠĠԠˤĠǠˠԠˤŠŮҬˠˠ̢ˠˠˠˠԠԠŠŠӠנĮԠΠӢԠŠϠԠȠ΢ΠԠƠ΢ΠԠˤŢؠŠԠˤŠŮӬ̸ԠˤŠŮҬˠˠ̢ˠˠˠҠϠˤҤԠˤ٠ŮӢϠŠϠ͠ŠōŠԠԠϠՠԠϠŠӠſԠٯΩԠƠ٢Ġ     R":DK$"BLOAD GAME.STR"b JyDK$;"DELETE GAME.PTRS":DK$;"DELETE GAME.SVAR":DK$;"DELETE GAME.STR" TyDK$;"OPEN EAMON.DESC,L256":DK$;"OPEN EAMON.ROOMS,L64":DK$;"OPEN EAMON.ROOM NAMES,L64" hy1002561V u:"THE GAME IS NOW SAVED. BOOT ON THIS":" DISKETTE TO RESTART THE GAME."\ un y /// RESTART "y216,0::"DO YOU WANT TO RESTART THIS GAME?"; ,yA$:A$"Y"A$"N"31020 6yA$:A$"N"Ā @yDK$"BLOAD GAME.PTRS":DK$"BLOAD GAME.SVA"30020 NuA$:A$"N"1003 XuDK$;"CLOSE":X(0)U buDK$"BSAVE GAME.PTRS,A$69,L8" luDK$"BSAVE GAME.SVAR,A";(105)(106)256;",L";(109)(110)256(105)(106)2561 vuDK$"BSAVE GAME.STR,A";(111)(112)256;",L";(115)(116)256(111)(112)BD$(4):D$"OPEN APPEND SAVE RTN":D$"WRITE APPEND SAVE RTN"J5,[D$"CLOSE":d 50DK$(4):DK$"VERIFY GAME.PTRS":310002216,0:10000u // SAVE GAME:u:"DO YOU WANT TO SAVE THIS GAME? ":"(Y/N) :"; DuA$:A$"Y"A$"NϠԠˤĠŮҢԠˤĠŮҢԠˤŠŮӢԠˤŠŮҢԠˤŠŮҢԠˤΠήì̲ԠˤΠήӬ̶ԠˤΠή͠Ӭ̹Ġ͠ԍŠԠԠϠՠԠϠԠӠſԠ٠ҠκԠƠ٢Ġ΢ΠԠƠ΢ΠĠԠˤĠŮӢҠԠˤŠŮҬˠˠ̢ˠˠˠˠԠԠŠŠӠנĮԠΠӢԠŠϠԠŠŮԠƠ΢ΠԠˤŢؠŠԠˤŠŮӬ̸ԠˤŠŮҬˠˠ̢ˠˠˠˠҠϠˤҤԠˤ٠ŮӢϠŠϠ͠ŠōԠԠϠՠԠϠŠӠſԠٯΩԠƠ٢Ġ΢Π     BLOAD GAME.SVAR":DK$"BLOAD GAME.STR"p JyDK$;"DELETE GAME.PTRS":DK$;"DELETE GAME.SVAR":DK$;"DELETE GAME.STR" TyDK$;"OPEN EAMON.DESC,L256":DK$;"OPEN EAMON.ROOMS,L64":DK$;"OPEN EAMON.ROOM NAMES,L64" hy1006)2561W u:"THE GAME IS NOW SAVED. BOOT ON THIS":" DISKETTE TO RESTART THE GAME."] uo y /// RESTART "y216,0::"DO YOU WANT TO RESTART THIS GAME?":" Y OR N:"; ,yA$:A$"Y"A$"N"31020 6yA$:A$"N"Ā% @yDK$"BLOAD GAME.PTRS":DK$"N"30020 NuA$:A$"N"1004 XuDK$;"CLOSE":X(0)V buDK$"BSAVE GAME.PTRS,A$69,L8" luDK$"BSAVE GAME.SVAR,A";(105)(106)256;",L";(109)(110)256(105)(106)2561 vuDK$"BSAVE GAME.STR,A";(111)(112)256;",L";(115)(116)256(111)(112BD$(4):D$"OPEN APPEND SAVE ORG":D$"WRITE APPEND SAVE ORG"J5,[D$"CLOSE":d 50DK$(4):DK$"VERIFY GAME.PTRS":310002216,0:220000u // SAVE GAME:u:"DO YOU WANT TO SAVE THIS GAME? ":"(Y/N) :"; DuA$:A$"Y"A$" ҢԠˤĠŮҢԠˤŠŮӢԠˤŠŮҢԠˤŠŮҢԠˤΠήì̲ԠˤΠήӬ̶ԠˤΠή͠Ӭ̶ϠĠ͠ԍŠԠԠϠՠԠϠԠӠſԠƠ٢Ġ΢ΠԠƠ΢ΠĠԠˤĠŮӢԠˤĠŮӪԠˤŠŮҬˠˠ̢ˠˠˠˠԠԠŠŠӠנĮԠΠӢԠŠϠԠŠŮԠƠ΢ΠԠˤŢؠŠԠˤŠŮӬ̸ԠˤŠŮҬˠˠ̢ˠˠˠˠҠϠˤҤԠˤ٠ŮӢϠŠϠ͠ŠōԠԠϠՠԠϠŠӠſԠٯΩԠƠ٢Ġ΢Π    :" ";A;". ";AL$(A)::" 9. LIST DATA"J "INPUT YOUR CHOICE (1-9):";Ad A9A1A(A)2030| A9AS(A)1:2010  /// READY TO LIST ARTIF %D$"OPEN EAMON.ARTIFACTS,L128"*A1NA:D$"READ EAMON.ARTIFACTS,R";A:AN$:A214:AD%(A2)::D%(M2):M2:D$ `MN$A jM2112:MS(M2)ĺML$(M2);":";MD%(M2)P tM2:::M_ yD$"CLOSE"m |D$"PR#0" ~:"PRESS ANY KEY TO CONTINUE":A$::40  /// LIST ARTIFACTS A18:AD%(A)0:AS(A)0: :"SELECT DATA FIELD TO LIST:"( A18:" ";M". ";ML$(M)::" 13. LIST DATA"K "INPUT YOUR CHOICE (1-13):";Mf M13M1M(M)1030 M13MS(M)1:1010 B /// LIST MONSTER GD$"PR#1" LD$"OPEN EAMON.MONSTERS,L128" VM1NM:D$"READ EAMON.MONSTERS,R";M:MN$:M2112:MCTS" K! P" 3. LIST ROOMS"' U8 " 4. QUIT"> _ "INPUT YOUR CHOICE (1-4):";| A$:(A$)4(A$)1210 A$ (A$)1000,2000,3000,4000  /// LIST MONSTER M112:MS(M)0: :"SELECT DATA FIELD TO LIST:"( M112 ANY KEY" A$:] D$"OPEN EAMON.DESC,L256":D$"READ EAMON.DESC,R0":NR,NA,NE,NM (:"ROOMS:";NR;" ARTIF.:";NA;" EFF:";NE;" MONST:";NM -D$ 2:"SELECT ONE OF THE FOLLOWING:": <" 1. LIST MONSTERS" A F" 2. LIST ARTIFAX  DUNGEON AID PROGRAM7 BY JOHN NELSON> ] THIS PROGRAM LISTS ANY{ DATA FIELDS FOR ROOMS, ARTIFACTS OR MONSTERS D$(4): MD%(12),MS(12)8000 :5:"INSERT DUNGEON DISKETTE AND PRESS"::"   ESS ANY KEY TO CONTINUE";:A$::1003p /// QUITzUPĺ:"UPDATE HAS NOT BEEN APPLIED."::"PRESS ANY KEY TO CONTINUE";:A$::100D$"CLOSE"D100D$"CLOSE"X /// CHANGE ARTIFACTb"SELECT METHOD OF SELECTION:":" 1. BUMMY":A218:AD%(A,A2)0:A2,A1 NANANI:100A /// APPLYA1NA:D$"WRITE EAMON.ARTIFACTS,R";A:AN$(A):A218:AD%(A,A2):A2,AD$"WRITE EAMON.DESC,R0":NR,NA,NE,NM:D$UP0100 /// CANCEL$UPUP:"UPDATE = ";UP::"PR"IS THIS CORRECT?";RE$:RE$"Y"ī100 UP1:X0:INANIIA11:D$"READ EAMON.DESC,R";INI100:RD$:D$"WRITE EAMON.DESC,R";I100:(34);RD$;(34) AN$(I)AN$(NAX):A218:AD%(I,A2)AD%(IANI1,A2):A2 XX1:I:D$: AIA1NIIA:AN$(A)"DTE EAMON.DESC,R";DND100:(34);RD$;(34)b AN$(DND)AN$(D):A218:AD%(DND,A2)AD%(D,A2):A2v D:D$:NANAND 100 /// ADD :"HOW MANY TO INSERT?";NI "AFTER WHICH ARTIFACT:";IA "INSERT ";NI;" ARTIFACTS AFTER ";IA;"."% ONTINUE";:A$::100%  /// DELETEE :"HOW MANY TO DELETE?";NDi "FIRST ARTIFACT TO DELETE:";D1 "DELETE ARTIFACTS ";D1;" THRU ";D1ND1 "IS THIS CORRECT?";RE$:RE$"Y"ī100* UP1:DD1NDNA:D$"READ EAMON.DESC,R";D100:RD$:D$"WRIS":" 4. APPLY CHANGES TO FILE"H n" 5. CANCEL CHANGES":" 6. QUIT" x"INPUT YOUR CHOICE (1-6):";S$:(S$)1(S$)6(S$)((S$))120 (S$)1000,2000,3000,4000,5000,6000  /// LIST A1NA:A;". ";AN$(A): B:"PRESS ANY KEY TO CAD%(NA,8), 2D$"OPEN EAMON.ARTIFACTS,L128" <A1NA:D$"READ EAMON.ARTIFACTS,R";A:AN$(A):A214:AD%(A,A2):A2:AD%(A,2)2āA258:AD%(A,A2): FA:D$ d::"SELECT ACTION:":" 1. LIST ARTIFACTS":" 2. DELETE ARTIFACTS":" 3. ADD ARTIFACT ARTIFACT MAINTENANCE5 FOR EAMONN BY JOHN NELSONTZ D$(4)::::" INSERT DUNGEON DISKETTE AND":" PRESS ANY KEY"::A$:D$"OPEN EAMON.DESC,L256":D$"READ EAMON.DESC,R0":NR,NA,NE,NM AN$(NA),     " IS BADLY INJURED.":;" IS VERY BADLY INJURED.":p" IS AT DEATH'S DOOR,":" KNOCKING LOUDLY."::MN$(DF);" IS DEAD!":AMD%(DF,14):FD%(A)FD%(A)MD%(DF,1)MD%(DF,13)D2:MD%(DF,5)0///PUT DEAD BODY IN ROOM A2DFNZNM:A%(OF,9)07550oFR957550Up //WEAPONS WITH HIGH COMPLEXITY BREAK LESS OFTEN:qAD%(MD%(OF,9),5)3R(X)ĺ" FUMBLE RECOVERED.":::"A CRITICAL HIT!"::R2R(X):R251A0:7635" IS IN GOOD SHAPE.":" IS LIGHTLY INJURED.":OMS,R";X:Y16:ED%(X,Y):Y,X+RN$(NR)bX1NR:DK$;"READ EAMON.ROOM NAMES,R";X:RN$(X):{R(X)((1)1001)F59000255 R2ED%(ROOM,D)e:"A FUMBLE!"::FRR(X)gFR3540(MD%(OF,9))ĺ" FUMBLE RECOVERED."::lMDTD%(M2)(41(1)20)20(MD%(M,9)1)TMD%(M,4)MRĞ:MN$(M);" FLEES OUT AN EXIT."::8500:MD%(M,5)R2:M2MD%(M,14):TD%(M2)TD%(M2)MD%(M,1):FD%(MD)FD%(M2)MD%(M,13):490!DK$;"NOMONC,I,O""33,40ED%(NR,6)X1NR:DK$;"READ EAMON.ROAD%(A,9)ĺ" -- YOU SEE ";AN$(A)::190iDK$;"READ EAMON.DESC,R";A100:A$:DK$:A$:AD%(A,9)1::AANA:AD%(A,4)ROOMĺ" -> YOUR ";AN$(A);" IS HERE.":"YOUR COMMAND?";::" ";A$200&JM2MD%(M,14)(MD%(M,14)2):MR100FD%(M2);DK$;"READ EAMON.DESC,R";ROOM:A$:DK$:A$::V%(ROOM)1^M1NM:MD%(M,5)ROOMĂ:170MD%(M,15)ĺ" >> ";MN$(M);" IS HERE."::170DK$;"READ EAMON.DESC,R";M300:A$:DK$:MD%(M,15)1:A$""ĺA$::A1NZ:AD%(A,4)ROOMĂ:190*S WILL":" RUN FINE WITHOUT FURTHER ALTER-":" ATION, BUT SOME WON'T."B:"TYPE Q TO QUIT, OR HIT ANY OTHER KEY":"TO CREATE BASEMOD (THE EXEC FILE)";DA$:A$"Q"ĀFH60000Ji255V%(ROOM)ĺ"YOU ARE":" ";RN$(ROOM):150:"6. UNLOCK THE OLD BASE PROGRAM, AND":" RENAME IT 'OLD BASE,' OR SOMETHING.">:"7. SAVE THE ALTERED PROGRAM, USING":" THE ORIGINAL NAME OF THE BASE PRO-":" GRAM (USUALLY MAIN PGM OR MAIN PRG)."L@:"8. DEBUG. MOST EAMON ADVENTURE";:A$:8:"5. WITH THE BASE PROGRAM STILL IN MEM-":" ORY, PUT IN THE DISK WITH BASEMOD,":" AND TYPE, 'EXEC BASEMOD.' THIS":" WILL ADD THE LINES BETWEEN 100":" AND 59999 IN THIS PROGRAM TO THE":" BASE PROGRAM IN MEMORY."T<D BODIES DO NOT APPEAR WHEN":" CREATURES DIE, DELETE LINE 7704." 4:"4. MAKE SURE THERE ISN'T ANYTHING IN":" LINES 59000-60000, SINCE THAT'S":" WHERE WE'RE PUTTING THE ERROR-":" HANDLING ROUTINES."6:7);"(HIT ANY KEY TO CONTINUE)0 FOR SPECIAL":" FEATURES, SUCH AS TELEPORTATION":" OR DEMON SUMMONING. THESE FEATURES" 0" WILL PROBABLY BE FOULED UP BY THIS":" PROGRAM, SO YOU'LL HAVE TO PATCH":" THINGS UP LATER TO GET THE FEATURES":" BACK."D 2:"3. IF DEA FOLLOWS:"a )::"DO NOT USE THIS PROGRAM ON THE TEMPLE":"OF NGURCT OR THE BEGINNERS CAVE.": *:7);"(HIT ANY KEY TO CONTINUE)";:A$: ,:"1. LOAD THE BASE PROGRAM FOR THE":" ADVENTURE YOU WANT TO UPDATE."_ .:"2. LOOK AT LINES 130-21FORMAT, AND ELIMINATES A NUMBER OF":"MINOR BUGS IN THE BASE DUNGEON PROGRAM." &:" WHEN THIS PROGRAM IS RUN, IT MAKES":"A TEXT FILE NAMED ";::"BASEMOD";::", WHICH IS" ("USED AS AN EXEC FILE TO ALTER THE BASE":"PROGRAM. THE PROCEDURE IS ASOD' # THEN RESAVE THE BASE1 PROGRAM.7 V :3:17::"BASEFIX"::6 "" THIS PROGRAM ALTERS THE BASE DUNGEON":"PROGRAM FOR EAMON ADVENTURES."N $" IT SPEEDS UP THE MAIN LOOP, ADDS":"AN ERROR-RECOVERY ROUTINE, CLEANS UP":"THE ALTERS BASE DUNGEON PGM6FOR GREATER SPEED,QBETTER OUTPUT FORMAT,qAND MORE CONSISTANT LOGIC.w  BY ROBERT PLAMONDON, NOVEMBER, 1981TO USE, LOAD BASE PROGRAM FOR AN ADVENTURE,  THE TYPE 'EXEC BASEM        ҠϠĤҤԠĤ٠ŮӢԠĤΠΠ͢Š  ,";NAM$ D$+ "PROCESSING COMPLETED" $DVNAM$:ND$ dD$"CLOSE"N n:3:" OLD ADVENTURE NAME":" IS"_ x:ADVNAM$:y ::"NEW NAME:";NAM$ D$"DELETE EAMON.NAME" D$"OPEN EAMON.NAME" D$"WRITE EAMON.NAME" NAM$:ND$ D$"CLOSE" D$"RENAME ";ADVNAM$;"- RENAME EAMON ADVENTURE8 BY JOHN NELSONY THIS PROGRAM WILL RENAME t( ANY EAMON ADVENTURE2"INSERT EAMON DISK AND PRESS ANY KEY":A$:<D$(4)A100FD$"OPEN EAMON.NAME"KND$"6"PD$"READ EAMON.NAME" ZA  AGAIN!!":970\"DON'T YOU THINK YOU OVER DOING IT A BIT?":"HOW ABOUT 50 OR LESS?":"HOW MANY POINTS HARDINESS DO YOU WANT?";C(2)C(2)50960C(2)3940H:"AGILITY - AGILITY'S MAJOR EFFECT IS HOW":"LIKELY YOU ARE TO HIT YOURBER OF POINTS OF DAMAGE YOUR BODY":"CAN WITHSTAND BEFORE YOU DIE. IT ALSO":"RELATES TO HOW MUCH TOTAL WEIGHT":"YOU CHARACTER CAN CARRY WITH HIM."970 " GIVE YOURSELF A BREAK, SELECT A NUMBER":"GREATER THAN 2!"::::"YOU WILL NOT BE WARNED ""VALUE OF ANY ONE ATTRIBUTE CAN VARY":"FROM A LOW OF 3 TO A HIGH OF 24. YOU":"MAY CHOOSE ANY VALUE YOU PLEASE, BUT":"WE RECOMMEND THAT THE TOTAL SUM":"OF THE THREE DOES NOT EXCEED 48."1970"HARDINESS - HARDINESS RELATES TO THE":"NUM$)20840fNA$""850Up::"WE WILL NOW BEGIN TO BUILD"::NA$::X11000:Xz::"BUILDING ";NA$:::"CHARACTER ATTRIBUTES"::"THE THREE ATTRIBUTES OF ANY EAMON":"CHARACTER ARE HARDINESS,AGILITY, AND":"CHARISMA. WHEN RANDOMLY CHOSEN, THE0> 216,0:"DO YOU WISH TO BUILD YOUR OWN CHARACTER?":ANS$PANS$"Y"820b ANS$"N"710*"PLEASE TYPE 'Y' OR 'N'":7804:"TYPE IN A NAME FOR YOUR NEW CHARACTER!">850H"YOUR NAME MUST BE 20 CHARACTERS OR LESS"RNA$ \(NA(I));"%"IC24::"PRESS ANY KEY TO CONTINUE ";::A$::VRECREC1:260i:(4);"PR#0"12:13:"END OF PROGRAM"22:"DO YOU WISH TO SEE THEM AGAIN? ";AN$AN$"Y"250AN$"N"780"PLEASE TYPE 'Y' OR 'N'":74 COMPLEXITY DAM ODDS"(v" "3I14MWNAME$(I)"NONE"680WNAME$(I);17(WNAME$(I)));WODDS%(I);"%";6(WODDS%(I)0)((WOODS%(I))9)((WODDS%(I))99));WDICE%(I);"D";WSIDES%(I);3(WSIDES%(I)9));WODDS%(I)2AGEAWA%(WTYPE%10);"SWORD ";WA%(5)" "H"ARMOUR: ";:(AC2)1550,560,570,580Z&"SKIN";:590o0"LEATHER";:590:"CHAIN";:590D"PLATE";:590N(" AND SHIELD",110(AC2(AC2)));" AE=";AE;"%"X" "b"WEAPON INFORMATION:"l"NAME AGILITY ";AG;" CHARISMA ";CH(" "C13);"SPELL ABILITY""BLAST ";SA%(1);" HEAL ";SA%(2);" SPEED ";SA%(3);" POWER ";SA%(4)" ":13);"WEAPON ABILITY""AXE ";WA%(1);9);"BOW ";WA%(2);9);"CLUB ";WA%(3)4);"SPEAR ";WA%(4);$;"CLOSE"P |EA5(AC2(AC2)):AC1EAEA10:AC3EAEA10:AC5EAEA40h EAEAAE:EA0EA0z NAME$""700  "CHARACTER NAME: ";NAME$ " " "SEX ";SEX$;3);"GOLD ";GOLD;3);" IN BANK ";BANK " ""HARDINESS ";HD;" K$;"OPEN CHARACTERS,L150": DK$;"READ CHARACTERS,R";RECS NAME$:NAME$""700a "HD,AG,CHw ,X14:SA%(X):X 6X15:WA%(X):X @AE JSEX$ TGOLD,BANK ^AC hX14:WNAME$(X),WTYPE%(X),WOODS%(X),WDICE%(X),WSIDES%(X):X rDK"::"DO YOU WISH TO DELETE CURRENT CHARACTERSAND BEGIN WITH A NEW FILE?"b "'Y' OR 'N' ";AN$t AN$"Y"1980 AN$"N"210 190 740 : DK$(4):REC1 :"LISTING OF CURRENT CHARACTERS":T1400:T DK$(4):REC1 D":"TO THE PLAYER'S MANUAL LOCATED ON THE":"DUNGEON DESIGNER'S DISK. THIS DISK IS":"INCLUDED AS PART OF THE EAMON SERIES." 1970I :"IF YOUR DISC HAS TOO MANY CHARACTERS":"STORED ON IT, YOU MAY WISH TO DELETE ":"ALL OF THEM AND START OVER CLEAN:4:"THIS PROGRAM IS TO BE USED TO BUILD":"EAMON CHARACTERS OF YOUR OWN":"DESIGN. BEFORE YOU CONTINUE PLEASE" "INSERT THE EAMON MASTER DISK AND THEN":"PRESS ANY KEY TO CONTINUE."| 13:"PLEASE NOTE:":"FOR ADDITIONAL INFORMATION PLEASE REFER" BUILD CHARACTERS4 BY RON UNRATHL 312/438-4799R(m2 EAMON IS A CREATION< OF DONALD BROWNFP DISPLAY CHARACTERSZ BY MARK MAINSdnxDK$(4):REC1}DK$;"NOMON I,O,C"C(18)s             H ꠕ@ +  6 E@L w 0 W  ꠕ +   LvOPEN CHARACTERS,L150a   ڠ   LREAD CHARACTERS,R   . ڠ   D ^ L  L""  L'Y' OR 'N'   J D ^ L9Y7 J LJ LZNX J Ly L  K#  X w 0 W  ꠕ +  XLLISTING OF CURRENT CHARACTERS   ڠ ꠕE +LxJ  XL3IF YOUR DISC HAS TOO MANY CHARACTERS   LiSTORED ON IT, YOU MAY WISH TO DELETE C   LALL OF THEM AND START OVER CLEANy   LDO YOU WISH TO DELETE CURRENT CHARACTERSAND BEGIN WITH A NEW FILE?   ڠ LPLEASE NOTE:   LHFOR ADDITIONAL INFORMATION PLEASE REFER   L~TO THE PLAYER'S MANUAL LOCATED ON THEX   LDUNGEON DESIGNER'S DISK. THIS DISK IS   LINCLUDED AS PART OF THE EAMON SERIES.   ڠ  O BE USED TO BUILD   L?EAMON CHARACTERS OF YOUR OWN"   LrDESIGN. BEFORE YOU CONTINUE PLEASEO   ڠ LINSERT THE EAMON MASTER DISK AND THEN   LPRESS ANY KEY TO CONTINUE.   ڠ LP   # K   ( 2 < F P Z d n x L|w 0 W L ꠕ +}   LNOMON I,O,C   ڠ   Xw LTHIS PROGRAM IS TEND OF PROGRAMBUILD YOUR OWN CHARACTER?N THIS DISK?IGHT POINTS OF THE MAINSSPEARS, AND SWORDS.Kd)%eQP&Q`^$^ II__ &_&^_`L Q+Ɂ')0)#&*&Q$IQQIQPQ`*۠R{i{ȱ{ȱ{k}ȱl~L`Ю꽌ɪФ`*x'8*xx  ')  x) `0Lh= < ȱ< n ة$l<1 <Q%,`h?L+>q?r SՍȄB` <L <Lvu X$# \ۦuv $LW۩L:ۅ <LPQF eP <ee`   f`  j %_`CCh < > p <=Chhl<`>?L >?^ <^ LHH , hh < , qL7 jL _L_^L % L L NL EL $LK#`h<kl`?>R  kl>`{|{}kȱ{~lL}R莵 `<=hh`ꬵ RLܠk{lȑ{` < L6 < LE,,-`L LW L LW L: <צ` La L <` 0` ꤄klR ` L Z Z ZL {|  kl{Lj  ,C /,7"C湱 : C>睊>"ȱR :, eL Lv$Lhh Z l  # )!,E -+.д J?> R,К hL L <` <` < L( <L8Lh<>``` h L h L h L h L h L h L  <J` BBB` B8塐L BB`  <H S < C 4352 >?>ȱ>` L >? <L5>?P>ȥQ>`>?LW>? < &$>?Lu>? < & &e몘e쨊e>Pe?QP` `L ` ` ` ` ` `о <= >? I < ` C                    ):200101P"NEW MACE EXPERTISE:";WA%(3):20010[P"NEW SPEAR EXPERTISE:";WA%(4):20010P"NEW SWORD EXPERTISE:";WA%(5):20010P"OLD ARMOUR EXP:";AE:"NEW ARMOR EXPERTISE:";AE:AE0AE99ĺ"INVALID EXPERTISE.":AE0:20700P20010@QSEX$"M10xP:8:"SELECT WEAPON ABILITY:":" 1. AXE",WA%(1):" 2. BOW",WA%(2):" 3. MACE",WA%(3):" 4. SPEAR",WA%(4):" 5. SWORD",WA%(5):X5:1000yPS20610,20620,20630,20640,20650P"NEW AXE EXPERTISE:";WA%(1):20010P"NEW BOW EXPERTISE:";WA%(2%(1):" 2. HEAL",SA%(2):" 3. SPEED",SA%(3):" 4. POWER",SA%(4):X4:1000:S20510,20520,20530,20540P"NEW BLAST RATING:";SA%(1):20010(P"NEW HEAL RATING:";SA%(2):200102P"NEW SPEED RATING:";SA%(3):20010N" 8. SEX CHANGE":" 9. GOLD":" 10. ARMOUR CLASS":" 11. WEAPON CHANGE"IHN" 12. DISPLAY RECO:MO$"A"30000'1403' /// READ NEXT RECORDz'CC1:CNCĺ"END OF FILE.":"PRESS ANY KEY TO CONTINUE";:A$:140'2000:MO$"A"30000'140 N /// UPDATE ROUTINE%NC0ĺ"NO CHARACTER IN MEMORY.":6000:140K*N:NAME$:"INPUT FIELD FIND NAME'B'"CHARACTER NAME:";NAME$L'C1NC:D$"READ CHARACTERS,R";C:FINM$:FINM$NAME$Ă:"I CAN'T FIND THAT CHARACTER.":D$:A$:140V'2000:MO$"A"30000`'140j'"RECORD NUMBER:";Ct'CNCĺ"THERE AREN'T THAT MANY!":10090~'20000:ADD0: p >>> STOP SCREENN z::"PRESS ANY KEY TO CONTINUE";::A$:T l ' /// SELECT RECORDz 'UPİ5000 $'6:958:"SELECT RECORD BY:":" 1. NAME":" 2. RECORD NUMBER":" 3. NEXT RECORD":X3:1000 .'S10040,10090,10130 8' ///:6000:140* D$"WRITE CHARACTERS,R";Cc NAME$:HD:AG:CH:X14:SA%(X)::X15:WA%(X): AE:SEX$:GOLD:BANK:AC X14:WNAME$(X):WTYP%(X):WODDS%(X):WDICE%(X):WSIDES%(X): D$ ADDĺD$"WRITE CHARACTERS,R0":NC:D$: UPCTERS,R";C:NAME$:HD:AG:CH:X14:SA%(X)::X15:WA%(X):] AE:SEX$:GOLD:BANK:AC X14:WNAME$(X):WTYPE%(X):WODDS%(X):WDICE%(X):WSIDES%(X)::D$   /// WRITE RECORD ADDNA$"DUMMY"ĺ:"I DON'T ALLOW 'DUMMY' FOR A NAME.":GO ON AN ADVENTURE"C " 6. ADD A RECORD":" 7. QUIT":X7:1000t S10000,20000,30000,40000,50000,60000,62000  /// GET NUMBER "INPUT (1-";X;"):"; S$:(S$)1(S$)X1020 S$:S(S$):  /// READ RECORD? UP0:D$"READ CHARAD$"OPEN CHARACTERS,L150,S6,D1":D$"READ CHARACTERS,R0":NC:D$ :17);"EAMON":9);"CHARACTER MAINTENANCE":13);"BY JOHN NELSON":::"SELECT ACTION:" " 1. SELECT RECORD":" 2. UPDATE RECORD":" 3. DISPLAY RECORD":" 4. SELECT MODE":" 5. # CHARACTER CHANGE6 AND DISPLAYM PROGRAMh BY JOHN NELSONntzdD$(4):n:5x" INSERT MASTER DISKETTE"::" IN DRIVE 1"::" AND PRESS ANY KEY":A$:?              ı IJ TΧ̭ ѧ˨˨˨ ק˨˨˨˨ [\_[\_˨ ı IJ ɕ(`JN`ɠSH)? h` `89`67`HɆ Mh,0ɍɛɓ Ƀ%, Nɋ ɉ LL Ԡ@A›BÛCěDśEƛFЛ@ɛʛ˛͛ ԍŭ ̭6ɆD? NE$?CC C @C @@ Lɒ$>  LɐQE? *  C ?  LH@ɠ$@ ɢE@@EE=h`ɂ *L Ɏ L LH))? @(h`$( N ɓ&Ɂ!ɍ#ɘ, ` CEE$ɛ$Ɉ  L ɍ  E`@  L ɏ (   /ɑEE8C Jɘ<  иɉC  E HʽChE  LɃʱ()@ LɄ2E L E ECLDH hhhC`ɚJ E`ɍɠɰɺ>H 9u 4F=E$3pDɍHb6$3P텸h`CEED C`EL2$= EE  4 9 Eɠɰ ɺ L C E   A$B%CL$A%B`$! %#BLE N ` L> 9N#L4N ɛh  ? ? X0 XL  ` Xl 4Ln(N X$ɧLH h Ʌ(ɍɘɗ F>$3P`E <L3  uɮ轣ɍ ?@BACC@iAIL >B?C@ȭ@@A=i?< /< eA=?8hAh<=8>?B<eA><@B0A L @ȭ@ȭ@h`iHiDK$;"WRITE CHARACTERS,R0":NC1A DK$;"WRITE CHARACTERS,R";REC 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):W DK$;"CLOSE"D:A$N2$Ă:DK$:1500x .DK$::"ALREADY A CHARACTER NAMED ";A$:" ON THE DISKETTE."::"USE A NEW DISKETTE (Y/N)? "; 8A$:A$"Y"A$"N"1080 BA$:A$"Y"1040 L REC1NC:DK$;"READ CHARACTERS,R";REC:A$:A$""2000 REC:RECNC1:] GOLD,BANK:AC:W14:WNAME$(W),WTYPE%(W),WODDS%(W),WDICE%(W),WSIDES%(W):W:DK$;"CLOSE" :"ENTER NEW CHARACTER NAME: "; N2$ NAME$N2$ $:DK$;"OPEN CHARACTERS,L150":DK$;"READ CHARACTERS,R0":NC:A1NC:DK$;"READ CHARACTERS,R";A:A$ CHARACTERS,L150":DK$;"READ CHARACTERS,R0":NCk REC1NC:DK$;"READ CHARACTERS,R";REC:N$:N$N2$1000 REC:DK$:::"CHARACTER NOT FOUND!":: DK$;"READ CHARACTERS,R";REC NAME$:HD,AG,CH:X14:SA%(X)::X15:WA%(X)::AE SEX$///THE WONDERFUL WORLD5/// OF EAMON >///^///CHARACTER MOVER PROGRAMg////// BY DONALD BROWN/// DK$(4)d:5:"EAMON CHARACTER CLONER"n"ENTER NAME OF CHARACTER: ";xN2$:N2$""100/ DK$;"OPEN    6& "CHEYENNE * WY * USA * 82009":T "PRESS C FOR CATALOG OR RETURN TO QUIT";\ C$m FC$"C"1450 x(1155)Č1184: :12:3: "APPLE AVOCATION ALLIANCE (AAA), INC.": (4);"CATALOG" CUSE. 61 "-- PLEASE, SEND US A COPY --":^ "WE'LL RETURN YOUR DISK, RECOPIED WITH" R"ANY VOLUME YOU CHOOSE FROM OUR CATALOG," "WITH MANY THANKS.": 3 "APPLE AVOCATION ALLIANCE (AAA), INC." 12 L"721 PIKE STREET" ~E SEEDLINGS":< "PERHAPS YOU FOUND SOME FAULTY PROGRAMS"Y "AND YOU FIXED THEM?": &"MAYBE YOU EVEN TOOK LOTS OF TIME TO" X"REWRITE A PROGRAM FROM END TO END?": "WE WOULD LIKE TO HARVEST YOUR 'IMPROVED'PROGRAMS FOR OTHERS TO ENJOY AND PdAAA MESSAGE PUBLIC DOMAIN BY RONALD D. MALEIKA}721 PIKE STREET CHEYENNE * WY * 82009 28 FEB 1981(1155)Č1184:12,"AN INVITATION FOR"^5 "APPLE TREES AND APPLWODDS%(X):WDICE%(X):WSIDES%(X)) F D$"WRITE CHARACTERS,R0"P NC1_ D$"CLOSE"dADICE%(X)% |"SIDES/DIE:";WSIDES%(X), XJ D$"OPEN CHARACTERS,L150"k D$"WRITE CHARACTERS,R";NC1 NAME$:HD:AG:CH:BLAST:HEAL:SPEED:POWER X15:WA%(X): AE SEX$:GOLD:BANK AC X14 WNAME$(X):WTYPE%(X)# WTY$"CLUB"ĺ"ILLEGAL TYPE":280> ,WTY$"AXE"WTYPE%(X)1Z 6WTY$"BOW"WTYPE%(X)2w @WTY$"MACE"WTYPE%(X)3 JWTY$"SPEAR"WTYPE%(X)4 TWTY$"SWORD"WTYPE%(X)5 ^WTY$"CLUB"WTYPE%(X)3 h"COMPLEXITY:";WODDS%(X) r"NBR DICE:";W"GOLD IN BANK:";BANK, "ARMOR CLASS:";AC7 X14U "WEAPON NAME:";WNAME$(X) WNAME$(X)"NONE"WTYPE%(X)0:WODDS%(X)0:WDICE%(X)0:WSIDES%(X)0:390 "WEAPON TYPE:";WTY$" "WTY$"AXE"WTY$"BOW"WTY$"MACE"WTY$"SPEAR"WTY$"SWORD"PEED "POWER SPELL:";POWER9 "AXE ABILITY:";WA%(1)T "BOW ABILITY:";WA%(2)p "MACE ABILITY:";WA%(3) "SPEAR ABILITY:";WA%(4) "SWORD ABILITY:";WA%(5) "ARMOR EXPERTISE:";AE "MALE OR FEMALE:";SEX$ "GOLD IN HAND:";GOLD a  D$(4)+D$"OPEN CHARACTERS,L150"GD$"READ CHARACTERS,R0"O(NC^2D$"CLOSE"<"NAME OF NEW CHARACTER:";NAME$F"HARDINESS:";HDP"AGILITY:";AGZ"CHARISMA:";CHd"BLAST SPELL:";BLASTn"HEAL SPELL:";HEAL x"SPEED:";S     290,380:2000!390,520:G:" TO CONTINUE";MP$::R3(WSIDES%(I)9));WODDS%(I)2AGEAWA%(WTYPE%(I));"%"@It24::"PRESS ANY KEY TO CONTINUE ";::A$::RECREC1:160:DK$;"PR#0"12:13:"END OF PROGRAM"22::30,1002000100,170:2000170,280:2000%" " "& "WEAPON INFORMATION:"P "NAME COMPLEXITY DAM ODDS"Y " "d I14~ WNAME$(I)"NONE"470 WNAME$(I);17(WNAME$(I)));WODDS%(I);"%";6(WODDS%(I)0)((WOODS%(I))9)((WODDS%(I))99));WDICE%(I);"D";WSIDES%(I);9(2);9);"CLUB ";WA%(3)D |4);"SPEAR ";WA%(4);10);"SWORD ";WA%(5)M " "y "ARMOUR: ";:(AC2)1411,412,413,414 "SKIN";:415 "LEATHER";:415 "CHAIN";:415 "PLATE";:415 (" AND SHIELD",110(AC2(AC2)));" AE=";AE;" IN BANK ";BANK E" "P J"HARDINESS ";HD;" AGILITY ";AG;" CHARISMA ";CHY O" "t T13);"SPELL ABILITY" ^"BLAST ";SA%(1);" HEAL ";SA%(2);" SPEED ";SA%(3);" POWER ";SA%(4) h" ":13);"WEAPON ABILITY" r"AXE ";WA%(1);9);"BOW ";WA%WOODS%(X),WDICE%(X),WSIDES%(X):X2 DK$;"CLOSE"y EA5(AC2(AC2)):AC1EAEA10:AC3EAEA10:AC5EAEA40 EAEAAE:EA0EA0 NAME$""490 ":(12); ,"CHARACTER NAME: ";NAME$ 6" " @"SEX ";SEX$;3);"GOLD ";GOLD;3);"K$(4):REC1" ONERR GOTO 160B DK$;"OPEN CHARACTERS,L150"c DK$;"READ CHARACTERS,R";REC| NAME$:NAME$""490 HD,AG,CH X14:SA%(X):X X15:WA%(X):X AE SEX$ GOLD,BANK AC! X14:WNAME$(X),WTYPE%(X),H TO LIST PROGRAM TYPE0 'GOTO 1000'6<(W2 EAMON IS A CREATIONn< OF DONALD BROWNtFP DISPLAY CHARACTERSZ BY MARK MAINSdn500x:11:11:"DISPLAY CHARACTERS":12:13:"BY MARK MAINS" D     R - UNABLE TO READ DIRECTORY !!!":/ |:1000J 1:" 80N":0,63998:0G05),A$(105),T(105)* "X138:B$B$"=":H ,X10511:NAME$(X)B$:^ 6NAME$(0)(B$,19)j @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:"!!! ERRO L40  MAXX' 85:34,225 23:958o "SELECT A FILE BY NUMBER -->";A$:A(A$):AMAX2010z 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$(1NA$(N),8,1))6520002 ((NA$(N),8,1))942000< XX1U A$(X)(NA$(N),8,30)o T(X)((NA$(N),2,1)) X21İ30:2000 X21X61X101İ80 X41İ40:2000 $X41X81İ90 .X61İ30:2000 8X81İ40:2000 BX101İ30:2000READ 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":  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$;"   RT ";: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 OF2 EAMON8T INITIALIZE CHARACTERSg FILEm BY DONALD BROWN DK$(4) :::"WARNING--INITING LOSES ALL OLD PLAYERS":::"HIT 'C' TO CONTINUE, ANY OTHER KEY TO":"ABO!!! ΍͍ȭȍ͠ҍ̍ӠҍCTERS." AG(T):CH(T):S14:SA%(T,S):S:W15:WA%(T,W):W AE(T):SEX$(T):GO(T):BA(T):AC(T):W14:WN$(T,W):WT%(T,W):WO%(T,W):WD%(T,W):WS%(T,W):W T D$"CLOSE" :5:"THERE WERE ";OC;" RECORDS ON FILE.":"NEW FILE CONTAINS ";NC;" CHARA IS LOADED IN TABLE.":"THERE ARE ";T;" RECORDS."t x:"PRESS ANY KEY WHEN YOU ARE READY TO ":"COPY RECORDS OUT."~ A$: OCNC:NCT1 D$"OPEN CHARACTERS,L150":D$"WRITE CHARACTERS,R0":NC5 T1NC:D$"WRITE CHARACTERS,R";T:NM$(T):HD(T):D$"READ CHARACTERS,R";C:NM$:NM$""Ă:100c <NM$(T)NM$:HD(T):AG(T):CH(T):S14:SA%(C,S):S FW15:WA%(T,W):W:AE(T):SEX$(T):GO(T):BA(T):AC(T) PW14:WN$(T,W):WT%(T,W):WO%(T,W):WD%(T,W):WS%(T,W):W ZTT1:C dD$1 n"FILE" AND PRESS ANY KEY"' A$:a (D$"OPEN CHARACTERS,L150":D$"READ CHARACTERS,R0":NC -NM$(NC),HD(NC),AG(NC),CH(NC),SA%(NC,4),WA%(NC,5),AE(NC),SEX$(NC),GO(NC),BA(NC),AC(NC),WN$(NC,4),WT%(NC,4),WO%(NC,4),WD%(NC,4),WS%(NC,4)+ 2T1:C1NC:! CONDENSE CHARACTER FILE< BY JOHN NELSONBd THIS PROGRAM WILL REMOVE CHARACTERS THAT HAVE BEEN KILLED OR NEVER RETURNED FROM ADVENTURES D$(4): :5:" INSERT MASTER DISKETTE"::""" " " " "