L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 CcˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭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- ( t Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`z#     ӠӠŠήŠڠՠ ҠҠ ҠԠӠӠŠ Ӡ٠ ӠŠŠ4ӠԠϠ ŲΠӠ ҠҠ$Ҡů٠%ҠŠ ҠҠҠҠ,"DO YOU WISH TO SEE THEM AGAIN? ";AN$=AN$"Y"250NAN$"N"780q"PLEASE TYPE 'Y' OR 'N'":740 216,0:"DO YOU WISH TO BUILD YOUR OWN CHARACTER?":ANS$ANS$"Y"820 ANS$"N"710*"PLEASE TYPE 'Y' OR 'N'":780%4:"TY(WOODS%(I))9)((WODDS%(I))99));WDICE%(I);"D";WSIDES%(I);x3(WSIDES%(I)9));WODDS%(I)2AGEAWA%(WTYPE%(I));"%"I24::"PRESS ANY KEY TO CONTINUE ";::A$::RECREC1:260:(4);"PR#0"12:13:"END OF PROGRAM"22::590AN(" AND SHIELD",110(AC2(AC2)));" AE=";AE;"%"JX" "eb"WEAPON INFORMATION:"l"NAME COMPLEXITY DAM ODDS"v" "I14WNAME$(I)"NONE"680;WNAME$(I);17(WNAME$(I)));WODDS%(I);"%";6(WODDS%(I)0)(" ":13);"WEAPON ABILITY"U"AXE ";WA%(1);9);"BOW ";WA%(2);9);"CLUB ";WA%(3)4);"SPEAR ";WA%(4);10);"SWORD ";WA%(5)" ""ARMOUR: ";:(AC2)1550,560,570,580&"SKIN";:5900"LEATHER";:590:"CHAIN";:590D"PLATE"; NAME: ";NAME$" "N"SEX ";SEX$;3);"GOLD ";GOLD;3);" IN BANK ";BANKW" ""HARDINESS ";HD;" AGILITY ";AG;" CHARISMA ";CH" "13);"SPELL ABILITY""BLAST ";SA%(1);" HEAL ";SA%(2);" SPEED ";SA%(3);" POWER ";SA%(4)@AE JSEX$ TGOLD,BANK& ^ACh hX14:WNAME$(X),WTYPE%(X),WOODS%(X),WDICE%(X),WSIDES%(X):Xy rDK$;"CLOSE" |EA5(AC2(AC2)):AC1EAEA10:AC3EAEA10:AC5EAEA40 EAEAAE:EA0EA0 NAME$""700 "CHARACTER 740 :# DK$(4):REC1V :"LISTING OF CURRENT CHARACTERS":T1400:Ti DK$(4):REC1 DK$;"OPEN CHARACTERS,L150" DK$;"READ CHARACTERS,R";REC NAME$:NAME$""700 "HD,AG,CH ,X14:SA%(X):X 6X15:WA%(X):X ILE?" "'Y' OR 'N' ";AN$/ AN$"N"210A AN$"Y"210 (7)::5:"YOU HAVE REQUESTED DELETION OF":7:"THE ENTIRE CHARACTER FILE!":::"ARE YOU SURE YOU WANT TO DO THIS ";:AN$ AN$"Y"ĺ::10:"REINITIALIZING CHARACTER FILE":1980. THIS DISK IS":"INCLUDED AS PART OF THE EAMON SERIES."B 1970 :"IF YOUR DISC HAS TOO MANY CHARACTERS":"STORED ON IT, YOU MAY WISH TO DELETE ":"ALL OF THEM AND START OVER CLEAN"::"DO YOU WISH TO DELETE CURRENT CHARACTERSAND BEGIN WITH A NEW FYOUR OWN":"DESIGN. BEFORE YOU CONTINUE PLEASE"z "INSERT THE EAMON MASTER DISK AND THEN":"PRESS ANY KEY TO CONTINUE."8 13:"PLEASE NOTE:":"FOR ADDITIONAL INFORMATION PLEASE REFER":"TO THE PLAYER'S MANUAL LOCATED ON THE":"DUNGEON DESIGNER'S DISKr"AAA CHARACTER BUILDER 1$DBY DON UNRATH 312/438-4799JPmREV BY THOMAS ZUCHOWSKIx10/83~  DK$(4):REC1xDK$;"NOMON I,O,C"C(18)/ :4:"THIS PROGRAM IS TO BE USED TO BUILD":"EAMON CHARACTERS OF             * d::D$(4)),D$;"CATALOG"D C(17)71380!"C(17)11380"::(17):"WEAPONS"::::"IF YOU PREFER, YOU MAY WAIT TO BUY YOUR WEAPONS UNTIL YOU GET BACK TO THE MAIN":"HALL. IF YOU WOULD PREFER TO WAIT TYPE A '0'!"H#::"YOU MAY CARRY UP TO FOUR WEAPONS WITH":"YOU AT A)'!Z"PIECES OF GOLD IN BANK ";C(16)P!d:"SELECT TYPE OF ARMOUR BY NUMBER"_!n"1) NONE"q!x"2) LEATHER"!"3) LEATHER AND SHIELD"!"4) CHAIN MAIL"!"5) CHAIN MAIL AND SHIELD"!"6) PLATE"!"7) PLATE AND SHIELD"::!C(17)"C(14)1001290Q :"IS YOUR CHARACTER A MALE OR FEMALE?":"TYPE 'M' OR 'F'"Z (SE$l 2SE$"M"1350 <SE$"F"1310 F:"HOW MANY PIECES OF GOLD DO YOU WISH TO":"HAVE WITH YOU AND HOW MANY IN THE BANK":!P"PIECES OF GOLD WITH YOU ";C(15240'"CLUB ";C(11):C(11)1001250K"SPEAR ";C(12):C(12)1001260o"SWORD ";C(13):C(13)1001270:"ARMOUR EXPERTISE--THE PLAYER ABILITY TO":"FIGHT WHILE WEARING ARMOUR": :"ARMOUR EXPERTISE GIVEN AS A PER CENT"::C(14) LITY PLUS YOUR":"EXPERTISE FOR THE WEAPON YOU ARE USING":"PLUS THE COMPLEXITY OF THAT WEAPON":k1970:"WHAT IS YOUR WEAPON EXPERTISE FOR:"::"(TYPE A VALUE FROM 0 TO 100)"::"AXE ";C(9):C(9)1001230"BOW ";C(10):C(10)1001F EAMON CAN BEDIVIDED INTO FIVE TYPES--AXES,BOWS,CLUBSSPEARS, AND SWORDS."::"WEAPON EXPERTISE - THE ABILITY TO USE A":"GIVEN WEAPON. IT IS EXPRESSED AS A VALUE":::"NOTE: "::"YOUR CHANCE OF HITTING YOUR TARGET IS"a"EQUAL TO TWICE YOUR AGI::"ENTER AS A PERCENTAGE THE ABILITY":" TO CORRECTLY CAST THE SPELL"::q~"ABILITY TO CAST BLAST ";C(5)"ABILITY TO CAST HEAL ";C(6)"ABILITY TO CAST SPEED ";C(7)"ABILITY TO CAST POWER ";C(8)J:"ALL WEAPONS IN THE WORLD O IT'S":"A CALL TO THE GODS 'HELP ME'!!":"WARNING, IT MAY WORK AGAINST YOU!!"Xl1970o:"THE VALUE YOU ASSIGN TO EACH WILL BE":"YOUR CHANCE TO SUCCESSFULLY CAST THE":"SPELL ON THE FIRST TRY. EACH SUCCESSIVETRY HAVLES YOUR CHANGE TO CAST IT."Mt AT YOUR":"OPPONENT.":^V"HEAL REMOVES HITS FROM THE BODY OF THE":"PERSON CASTING IT.":`"SPEED WILL DOUBLE THE CASTER'S AGILITY":"FOR THE NEXT 10 TO 34 TURNS":Nj"POWER MAY BE YOU MOST USEFUL SPELL AND":"AND CERTAINLY THE MOST UNCERTAIN. S AND SERVICES FOR."$1080g."DON'T YOU THINK YOU OVER DOING IT A BIT?":"HOW ABOUT 50 OR LESS?"8:"HOW MANY POINTS CHARISMA DO YOU WANT?";C(4)BC(4)501070L:"MAGIC - THERE ARE FOUR SPELLS AVAILABLE":::"BLAST FIRES A BURNING ARROW0 OR LESS?">:"HOW MANY POINTS AGILITY DO YOU WANT?";C(3)PC(3)501020:"CHARISMA - CHARISMA WILL DETERMINE HOW":"HOW WELL PEOPLE LIKE YOU. THIS WILL":"MOST LIKELY SHOW UP AS HOW MANY FRIENDS":"YOU MAKE OR WHAT PRICES YOU CAN BUY":"GOOD)C(2)50960"C(2)3940:"AGILITY - AGILITY'S MAJOR EFFECT IS HOW":"LIKELY YOU ARE TO HIT YOUR OPPONENT IN":"COMBAT. IT'S ALSO USEFUL IN AVOIDING":"SPECIAL TRAPS."1030 "DON'T YOU THINK YOU OVER DOING IT A BIT?":"HOW ABOUT 5HIM."970z" GIVE YOURSELF A BREAK, SELECT A NUMBER":"GREATER THAN 2!"::::"YOU WILL NOT BE WARNED 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(2T THE TOTAL SUM":"OF THE THREE DOES NOT EXCEED 48.">1970"HARDINESS - HARDINESS RELATES TO THE":"NUMBER OF POINTS OF DAMAGE YOUR BODY":"CAN WITHSTAND BEFORE YOU DIE. IT ALSO":"RELATES TO HOW MUCH TOTAL WEIGHT":"YOU CHARACTER CAN CARRY WITH HE THREE ATTRIBUTES OF ANY EAMON":"CHARACTER ARE HARDINESS,AGILITY, AND":"CHARISMA. WHEN RANDOMLY CHOSEN, THE"4"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 THAPE IN A NAME FOR YOUR NEW CHARACTER!".>850]H"YOUR NAME MUST BE 20 CHARACTERS OR LESS"fRNA$y\(NA$)20840fNA$""850p::"WE WILL NOW BEGIN TO BUILD"::NA$::X11000:Xqz::"BUILDING ";NA$:::"CHARACTER ATTRIBUTES"::"T$jL'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~'2000:MO$"A"30000'140 ' /// REA::"PRESS ANY KEY TO CONTINUE";::A$:. F ' /// SELECT RECORDT 'UPİ5000 $'6:958:"SELECT RECORD BY:":" 1. NAME":" 2. RECORD NUMBER":" 3. NEXT RECORD":X3:1000 .'S10040,10090,10130 8' /// FIND NAMEB'"CHARACTER NAME:";NAMER";C= 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$: UP0:ADD0: p >>> STOP SCREEN( zSA%(X)::X15:WA%(X):7 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."::6000:140 D$"WRITE CHARACTERS,ECORD":" 7. QUIT":X7:1000N S10000,20000,30000,40000,50000,60000,62000c  /// GET NUMBER| "INPUT (1-";X;"):"; S$:(S$)1(S$)X1020 S$:S(S$):  /// READ RECORD UP0:D$"READ CHARACTERS,R";C:NAME$:HD:AG:CH:X14:AD CHARACTERS,R0":NC:D$w :17);"EAMON":9);"CHARACTER MAINTENANCE":13);"BY JOHN NELSON":::"SELECT ACTION:" " 1. SELECT RECORD":" 2. UPDATE RECORD":" 3. DISPLAY RECORD":" 4. SELECT MODE":" 5. GO ON AN ADVENTURE" " 6. ADD A Rv#EAMON CHARACTER CHANGE.AND DISPLAY4HBY JOHN NELSONNTbdD$(4):kn:5x" INSERT MASTER DISKETTE"::" IN DRIVE 1"::" AND PRESS ANY KEY":A$: D$"OPEN CHARACTERS,L150,S6,D1":D$"RE          HARACTERS"**DK$;"OPEN CHARACTERS,L150"I*DK$;"WRITE CHARACTERS,R0"P*0a*DK$;"CLOSE"q*216,0:820O/83~  DK$(4):REC1xDK$;"NOMON I,O,C"C(18)/ :4:"THIS PROGRAM IS TO BE USED TO BUILD":"EAMON CHARACTERS OF )lDK$;"CLOSE CHARACTERS"l)v:"DO YOU WISH TO REVIEW CURRENT CHARACTERSON THIS DISK?":"'Y' OR 'N' ";AN$})AN$"Y"210)AN$"N"1950)1910)RECREC1:780)"END")24::"PRESS ANY KEY TO CONTINUE ";::A$::: *DK$;"DELETE CACTERS,R";REC(NA$+(X214:C(X):X4(SE$M(C(15):C(16):C(17)[(W01860(&B1W:WEP$(B):TY(B):COM(B):DI(B):SI(B):B(0F14W:"NONE":0:0:0:0:F(:1890(DN$"NONE"(NO0(XT14:N$:O:O:O:O:T(b"CLOSE"'AN$"N"1560#'AN$"Y"1690-'1670?'(18):"GOOD"I'1970'WEP$(B)WEP$:TY(B)TY:COM(B)COM:DI(B)DI:SI(B)SI'B' WRITE TO RECORD(REC)'DK$;"OPEN CHARACTERS,L150"'DK$;"WRITE CHARACTERS,R0"'REC (DK$;"WRITE CHAR CANINFLICT FROM ONE TO EIGHT POINTS OF":"DAMAGE."^&h"HOW MANY DICE FOR THIS WEAPON ";DI&r:"HOW MANY SIDE DIE FOR THIS WEAPON ";SI&|::WE$;" WILL INFLICT FROM":DI;" TO ";DISI;" POINTS OF DAMAGE"&"IS THIS CORRECT? ('Y' OR 'N') ";AN$1001610%T:"THE DAMAGE INFLICTED ON AN ENEMY IS":"DETERMINED BY ROLLING A GIVEN NUMBER OF":"DICE ONCE AND SUMMING THEM.":"FOR EXAMPLE, ROLLING 2 FIVE-SIDED DICE":"CAN INFLICT FROM 2 TO 10 POINTS OF":"DAMAGE.";3&^" ROLLING ONE EIGHT-SIDED DIE WEAPONS AND GUNS)":"3) CLUB (OR BLUNT WEAPONS)":"4) SPEAR (OR OTHER POLE WEAPONS)":"5) SWORD":"INPUT NUMBER";TY$6TY11580$@TY51580$J:"COMPLEXITY OF WEAPON(GUNS MORE COMPLEX":"THAN CLUBS)":"ENTER VALUE 0 TO 100 ";COM %OCOMNY ONE TIME. HOW MANY WEAPONS":"WOULD YOU LIKE TO BUILD AT THIS TIME?"O#W]#W01730k#W41500y#W01490#B1W#:"NAME OF WEAPON ";B;" ":WEP$#"|$,"WHAT TYPE OF WEAPON?":"1) AXE":"2) BOW (THIS INCLUDES ALL THROWN":" DAM. ODDS":uX14WuWN$(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 ANY KEY TO CONTINUE)";:A$:uA$"U"AR:";WA%(4);" SWORD:";WA%(5)1quA$"NONE"IvuAC1A$"LEATHER "_uAC3A$"CHAIN "uuAC5A$"PLATE "u(AC2)AC2A$A$"AND SHIELD"u:"ARMOUR: ";A$;" AE=";AE;"%"u:"WEAPON INFORMATION:" u"NAME TYPE COMP "HARDINESS:";HD;" AGILITY:";AG;" CHARISMA:";CH6NuXu" SPELL ABILITY":"BLAST:";SA%(1);" HEAL:";SA%(2);" SPEED:";SA%(3);" POWER:";SA%(4)bu:" WEAPON ABILITY":"AXE:"WA%(1);" BOW:";WA%(2);" MACE:";WA%(3)#lu" SPE R20010$S >>> CANCEL CHANGESKSADD1ADD0:UP0:NCNC1:C0:140_SUP0:2000:140{0u /// DISPLAY CHARACTER5uC0ĺ"NO RECORD IN MEMORY.":6000:140:u:"NAME:";NAME$;" REC:";C::"SEX:";SEX$;" GOLD:";GOLD;" ";"BANK:";BANK0Du:":" 7. END OF WEAPON CHANGE":X7:1000YpRS21110,21120,21130,21140,21150,21160,21170xvR"NEW NAME:";WN$(W):21102R"NEW TYPE:";WT%(W):21102R"NEW ODDS:";WO%(W):21102R"NEW DICE:";WD%(W):21102R"NEW SIDES:";WS%(W):21102R2110000:ACS:20010ZlR:8:"SELECT WEAPON TO CHANGE:":X14:" ";X;". ";WN$(X)::X4:1000dmRWS:nR"SELECT FIELD TO CHANGE:":" 1. NAME",WN$(W):" 2. TYPE",WT%(W):" 3. COMP.",WO%(W):" 4. DICE",WD%(W):" 5. SIDES",WS%(W)(oR" 6. NEXT WEAPONT.":20920Q20010R"ARMOR CLASS:":" 1. SHIELD ONLY":" 2. LEATHER ARMOUR":" 3. LEATHER ARMOUR & SHIELD":" 4. CHAIN ARMOUR"R" 5. CHAIN ARMOUR & SHIELD":" 6. PLATE ARMOUR":" 7. PLATE ARMOUR & SHIELD"R"(CURRENTLY ";AC;")":X7:10NQ" 1. GOLD IN HAND",GOLD:" 2. GOLD IN BANK",BANK:X2:1000:S20910,20920Q"HOW MUCH GOLD:";GOLD:GOLD0GOLD50000GOLD(GOLD)ĺ:"INVALID GOLD.":20910Q20010 Q"HOW MUCH IN BANK:";BANK:BANK0BANK50000BANK(BANK)ĺ:"INVALID AMOUN%(3):200105P"NEW SPEAR EXPERTISE:";WA%(4):20010_P"NEW SWORD EXPERTISE:";WA%(5):20010P"OLD ARMOUR EXP:";AE:"NEW ARMOR EXPERTISE:";AE:AE0AE99ĺ"INVALID EXPERTISE.":AE0:20700P20010@QSEX$"M"SEX$"F":20010JQSEX$"M":20010" 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):20010 P"NEW MACE EXPERTISE:";WA,SA%(3):" 4. POWER",SA%(4):X4:1000:S20510,20520,20530,20540hP"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"#HN" 12. DISPLAY RECORD":" 13. RETURN TO MAIN MENU":" 14.D NEXT RECORDT'CC1:CNCĺ"END OF FILE.":"PRESS ANY KEY TO CONTINUE";:A$:140m'2000:MO$"A"30000v'140 N /// UPDATE ROUTINE%NC0ĺ"NO CHARACTER IN MEMORY.":6000:140%*N:NAME$:"INPUT FIELD TO CHANGE:":" 1. NAME":" 2. HARDINCTERS,R";REC:N$:N$N2$1000K REC:DK$:::"CHARACTER NOT FOUND!"::l DK$;"READ CHARACTERS,R";REC 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):EAMON CHARACTER CLONE"7BY DONALD BROWN=J DK$(4)ld:5:"EAMON CHARACTER CLONE"n"ENTER NAME OF CHARACTER: ";xN2$:N2$""100DK$;"OPEN CHARACTERS,L150":DK$;"READ CHARACTERS,R0":NC REC1NC:DK$;"READ CHARA )0:WO%(X)0:?+^NA$"DUMMY":AE0:UP1:ADD1:CNC1:NCNC1:V+0 /// QUIT ROUTINEd+:UPİ5000u+ND$"CLOSE":"INE+:UPİ5000+ND$"CLOSE":D00O*HD22:AG22:CH22:AC4:WA%(1)20:WA%(2)20:WA%(3)50:WA%(4)20:WA%(5)40Z*60500*HD80:AG80:CH80:WA%(1)50:WA%(2)50:WA%(3)70:WA%(4)40:WA%(5)60*60500+TX15:SA%(X)0::GOLD300:BANK0:X14:WN$(X)"NONE":WT%(X)0:WD%(X)0:WS%(X. HIGH CHARACTER":" 4. SUPER CHARACTER"N)t1000:S60100,60200,60300,60400W)~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:WA%(3)40:WA%(4)14:WA%(5)10*2605R #";C;", TO BE EXACT.)"::"PRESS 'C' TO CONTINUE TO ADVENTURE"::"OR ANY OTHER KEY TO RETURN TO MENU.";:A$:~(`ǭA$"C"ı(jǡ:140(` >>> ADD A RECORD))j:8:"SELECT GENERAL CHARACTER POWER:":" 1. WEAK CHARACTER":" 2. AVERAGE NORMAL":" 3 AN ADVENTURE. IF YOU LIVE THROUGH":"THE ADVENTURE, YOU MUST RETURN TO THIS":"DISKETTE."'LǺ:"IF YOU DO NOT RETURN TO THIS DISKETTE":"AND INSTEAD RETURNED TO A MASTER":"DISKETTE, YOU WOULD LOSE A CHARACTER":"ON THE MASTER DISKETTE."p(VǺ"(CHARACTE50020:&xúD$"OPEN EAMON.NAME":D$"READ EAMON.NAME":DNG$p&×:5:"YOU ARE ABOUT TO ADVENTURE IN":::DNG$:&úD$"OPEN FRESH MEAT":D$"WRITE FRESH MEAT":C:&ð5020:D$"RUN ";DNG$&8Dz >>> INSTRUCTIONSZ'BǗ:"YOU ARE ABOUT TO TRANSFER ";NA$:"TOEY":A$:L% D$"OPEN CHARACTERS,L150":D$"READ CHARACTERS,R0":NC:D$:140h%Pò >>> WRITE FRESH MEAT%UíC0ĺ"NO CHARACTER IN MEMORY.":6000:140%ZíUPİ5000%dð51000::6:" INSERT ADVENTURE TO TEST AND PRESS":" ANY KEY":A$:&nå KEY TO CONTINUE";:A$::430009$ؤ >>> REPLACE BY REC#d$⤄"RECORD #:";R:R(R)RC2R142210o$줫42120$ >>> RETURN$C0ĺ"NO CHARACTER IN MEMORY.":6000:140 %D$"CLOSE"::5:"INSERT ORIGINAL DISKETTE AND PRESS ANY"::" KERW#:"SELECT METHOD":" 1. REPLACE BY NAME":" 2. REPLACE BY RECORD #":X2:1000j#$S42100,42200z#t"NAME:";N$#~R1NC:D$"READ CHARACTERS,R";R:N2$:N2$N$Ă:"I DON'T FIND THAT NAME.":42010$C3C:CR:5000:CC3::"DONE.":"PRESS ANYCE EXISTING CHARACTER":" 3. RETURN WITHOUT CHANGE":X3:1000W"S41000,42000,43000s"( >>> ADD NEW CHARACTER"2C2C21:C3C:CR:5000:CC3:D$"WRITE CHARACTERS,R0":C2::"DONE.":"PRESS ANY KEY TO CONTINUE";:A$::43000# >>> REPLACE CHARACTU BY PRESSING 'R'"*!":";A$:A$"R"140w!:5:"INSERT RECEIVING DISKETTE":" AND PRESS ANY KEY":A$:!D$"CLOSE":D$"OPEN CHARACTERS,L150":D$"READ CHARACTERS,R0":C2:D$>""SELECT ACTION:":" 1. ADD CHARACTER AS NEW":" 2. REPLAMO$"":140$ 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."!:"IF CHARACTER IS NOT IN MEMORY, RETURN":"TO THE PRIMARY MEN20010+uMO$"A"ĭUP1UP0:5000:10130>vMO$"A"10130K vS3140Vv20010l@ /// SELECT MODEJ:8:"SELECT ACTIONS WANTED:":" 1. AUTOMATIC":" 2. MANUAL":" 3. MOVE CHARACTER":X3:1000TS40100,40200,40300MO$"A":140 D CHARACTERS,R";REC:A$:A$""2000V REC:RECNC1:DK$;"WRITE CHARACTERS,R0":NC1x 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%(ARACTERS,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)? "; 8A$:A$"Y"A$"N"1080 BA$:A$"Y"1040 L# REC1NC:DK$;"REA^ 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'";::" KEY "; A$:A$"C"1050M $:DK$;"OPEN CHARACTERS,L150":DK$;"READ CHN CHARACTERS,L150":DK$;"READ CHARACTERS,R0":NCl 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$#EAMON CHARACTER MOVER"7BY DONALD BROWN=CP DK$(4)yd:5::9:"EAMON CHARACTER MOVER":n::"INSERT DISKETTE CHARACTER IS CURRENTLY ON INTO SLOT SIX, DRIVE ONE AND ENTER NAME: ";xN2$:N2$""1000 DK$;"OPE$:GOLD:BANK AC X14: WNAME$(X):WTYPE%(X)` WODDS%(X):WDICE%(X):WSIDES%(X)f  D$"WRITE CHARACTERS,R0" NC1 D$"CLOSE"d("NAME OF NEW CHARACTER:";NAME$F"HARDINESS:";HDP"AGILITY:";AGZ"CHARISMA:";CH d"WTYPE%(X)3* h"COMPLEXITY:";WODDS%(X)E r"NBR DICE:";WDICE%(X)b |"SIDES/DIE:";WSIDES%(X)i X D$"OPEN CHARACTERS,L150" D$"WRITE CHARACTERS,R";NC1 NAME$:HD:AG:CH:BLAST:HEAL:SPEED:POWER X15:WA%(X): AE SEX$"AXE"WTY$"BOW"WTY$"MACE"WTY$"SPEAR"WTY$"SWORD"WTY$"CLUB"ĺ"ILLEGAL TYPE":280{ ,WTY$"AXE"WTYPE%(X)1 6WTY$"BOW"WTYPE%(X)2 @WTY$"MACE"WTYPE%(X)3 JWTY$"SPEAR"WTYPE%(X)4 TWTY$"SWORD"WTYPE%(X)5 ^WTY$"CLUBAE "MALE OR FEMALE:";SEX$8 "GOLD IN HAND:";GOLDR "GOLD IN BANK:";BANKi "ARMOR CLASS:";ACt X14 "WEAPON NAME:";WNAME$(X) WNAME$(X)"NONE"WTYPE%(X)0:WODDS%(X)0:WDICE%(X)0:WSIDES%(X)0:390 "WEAPON TYPE:";WTY$_ "WTY"BLAST SPELL:";BLAST- n"HEAL SPELL:";HEALA x"SPEED:";SPEED[ "POWER SPELL:";POWERv "AXE ABILITY:";WA%(1) "BOW ABILITY:";WA%(2) "MACE ABILITY:";WA%(3) "SPEAR ABILITY:";WA%(4) "SWORD ABILITY:";WA%(5) "ARMOR EXPERTISE:";CHARACTER CREATOR2AUTHOR UNKNOWN8>J D$(4)hD$"OPEN CHARACTERS,L150"D$"READ CHARACTERS,R0"(NC2D$"CLOSE"<"NAME OF NEW CHARACTER:";NAME$F"HARDINESS:";HDP"AGILITY:";AGZ"CHARISMA:";CH d   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""00DK$;"OPEN CHARACTERS,L150":DK$;"READ CHARACTERS,R0":NC REC1NC:DK$;"READ CHARAISKETTE."::"USE A NEW DISKETTE (Y/N)? ";H 8A$:A$"Y"A$"N"1080] BA$:A$"Y"1040c L REC1NC:DK$;"READ CHARACTERS,R";REC:A$:A$""2000 REC:RECNC1:DK$;"WRITE CHARACTERS,R0":NC1 DK$;"WRITE CHARACTERS,R";REC6 NAME$:W:DK$;"CLOSE"4 :"ENTER NEW CHARACTER NAME: ";= N2$K NAME$N2$ $: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 DERS,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:D$"READ CHARACTERS,R";C:NM$:NM$""Ă:100' <NM$(T)NM$:CHARACTER CONDENSE3BY JOHN NELSON9jTO REMOVE EMPTY FILES FROM CHARACTERS FILEp REV 02/84 D$(4)::5:" INSERT MASTER DISKETTE"::" AND PRESS ANY KEY"A$:% (D$"OPEN CHARACT ͍čōōōōōōōύ͍čōōōōύٍƍčōōōƍōōƍčōōōANY DEAD ";NA$:D$"CLOSE"0  === ANOTHER? ===X :"DO YOU WISH TO RAISE ANOTHER?";v A$:A$"Y"A$"N"1020 A$:A$"N"Ā 303S"::10);"ANY KEY TO CONTINUE";:A$:20 D$"OPEN CHARACTERS,L150":D$"READ CHARACTERS,R0":NC:D$0 (:8:"CHARACTER TO BE RESURRECTED:";NA$^ 2R1NC:D$"READ CHARACTERS,R";R:N$:ME$q <N$""Ă:500 FME$(NA$,2)Ă:500 PD$"WRITE CHARACTERS,R";R:NA$:D$"CLOSE"::"O.K. ";NA$;" YOU HAVE BEEN RESURRECTED.":1000 "I CAN'T FIND  EAMON CHARACTER RESSURECT&:BY JOHN NELSON@P REV 02/84Vd D$(4)::6:"INSERT EAMON MASTER DISKETTE AND PRESS"::10);"ANY KEY TO CONTINUE";:A$:20 D$"OPEN CHARACTERS,L150":D$"READ CHARACTERS,R0":NC:  A$"N"120 A$8 DK$;"WRITE CHARACTERS,R";N:N N:DK$;"CLOSE":DxA$:A$"Y"ĺA$:160y A$"N"120 A$ DK$;"WRITE CHARACTERS,R";N: N:DK$;"CLOSE": OEAMON CHARACTER REMOVER$9BY DONALD BROWN?dDK$(4):DK$;"OPEN CHARACTERS,L150":DK$;"READ CHARACTERS,R0":NC:N1NC:DK$;"READ CHARACTERS,R";N:N$:DK$:"#";N;": ";N$n" KEEP (HIT 'Y' OR 'N')?";xA$:A$"Y"ĺA$:160   W):WSIDES%(W):W" DK$;"CLOSE"RBY DONALD BROWN=CP DK$(4)yd:5::9:"EAMON CHARACTER MOVER":n::"INSERT DISKETTE CHARACTER IS CURRENTLY ON INTO SLOT SIX, DRIVE ONE AND ENTER NAME: ";xN2$:N2$""1000 DK$;"OPE),WO%(4,N),WD%(4,N),WS%(4,N),UP(N),DD$(N)5 I1NC; a D$;"READ CHARACTERS,R";I:NA$(I)u NA$(I)""320 10000 "DD$(I):DD$(I)""NA$(I)"(BAD DATA IN FILE)":400 ,DD(DD$(I)):DD$(I)""DD0NA$(I)"(DEAD)" 6DD0HD(I)DD:E"::" AND PRESS ANY KEY":A$:J /// INPUT DATA FROM DISK D$"OPEN CHARACTERS,L150":D$"READ CHARACTERS,R0":NC:D$ 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,N2!CHARACTER FILE MAINTENANCE'FBY THOMAS ZUCHOWSKI 12/83_ WINSTON-SALEM NCe~dI768777:N:I,N:n 104,168,104,166,223,154,72,152,72,96xD$(4):S$" ":7 SPACES:10) " INSERT MASTER DISKETT               60,270:2000270,335:20002335,412:2000E412,460:2000X$460,520:2000h.520,2000::" TO CONTINUE";MP$::<3(WSIDES%(I)9));WODDS%(I)2AGEAWA%(WTYPE%(I));"%"CIw24::"PRESS ANY KEY TO CONTINUE ";::A$::RECREC1:160:DK$;"PR#0"12:13:"END OF PROGRAM"22: /// LIST ROUTINE:10,1602000 1E;"%" " ") "WEAPON INFORMATION:"S "NAME COMPLEXITY DAM ODDS"\ " "g 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);WA%(2);9);"CLUB ";WA%(3)G |4);"SPEAR ";WA%(4);10);"SWORD ";WA%(5)P " "| "ARMOUR: ";:(AC2)1411,412,413,414 "SKIN";:415 "LEATHER";:415 "CHAIN";:415 "PLATE";:415 (" AND SHIELD",110(AC2(AC2)));" AE=";A);" IN BANK ";BANK E" "S J"HARDINESS ";HD;" AGILITY ";AG;" CHARISMA ";CH\ O" "w 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 ";X),WOODS%(X),WDICE%(X),WSIDES%(X):X5 DK$;"CLOSE"| EA5(AC2(AC2)):AC1EAEA10:AC3EAEA10:AC5EAEA40 EAEAAE:EA0EA0 NAME$""490 ":(12); ,"CHARACTER NAME: ";NAME$ 6" " @"SEX ";SEX$;3);"GOLD ";GOLD;3DK$(4):REC1% ONERR GOTO 160E DK$;"OPEN CHARACTERS,L150"f 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%( TO LIST PROGRAM WITHOUT<SCROLL, TYPE - GOTO 1000B]( EAMON IS A CREATIONt2 OF DONALD BROWNz<F CHARACTERS DISPLAYP BY MARK MAINSZn500x:11:11:"DISPLAY CHARACTERS":12:13:"BY MARK MAINS"    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):Wh Tw D$"CLOSE" :5:"THERE WERE ";OC;" RECORDS ON FILE.":"NEW FILE CONTAINS ";NC;" CHARACTERS." SANY KEY"A$:% (D$"OPEN CHARACTPRESS ANY KEY WHEN YOU ARE READY TO ":"COPY RECORDS OUT.";E A$:V OCNC:NCT1 D$"OPEN CHARACTERS,L150":D$"WRITE CHARACTERS,R0":NC T1NC:D$"WRITE CHARACTERS,R";T:NM$(T):HD(T):AG(T):CH(T):S14:SA%(T,S):S:W15:WA%(T,W):Wa HD(T):AG(T):CH(T):S14:SA%(T,S):Sd 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$ n"FILE IS LOADED INTO TABLE.":"THERE ARE ";T;" RECORDS."; x:" :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:600 :S3230,3240,3250,3260,3270,3280" UP1:"----":S$;"5. RETURN TO MENU":X5:600::S3020,3030,3040,3050,3060q UP1:"NEW BLAST RATING:";SA%(1,0):3000 UP1:"NEW HEAL RATING:";SA%(2,0):3000 UP1:"NEW SPEED RATING:";SA%(3,0):3000 UP1:"NEW POWER RATING:";SA%(4,0):3000 g` :"OLD CHARISMA:";CH(0):"NEW CHARISMA:";X:X3X300X(X)ĺ:"INVALID CHARISMA.":2800s UP1:CH(0)X: :8:" SELECT SPELL:":S$;"1. BLAST",SA%(1,0):S$;"2. HEAL",SA%(2,0):S$;"3. SPEED",SA%(3,0)D S$;"4. POWER",SA%(4,0):S$;"------DD$(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.":26002 UP1:AG(0)X:HIS CHARACTER WAS:"::15:"(?)";DD$(0)::2220I:"OLD NAME: "NA$(0)"NEW NAME: ";X$:(X$)0(X$,1)"A"(X$,1)"Z"(X$)20ĺ:"INVALID NAME.":2200I1NC:NA$(I)X$ĂNA$(I)X$CIĺ:"THAT NAME IS ALREADY BEING USED.":2200 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,510R2060/DD$(0)""ĺ:"THIS CHARACTER IS DEAD. THE PREVIOUS NAME OF T" 3. AGILITY":S$;" 4. CHARISMA"i S$;" 5. SPELL ABILITIES":S$;" 6. WEAPON ABILITIES":S$;" 7. ARMOR"*S$;" 8. SEX":S$;" 9. GOLD":S$;"10. ARMOR EXPERTISE":S$;"11. WEAPON" 4S$;"--------------------":S$;"12. DISPLAY RECORD":S$;"13. RETURN TOAE(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) :(40(NA$(0)))2:NA$(0): " INPUT FIELD TO CHANGE:"::S$;" 1. NAME":S$;" 2. HARDINESS":S$;Cĺ:14);"END OF FILE.":C0:7101(CC1:5000K /// MODIFY RECORD `C0SUB1:1000NA$(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):$(0)V`I1NC:NA$(I)NA$(0)Ă:(7):"NO SUCH CHARACTER IN THIS FILE.":720:1000ijCI:C1C:5000 /// BY RECORD #"RECORD NUMBER:";CCNCĺ(7):"ONLY ";NC;" RECORDS IN FILE.":720:1000C1C:5000 /// NEXT RECORD!CNKEY TO CONTINUE)";:A$::4 /// 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:S1100,1210,1300,510L /// BY NAMEV"CHARACTER NAME:";NAD QUIT":X6:6005:S1000,2000,6000,7000,8000,9000MX /// GET NUMBER lb:" INPUT (1-";X;"):";lA$:S(A$):S1SX620vA$: /// CONTINUE PROMPT :" (PRESS ANY KEY TO CONTINUE)";:A$::510:" (PRESS ANY RACTER: NONE";:C0Ė21:NA$(C);" ";H8::" SELECT ACTION:":S$;"1. SELECT A 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 AN0 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$;" CHAJ,I):WT%(J,I):WO%(J,I):WD%(J,I):WS%(J,I):9 I:D$N 216,0:NC0510X :10 " THE CHARACTERS FILE IS EMPTY." :S$;" YOUR ONLY OPTION IS TO":S$;" GENERATE A NEW CHARACTER. ::S$;:" DO YOU WISH TO DO THIS?";A$:A$"Y"800330 @HD(I)! JAG(I):CH(I)K 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) rNA$(I)"(DEAD)":320 |GOLD(I):BANK(I):AC(I). J14:WN$())));2AG(C)WA%(WT%(I,C),C)WO%(I,C);"%">*:SUB2SUB0:G*720_*AU1CNCAU0:C0n*AU11300*SUB1SUB0:*510*p /// FILE MAINTENANCE *z:8:" SELECT ACTION:":=+S$;"1. LIST FILE":S$;"2. SHORT LIST":S$;"3. COND"WEAPON INFORMATION:"G)" NAME TYPE CMPLX DMG ODDS";R)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: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"(Z(AC(C)2)AC(C)2A$A$" & SHIELD"(d:"ARMOR: ";A$(n" EXPERTISE: ";AE(C);"%")x:1:"1.AXE:";:30:WA%(1,C)V'" BLAST:";:12:SA%(1,C);:21:"2.BOW:";:30:WA%(2,C)' " HEAL:";:12:SA%(2,C);:21:"3.CLUB:";:30:WA%(3,C)'" SPEED:";:12:SA%(3,C);:21:"4.SPEAR:";:30:WA%(4,C)(" SPEED:";:12:SA%(4,C);:21:"5.SWORD:";:SEX$(C)"M"ĺ"MALE";2&SEX$(C)"F"ĺ"FEMALE";C&20:"GOLD:"{&"HARDINESS:";:12:HD(C);:21:"IN HAND: ";GOLD(C)&"AGILITY:";:12:AG(C);:21:"IN BANK: ";BANK(C)&"CHARM:";:12:CH(C)&20:"WEAPON ABILITY:"'"SPELL ABILITY:";:21NC:NA$(I)NA$(0)ĂZ%NA$(I)NA$(0)ĺ:" THAT NAME IS ALREADY BEING USED.":720:%NCNC1:CNC:ADD1:UP(C)1:NCFULLFULL0%4610% /// DISPLAY CHARACTER %:"RECORD #: ";:SUB1ĺC1;%SUB0ĺC;%15:"NAME: ";NA$(C)&WT%(I,0):WO%(I,C)WO%(I,0):WD%(I,C)WD%(I,0):WS%(I,C)WS%(I,0):R$ DD$(C)DD$(0)i$*UP1UP(C)1:UP0t$4:510$FULL0ĺ:"THE DIMENSIONED ARRAYS ARE FULL. YOU MAY NOT ADD A CHARACTER TO THIS FILE UNTIL THE PROGRAM IS RERUN.":720:%I000: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)EAR":S$;"5. SWORD")":WT%(W,0):4260N"UP1:"NEW TYPE:";WT%(W,0):4260s"UP1:"NEW 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:5D%(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):4260!UP1:"NEW TYPE:"":S$;"1. AXE":S$;"2. BOW":S$;"3. CLUB":S$;"4. SPG(0)WA%(I,0)WO%(I,0))));2AG(0)WA%(I,0)WO%(I,0);"%"= t "-----------------":"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",W1:AE(0)X:hh:8:"SELECT WEAPON TO CHANGE:"::" NAME TYPE CMPLX DMG ODDS";::I14rI;".";WN$(I,0);16(WN$(I,0)));WT%(I,0);6((WO%(I,0))));WO%(I,0);"%";7 |7((WD%(I,0))"D"(WS%(I,0))));WD%(I,0);"D";WS%(I,0);5((2A(X)ĺ:"INVALID AMOUNT.":38101GOLD(0)X:~"HOW MUCH IN BANK:";X:X0X50000X(X)ĺ::"INVALID AMOUNT.":3830BANK(0)X::"OLD ARMOR EXPERTISE:";AE(0):"NEW ARMOR EXPERTISE:";X:X0X99ĺ:"INVALID EXPERTISE.":X0:4000 UPX: ";SEX$(0)H"NEW SEX: ";X$:X$"M"X$"F"ĺ:"INVALID SEX":3600^$UP1:SEX$(0)X$:UP1::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:X0X50000XSS:"::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. PLATE ARMOR":S$;"7. PLATE ARMOR & SHIELD"\ :S$;"(CURRENTLY ";AC(0);")":X7:600:AC(0)S: :"OLD SENEW AXE EXPERTISE:";WA%(1,0):3200P UP1:"NEW BOW EXPERTISE:";WA%(2,0):3200 UP1:"NEW CLUB EXPERTISE:";WA%(3,0):3200 UP1:"NEW SPEAR EXPERTISE:";WA%(4,0):3200 UP1:"NEW SWORD EXPERTISE:";WA%(5,0):3200 gH UP1::" ARMOR CLA#J14:WN$(J,I):WT%(J,I):WO%(J,I):WD%(J,I):WS%(J,I)::D$F:#_:' ///ONERR ROUTINE h:'768:$'NC1(222)5NC0:410:.'D$;"CLOSE":8'D$;"OPEN CHARACTERS,L150":B'400I ":7 SPACES:10) " INSERT MASTER DISKETT END OF PROGRAM ***"::29# /// WRITE RECORD Q9#D$;"OPEN CHARACTERS,L150"o9#D$"WRITE CHARACTERS,R";I9#DD$(I)""NA$(I)""9#NA$(I):HD(I):AG(I):CH(I):J14:SA%(J,I)::J15:WA%(J,I):9#AE(I):SEX$(I):GOLD(I):BANK(I):AC(I)@::WO%(I,0)0:WS%(I,0)0:&8hAE0:AC0U8rADD1:NCNC1:CNC:UP(C)1:NCFULLFULL0m8|NA$(C)NA$(0):20008(# /// QUIT ROUTINE 82#D$;"CLOSE"8<#I1NC:UP(I)1İ91108F#8P#ADDĺD$"WRITE CHARACTERS,R0":NC:D$:9Z#D$;"CLOSE":20:8:"*** AD CHARACTERS,R";J:N$:S$;J;". ";N$::D$:7080O7@ // GENERATE NEW RECORD w7J:"NAME OF NEW CHARACTER: ";NA$(0)7THD(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)0KETTE AND PRESS":16:"ANY KEY":A$:H6D$"OPEN CHARACTERS,L150":510r6J1C2:D$;"READ CHARACTERS,R";J:N$6NA$(C)N$IJĺD$:(7):"THE CHARACTER NAME ";NA$(C):"ALREADY EXISTS IN THIS FILE IN RECORD ";J::70806(:07x:J1C2:D$;"RE70805D$:7700:753015L/// REPLACE BY REC#5VD$::10:"RECORD #:";I:I(I)IC2I1ĺD$::"THE HIGHEST RECORD IN THIS FILE IS ";C2:70805`77005j91205t:18:"DONE."::7205/// RETURN%6D$"CLOSE"::5:" INSERT ORIGINAL DISRz4:" SELECT METHOD:":S$;"1. REPLACE BY NAME":S$;"2. REPLACE BY RECORD #":S$;"3. RETURN TO FIRST MENU":X3:6004S7400,7500,70804:10:"NAME:";N1$5I1C2:D$"READ CHARACTERS,R";I:N2$:N2$N1$Ă:D$::"I DON'T FIND THAT NAME.": NEW":S$;"2. REPLACE EXISTING CHARACTER":S$;"3. LIST CHARACTERS IN THIS FILE":S$;"4. RETURN TO MAIN MENU":X4:6003S7200,7300,7800,76003 /// ADD NEW CHARACTER3*IC21:770034D$"WRITE CHARACTERS,R0":I:IC:75304/// REPLACE CHARACTEE DISK IT IS TO BE TRANSFERED TO, AND PRESS 'C'."k2:"HIT ANY OTHER KEY TO RETURN TO THE MAIN MENU.":2A$::A$"C"5102D$"CLOSE":D$"OPEN CHARACTERS,L150":D$"READ CHARACTERS,R0":C2:D$u3:" SELECT ACTION:":S$;"1. ADD CHARACTER ASNE WILL MOVE AN ADVENTURER FROM ONE DISKETTE/FILE TO ANOTHER. THE CHARACTER MUST BE LOADED WHEN THIS FUNCTION IS EXECUTED."1v:"THE CHARACTER NOW LOADED IS:"::(40(NA$(C)))2:NA$(C)22:"IF THE CHARACTER IS ALREADY LOADED, INSERT THI0:8:"SHORT LIST:"::S$;"REC # NAME";:S$""Ė20:"OLD NAME";0::I1NC:S$;" ";I;".";:8(S$):NA$(I);:DD$(I)""Ė21:"(?)";DD$(I);0:0S$" ":720:60000X /// MOVE CHARACTER 0bC0SUB1:10001l:"THIS ROUTI":NC3/ZD$;"WRITE CHARACTERS,R1"::D$:NC0:410M//// CHAR LIST/DELETE[/:I1NC|/:"RECORD #";I;": ";NA$(I)/" KEEP THIS RECORD?";:A$:A$:A$"N"NA$(I)"":UP(I)1//6000//// SHORT LIST/I1NC:DD$(I)""S$""0HARACTER ON THIS DISK!!!"l.(::" 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,R0K,J)WO%(K,J1):WD%(K,J)WD%(K,J1):WS%(K,J)WS%(K,J1):H-UP(J)1:JZ-NCNC1:ADD1-I:::16)"DONE":I1500:I:6000-/// INIT FILE- :6:16::"WARNING":-I13:(7);:.::" THIS SUBROUTINE WILL DELETE EVERY C$(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):,tAC(J)AC(J1):AE(J)AE(J1)9-~K14:WN$(K,J)WN$(K,J1):WT%(K,J)WT%(K,J1):WO%(ENSE FILE":S$;"4. INIT FILE":S$;"5. LIST/DELETE CHARACTERS"g+S$;"6. RETURN TO MAIN MENU":X6:600+S6100,6800,6200,6400,6600,510+///LIST FILE+AU1:C0:1300+8/// CONDENSE FILE+BI1NC+LNA$(I)""6300f,VJINC1:NA$(J)NA     RETURN TO QUIT"; C$) C$"C"1500= x(1155)3000W ::(4);"CATALOG":q A$"APPLE ][ AND AAA"} X112 1:X1:A$; X:" ";:Z125:Z:X  :X121:X:25:A$ Z150:Z:X:W LAS VEGAS NV 89121 K, RECOPIED WITH"> R"ANY VOLUME YOU CHOOSE FROM OUR PUBLIC"i "DOMAIN LIBRARY, WITH MANY THANKS.":r 150 10:"AAA COMPUTER PRODUCTS" L13:"721 PIKE STREET" 7:"CHEYENNE * WY * USA * 82009": 255 2:"PRESS C FOR CATALOG OR M?":0 &"MAYBE YOU EVEN TOOK LOTS OF TIME TO"\ X"REWRITE A PROGRAM FROM END TO END?": "WE WOULD LIKE TO HARVEST YOUR ";Q$;"IMPROVED";Q$;"PROGRAMS FOR OTHERS TO ENJOY AND USE." 6:"-- PLEASE, SEND 3A A COPY --": "WE'LL RETURN YOUR DIS------------------  ( n::5 xQ$(34)N (1155)İ2000::W ,2: " AN INVITATION FOR APPLE PROGRAMMERS " : "PERHAPS YOU FOUND SOME ";Q$;"FAULTY";Q$;" PUBLIC" "DOMAIN PROGRAMS ON THIS DISK AND YOU" "FIXED THE3A MESSAGE+BY RON MALEIKA13A COMPUTER PRODUCTS 721 PIKE STREET CHEYENNE WY USA 82009 --------------------- MODIFIED FOR AAA BY PAUL RAYMER OF LAS VEGAS NV 89121 ""100 <10:L1(N$), FC((N$,L,1))A P:C32Ğ:CC64P Z(C);::d d:RECREC1:50t nD$;"CLOSE"DvEAMON CHARACTER NAMES"6AUTHOR UNKNOWN<H D$(4)gD$;"OPEN CHARACTERS,L150"qREC1{(110-::"** NAMES OF CHARACTERS CURRENTLY FILED.":" CONTROL CHARACTERS IN INVERSE":2D$;"READ CHARACTERS,R";REC:N$ 7N$  CLOSE"I8Mt_=gH?J QVQT_ɕ%[^ZZ\[]^Z_[ 0W Г J1  @)ȹ@)ȹ@) q P^ɠ 0   qL MW'WП < XX QLiLLs4