d12288*nD$(4):D$"PR#3":(24);GxDBL(A)(A)256(A1)dI%(8),S%(8),N$(31):210x:::Subroutines((33)(A$))21:A$:X1128:YY12.4018:(A$,Y1,1);(8);:X(16384)::A$:A$"a"A$"z"A$(X161)  :::Startup: A$"":X1(33)22:A$A$"==":s 150:1:A$" the Secret Bard's Tavern of Greatness " 150:34,1:10:"Character disk slot :";A$ S(A$):"Character disk drive:";A$:D(A$) D$"BLoad Characters,t$EA,a$2000,s"S",d"D :::Roster5 X031:Y015:A(X128Y8192)M AA170Y100:A0o "AA255N$(X)N$(X)(A128)x ,Y,X 6::X015:10); @(" "(X),2)") "N$(X); J50)X16") "N$(X16): T:18)"(S)ave"58)"(Q)uit" ^22:"Character number:";A$:CHAR(A$): hA$(A$,1):A$"a"A$((A$)32)h rA$"S"ĺD$"BSave Characters,t$EA,a$2000" |A$"Q"ė:12:"bye.":: CHAR0CHAR31350 (CHAR0A$"0")N$(CHAR)""350 :::Examine character BASECHAR1288192 A$"":X2031:A$A$((BASEX))9 :GOLD$A$:A$"":X3647Y A$A$((BASEX))::EX$A$o LVLDBL(BASE32) HPDBL(BASE48):CNDDBL(BASE50) MPDBL(BASE52):MRDBL(BASE54) MS(BASE64):MC(BASE65) MM(BASE66):MW(BASE67) :::Display character0 :4:"Name:"N$(CHAR)N "Gold:"GOLD$:"Exp :"EX${ "Level: "LVL:"Hits : "HP:"Cndtn: "CND &"Magic: "MP:" Remaining: "MR 0"Spells-Sorc:"MS:8)"Conj:"MC :8)"Magi:"MM:8)"Wizd:"MW D"Possessions":"Quit"N:::User selectionEX23:"Type letter of attribute to change:";VbA$"()":160flA$"N"750vvA$"G"820A$"E"830A$"L"890A$"H"900A$"C"910A$"M"920A$"R"930A$"S"1000A$"P"1120A$"Q"X156310600$:::NameB23:868:"New name:";A$\X015:BASEX,255:N$(CHAR)"":X1(A$):Y((A$,X)) Y("a")Y("z")YY32N$(CHAR)N$(CHAR)(Y):BASEX1,Y128 :430*:::Gold/experience 4A$"gold":Y20:840#>A$"experience":Y36DH23:868:"New "A$;:":";A$cRA$("000000000000"A$,12)\X011:BASEYX,((A$,X1,1))f:430p:::Level/hits/conditionzA$"level":Y32:940A$"hits":Y48:940A$"condition":Y50:940A$"magic points":Y52:940CA$"remaining magic points":Y54d23:868:"New "A$;:":";A$X(A$):X1X65535X65535BASEY,X256:BASEY1,X(X256)256Y32Y34:960430:::Spell levels 23:868:"Spell class? (SCMW):";%A$"%/":160:Y0:X14?A$("SCMW",X,1)YXN:Y1000eY1A$"sorcerer"|Y2A$"conjurer"$Y3A$"magician".Y4A$"wizard"823:868:"New "A$;:" level:";A$BX(A$):X7(X1A$"0")X7LBASE63Y,X:430V:::Possessions3`::X05:Y022SjA$:X131:Y2:ZX23Y1rt(A$)ĺ(" "(Z),3)" ";~(A$" ",10);:2:Y,XX07:S%(X)(BASE80X2)I%(X)(BASE81X2)15X:70:X1":";S%(X)1ĺ"e";S%(X)2ĺ"x";/S%(X)1S%(X)2ĺ" ";I(" "(I%(X)),3):i23:70:"9:Quit ";:A$"#+"160:X(A$):X1240X943023:70:868:XX115X:73:"";A$ Y(A$):Y0Y127Y0BASE80X2,0:BASE81X2,Y1170(:::ItemsH2Torch,Lamp,Broadsword,Short Sword,Dagger,War Axe<Halbard,Mace,Staff,Buckler,Tower Shield,Leather ArmorFChain Mail,Scale Armor,Plate Armor,Robes,HelmPLeather Gloves,Gauntlets,Mandolin,Harp,FluteZMthr Sword,Mthr Shield,Mthr Chain,Mthr ScaleKdSamurai Fgn,Bracers [6],Bardsword,Fire Horn|nLightwand,Mthr Dagger,Mthr Helm,Mthr GlovesxMthr Axe,Mthr Mace,Mrthr Plate,Ogre Fgn,Lak's LyreShield Ring,Dork Ring,Fin's Flute,Kael's AxeBlood Axe,Dayblade,Shield Staff,Elf CloakGHawkblade,Admt Sword,Admt Shield,Admt Dagger|Admt Helm,Admt Gloves,Admt Mace,Broom,PurebladeExorwand,Ali's Carpet,Magic Mouth,LuckshieldGiant Fgn,Admt Chain,Admt Scale,Admt PlateBracers [4],Arcshield,Pure Shield,Mage StaffCWar Staff,Thief Dagger,Soul Mace,Wither StaffxSorcerstaff,Sword of Pak,Heal Harp,Galt's FluteFrost Horn,Dmnd Sword,Dmnd Shield,Dmnd DaggerDmnd Helm,Golem Fgn,Titan Fgn,ConjurstaffArc's Hammer,Staff of Lor,Powerstaff,Mournblade?Dragonshield,Dmnd Plate,Wargloves,LorehelmtDragonwand,Kiel's Compass,Speedboots,Flame HornTruthdrum,Spiritdrum,Pipes of Pan,Ring of PowerDeathring,Ybarrashield,Spectre Mace,Dag Stone"Arc's Eye,Ogrewand,Spirithelm,Dragon Fgn,Mage FgnF,Troll Ring,Troll Staff,Onyx Key,Crystal Swordx6Stoneblade,Travelhelm,Death Dagger,Mongo Fgn@Lich Fign,Eye,Master Key,WizWand,Silvr SquareJSilvr Circle,Silvr Triang,Thor Fgn,Old Man FgnTSpectre Snare,,,,,,,,,,,