< DESTINY KNIGHT MAKER WRITTEN BY PAUL FLYNN 17 JAN 88n THIS IS A CHARACTER EDITOR FOR BARDS TALE 2}886:"" 255,254,253,252,251,250,249,248 247,246,245,244,243,242,241,240242,214,72,49,170,156,243,126 71,24,1,32,236,244,118,74-248,102,35,137,163,162,161,160N183,180,3,149,244,245,92,66j41,99,68,16,1,1,53,11464,32,0,133,0,0,64,0"63,62,61,66,0,0,0,0%0,0,0,0,0,0,0,69(151,133,99,51,115,69,70,73+72,71,147,189,183,66,1,48.0,0,0,0,86,0,0,0)123,22,84,119,242,240,17,112@4150,0,0,0,0,0,0,0U70,0,0,0,0,0,0,0:HOBBIT,DWARF,ELF,HUMAN,NONE,GNOME,HALF-ORC,HALF-ELF=PALADIN,BARD,ROGUE,MAGICIAN,CONJURER,SORCERER,WIZARD,WARRIOR,A,A,A,A,A,ARCHMAGE,MONK,HUNTER+@OLD,DEAD,OKAY,POISONED,POSSESSED,NUTS,STONED,PARALYZEDC TORCH,LAMP,BROADSWORD,SHORD SWORD,DAGGER,WAR AXE,HALBERD,LONG BOW,STAFF,BUCKLER,TOWER SHIELD,LEATHER ARMR F CHAIN MAIL,SCALE ARMR,PLATE MAIL,ROBES,HELM,LEATHER GLOVES,GAUNTLETS,MANDOLIN,SPEAR,ARROWS,MTHR SWORDl IMTHR SHIELD,MTHR CHAIN,MTHR SCALE,OGRE FGN,BRACERS [6],BARDSWORD,COLD HORN,LITEWAND,MTHR DAGGER L MTHR HELM,MTHR GLOVES,MTHR AXE,SHURIKEN,MTHR PLATE,MOTLEN FGN,SPELL SPEAR,SHIELD RING,FIN'S FLUTE"";SP$:SP$:538};A EXPERIENCE INCREASE;D"ENTER NEW ";A$;" AMOUNT:";:I0:B$"";GA$:A$""583;JA$(13)595;M(A$"0")(A$"9")583 SPELL POINTS'>A$"SPELL":601:SP(B$)V>"";20);" ";SP:d> BASE AC|>ACAC1:AC0AC10>"";20);" ";AC:> PURCHASE ROUTINE> QM8>QMQM1:Q2(QM)X:Q1(QM)0:Q3(QM)255:691:? DROP ROUTINE?XQM691:W?IXQM:Q1(I)Q1(I1):Q2(I)Q2(I1):Q3(I)Q3(I1):k?QMQM1: 691:w? EQUIP?Q1(X)1:691:? UNEQUIP?Q1(X)0:691:? PRINT E-LIST?""?I18:Q1(I)0A$" "?Q1(I)1A$"E"@" "7@I;A$;" ";EP$(Q2(I)1)::H@ EQUIP MENUu@PG0:QM8:I811:Q2(I)0:QM0:730~@QMI@"PAUL'S EQUIPMENT SHOP"@"EVERYTHING COMES WITH OUR SPECIAL"@" ENDLESS-CHARGE GUARANTEE !!!"A"YOUR CURRENT ":"EQUIPMENT-":694[A823:"EQUIPMENT SHOP MAKE A CHOICE:"A"[G]-GET ITEM [D]-DROP ITEM [E]-EQUIP"A"[U]-UNEQUIP [-]-PAGE DOWN [+]-PAGE UP"A"[SPC]- END":39);""B"";S2$:S2$:S2$BA$:A$""745)BA$" "499:BA$"G"766uB"INPUT ITEM NUMBER":"TO GET ";B$B((B$)0)((B$)16)754BX(B$)PG:661:742B DROP ITEMBA$"D" 778 C"INPUT ITEM NUMBER":"TO DROP ";B$+C((B$)9)X(B$):670:7424C742EC A$"E"790C "INPUT ITEM NUMBER":"TO EQUIP ";B$C((B$)0)((B$)8)742CX(B$):682:742CA$"U"802D"INPUT ITEM NUMBER":"TO UNEQUIP ";B$"D((B$)0)((B$)8)7428DX(B$):688:742JD"A$"-" 814bD%PGPG16:PG0PG0kD(730xD+ PAGEUPD.A$"+"742D1PGPG16:PG127PG112D4730D7 PAGE ROUTINED:"":I116:19);" "E=20);I;EP$(IPG1)::E@DEC SAVE ROUTINE ENCRYPT DATA AND CHECKSUMzEF"ENCRYPTING DATA AND DOING CHECKSUM"EI871:I1MX:MBNC(I):CK0:J0126:CK(((MBJ)CK) ((MBJ)CK))::(MB127),CK:EL SAVE CHARFOSS15:15,8,15:4,8,4,"#".FR"SAVING CHARACTERS TO DISK"mFUI1292:MBCR(I):15,"B-P";4;0:J0255:4,((MBJ));:FX15,"U2";4;0;2;SS:".";:SSSS1:F[4:15F^832Fa"PRINT ROUTINE":Fd"GO BACKTO ROSTER":Fg CHARACTER DECRYPTION/ENCRYPT[GjI1MX:MBNC(I):J0127:(MBJ),(((MBJ)(49152J)) ((MBJ)(49152J)))::".";::Gm PRINT CHAR NAME MB=START, A$=RESULTGpA$"":K015:(MBK)91A$A$((MBK))Gs:8Hv"*******DESTINY KNIGHT MAKER*******":"THIS PROGRAM ALLOWS YOU TO CHANGE ":"YOUR BARD'S TALE 2 CHARACTERS"Hy"YOU CAN CHANGE ANYTHING ABOUT THEM":"THAT YOU WANT. YOU CAN ALSO PRINT OUT":"A CHARACTER'S STATS ON YOUR PRINTER!"H|"TO OPERATE SIMPLY FOLLOW THE MENUS.":"A WORD OF ADVICE:"KI"AVOID GIVING CHARACTERS TOO MUCH GOLD,":"EXPERIENCE,HIT POINTS, OR SPELL POINTS"I"SINCE THESE WILL RESET TO ZERO ONCE":"THEY HIT THEIR MAX. (EXP=999999999999)"J"EXTRA BONUS- ANY ITEMS THAT YOU GET":"IN THIS PROGRAM WILL HAVE AN ENDLESS":"CHARGE."^J"E-MAIL ANY QUESTIONS OR COMMENTS TO":" PAULF12":"PRESS A KEY TO START"qJA$:A$""907wJJ PRINTER ROUTINEJ" CHECK PRINTER":I1100::"  PRESS RETURN TO PRINT "K" OR SPACE TO ABORT"&KA$:A$""9227KA$" " 505JKA$(13)922VK1,4:1K(13);" BARD'S TALE II: THE DESTINY KNIGHT"K(13);(13);(13);"CHARACTER: ";NM$K(13);"CLASS: ";CL$(CL1);:DK0"/ DESTINY KNIGHT")L(13);"RACE: ";RC$(RC1);20);"STATUS: ";LF$(LF1)iL(13);"LEVEL: ";LV:"EXPERIENCE: ";(EX$):"GOLD: ";(GD$)L(13);"HIT POINTS: ";HP;22);"SPELL POINTS: ";SPL"BASE A/C: ";AC:"NUMBER OF ATTACKS/ROUND: ";AK:(13);(13);"PHYSICAL STATS-"/M"STRENGTH: ";SR:"INTELLIGENCE: ";IQ:"DEXTERITY: ";DXUM"CONSTITUTION: ";CN:"LUCK: ";LKvM(13);(13);"SPELL LEVELS-"M"MAGICIAN: ";SL(3);10);"CONJURER: ";SL(2);10);"SORCERER: ";SL(1)M"WIZARD: ";SL(4);12);"ARCHMAGE: ";SL(5)%N(13);(13);"EQUIPMENT LIST";(13);"--------------"@NI18:Q1(I)0A$" "UNQ1(I)1 A$"E"sNI;A$;" ";EP$(Q2(I)1):}N1:1N505N LEVEL CHANGERN"ENTER NEW LEVEL (<32767): ";B$N (B$)32767991NLV(B$)O"";8);" ";LV:X