!766#6#61A!QRB G0)WRBORB_RBW ,UB~ RBW!BB,~ !76{ 8_6 !7BS76B67QB~BN‡BN‡BN F(N ~(~6 { ~B6 !B~(#3BF ~>= ERRORNO SYS!766#6#61A!QRB G0)WRBORB_RBW ,UB~ RBW!BB,~ !76{ 8_6 !7BS76B67QB~BN‡BN‡BN F(N ~(~6 { ~B6 !B~(#3BF ~>= ERRORNO SYSPP PP PP PP H(PP P@#HP$A#($AP(@ wB@;=>D;EB;;AkdGeLuKoNOP;];aUT;c;;JZY^\;;H;;;;i;wv;;;;ts;;rlmn;;<;B@;;;;;H?;IG;Js;fZ;W\^RVU;;a[T;;;;j;;;KL=;;;m;hl;;;tuvw>;>?;hwHA;@;;;;KGJMfg;;;;;V;]XWS;;Q\T;U;;[;;;;P;n;b; ol;;;;;Nstuv<;<<=;==;;===<=<>=><<<;>;=<<;>;;===>=;;=;;;;<;==;;;;==;;=>==<;<;<<;;;;;<<;<<;=<;>>;====<>;;===;;;;>;;;<<=;;;=;=>;;;<<><=;<<;<==;==;<=;==<;<<<;;;<<;;;==;=>>;;=;>==;;;<;=>==>;;===>==<==<<;<;;;;<<<=<<;;;;;=;=><=;;>==;=;; =;;;;>;=;>;>=;;;;;<<<><=;==E;EE;;B>I=CCDK>===;=;>S=;K;;BJB?C;;G;;;;=;O@;;;;@@;;=>O?=;=;I=;;;;;=L;==;CI;F>;>\F>=D;;BBC;;;;I;;;ICB;;;I;CO;;;==O=L;==;CBE;EE;GG;B?=;===;;;==;;;BJ;C=M;;T;WIC;;;=;@>EI>;;I@@>H?=NXBO;=;;;;===CIC;;;;;>;GD =>;;HBB;B;;F;;;;>;C;I;OI;;;;;==IO=G;OeI;II;;GBO[IWGQAAAA;@;C[C;N;;JOGBI;;Q;;;;L;SD;;;;DD;;BASCe;e;UC;;;;;eV;Oe;IO;IA;BaKBCI;;GGH;;;;O;;;YKG;;;M;GS;;;CCSeV;Oe;MGI;II;eQ;JEQ;AAA;;;CE;;;GO;I@P;;Y;ZOI;;;L;DAIMA;;NDDALCeSbLU;I;;;;eeOI YK;;;;;B;LICB;;KGG;G;;K;;;;A;G;O;SM;;;;;CCOSe;;;;CBC><>A;=;;;EF;;<;;;;;;;;A;;===;C;;D@;EE;E;;;=;<;;?;;;;=;;;;C?E==<=;=;;;>B;;<;;;;;;;;<;;<<<;C;;OA;ET;J;;;=;>;;@;;;;=?;??BBB;;;;;;;;;;;;;;;=>;;;;C;>;;;;<;C<=;;;;;;>;;;=;;;@;;;A;N;LB GGG;;;;;;;;;;;;;;;HA;;;;?;A;;;;@;L=L;;;;;;>;;;G;;;A;;;C;G;LEJ@E;;;;;;;;;;;;;;;>E;;;;F;B;;;;C;F>G;;;;;;I;;;W;;;H;;;Q;;;;;;;;LDEC;;;;;;>;;I;OF;;;;MI@O;;;LB;;;@WL?CV;AA;R>BAPET; ;A;;;A;;;;;;;;CHCA;;;;;;Q;;V;EE;;;;FKFG;;;=AF?AM;aM;BEDEOWB;;J;;;Q;xxxShXNDG>;;;;n>Ji^J^n>XN>nuN^XhhN>>jj[RJS^;D>>>DJNciyiYTSO????vKOoo_jzK_YKzz_o\yyYEHyyiYT_kKKEKEKOdyj_j{fBBUK@@KUUUULKBMUjj niiTTi~TzeP;;??;;?JKLLAA;?J~T~^i~~~;;;;;GB;;;B?A@A;;@;;\T;;>>;@;;@;;;E;HE;G;;;;;;`;E?>A@B@@=A<<<==<<<<=<<=EA@@=;;;;;;EGH GECGDGCNT>?;@>@><<=>;?<<<<<<<==<<<;D<;;>@;;A;@E@@@@OJ@EJ;DB@DEDB@FGA@;C|@@|H~|B~@CD|[|F|[}|A}A;G;;E?>A@B@@=A<<<=O?C|[|?|\C ?;@>@><<=>;?<<<<<<<==<<<;D<;;>@;;A;@E@@@@OJ@EJ;DB@DEDB@FGA@;C|@@|H~|B~@CD|[|F|[}|A}A;;;;;;;;;;;;;;;;;;;OEG {I1Q:H(KA25QI):L(KA24QI):X1(I)128HL 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 9 0 0 0 0 0 1 1 0 0 18 18 18 15 18 18 0 0 0 0 29 63 123 66 65 84 83 69 76 76 32 32 32 0 5 115 170 2 12 0 26 31 4 250 9 24 76 0 47 1 9 3 2 15 18 19 18 18 21 23 ,(KA81)3:7000KA82,1:7000ŽKA88,1:7000ՎKA87,1:7000PW200:7000@944,"DROP SOME?";70:JJ10J:70:JJJJJ:JJ21Ih(C) 1980,AUTOMATED SIMULATIONS-MOD8/21/80h 600:D,HZh J0:IK0:II0:NX0:NY0:L10:L20:L40:YY0:KK0:I0:IJ0:K0:Q60:P(4),S(4),ZA(3),ZD(5),TX(3,1),TY(3,1),TM(5),H(3),RF(3),LN(3),XT(7,2),YT(7,2)h Q112:M$(Q1):C%15360:KM0:B1$" "eiQ220::0,2,-1,2,-2,6,2,1,4,1,12,-2,1,-2,2,18,-2,-1,-4,-1,13,10,2,1,1:I03:H(I):J01:TX(I,J),TY(I,J):::I15:TM(I):jKA18525:KBKA2079:TTKA2020:NOKA:NT4QKA:D18QKA:D212QKA:MT16QKA:MNMTQ:NPMNQ:XPNPQ:YPXPQ:TRYPQ:XRTRQ:YRXRQ:I160:KAI,0:jX1YRQ:X2X1Q:Y1X2Q:Y2Y1Q:TNY2Q:TVTN10:TPTV10:TGTP10:TWTG10:TSTWQ2:TETSQ2:ULTEQ2:UAULQ1:UPUAQ1:USUPQ1:UDUSQ1:UCUDQ1:URUCQ1:UIURQ1:UWUIQ1:UVUWQ1!kBL$(15,32):ZD(0)3:ZA(1)3:ZD(1)3:ZA(2)0:ZD(2)0:ZA(3)6:ZD(3)2:ZD(4)5:ZD(5)5:SE100k3,-2,0,0,-1,0,1,2,0,0,0,0,7,-2,1,0,1,2,1,-2,0,2,0,-2,-1,0,-1,2,0,8:I02:LN(I):J0LN(I):XT(J,I),YT(J,I):::LN(3)k-J9191:J664:5000k2PCPC1:J(KB26I):KJ(KA90I):KB26I,J1:KA90I,KJ1:!l7YYW1W25:YMYYYMYY:YM5YM5Il8XXV2V15:XMXXXMXX:XM5XM5Ol9`l:@304,BL$;:wl;@304,"NOTHING";:l<@945,J;"ARROWS";:l=@624,BL$;:l>@432,BL$;:l?@944,BL$;:l@@112,"WOUNDS:"(100PCPH.5);"% ";:mA(23);:I130:I:(28);:0mDEX#EX#NBME(I1)(KA)2:\mF500:L070:J(C$)48:J0J970:mH@496,BL$;:@496,"ARROWS:"(KB13);:mJ@560,BL$;:@560,"MAGIC AR:"(KB14);:mK(KA)6(KA)8ʲ@48,"ROOM NO.:"KR;mLmPI160:KAI,0::ln;;f;j;d;w;;^VstuR;;Foe`;;CVq;;HJ;KT;NQ@;P;;;sU;W;;\;a;]kgc;;v=>i;;;;;mw_rh;j;n;;;b;RF;arht` ;nv=;DqU;;eo<<;<;;<;;<<;<<<;;;;;;<<<<<<<;<<<<><<;<<<<;;<;<;<;<;;<<<<<<;;<<<<;;<<<;;<<;<<;<<<;<;;;<<;<;;<;<;<<<<;;<<<<;;;;;<<<<<;<;<;;;<;<<<<<><<<<;;<<<<;;<<<;<;<<<<;;<;;;;;<;<<<;<;<;<;;<;<<<;<;<<;<;;<;;<;<;<<;;<;<<;;<<<<;;;;<<;<< <;<;<;<<<<<;<<<;<<<;;<<=G;=;;=;;==;===;;;;;;===O=[=;==I=B==;==SI;;=;U;=;=;;==S=[=;;====;;=I=;;==;=G;=W=;=;;;==;U;;=;[;I=[=;;==US;;;;;CS=U=;=;S;;;=;=====>C==[;;====;;=UC;Q;=Q==;;Q;;;;;=;===;C;S;=;;=;==O;U;==;I;;];;=;E;==;;E;=W;;== ==;;;;==;===;=;=;I====;=S=;===;;==GQ;G;;G;;CG;GGG;;;;;;GGGYGeG;GGSGFGG;GG]S;;G;_;G;G;;GG]GeG;;GGGG;;GSG;;GG;GQ;GaG;G;;;GG;_;;G;e;SGeG;;GG_];;;;;M]G_G;G;];;;G;GGGGGBMGGe;;GGGG;;G_M;[;G[GG;;[;;;;;G;GGG;M;];G;;G;GGY;_;GG;S;;g;;G;O;G G;;O;Ga;;GGGG;;;;GG;GGG;G;G;SGGGG;G]G;GGG;;GGD;;;;A;;;;;;;;C;;;;;B;;;;;;;;;;>;@;;;;;;;;;;;;;;<;;;;;;?;;;==;;;;>;;;;;;;;=;;;;;=;;;;;;;;;;=;=;;;;;;;;;;;;;;=;;;;;;?;;;>;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;G;HL;;@;D;;;O;C;AI;B;D;;;@;;J;;N;E;;M;?;F;=;;;;;BB;B;;;;>;;EO;OB;;>;B;;;V;H;BV;O;B;;;B;;B;;B;B;; D;B;B;R;;;;;SB;B;;;;>;;BB;B^;;>;W;;;B;B;VB;B;B;;;B;;B;;B;X;;X;B;B;B;lf`qA;JPVA;PPV\VP_ekeq_bePD>DJDPT>NlZfl}l``qw}lwHZ`kkq}}BxrmxHKQ[[KQWf]c``frrlxrrlfKEUQQW[OU~am~~mgx~~OarrrlZler~lcWr]fWQQZff`fl rl`fww}Kxxw}kkeSqqeVk}ww\PP\VVAJ;SPYY_ekYq|S_hek;eqwev;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;=;@<<;A<;=A>?ETm;;;;B;F?@I;;J;;;;D;;;;;;;;hwa;=?CA@BA>A@>A<<<<<<<<<<<<====?===?<><<<<<<<<<==BAAD>@ADCBE@ACCCJE}|C~|E||C|C|B||D|D|B|B[|C[~F|[}|Q>n=<;;;;;YEBEIEOJHB?<;;;;;;;;;;;;OHDDGDEJED  <====?===?<><<<<<<<<<==BAAD>@ADCBE@ACCCJE}|C~|E||C|C|B||D|D|B|B[|C[~F|[}|QB= @rM=V;Y`aZ[\]_bcd;NjihgQ;TEVW;H;;OLP;`;RS;Je;;;;?B;>?@AB=DEFGHIe;;uNOP_R;T;;WXMZ;;];;`;bJ;C;;;;;m;;;;;;r;v;;o>nk;;l;TUVWY`e;]=M\^Rbc;;?;;AZ[\G;_BCIcKf;QPON;;;;pq;<;rs;u=D?@ABCfEFGHIJd;;ZOPQ;S;U;;XY;[;;^;Ra;c;;K;;;;;; ;l;;;;s;;Nu;=<<>;>>><<<<<<<>;<<<<<<;<<<<;<;;>>>;<;>>;==;;;;<=;====>=;>;;<<;<<<<<=<<<<<<>;;><<<>>;<;;><><;;<;;=;==;=;;;;;>;;;;;;=;=;;=<=<;;=;<<<<<<=;><<>><>>;;>;;><<<<;<>><<>=;<<<<;;;;==;=;>=;><=<<<<<=<<<<<<=;;><<<;>;<;;><;<;;<;>= ;=;;>;;;;;;;>;;;;=;;>=;U=]M;E?ICCEYCIY>;=LGQQQ;C?GC;C;;EKA;C;KE;CG;;;;KI;UEE?CB;G;;=];=====?=======;;?===?A;?;;AOMQ;;L;;C;CE;E;;;;;T;;;;;;B;M;;E=_K;;?;C?MYCIC;K=_GA=SE;;E;;ECC?C;CKECCDG;GGGL;;;;EU;E;CB;==_====G?======?;;M===;A;?; ;AO;Q;;L;UC;C;;E;;;;;;;@;;;;B;;CC;YEeQ;ICOKKMaKQaB;EQQ[[Y;KKOK;K;;IOE;K;OI;KK;;;;UO;YIICGG;J;;Ee;EEEEECEEEEEE@;;CEEECE;G;;EUQW;;Q;;K;KI;I;;;;;X;;;;;;G;Q;;IEcU;;E;KKUaKQK;OEgKEEWI;;I;;IKKGK;KOKKKHK;QQQQ;;;;IY;I;GG;@EcEEEEOCEEEEEEC ;;QEEE;E;G;;EU;W;;Q;YK;K;;H;;;;;;;D;;;;G;;GG;;;;;;DEEAA;F;;C;=;;;;G;;;;B;;;;;;;;;;;;;;;;?=;;;;;?;;;;;;;;A;;>>=?>=EE;<;;@;@;;;;?;;;;<;;;;;;;;;;;;;<;;;<;<;;;;;;=@;<;;<<;;;;;;;;;;;;;;;;;?;;;;;;;?=;;;>;;?;;>;;^; ;;?;M;;;;;;@J;f;;E?;;;;;;;;;;;;;;;;;F;;;;;;;LC;;;@;;A;;G;;D;;;?;A;;;;;;>?;D;;>?;;;;;;;;;;;;;;;;;?;;;;;;;BC;;;?;;C;;@;;;;B;;;;;;C;L;A?;;E;;BE;GE;F;H;L;M;OM;IKODODO?;FN;J@;LI;;;;E;;;;;;M;G;==;;C;;A?;EQ;A;M;G;A;P?;L@GALLLAALCQ;L A;AA;AF;;;;A;;;;;;?;A;@?;;?;;AA;E[;Y;A;A;E;E?;L@GAWWWBAABG;A?;AB;??nc^KncUB>yn^TMyncyncXMXM;BBcsYiod_odVCodUzozodYdYCNLtjpkkVVVV[[kkkkkkkc{{{{ffffff{{{v{{ffvvkf [QQQQf]PtyyeUPPPPPUeeeeeee^ujzzzzuuUUUUUUjjjjjjZZjjbZRE@J;\OIjjsx};;;;F;;;;;?B@A;;;;;;mw;;;;;<=>?@;;;;;;E<;;@<>=<<;;;;H;;?;A;;;;;;;;;;;oy;;o^;A?@B;=>>AC;><<=<<@<<<<<<>???=?<<;==<<<>=<=<<><@;?C;A;@DB;>EEEE@EEE@@@EJCCB>EABCG@AF[G[~D[|E[[|C[|B~D[B[~A[}B[|B[D[|Th?C >>???=?<<;==<<<>=<=<<><@;?C;A;@DB;>EEEE@EEE@@@EJCCB>EABCG@AF[G[~D[|E[[|C[|B~D[B[~A[}B[|B[D[|TGvv ;B>@;;B;;;;;;;;;;;;;;;;;;;;=E ;B;BCDCC;;DAA;;A=;CDC;<;C>;?B;;D;;LKJISRQPXY;WVXTO^]\[ZbcwLsONV;;RMgT;;i;kn;;qqv;rp;;=;;@ISA_CeEFGJK]MN;sXPQRUVWXY;;Z[[]^;W;ba`Jdgh;ijl;n;;;woo;c;;<>;;?;B;;;;HGFEK`_LKIISRQPMNYXWVUT;QZ[I;Hf;j;l;;m;upt^;;p\;<;;?B;D;FGH;@IJKLM;VRSA;TUaPX[\^Q_CedcwgE;hikl; m;ot;;;O;;;s<;<<;;<;;<<<<<<<<<<;<<<<<<<<<<<<<<<<<<;;<<<<;;<;<<;;<<<;<<;;<;;<<<<<<<<<<<<<<<;<<<<<<<<<<;;<<<<<;<;<<<<<<=;<<<;<;;;<<>;<;;<<;;<;<;;;;<<<<<<<<<<<<<<<<<<<<<<<;<<<<;<<;<;<;;<;<<<<;;<<=<;;<<;<;<<<;<<<<<<;<<<<;<<<<<<<<<<<< <<<<<;<=<<;<;<<;;;<;;;;=;A;Y?;;;;;;;;U;EU;;Q;;IUc[[cUI]Q;IUc[[cUI]QQ]IUc[QU;;c][[;;U;YC;;AAA;CC;;a;;MECME[UUUU[[[[[;QccccOOOOc;;]]]]];O;QOUgWGP;QSE;C;;;QAA;Q;;EU;;Q;Q;;;;[cUI]Q[IUc[[cUI]QQ]IUc[;UQ]c;[[;U;Y;;];AAAc;;EIIa;;EC;E;UUU;M[ [[[[;cccU;OOOcc]]]]]QUOQQOU;MFQS;I;_C;;;Q;;;Q;<;;>C;B;;;?;=;F;F;;E;;;F;=;;B;;;F;;C??;F;;EDC==><<@<<;;;B>;??;@A=>;;@;;@?;A;;A@??;;?<;??BB??;;;;;;;;;;BG;;D ;QA;KC;;;J];AM;MCOF;;M;;ML;L;;XAGA;;MC;C>RGOA;;;;;;;;;;AE;;D;AM;MM;;;NG;UM;GYRQ;;>;;CO;L;;LLKD;;C?;GCLGAA;;;;;;;;;;I;@;;;;<;A>;;K;<=B;;;;;<;C>;H>G;;<<=;==?;;EO@I;=;; ;;;K;>E;O;;;;U;WC;;G;LLG;;;;;G;G=;EBQ;;LLE;IDM;;BDDBC?JI;E;;;;;M;BCs{suuՑſճŠő~~ppdWE===<<;ִ֡piWAAAFFCOOUh^q{UUUUddddddwwwwwwUwwU jwsshshdvv~~;;NTXlgzHHHHTTTTTTccccvvvvccHmmHTilg\g\^cq~~rr;;;?;;;;;;C@D;B?A;;;;;;>=>;=<=;;;;;;;>;<<<<;Z;><;;;;;;;=I@GD;;H;>@J;;;;;;;;;;;;;;DD?FEGCBDBCC=<M>Y==CEL AEEFHDACB?@>G=O>=?@@O<<>?><><>==?@F;;>;B;;AE;EO@@;;@O;OJ;BE@cG@JC@DYc@>C}E[\@@|D|DD|@|D[H}[[~?FEGCBDBCC===CELAEEFHDA @>G=O>=?@@O<<>?><><>==?@F;;>;B;;AE;EO@@;;@O;OJ;BE@cG@JC@DYc@>C}E[\@@|D|DD|@|D[H}[[~;;;;;;;;;;;;SE=; j : 8/21 HELLFIRE WARRIOR TRS-80 COPYRIGHT 1980 AUTOMATED SIMULATIONS j150:D,IYwkPNA$(5),W(5),P(5),NC$(6),SD(2),SP(2),SW(2),NW$(6),WW(5),WP(5),WD(5),WR(5),DS(2,1),DW(5,1),R$(2,5,1),AP$(13),AP%(13,3),MG$(4,3),R%(2),IC(11)kRKA18525 :***** DISKkVKBKA2079@lZNONE,0,0,LEATHER,9,3,RINGMAIL,22,10,CHAINMAIL,31,20,"PARTIAL PLATE",47,35,"FULL PLATE",63,100,INTELLIGENCE,INTUITION,EGO,STRENGTH,CONSTITUTION,DEXTERITYpl_I05:NA$(I),W(I),P(I)::I16:NC$(I):mdNONE,SHORTSWORD,2,2,6,8,9,12,BROADSWORD,3,3,7,10,9,13,"HAND-AND-A-HALF SWORD",6,5,8,16,9,14,LONGSWORD,6,5,9,10,6,14,GREATSWORD,9,10,10,15,7,15,"MAGIC SWORD"WmiNW$(0):I15:NW$(I),WW(I),WP(I),WD(I),WR(I),DW(I,0),DW(I,1):mnNW$(6):6,3,2,8,15,12,5,3,6,17:I12:SW(I),SD(I),SP(I),DS(I,0),DS(I,1):m5,4,5,4,5,6,3,4,5,6,2,1mI011:IC(I):n"I'D NOT PART WITH THESE FINE GOODS FOR THAT PITTANCE! MAYHAP FOR",5,"NOT SO CHEAP MY FRIEND! BUT FOR THEE JUST",10,"BLACKHEART! THOU TAKEST THE FOOD FROM MY CHILDREN'S MOUTHS! I'LL NOT SETTLE FOR LESS THAN",5`o"WELL, LIFE IS SHORT AND THY ARSE LONG! WHAT SAY THEE TO",2,"HMM...BUT SUCH FINE WORKMANSHIP. I COULD NOT PART WITH THIS FOR LESS THAN",10,"A POX ON THEE! BUT I'D TAKE",3Mp"MERCY, KIND SIR. I ASK BUT",20,"THINK OF MY WIFE AND CHILDREN",20,"YOU WON'T FIND SUCH A POTION ELSEWHERE.",20,"YOU WOULDN'T BEGRUDGE AN OLD MAN SUCH A PITTANCE?",20,"I WILL END MY DAYS IN THE POORHOUSE!",10,"YOU WILL RUIN ME!",10:q"A WIZARD'S WORK COMES DEAR,",15,"SO LITTLE FOR SUCH FINE WORK AS THIS? GIVE ME",15,"AM I TO HAGGLE LIKE A MERCHANT?",15,"PLAGUE TAKE ALL PINCHPENNIES!",15,"STILL THY TONGUE OR PAY ME",15,"COME, COME, I WEARY OF THIS DICKERING.",10~qI02:J05:R$(I,J,0),R$(I,J,1):R%(I)R%(I)(R$(I,J,1))::Lr"VIPER MILK",24,50,1,"OLIPHANT MILK",23,50,1,"COBRA MILK",25,40,1,"LIZARD MILK",21,25,1,"FALCON MILK",22,20,1,"TROLL BLOOD",24,50,0,.5,7,-3,"KRAKEN BLOOD",23,50,0,.5,7,-3,"HYDRA BLOOD",25,40,0,.5,7,-3r"WHITE LOTUS",0,20,0,.5,4,1,MANDRAGORA,0,100,1,AMBROSIA,-15,50,0,1,0,5,NECTAR,-2160,5,4,1,0,1,ELIXIR,6,10,4,2,0,1,SALVES,11,1,4,5,0,1s""ORICHALCUM AMULET",-2161,1000,0,.5,"SKULL AMULET",-2167,750,0,.5,"DRAGON TALISMAN",-2168,500,0,.5,"7-LEAGUE BOOTS",-2166,2500,0,.5,"MAGIC ARROWS",14,20,6,3:I013:AP$(I):J01::AP%(I,J):s,V1:V11N11:N21:E,V3,V4!:N1((V1)E):N2((V3)V4!)bt6AP%(I,2)N1:AP%(I,3)N2::I04:J02::MG$(I,J)::V1,E:MG$(I,3)(((V1)E))::"NONE","SMALL","LARGE":I02:NS$(I):ItJ 4000 : "YOU CAN'T PLAY UNLESS YOU PROTECT MEMORY SEE SPECIAL INSTRUCTIONS": tTA$"":(KB12)1235303uh:" HELLFIRE WARRIOR DUNJONQUEST COPYRIGHT(C) 1980 AUTOMATED SIMULATIONS";DumA$(30,191)unXX$"":B$"":I114:B$B$XX$::@2,B$;:@60,B$;:@2,A$;ur@770,A$;:@898,A$;:ZZ$"HIT ANY KEY TO CONTINUE":@840,"";:390:530u|: LIVE KEY INPUTuA$vA$:A$""II1:I20I0:400PvI10ZZ$((ZZ$),24);:I1((ZZ$),32)((ZZ$),24);hvA$""400:" ";:wv"AGREED";v:vI0:ZZ$"?":380:A$"Y"ʲ"YEA";:A$"N"ʲ"NAY";:460v(30):v:vTL1900::w:CALCULATE CURSOR POSITION7wPP(.9(((16416)(16417)256)15361)64)64:?w:bw:"THUS QUOTH THE INNKEEPER:"w&(KB12)123600:J0:I6180:JJ(KAI)::2620:J0ʑ2570w02080:2530:1740:2450:"WILT THOU RE-ENTER THE PIT THIS DAY";:460:A$"Y"7206x5"WOULDST SAVE THY CHARACTER";:460:A$"N"ʱKB12,0:xD"STORING THE ADVENTURER HIGHT ";NM$:"O",1,NM$:I8196:#1,(KAI)::#1,(KA):I1825:#1,(KBI):::KB12,0:yX2660:"HAIL AND WELL MET! SHALL I FIND THEE A GOODLY CHARACTER";:460:A$"Y"ʑ1520:700:770:1210:730yd"WOULDST THOU RESUME A GAME IN PROGRESS";:460:A$"Y"620:"INSERT DISK WITH SAVED GAME & STRIKE ANY KEY TO CONTINUE":380ye615:"I",1,"LCHR":I6196:#1,J:KAI,J::I1825:#1,J:KBI,J::zfKB12,122:1287)zg"CHARACTER FILE NOT FOUND":620hzl"HAST THOU A CHARACTER ON DISK";:460:A$"Y"ʑ1560:720z"WHAT BE THE FELLOW'S NAME";A$:"READING IN CHARACTERISTICS FOR ";A$:660:"I",1,A$:680{106ʲ"NO SUCH FELLOW AS ";A$;" HERE.":640:"ERROR CODE"21"IN LINE":{I8196:#1,J:KAI,J::#1,J:I1825:#1,J:KBI,J:::2530:2630:1740:IQ0:2440:KB12,123:720{E0:"CHARACTER NAME";NM$:I1(NM$):A$(NM$,I,1):(A$"A"A$"Z")E1|:E1ʲ"KNAVE! GIVE ME AN ADVENTURER'S NAME.":700:R|MO!0"WILT THOU VISIT GULIK THE ARMORER";:460:A$"Y"ʑ770|MO!0"WOULDST CALL 'PON FNORD THE APOTHECARY";:460:A$"Y"ʑ820|MO!0"WOULDST THOU STOP WITH MALACLYPSE THE MAGE";:460:A$"Y"ʑ990 }785:1170:IQKBKA116:2450:1280S}BI0::II15:MO!0OO0:II1820,1960,1400,2100,2140:OO02080[} :s}PS0WPWPSP:SP0}1900:2000}PBPBWP(VL2):WP0PAPAWP1:WP0PAPAWP1} 1210:}4BI0:CH%1:}>940:" WHAT BE THY PLEASURE,"NM$;G~H390:A$"0"ʲ0::W1:I013:A$(AP$(I),1)AP%(I,2)0WI:I14~R:W1ʑ940:(31)" BEG PARDON";:840:,AP$(W):870~\@704,(30)"WILL THERE BE ANYTHING ELSE";:460:A$"N"ʒ:A$"Y"860:830fQ1:AP%(W,2)1ʲ"HOW MANY";:380:Q(A$):Q:Q0pQAP%(W,2)870:AKAP%(W,1)Q:A1AK:LO.45AK:2170:OO0860:AP%(W,2)AP%(W,2)Q:MO!MO!OO:2080:480:MMAP%(W,0)KB:M(MM):AP%(W,0)0ʱ(MM),MAP%(W,3)Q:W8MMKB22:M(MM)AP%(8,3):M18AP%(8,3)AP%(8,3)1:900:MM,M:I(KA94):(KA94),I1)W9PBPBQ:PAPAQ/z:@22,":: DRAUGHTS ::":W0132:X01:AP%(WX,2)0ʲAP$(WX),:955AP%(WX,2)"AT"AP%(WX,1),WX10970:(0)5ʲ̀24)":: VIALS ::"ր::NBI0::CH%2:"GREETINGS, FELLOW WOULDST HAVE THY WEAPON ENCHANTED";:450:A$"N"1000:1120:OO01000:WN6:SMD500:@PP,(31)"DOST WISH THINE ARMOR ENCHANTED";:450:A$"N"1010:1120:OO01010:AMD:SELL ITEMS"A MAGICAL DEVICE PERHAPS";:450:A$"N"ʒ.:I04:V(MG$(I,2)):Q(MG$(I,3)):Q0MG$(I,0);:1040CQ1ʲQ"AT"V:VIh" WELL, WHAT WILL IT BE";$380:A$"0"ʒ:W1:I04:(A$(MG$(I,0),1)(MG$(I,3))0)WI:MG$(W,0).:W1 ʲ" WHAT";:1060:480:QQ(MG$(W,3)) 8QQ1ʲ"HOW MANY";:Q1:1100+B380:Q(A$):Q:QQQ1080LAK(MG$(W,2))Q:1160:OO0N((MG$(W,1))KB):(MG$(W,1))KB,NQ:MG$(W,3)((MG$(W,3))Q)ÃV@PP,(31)"SOMETHING ELSE";:450:A$"Y"1025:`:GET DEGREE & CALC PRICE , CALL BARGAINzj"TO WHAT DEGREE";:380:D(A$):D:AK100D2:"THAT COMES TO";AK:1150:(OO0D1)ʲ"TO A LESSER DEGREE PERHAPS";:450:A$"Y"1130t~:A1AK:LO.55AK:2170:MO!MO!OO:2080::ȄSE120" MONSTER SPEED (SLOW,MEDIUM, OR FAST)";:390:A$:A$"S"SE250:A$"F"SE60,KB9,SE:S: CALCULATE WEAPONS MAX~WM((WD((KB17))SM)(KB23)10.5)PB0PB0KB7,WM:KB18,PB:KB19,PA:KB4,SP:J(EX#65536):KB3,J:JJ(EX#256J256):KB2,JJ:KB1,EX#256JJ65536J:KB12,123lB$"CURSE THEE O UNGRATEFUL CHURL! MAY HELLFIRE DOG THY STEPS!":C$"BLESS THEE MY CHILD"(0).8MO!11230:" FRIEND, I BE BENEDIC THE PRIEST. HOW MUCH WOULDST THOU DONATE TO AID ADVENTURERS SUCH AS THYSELF";N;MO!MO!(N):N.1MO!ʲC$:N.02MO!ʲ"A NIGGARDLY SOUL THOU HAST!":B$LMO!0MO!0WC6WW((KB17))W(AA)SW(((KB)2))(RS(KB14))10:KB13,RS:KB12,WC:1275ʇKB10,SM:KB,PS:KB8,AA:KB16,AMA$NM$(10,32):I110:KB12I,((A$,I,1))::: STORE $QMO%MO!32000:KB13,((MO%)):KB14,((MO%)1):o: ENTER DUNJONx300KA18525:KBKA2079 :***** DISK MC$" ;w#"ΈMH((MC$)2)ML((MC$)1)MC%0:(MC%),ML:(MC%)1,MH 0MC% :***** DISKP:POKE 16526, ML:POKE 16527, MH '***** TAPE(KB12)122ʱKB12,123:AN$"LSAVED":1312"ENTER DUNJON LEVEL";L$LV(L$):AN$"LEVEL"L$ω (KA)LV 1348 "I",1,AN$ :**** DISK$A$""&#1, A$ :***** DISK&*LQ((A$, 1))597,"LEVEL:" LQ?.K0T0 1354:***DISKb2 I2 94 (A$)229 TR5 1368:: 1314 : :**** DISK8A$"":#1, A$ :***** DISKՊ?1354:***DISKۊ@D"LEVEL COMPLETE - ENTERING DUNJON"F"DM2" :***** DISKcH:INPUT"LOAD DUNJONMASTER - PRESS ENTER";A$:CLOAD"D" '***** TAPEkJ:PMC%6,((A$)1):MC%7,((A$)2):E 0(KAK) :***** DISKR:POKEMC%+6,PEEK(VARPTR(A$)+1):POKEMC%+7,PEEK(VARPTR(A$)+2):E=USR(KA+K) '**** TAPETKK229VMX"BAD DATA - TRYING AGAIN":TRTR1: :**** DISKqn: SELL ARMORČx"WILT THOU BUY NEW ARMOR";:460:A$"N"ʒ::"TYPE","WEIGHT","OFFERED PRICE"㌂I15:NA$(I),W(I),P(I):*"THY CHOICE SIRRAH";:390:N1:I05:A$(NA$(I),1)NI:NA$(I):N0ʲ"NONE"::N11400:PP(N):1480:OO01430:MO!MO!OO:AAN:KB16,0:LO(.3P.5):AKP:A1AK:2170:: 3 DIE ROLLЍJ(6)(6)(6):dSC0:I16:1500:KA97I,J:KB19I,J:SCSCJ::SC66(KA93)8(KA92)91520:1490:EX#(J13)1000:1740:2500:1500:MO!J10150:2080: SET INITIAL "TO HIT" & "TO BE HIT"PA11:PB11:ӎ: INPUT CHARACTER=":I16:"ENTER "NC$(I);:V1:V118V1;"BE TOO HIGH. NO MORE THAN 18 CAN IT BE.":II1:::V13V13ʏ,KA97I,V1:KB19I,V1:I:"THY CHARACTER'S EXPERIENCE IS";EX#:EX#(EX#):EX#16E6ʲ"THY CHARACTER IS TOO WORLDWISE":490:1560:1740J"HOW MUCH MONEY HAST THOU";MO!:MO!(MO!):2680NON1:"WHAT KIND OF SWORD HAST THOU";:390:I05:A$(NW$(I),1)NI::TN1ʲ"??":1615:(KB23)WR(N)ʲ:1945:1615:WNN:KB17,N:NW$(N):1880hN1:"WHAT SORT OF ARMOR HAST THOU";:390:I05:A$(NA$(I),1)NI::mN1"??":1640:NA$(N):AAN|N0W21N0:"HAST THOU A SHIELD";:460:A$"Y"ʲ"BE IT LARGE OR SMALL";:390:A$"L"N2:"LARGE":A$"S"N1:"SMALL":1670PSSD(N)Ց"HAST THOU A BOW";:460:A$"Y"ʱKB15,1PA$"HOW MANY ":B$" HAST THOU":(KB15)0ʲA$"ARROWS"B$;:RS:A$"MAGIC ARROWS"B$;:RM:RSRM60RS0RM0ʑ2165:1700A$"ELIXIRS"B$;:HN:A$"SALVES"B$;:HS:HN0HN30HS0HS301702蒮"IS THY SWORD MAGICAL";:460:A$"Y"ʲ"WHAT BE THE PLUS";:380:SM(A$):SM9"IS THY ARMOR MAGICAL";:460:A$"Y"ʲ"WHAT BE THE PLUS";:380:AM(A$):AMZKB14,RM:KB6,HN:KB11,HSq1530:700:1210:: ADJUST CHARACTER FOR LEVELI16:KB19I,(KA97I):1800:VLL:WP((L1)2):SPWP:L1ʒ:J0:I2:K0(KB19IC(J))181790+JJ1:J11J0:KK1<K1ʒ:1760pNKB19IC(J):N,(N)1:II1:K0:IL1770:EX#1000L1::L((EX#1000)(2))1:&"WILT THOU BUY ONE OF OUR FINE SWORDS";:460:A$"N"ʒ::"WEAPON",,"WEIGHT","ASKING PRICE":I15:NW$(I)32)WW(I),WP(I)::500m0"WHAT WEAPON WILT THOU BUY";:390:N1:I05:A$(NW$(I),1)NI::N0ʲ"NONE"::N1ʲ"??":1840:NW$(N)NWR(N)(KB23)1945:480:@PP,(30);:1840:PWP(N):1480:OO01840:MO!MO!OO:WNN:KB17,N:SM0X:+bN4N5W21::W20:[l: ADJUST WEAPONS POINTS ******vvV1(KB25):N(KB17)DW(N,0)V1WPWPV1DW(N,0):DW(N,1)V1WPWPV1DW(N,1)ҖWP0WP(1.24(WP)1)ؖ "THOU ART TOO PUNY. CHOOSE A LESSER SWORD.":W21PS0:"WILT THOU BUY A SHIELD";:460:A$"N"ʒ::"SHIELD","WEIGHT","ASK":"SMALL",SW(1),SP(1):"LARGE",SW(2),SP(2)䗷"WHAT SORT";:390:(A$"S"A$"L"A$"N")ʲ"??":1975:A$"L"N2:"LARGE"A$"S"N1:"SMALL"A$"N"N0:"NONE"NN0PSP(N):1480:OO01970:MO!MO!OO:PSSD(N):t: ADJUST SHIELD POINTS PS0ʒ:N((KB)2)E(KB25)٘DS(N,0)ESPSPEDS(N,0):DS(N,1)ESPSPEDS(N,1)PS5SP(SP2) SP0SP(1.24(SP)1)SP2PSSP:D "THOU HAST"MO!"GOLD PIECES":490:f4: SELL BOW>"WILT THOU BUY A BOW";:460:A$"N"ʒ::"I'VE A FINE BOW, YEW AND NEARLY NEW, FOR ONLY ONE ROYAL":440:A$"Y"MO!MO!1:KB15,1H\RSRM60RS60RM::(KB15)1ʒyfN0:"HOW MANY ARROWS WILT THOU BUY (AT TEN PER ROYAL)";N:RSRMN602165:2150:N0pN02150:P(N10.9):1480:OO02150:MO!MO!OO:RSRSN:u"THOU CANST CARRY BUT 60 ARROWS. TAKE FEWER.":z: BARGAIN5" ":500:PP704PP704:2430k(2)2ʲ"WHAT WILT THOU OFFER";:"THINE OFFER";֛OO$"":OO$:OO$""2200:OO((OO$)):2210:2430:RE2290,2310,2330,2350,2370,2400,2410:LS0:2200: CALCULATE RESPONSEOO0RE6:LS0::OOMO!RE1:OOLS::OOLSRE2:AK(AK1.1)::OOLORE7:AK(AK1.1):LSOO::OOAK.3(0)2AKLS0:BIBI1:OO.6A1RE4::RE5:V1(KA96):V3(KA94):B(20BI)(V1V3):V312V110B(20BI)(V120V3)9BIBI1:AK((OO(AKOO)(1(0))B).5):AKOORE5:LS0::LSOO:RE3:SR(R%(CH%))1:RQ0:e: GENERATE2255:Y05:RQRQ(R$(CH%,Y,1)):RQRR$R$(CH%,Y,0):IY:Y5:ILYY1:2255ǝ:LYI:ӝ:RE 1"THOU HAST BUT"MO!"IN THY PURSE!": :RE 2= "THY LAST OFFER WAS"LS"! THOU MUST DO BETTER":I :RE 3[$ 2260:R$AK:g. :RE 48 "OH, ";:480:"VERY WELL":B :RE 5L "DONE!":480:V :RE 6Ӟ` "SO MUCH FOR THAT":480:ߞj :RE 7t "NO, I'LL NOT CONSIDER IT,"AK:~ @PP,(31);:A : DISPLAY CHARACTER^ SM0WN6:WN(KB17) 2520:2552:J0:(KB)3J1:(KB)5J2ҟ 2500:"WEAPON: "NW$(WN);32);"ARMOR: "NA$(AA):WN6ʲ"PLUS:"SM; AM0ʲ32)"PLUS:"AM: 2555 "ARROWS:"RS22)"MAGIC ARROWS:"RM45)"SHIELD: "NS$(J):"SALVES:"HS22)"ELIXIRS:"HN45)"NECTAR:"(KA81):"EXPERIENCE:"EX#22)"WEIGHT CARRIED:"WC45)"GOLD:"MO!:ޠ :"CHARACTER SUMMARY: "NM$:I16:NC$(I),(KA97IIQ)::, NM$"":I110:A$((KB12I)):(A$"A"A$"Z")I10:::NM$NM$A$::X : READ CHARACTER FROM MEMORY SM(KB10):AM(KB16):AA(KB8):PS(KB):WC(KB12):WN(KB17):WN4WN5W21:W20 EX#(KB1)256(KB2)65536(KB3):1530 :# HS(KB11):HN(KB6):RS(KB13):RM(KB14):- 2520 :"TREASURES FOR "NM$" TREASURE #","VALUE","TREASURE #","VALUE":TT!0:I1202:II01:TN(KA81III):TV(KA1760III):E((TV31)10((((TV224)32)))10)TN:TT!TT!E:"##";III; ":"TN,E,::L "THY TREASURE'S"TT!"ROYALS,";:440:A$"Y"2580:I120:KA81I,0:( 2620:"THAT AND THE"MO!"IN THY PURSE MAKE"MO!TT!:MO!MO!TT!:2680:12752 < : GET $ FROM MEMORYF I0:((I)),(KB13):((I)1),(KB14):MO!I32E3: d :CLEAR MEMORY6n I2025:KBI,0::I6190:KAI,0::Gx : LIMIT $ E64E3:MO!Eʲ"ALAS! TAXES WILL BE";MO!E:MO!E:"THAT LEAVES";E:::on Drives ! L!k@:@o^:@ <2@[;@S=@*?@:@dGooHn"?@S;@DMB"A@VX:F2@oo*A@[=@hZ8Nn :F!k@o˞>=*A@[=@CN@Pl*N@Wo?*j TEMPLE OF APSHAI, INNKEEPER - TRS80, TRSDOS, COPYRIGHT 1979, AUTOMATED SIMULATIONS, REV 2k800:D,IY:MC$" ;w#XX":MH((MC$)2):ML((MC$)1):MCMH256ML:6:0MC:MC#1:106k44ʱ16526,ML:16527,MH:10:k NA$(5),W(5),P(5),NC$(6),CH(6),SD(2),SP(2),SW(2),NW$(6),WW(5),WP(5),WD(5),WR(5),DS(1,1),DW(5,1),R$(6),RR(6),NS$(2)kC%15360:KA1(6553646864):Q60:KBKA2251:***DISKlJ8248:J059:J7249:JQ1l2"NONE",0,0,"LEATHER",150,30,"RING MAIL",350,100,"CHAIN MAIL",500,150,"PARTIAL PLATE",750,250,"FULL PLATE",1000,1000,"INTELLIGENCE","INTUITION","EGO","STRENGTH","CONSTITUTION","DEXTERITY"l<I05:NA$(I),W(I),P(I):W(I)(W(I)16.5):ImFW(0)0:I16:NC$(I):ImP"DAGGER",1,5,5,3,7,12,"SHORTSWORD",2,14,6,8,9,12,"BROADSWORD",3,18,7,10,9,13,"HAND-AND-A-HALF SWORD",6,35,8,16,9,14,"GREAT SWORD",9,70,10,15,7,15,"MAGIC SWORD"nUI15:NW$(I),WW(I),WP(I),WD(I),WR(I):J01:DW(I,J):J:I:NW$(6)!nZ6,3,10,8,15,12,5,15,6,17Wn_I12:SW(I),SD(I),SP(I):J01:DS(I1,J):J:IencLS0:SM0?od"I'd not part with these fine goods for that pittance! Mayhap for",5,"Not so cheap my friend! But for thee just",10,"Blackheart! Thou takest the food from my children's mouths! I'll not settle for less than",5on"BDUNJON 00/00/00 +r32rq^BOOT SYS` LEVEL7 BB ! gLCHR BB  DM2 BB4  LEVEL6 BB ! LEVEL5 BB ! LEVEL8 BB ! OINN2 BB; +]DIR SYS  INN BB-  }DM BB2  LEVEL3 BB  LEVEL1 BB  LEVEL4 BB  LEVEL2 BB  $NEWAPSH JCLBB HELLFIREJCLBB %NEWHELL JCLBB  APSHAI JCLBB Well, life is short and thy arse long! Whay say thee to",2,"Hmm...but such fine workmanshup. I could not part with this for less than",10,"A pox on thee! But I'd take",3"pRN6:RT0:I1RN:R$(I),RR(I):RTRTRR(I):IPp"NONE","SMALL","LARGE":I02:NS$(I):Ip8000ʄ:"YOU CAN'T PLAY UNLESS YOU PROTECT MEMORY SEE SPECIAL INSTRUCTIONS":p 1000p::(23):@276,"DUNJONQUEST":@140,"THE TEMPLE OF APSHAI")q@594,"COPYRIGHT 1979":@714,"AUTOMATED SIMULATIONS"qJ191:I0632:C%I,J:I:I96010232:C%I,J:I:I6489664:C%I,J:I:I12695864:C%I,J:IqK140:I8348922:C%I,K:Iq@904,"HIT ANY KEY TO CONTINUE";qKB,0:I(5):A$:(A$)0930rr(KB12)123ʑ900Br:WC5:"THUS QUOTH THE INNKEEPER:"r(KB12)123ʉ"Wouldst thou know what treasures thou hast";A$:(A$,1)"Y"ʑ9920r(KB12)123ʑ4500s(KB12)123ʲ"I trust thine was a pleasant sojourn within the temple.":"Art but passing through the inn and wish to return";:A$:(A$,1)"Y"ʑ9900:"How many silver pieces hast thou";MO:OMMO:2600:1205sKB12,0/t"Hail and well met! Shall I find the a goodly character, or hastthou brought one with thee? Prithee, say YEA if I should.":C$:(C$,1)"Y"ʑ2200:1200st"HAST THOU A CHARACTER ON DISK ";C$: (C$,1)"Y"ʑ2400:1200t"WHAT BE THE FELLOW'S NAME ";C$:"READING IN CHARACTERISTICS FOR ";C$:1032:"I",1,C$:1040 u106ʲ"NO SUCH FELLOW AS ";C$;" HERE.":1030AuI6196:#1,J:KAI,J:I:#1,J:"LAST ON LEVEL ";JtuI037:#1,J:KB12I,J:I::KB12,123:1003uOMMO:"CHARACTER NAME";NM$:NM%0:I1(NM$):(NM$,I,1)"A"(NM$,I,1)"Z"NM%1vI:NM%1ʲ"KNAVE ! GIVE ME AN ADVENTURER'S NAME.":1200:MO0ʑ2600'vMO0ʑ2800?vPS0WPWPSP:SP0}vPBPBWP((KB15)2):WP0PAPAWP1:WP0PAPAWP1vMO01215:2000vMO01215:3000vMO01215:3200vSE100:PB0PB04w"MONSTER SPEED (SLOW,MEDIUM, OR FAST)";C$:(C$,1)"S"SE250:(C$,1)"F"SE60:SE120rwKB9,SE:KB11,HS:KB13,RS:KB14,RM:KB12,WC:KB7,WMwKB24,CA:KB6,HN:KB11,HS2xKB23,AS:KB7,WM:KB18,PB:KB19,PA:KB21,IT:KB22,EG:KB4,SP:KB25,DX:J(EX#65536):KB3,J:JJ(EX#256J256):KB2,JJ:KB1,EX#256JJ65536JjxWC5WW((KB17))W(AA)SW(((KB)2))1(RSRM)10xKB13,RS:KB14,RM:KB12,WC:KB20,CH(1)xKB10,SMxKB,PSxKB8,AA:(KB12)1231400x#J(NM$):J11J11y(I1J:KB12I,((NM$,I,1)):I6y2J11ʁIJ111:KB12I,(" "):I@yx4500OyKB12,123y@"ENTER DUNGEON LEVEL";L$:LV(L$):***DISKyE(KA)LV1670yGN(KB11)yJAN$"LEVEL"L$:"I",1,AN$:***DISKyT#1,A$:LQ((A$,1))J0:"LEVEL:"LQ:***DISKzYK0z^LVLQʑ1950 zhI294zj(A$)2491650uzl"*** POSSIBLE DATA READ ERROR - BLOCK LENGTH ="(A$);" ***"zr#1,A$:LVLQʑ1950:***DISKzIz ***DISKzKB11,N{KB12,123:"LEVEL COMPLETE - LOADING DUNJONMASTER":"DM":***DISK{l {3{MC6,((A$)1):MC7,((A$)2)X{MC#1MC!0(KAK):MC!(KAK)^{k{KKJ7:{"WILT THOU BUY NEW ARMOR";A$:(A$,1)"Y"ʁI1900:I::"TYPE"25);"WEIGHT"35);"OFFERED PRICE"::{I15:NA$(I);25);W(I);35);P(I):IG|"WHAT SORT OF ARMOR WOULDST THOU WEAR";A$:(A$,1)"N"AM0:AA0:q|I15:(A$,2)(NA$(I),2)NI:2026|I:"I HAVE NOT "A$;" FOR SALE":2020|(KB12)123WCWCW(AA)|LO.3P(N):AKP(N):A1AK:4000:OO02020 }AAN:MOMOOO:WCWCW(N):KB16,0D}"THOU HAST"MO;"SILVER PIECES LEFT IN THY PURSE":[}J(6)(6)(6):}HB0:SC0:I16:2190:CH(I)J:SCSCJ:I:SC60CH(4)8CH(5)72200}EX#0:RS0:RM0:AA0:PS0:KB17,0:SP0:WP1:AM0:SM0:HS0:HN0:KB15,1(~:"THY QUALITIES:":I16:NC$(I);25);CH(I):IE~I16:KA97I,CH(I):I~" ":2190:MOJ10:"THOU HAST"MO;" PIECES OF SILVER"~2250:L1:KB16,0~EGCH(3):INCH(1):ASCH(4):CACH(5):ITCH(2):DXCH(6):PA11:PB11~~IKA90KA81:I,0:I:{` KB15,0:I16:"ENTER "NC$(I);:CH(I):KA97I,CH(I):CH(I)18ʲCH(I);"BE TOO HIGH. NO MORE THAN 18 CAN IT BE.":II1c Ie "THY CHARACTER'S EXPERIENCE IS";EX#:EX#16000000ʲ"THEY CHARACTER IS TOO WORLDWISE; FIND ANOTHER MY FRIEND":2400#j EEX#1000:L120:2LEʍ2420::LOt "HOW MUCH MONEY HAST THOU TO SPEND";MOy 2500 :PRESUMES A STRANGER TO THE QUEST SYSTEM{ "WHAT KIND OF SWORD HAST THOU";A$:I15:(A$,1)(NW$(I),1)ʏCH(4)WR(I)NI:OO0:2690:24292| I:"THOU CANNOT TAKE A "A$;" TO THE DUNJON. THOU MUST BUY ANOTHER"} "WHAT SORT OF ARMOR DOST THOU WEAR";A$:I05:(A$,2)(NA$(I),2)NI:OO0:2030:2435ā I:"THOU CANNOT WEAR "A$;" IN THE DUNJON":2429) N0:W21ʉ"HAST THOU A SHIELD";A$:(A$,1)"Y"ʉ"BE IT LARGE OR SMALL";A$:N1:(A$,1)"L"N28 N0ʑ2865j "HAST THOU A BOW";A$:(A$,1)"Y"HB1:HB0 "HOW MANY ARROWS HAST THOU";RS:"HOW MANY MAGIC ARROWS HAST THOU";RM "HOW MANY HEALING POTIONS HAST THOU NOW";HN:"HOW MANY HEALING SALVES HAST THOU";HS:HS10HS10] "IS THY SWORD MAGICAL";A$:(A$,1)"Y"ʉ"WHAT BE THE PLUS";SM KB16,0:"IS THY ARMOR MAGICAL";A$:(A$,1)"Y"ʉ"WHAT BE THE PLUS";AM:KB16,AMà 2250:2230 W21WPL:SP0::WP((L1)2):SPLWP (KB15)Lʒ:KB15,L\ (KB12)123JL1:L2:J2510,2520,2530,2540,2550,2510,2520,2530,2540,2550p LL1:L02565 CH(5)9CH(5)CH(5)1:CH(4)CH(4)1 LL1:L02565؄ CH(6)9CH(6)CH(6)1:CH(5)CH(5)1 LL1:L02565 CH(5)CH(5)1 LL1:L02565Z CH(6)9CH(6)CH(6)1::CH(4)CH(5)CH(4)CH(4)1::CH(5)CH(5)1n LL1:L02565 CH(2)CH(3)CH(2)CH(2)1:CH(3)CH(3)1 2510Dž I16:MCH(I)18:M02580 CH(I)18:J1M:CH(4)18CH(4)CH(4)1:2575 CH(5)18CH(5)CH(5)1:2575= CH(6)18CH(6)CH(6)1:2575V R(3):CH(R)CH(R)1] J I:CACH(5):ASCH(4):DXCH(6):EGCH(3):ITCH(2):( MO0ʲ"WILT THOU BUY ONE OF OUR FINE SWORDS":A$:(A$,1)"N"N(KB17):2694:::W20:!Z "WEAPON"30);"WEIGHT"40);"ASKING PRICE"Md I15:NW$(I);30);WW(I);40);WP(I):In "WHAT WEAPON WILT THOU PURCHASE";A$:I15:(A$,1)(NW$(I),1)NI:2675::(A$,1)"N"N(KB17):2694:p I:"I HAVE NOT SUCH A WEAPON AS A "A$:2670,s WR(N)ASʲ"THOU CANNOT WIELD SUCH A GREAT WEAPON":2670u "FEAST THY EYES 'PON THIS FINE "NW$(N):(3)2ʲ"'TIS SURE TO ALWAYS DRINK THY FOE'S BLOOD"::"'TIS WELL FORGED IRON"؈v LO.3WP(N):AKWP(N):A1AK:4000:OO02670 x MOMOOO:"THOU HAST"MO;" SILVER PIECES LEFT"P WM(WD(N)AS10.5):SM0:KB10,0:KB17,N:WCWCWW(N):N5W21 DW(N,0)CH(6)WPWPCH(6)DW(N,0):DW(N,1)CH(6)WPWPCH(6)DW(N,1) WP0WP(1.3(WP)1) ى W21PS0:KB,0:SP0: "WILT THOU BUY A SHIELD";A$:(A$,1)"N"ʑ2885:::"SHIELD WEIGHT ASK":"SMALL"11);SW(1);22);SP(1):"LARGE"11);SW(2);22);SP(2):"WHAT SORT";C$:(C$,1)"L"N2:N1Ɋ (C$,1)"L"N2:(C$,1)"S"N1:N0:KB,0:PS0:" LO.3SP(N):AKSP(N):A1AK:4000:OO0ʍ2840A1 DS(N1,0)DXSPSPDXDS(N1,0):DS(N1,1)DXSPSPDXDS(N1,1)6 MOMOOO:"THOU HAST"MO;"SILVER PIECES LEFT":WCWCSW(N):PSSD(N):KB,PS:2885:E PS5SP(SP2)NjJ SP0SP(1.3(SP)1)؋O SP2PSSP:狸 HB03030 "WILT THOU BUY A BOW";C$:(C$,1)"N"ʒu "I'VE A FINE BOW, YEW AND NEARLY NEW, FOR 12 SILVER PIECES":LO4:AK12:A1AK:4000:OO0ʒ MOMOOO:"THOU HAST"MO;"REMAINING" RSRM60RS60RM:3050] N0:"HOW MANY ARROWS WILT THOU BUY (AT 5 COPPERS EACH)";N:((N1)2)MOʲ"NO CREDIT":3040::RSRMN60ʲ"THOU CANST CARRY BUT 60 ARROWS. BUY FEWER.":3040z RSRSN:MOMO((N1)2) J "HOW MANY SALVES WILT THOU BUY? THEY COST THEE 10 SILVER PIECES EACH";N:10NMOʲ"NO CREDIT":3210::MOMO10N:HSHSN:HS10NHS10:MOMO10N:HS10:"MORE THAN 10 WILL DO THEE NO GOOD"᎔ MO.35OMʲNM$;"! THOU SPENDTHRIFT!":"THOU HAST BUT"MO;"SILVER PIECES LEFT TO THEE":NM$;", THOU ART FRUGAL. THOU HAST"MO;"SILVER PIECES LEFT."玞 )(3)2ʲ"WHAT BE THY OFFER "NM$;"?"::"WHAT OFFEREST THOU?"WOO:OOMOʲ"LIAR, THOU HAST BUT"MO:4000hOO0LS0:OOLOʑ4800:4000OOLSʑ4700:4000OOAKʲ"DONE":LS0:OOAK.3(0)2AKʏOO.6A1ʲ"THOU ART A HARD BARGAINER "NM$:LS0:::"DONE":LS0:d(200)200ʲ"i SEE THE GODS LOOK WITH FAVOR ON THEE, SO TAKE IT FOR THAT":LS0:B20(CH(1)CH(3)):CH(3)12CH(1)10B20(CH(1)20CH(3))AKOO(AKOO)(1(0))B̐LSOOܐ4900:4000CH(1)(KB20):CH(2)(KB21):CH(3)(KB22):CH(4)(KB23):CH(5)(KB24):CH(6)(KB25):SM(KB10):RM(KB14):RS(KB13):AA(KB8):WM(KB7)SM:WN(KB17)SM0WN69800::"CHARACTER SUMMARY FOR "NM$摨"":I16:NC$(I);20);(KA97I):I J0:(KB)3J1:(KB)5J26"WEAPON: "NW$(WN);32);"ARMOR: "NA$(AA)RWN6ʲ"PLUS:"(KB10);(KB16)0ʲ32);"PLUS:"(KB16)::" ""ARROWS:"RS;22);"MAGIC ARROWS:"RM;45);"SHIELD: "NS$(J)"SALVES:"(KB11);22);"ELIXIRS:"(KB6);45);"SILVER:"MOO"EXPERIENCE:"(KB1)256(KB2)65536(KB3);22);"WEIGHT CARRIED:"(KB12)U|\R(3):R(3):(3)4710,4720,4730f"DOST THOU TAKE ME FOR A DOLT?":p"FOOL OR KNAVE "NM$;"! MAKE AN OFFER HIGHER THAN THY LAST":z"PERCHANCE THOU WOULDST NOT HAVE THIS AT ALL?":m(100)50ʲ"HA! 'TIS LESS THAN I PAID FOR IT":"I SPIT ON THY PALTRY OFFER"sҔ$I1110:R(RT):I1:RQ0:R(RT)1:I11RN:RQRQRR(I1):RQRʇI1::R$(I1);(AK.999):H&NM$"":I111:NM$NM$((KB12I)):I#R&I110:(NM$,12I,1)" "9830*\&I@f&NM$(NM$,12I):ܕ&SM(KB10):HS(KB11):HN(KB6):RS(KB13):RM(KB14):I16:CH(I)(KB19I):I:AA(KB8):WM(KB7):PS(KB):WC(KB12):(KB17)5W21:W20*&EX#(KB1)256(KB2)65536(KB3):EX#1999L(EX#1000)(2)1:L1?&HB1:2500:2230E&&9800::"TREASURES FOR "NM$:"TREASURE"12);"#"24);"TREASURE"36);"#"&I1202:I;12);(KA81I);24);I1;36);(KA80I):I:"ART THOU READY FOR MORE";A$:2IMjHMjLMCMjCMC<AKQ<BKۿ8J0J;7JQJIbJSL[jCOPYRIGHT 1979,AUTOMATED SIMULATIONS REV 3 7/3/80kj 600:D,HZj J0:IK0:II0:NX0:NY0:L10:L20:L40:YY0:KK0:I0:IJ0:K0:Q60:P(4),S(4),ZA(3),ZD(5),TX(3,1),TY(3,1),TM(5),H(3),T$(9),RF(3),RN(3)#k Q112:M$(Q1):C%15360:KM0:B1$" "kQ220::0,2,-1,2,-2,6,2,1,4,1,12,-2,1,-2,2,18,-2,-1,-4,-1,10,13,2,1,1:I03:H(I):J01:TX(I,J),TY(I,J):J:I:I15:TM(I):IRlKA1(6553646864):NOKA:NT4QKA:D18QKA:D212QKA:MT16QKA:MNMTQ:NPMNQ:XPNPQ:YPXPQ:TRYPQ:XRTRQ:YRXRQ:KBKA2251:I160:KAI,0:I:***DISK mX1YRQ:X2X12Q:Y1X22Q:Y2Y12Q:TNY22Q:TVTN10:TPTV10:TGTP10:TWTG10:TSTWQ2:ULTSQ2:UAULQ1:UPUAQ1:USUPQ1:UDUSQ1:UCUDQ1:URUCQ1:UIURQ1:UWUIQ1:UVUWQ1ymC%15360:BL$(15," "):ZD(0)3:ZA(1)0:ZD(1)0:ZA(2)3:ZD(2)3:ZA(3)6:ZD(3)2:ZD(4)5:ZD(5)5:SE100m"FLAME","DUST","MOLD","PIT","","SPEAR","NEEDLE","XBOW","CAVEIN","CEILING"m-I09:T$(I):I:J9191:J664:5000"n2PCPC1:KB24,(KB24)1:KA92,(KA92)1:Jn7YYW1W25:YMYYYMYY:YM5YM5rn8XXV2V15:XMXXXMXX:XM5XM5xn9n<@945,J;"ARROWS";:nA(23);:I130:I:(28);:nF500:L070:J(C$)48:J0J970:nH@503,B1$;:@503,(KB13);:oJ@569,B1$;:@569,(KB14);:8oPI160:KAI,0:I:}oRI03:RN(I)0:RF(I)0ʱNTKRIQ,3:KA61KR,0:RN(I)1:RF(I)0oTI:IKF1:I3II4oURN(KF1)0RF(I)1oVoZN,(IANN):NNNN1:odL1YY:L2YYL1:L10L10:L20ʒpeL247L247:L147ʒRpfL3((L13)3):L4((L23)3):LM3L43:LX3L31:LML1LML1cpgLXL2LXL2phIIXXXX1:II0II47ʒpiI2II:IKL1LX:400::IKLML2:400:pnL4L3ʁNYL3L4:C%II64NY,J9:ps:qxL1YY:L2YYL1:L10L10:L20ʒqyL247L247:L147ʒCqzI0I1:NX2XXI:NX0NX96ʒ^q}JL1L2:(NX,J):::qL12XX:L2L1L1:L10L10:L20ʒqL295L295:L195ʒqI0I1:NYYYI:NY0NY47ʒqJL1L2:(J,NY):::rL12XX:L2L1L1:L10L10:L20ʒ!rL295L295:L195ʒCrI0I1:NYYYI:NY0NY47ʒ^rJL1L2:(J,NY):::grI11rXX2(XAXB)1:YYYBYA:KF2KF4230rIXX3XX14:IKYY(KF1)2:I1400,410:IKIK1:I1400,410:I:IXX1:IKYY2KF:I1400,410:WsIKYY1YY12:IXX5KF:I1400,410:II2:I1400,410:IK:IKYY:IXX52KF:I1400,410:esI12:205ns,I11s1XX2(XMXBV1)1:YYYBYMW2:IXX:IKYY1:I1400,410:IKYY1:I1400,410:IKYY:IXX2XX24:I1400,410:I:sYNB0ʒs^I12:305.tI0I94IK0IK47ʒ:J01:(IJ,IK)::_tI0I94IK0IK47ʒ:J01:(IJ,IK)::tK0ʃ(I,YYJ):(I,YYJ)::(I,YYJ):(I,YYJ)ttL02:K01:IXX1:J1:440:IXX1:440:IXX2:J0:440:IXX2:440&uIXX2:J2:440:IXX2:440:IXX4:J0:440:IXX4:440:K:L:@uLESE(NB1):IC1LEXuC$:(C$)0L1:fuIC:L0:uXII2(XLXBV11):IJYBYLW2:L01:IIITX(KF1,L):IKIJTY(KF1,L):K0ʑ400::410ubL:vPH(KB24):TATA((M)MM(100PH55PCPH)(1WCWT3)2)11:TA100TA100wN(NPKR):L0:NB0N0(XL(XPKR))3(YL(YPKR))3(100)(TPN)ʒw@624,BL$;:@624,T$((TGN));" TRAP";:65:65:(TNN)0I(TNN):NB1:4830:XM(XPKR):YM(YPKR):@624,A$;:720w(TVN)0ML(TVN):L1:MD2MLwNPKR,0:w LLKR:850xHLLLRxRV3(X1LL)128(X1QLL):V4(X2LL)128(X2QLL):W3(Y1LL)128(Y1QLL):W4(Y2LL)128(Y2QLL):LLKRʒx\V1V3:V2V4:W1W3:W2W4:xpK0:MOKA2121:LL1MQ:L(KMO):KKL1:LL:KKL1:A$"":LL1L:A$A$((KMOLL)):LL:uyXA(KA2236):YA(KA2237):KF(KA2238):PW(KA2235):EX#(KB3)65536(KB2)256(KB1):I6180:KAI,0:IzMM4:PH(KB24):PCPH:PB(KB18):PA(KB19):PS(KB):AA(KB8):TA100:AS(KB23)10:WM(KB7):SE(KB9):WTASAS100:WC(KB12):SM(KB10):fz (KALR61)1ʒ:840:XXV4XB2:V3XB1V4XB49YBW31YBW449ʱKALR61,1z K132:NNLRKQ:YYYBW3:NSK3014:I13:LW3W4:(D2NN)(D1NN)4L3014:100 { I152(NTNN):I10I15YYYBW4(D2NN):L(D2NN)(D1NN):120{ XXV3XB:K{ YYYBW3:K022:NNLRKQ:NSK3034:I11:XXV3XB:L2(V4V3):(D2NN)(D1NN)4L23034:140:I12(NTNN):I10I12XXV3XB(D1NN):L2((D2NN)(D1NN)):150{ YYYBW42:K: |LRKR:800:(KAKR61)14005::80^|XBV1:YBW1:(NTLR3Q)1XBXB(48V2V1)2:(NTLRQ)1XBXB(V1XB)2|(NTLR)1YBYB48W1W2:(NTLR2Q)1YBYB(YBW1)2|@624,BL$;:XLXAV1:YLYAW2:(MTKR)0(MNKR)0ʑ4500:NB1::4800}@48,"ROOM NO.:"KR;:@112,"WOUNDS:"(100PCPH.5);"%";:@176,"FATIGUE:"TA;"%";:@240,"WGT:"WC;" LBS";:@624,A$;:@496,"ARROWS:"(KB13);:@560,"MAGIC AR:"(KB14);:@752,"TOTAL SLAIN:";:@816,KC;}NB0ʑ300}NS5:IB34050~IR03:IKRIRQ:(NTI)1(NOI)0LR(NOI):3000~IR4~LRKR:3000:200:679:~MQ(MTKR):MW0:ML(ULMQ):MA(UAMQ):MP(UPMQ):MS(UVMQ):MD(UDMQ):MH(UCMQ):MR0:880:IH0~XM(V2V18)4:YM(W1W28)4~MF(4):~L(100):LPWNB0:A$"":+L(100):LS0:NB1:I1Q1:LSLS(UWI):LLS48302IMTKR,I:MNKR,1:MQI:ML(ULI):MA(UAI):MP(UPI):MS(UVI):MD(UDI):MH(UCI):880:IH0:4520:L(100):LPW64810:KR1:O$"RLATPFMGEV!HQSYDOI":1200(4000:S(1)W1W2:S(2)V2V1:S(3)0:S(4)0:BUILD INITIAL ROOM`P(1)XAV1:P(2)YAW2:P(3)P(1):P(4)P(2):P(0)P(2)X0XL:Y0YL:IA0:500:M0:@304,BL$;:@368,BL$;:@432,BL$;:L07000>IA0:(C$)47(C$)585100:I118:C$(O$,I,1)ʡI5300,5350,5390,5390,5390,5390,5390,5800,5700,5370,5900,6100,6200,6300,6140,5850,5600,8000KI:5044gTA15390::M(C$)48M1M:N(NPKR):IB0:KF5120,5210,5164,5250YAMW13MW13YA:IB15281,MM:M1M:YAMW24MW24YA:IB1<5281ZXAMV23MV23XA:IB1x5281BMM:M1M:XAMV14MV14XA:IB1L5281bNB07000:7020IB05290::XLXAV1:YLYAW2:(NTKRKFQQ)15290LKRKFQQ:P(KF)(D1L)P(KF)(D2L)ʑ345:82:NB0:IN0:KR(NOL):800:IB2:M(M)4:KR010000IB15290fV1XB1V2XB49YBW11YBW249IB3:S(1)W1W2:S(2)V2V1:MM1:5290~KF1YAW24:5030KF3YAW14:5030KF2XAV14::XAV245030烪250:679:KF1KF3YAYAM::XAXAM(KA86)0MM2W200:P(1)XAV1:P(3)P(1):P(2)YAW2:P(4)P(2):P(0)P(2):IB3LRKR:4004:IB0:5044XLXAV1:YLYAW2:695:L0ʑ650:7020:7000250:KFKF1:KF4KF1200:5044Є250:KFKF1:KF1KF4߄200:5044250:KFKF2:KF1KFKF4 200:5044kTA1ʲ@368,BL$;:@368,"TOO TIRED";:7000::IAI2:IN0:KM0:IA5400,5400,5400,5500,5490HI0:(XLXM)5(YLYM)5ʲ@368,"TOO FAR TO HIT";:70006MTM(IA):K0:600:PPB((KB22)9)3(2PCPH)ML3ZA( IA):R(20):RPʲ@368,"SWISH!";:6990?;AKAS(RP1):@368,"CRUNCH!";:AKWMAKWMP=AKMHAKMH@(USMQ)2((KB10)0IA3)IA5MPMPAKMH:IN0J6990цrI15:KM5:(KB14)07000::KB14,(KB14)1:74:5505|I13:(KB13)07000::KB13,(KB13)1:72 KF5510,5550,5515,5555>LYYL2:UYYM3:S1:5520WLYYL2:UYYM3:S1XXL1:YLYUYS:I2(XV1XB):JYBYW2:(I,J):(I,J):XX1:Y:5580LXXL1:UXXM3:S1:5560هLXXL3:UXXM3:S1YYL:XLXUXS:I2(XV1XB):JYBYW2:(I,J):(I,J):YY1:Xq(XXM)I1(YYM)I1ʲ@368,"THWUNK!";:AK(7)KM:5437::@368,"SSWHT!";:7000KKRKFQQ:(NTK)2ʏP(KF)(D1K)P(KF)(D2K)ʏ(P(KF1)S(KF))6ʱNTK,1:IJ0:KF5660,5620,5680,5640:56057000LR(NOK):NSKF1:NS3NSNS4:NTLRNSQ,1:NS5:3000:7000IXXV2XB2I13IJ:YYYBW2(D2K):L(D2K)(D1K):120:XXV1XB:5630YYYBW1ۉ&I11IJ2:XXV1XB(D1K):L2((D2K)(D1K)):150:0YYYBW22:5670DKKR(KF1)Q:(KNT)3(40)20(KB21)ʱKNT,2:RF(KF1)1:@304,BL$;:@304,"A SECRET DOOR!";:IJ2:LRKR:KF5660,5620,5680,5640::@304,"NOTHING";N7000CN(TRKR):@304,BL$;:N0XL(XRKR)3YL(YRKR)3ʲ@304,"YOU CAN'T";:7000::TRKR,0:@304,"TREASURE #"N;:KAN81,(KAN81)1:WCWC(TWN):@240,"WGT:"WC;:IN0Ћ680:I(TSN):I100JKBI81:J,(J)1:JKAI197:J,(J)1:7000::I17000,5810,5815,5820,5825,5830,5835,5805,5840,5845,5846,12000㋭KA89,1:7000J(6):@945,J;"ITEMS";:KB6,(KB6)J:7000,PS4:SPSP1:7000Ռ@944,"DOST USE SWORD?";:500:L05820:@944,BL$;:C$"Y"PBPBSM:SM(4)(4)4:PBPBSM:WMAS(7SM).5:SM0SMSM(2(KA)2):SM1ʲ@944,"THE SWORD GLOWS";C$"Y"ʱKAN81,(KAN81)1:WCWC(TWN):@944,BL$;7000GJ(20):60:KB13,(KB13)J:72:7000sJ(10):60:KB14,(KB14)J:74:7000KA90,1:PAPA1:7000KA88,1:7000KA87,1:7000ЍPW75:KA2235,PW:7000@944,"DROP SOME?";70:JJ10J:70:JJJJJ:JJ21I(KAJJ81):I0ʱKAJJ81,I1:WCWC(TWJJ):@944,BL$;:@240,"WGT:"WC;:(TRKR)0(TSJJ)0ʱTRKR,JJ:XRKR,XL:YRKR,YL:680@944,BL$;:7000ݎ (100).3((KB20)(KB22))(UIMQ)IN1:7000@304,BL$;:@304,"PASS BY";:70000(KB11)0ʱKB11,(KB11)1:J0:6150KPCPC1J:PCPHPCPH@945,BL$;:@119," ";:@119,(100PCPH.5);"%";:7000IKB6:(I)0ʱI,(I)1:J(6)1:6110ӏ@945,"NONE LEFT";:5044L8JJ(KB21):@304,BL$;:I(NOKRQKFQ):MQ(MTI):I0(MNI)0(1000)JJJJ(KA89)700ʲ@304,"NOTHING";:7000eB880:@304,A$;:7000(NPKR)0(20)(KB21)ʑ670::@304,BL$;:@304,"NOTHING";7000NK1:600X650:NB07005:4850:NB05044Z@688,"APPEARS";:@624,BL$;:@624,A$;:300:50448]@432,BL$;:IN0HI07500Xb(X0XM)5(Y0YM)57300bgIMMAyiIMIM1:IM07250ƑlPPAZD(IA):R(20)ML:RPʲ@432,BL$;:IMIM1:@432,"IT MISSED!";:7017}v65:(20)1(KB4)ʲ@432,BL$;:@432,"SHIELD HIT!";:KPS::@432,BL$;:@432,"STRUCK THEE!";:K0:(USMQ)2(20)(KB21)2(KA81)(KA88)0ʑ50:@432,BL$;:@432,"A CHILL";KK(MD(RP))10AA(KB16):K0K0ΒPCPCK:PC1ʁI11000:I:11000 @119,B1$;:@119,(100PCPH.5);"%";:NB07017:5044=RNB05044:350:L2:(4)7260,7270,7280,7290O\YMYML:7490afXMXML:7490spYMYML:7490zXMXML:7490ʓ350:679:XXXLXM:YYYLYM:(XX)(YY)7306::XX0MF2:MF4ԓ7310铊YY0MF1:MF3 LMS:MF7320,7360,7400,7440+YMLYL3YMYL3::YMYML57490VXMLXL3XMXL3::XMXML`7490YMLYL3YMYL3::YMYML7490XMLXL3XMXL3::XMXMLB55:300_LMP1NB0ʑ350:450:EX#EX#20MLML15:KCKC1:@816,KC;:@304,BL$;:@304,"MONSTER SLAIN!";:M(MNKR):M0ʱMNKR,M1:M1ʑ4500:@304,"ANOTHER APPEARS";:300VMP1NB0:@368,BL$;:@432,BL$;:@624,BL$;:@688,BL$;`5044@@880,(30);"TREASURE #";:L5120:@946,(30);:L5;59);(KA81L5);JL6130:(14400)0L617TL6,L5:@880,(30)(26)(30);:7000X':"THOU LEAVEST THE DUNJON"'"EXPERIENCE:"EX#:"DOST WISH TO REENTER";C$:(C$,1)"Y"WC(KB12):KR1:PCPH:XA(KA2236):YA(KA2237):KF(KA2238):TA100:80:5030m'"DOST WISH TO SAVE THE DUNJON ";A$:(A$,1)"Y"ʍ10015:"WHAT LEVEL WOULDST CALL IT ";X$:AN$"LEVEL"X$:10017:"I",1,AN$:ŗ'AN$" ALREADY EXISTS, ARE YOU SURE YOU WANT TO CHANGE IT ";:X$:(X$,1)"Y"10011+'"SAVING ";AN$:"O",1,AN$:K0:I19:A$"":J0248:A$A$((KAKJ)59):J:#1,A$:KK249:I:1>'"LEVEL SAVED"'J#(EX#256):KB1,EX#J#256:JJJ#256:KB2,J#JJ256:KB3,JJ:SM0SM0 '20000!'106ʦ:10013:$'KB10,SM:"LOADING THE INNKEEPER":"INN":***DISKE*:@401,(23);"THOU ART SLAIN!":I12500:I::I((16)).7:I11010,11030,11040,11020y+"THOU ART EATEN":KB12,0:20005:20050: S$+"INN" +"BENEDIC THE CLERIC FOUND THEE":10010+"LOWENTHAL THE MAGE FOUND THEE":I8190:KAI,0:I:10010U +"OLIAS THE DWARF FOUND THEE":I6190:KAI,0:I:SM0:KB10,0:KB16,0:KB14,0:KB6,0:10010 N"WOULDST THOU SAVE THY CHARACTER BEFORE RETURNING TO THE INN ";C$Ě"N(C$,1)"Y"ʍ10020:20005:20010%NS$"":I010:CH(KB11I):CH64 CH91 S$S$(CH) : S$S$" "(NI:*N"STORING THE ADVENTURER HIGHT ";S$:"O",1,S$:I6196:J(KAI):#1,J:I:J(KA):#1,J:I037:#1,(KB12I):I::10020RN0:CH(KB11I):CH64 CH91 S$S$(CH) : S$S$" "y(NI:*N"STORING THE ADVENTURER HIGHT ";S$:"O",1,S$:I6196:J(K>hu;L?D;B;;EF;H;J>;t\OX_d;g;;T;Y;;PW;;`a;;;evU;;j;lm;o;qfQ;Sb;;u;;?@;;;;CMEF;=DKN;;Q;;;hYH;T;;;;[\;;W;cd;bvg;i;k;mnV;;;R;;;L@;;C;AFG;I;K;?;;P]t;vXh;^QZ;;O;;Rabw;SfsU<;k;mn;p;r;;N=g;;L;AB;;GMIJ;X;;N;HO;;Rv;Z;rc;W;_`;;;;;hef;;jVl;n;pq;;VwT>iQ<<;<<<;< ;;<<;<;<<;<<<<<<;<;;<;<;;<<;;<<;;;<<<;;<;<<;<;<<<;<>;;<;;<<;;;;<<<<;<<<<;;<;;;<<<;<;;;;<<;;<;<<;<<<;<;<;<<<;;;<;<;<<;;<;<<<;<;<;<;;<<<;<<<;<<<;;<;;<<<>;<<<<<;<;<<;<;<;;<<<;;<;<<;;<<<<;<;;<;<<;;<<;<;<<;<;<<;;;;;<<<;;<<<;<;<<;;;;;;<<;=E;LBD;G==DD=D=B= ====MD=======B==LG==LD===DBB==B=BB=D=B===LB;;D;;BG;;;;BGBB;E===;;=;;;==G;L;;;;GL;;L;GE;EQG;G;D;EGL;;;=;=;LB;;G;DDD;B;B;=;;==R;===;GBB;;L;;DBI=;LDLBB;B;BB;D;B;;=EB;=E=BG==BGBB=G==L========L;===L=GL=====EGE==GLG=D=EG======D==GJ;QGI;L==II=I=GB=GBBRIB=G ==B=G==QL==QI===ILL==G=GG=I=LBG=QG;;I;;GL;;;;GQGG;JGBB;;B;;;BBL;Q;;;;LV;;Q;LJ;JVL;L;I;JLQ;;;B;G;QG;;L;III;G;G;B;;BB\;BBG;LGG;;Q;;IGNB;QIQLL;G;GG;I;L;;GJL;=J=GL==GQGG=L==Q=GB==BB=Q;BB=Q=LV=====JLJ==LQL=I=JL======IB=D<<;;>;B>@;;B;;;;;;;;;;;;;;;;;;;;=E ;B;BCDCC;;DAA;;A=;CDC;<;?=<<;;=;?>?;;?;;;;;;;;;;;;;;;;;;;;E?;?;??>>=;;>??;;?>;===;<;?;<<<<<<<<<<<<<<<<;;<<<<<<;<<<<<;<;;<<<;<<<<<;<<<<<<;<<<<;<<;=GNLDFNI??FNLFND?==I?????=?DN@D=N=;NIN=N?LFF=NNDI?D;FNG?=GN==NFQNSINJDNDJSDNN==????NN=??INN=?=;IPN=NGGNb =SINIGN;NINN=F?=O;;BFGCCHLFEFCBBOOOO;;O;;OO;D;F?OKMJO@;=OI;N@==?N??N]=N?N??N@G@H==@==BN=?=NNZ?NNBdPN=??S=P=TBK?NB?=NE?=XO==S?????[????N?M@J@==@==L@=I=??d??NdBP?=N?L=B=BUI?SBN=?G?=?}||||fffPPPPfD}QxxbbxxbbbQQQ;; ;;qDx;<<<<<<<<<<<<<<<<<<;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<<;;>~~~hhhh~RF;=<<<<<<<<<<<<<<<<<<<<;;<;;;<<<<<<;;;;;;;;;;;;;;;;;;;;;;<=;;gZpDDZNZDZZDDZp}ZpZ=}Z=}pp=}DDD}Z=pDg;< <<;<;;<<;;<<;;<<;;;<<<<;;<<<<<<;<<<;;<<<<<;<;;<;;<;;;<<<<;;BX{B{B{BL{;;BX{t}BnXBeXB{enXnXe{{{eBX;E;<<;;;;;<;;;<;;;<<;;;<<<<;;<<<<<;;<<;;;<<<<;;;;;;;;;;;;<;<<;;;;;;;;;;;C;;;;;;;;;J;;;;;;;;;C;;;;;;;;;<<<==;<<<<<<<@><=y@;;;;;;;;;;;; ;;;;;;;;;==>>==<<=>EO?<<<><<<<<;ODDHHDD@?DJh;;<;=<<<;;;;;DAB=ABBAFMJ;?=<==;;?@=;;><=======>;;;;;;;;;><<;;;;J;@JJTT;;;@G@B@>@@@@;;E~[~F|[}|B[|@@A}CB|[|B|[|G|[C~|;;;<ϗ;їYXT@<;M B2:M(M)4:650:KR010000l~IB15290~X1(K<>;C@;;?F;;I;;J;;RO;;ML;T;SsV;;W;]_;;;[abe;dh;gZmn;;;;po;;;;;;>?A;;;qCDGHPN;FsLM;;;;;;;;X;aY\`;[;;;d;g;;;;;;;ZWmno;;S;;;;;;;;C;;FI;QP;M;;LUS;WZ;;ja;\;];bc;fd;ig;;;;klrq;;V;;;;;;=>;?;DE;KFG;;;MNI;H;;s;;;mWZl^[;;;\Y;;b;;d;;;;;nop;C;L;;;;<;<<;;<< ;;<;;<;;<<;;<<;<;<><;;<;<<;;;<<<<;<<;<<<<;;;;>>;;;;;;<><;;;>=<><><;<<<<;;;;;;;;<;<<<<;<;;;<;<;;;;;;;<<<<<;;<;;;;;;<<<;;<;;<;;<<;<<;<;;<<<;<<;;<<;<;<;<<;<<;<<;;;;<<>>;;>;;;;=;<>;<;><;<><;;;<<<;>;;<;;;<<<<<<;;;<<;;<;;<;;;;;<<<;>;<;;;;];=Q;;==;;=;;=;;= ===G=====?===X=B====S=BG=B==BBE=;===DB=;;;;;=^=V;;??BJ=C=;=FF=;;;;;;;;U;B=J=;B;;;G;=;;;;;;;==D=G;;=;;;;jP=Q=;;=;;=;;==;==;G;;===;==;;@=;=;B;_=;GB;=B;;;;FBXD;;];;;;@;=?;B;S=;N@B;;;FF==H======S=B=J====B======I====;=N==?==;;;;g;Ge;;QG;;G;;L;;GG==QG=Q=Q DG==b=GB===XBGL=GB=GGKB;===IG=;;;;;]cGV;;DDLOGHG;JPPG;;;;;;;;_;GBOB;G;;;L;B;;;;;;;BGNGQ;;G;;;;jPGeQ;;G;;G;;GL;GG;Q;;GQQ;GG;;EB;B;G;dB;LG;BG;;;;LG]I;;b;;;;E;]D;L;XG;[EL;;;PPG=M==G===]GGBOB===GB==B==N====;GXG=D=G;;;;;;;<;;;;;;;;;;;;;;;;;;;;;;;;=>;??;? ???????????@F;;;;;;B;;;;;;;;>;;;;;;;;;;;;;;;;;;;;;;;;==;<<;=>=<<<<>=<<<=>;;;;;;>;;;;;;;;;<;;;;;;;;;=?;;;;;;;?;;;;;;;@@;;;;@@;@;;@;;;;;;A;;BB;;;;;====G;========DD=======N=======??===;??=?=;?======?==L?=;;;;====?;========DC=======B=======??===;?L=?=;K ======?==??=;;;;OOOOOOO?;OO;@AA@OBBOOCDO;;;EFE;;G;HE;GGIJ;OKOOLM;;;;;EHCAGBGD=?=ANVD=AD=??NNBNNDCNDR===?DI==D=DD=DDDN=H?I=L?=;;;;E@TA?ENQ=?QA?ED=VD=N??NO?NBYND?===DID==?=J?=I??D=E?QN??=;;;;>H^j~~^R<^jv^^RXXXLLXXni~j j;;;;;;;;;;;;;;;;;;;;;;;;;;;<<<<<<<;<<<<<<<<<<<<<<<;;;;;;;;;;;;;;l`ll`Tlxq`pppZZpkZ;@@GNNZ;;;;;;;;;;;;;;;;;;;;;;;;;;;<<<<<<<<<<<<<<<<<<<<===<<;<;;;;;<;;;;Kmvv{jDTOODeeDZqlleQbt[nOe{D;;;;;; ;;;;;;;;;;;<<;<<<<;;<<<;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<;;;;=IIhtcRtBMMBj^cjw~rrcO>Y`HMl;;;;J;;;<=>?@A?;;;<<<<<>;ZH;;<;;A;;;;?;; ;;?>@;;;;<=<=<<<<<<?AO;;;;;;;;<;;O@@@BCBD?@@BO<<>?><<<;>>O;;;;;;;;;;;O;;;;;?;;;>;OO;;;=;;YOW;OF>B@@>>@?@?OCD[~E|[~D|[|F[}D~AD|[|CB|[|J[}}[};OOHF=O= W(N):PSSD(N):t RS0:"HAST THOU A BOW";C$:(C$,1?=>s;AH;;Fr;KvJq;;;Q;gSTUVWXY;[c;;d;;;;Zmbf;eijk;;;;;;;;?;P;;;Q;Y=;@A;FGH?;K;v;;;;Rg;fVd;;Za\;^;;;;`;_;;h;;;;klmntpqUoOM[;<=s;@;;;;D;A;IG;;;;uN;QRSTUVWbY;;;;;;dZ]geP;hij;c;;;JE>;;H;;@;HBC;;;;EFG;;J;v;u;=Q;;sU;;?Yw[;]dbZ;;V;TRg;;lmnotqr;;p;L;=<<;<<;; >>;==>>;;;=;========;=>;;=;;;;<<<>;<<<<;;;;;;;;=;<;;;<;<=;==;=<<<;=;<;;;;<>;=<<;;<=<;=;;;;=;=;;<;;;;<<<<<<<<<>><==<=;<;;;;>;<;>=;;;;<=;=======<=;;;;;;<>=<>=;<<<;<;;;>><;;=;;=;<==;;;;=<<;;=;>;>;<<;;<<;;<<<<;====;;<;=><;;<<<<<<<;;<;<;?B======Q?=@?@J== =D=UDHDHSNN=NV==E=======@==S==========@=E==;B;B>;LL;@===;A;Q;;;;=?;[==;;=AB;D;;;;G;?;;=;;;;======S===>=@D=E;=;;;;G;=;JJ;;;;ED;DHI>NDNSG;;;;;;=@Q=@?;===;Y;;;I?=;;?;=D=>LL====@====M=H==============B=DSG>====B?===Y====D=======DLG=GG==VD=EDEO===I=ZIMIMX SS=S[==J====GGGE=G]GG========E=O==;L;MC;VV;EGGG;F;V;;;;GD;`GG;;HFL;I;;;;L;D;;G;;;;GGGGGG]GGBBQEIGJ;G;;;;L;G;OO;;;;OI;IMNCSIS]L;;;;;;GEVGED;GGG;c;;;NDG;;D;=I=HVV====EGG==R=L=B=GG==GG==HHQL=IXLC==G=GDG==cGGGGNG==G=B=;D;;;;==;;;;;;B;<;<;D;;<;;;C;;;CE;; ;;>;D;;FD;;;?;;;;;;B;;@;;;<;;;;cc;;;;;;=;?;=;=;;@;;;>;;;=?;;;;B;=;;?=;;;<;;;;;;?;;=;;;;;;;;;;<=;;;>;;;;;?;;;;CBB;BBBB;<@;;;B;B;D;;;A;;AA;A;;B;;;;========??===?=====@====^PG=FPN]=?N===A=B=D===C==TR=@==B============??===?=====A====OBB=?BBG=??===I=A=I= ==I==DD=@==B====;OOO;;OO<=OO;>?OOHO@O;;OI;OOO;;OOAOOBCO;OOD;;OEOOEEOF;GOO;;O=IBP==?D??BI=??BBNSDY==B^=BSL==VK?PPabD=XED==FAFSTRS@=?BK==B=IQ?==OU??BF=?BGLDN?G==dO=FIL==PB?BI@XL=DQI==SISFAAF@=PMD==BggG;QgQG]sq]IIS]]bssssssW] H;i];;;;;;;;;;;;;;;;;;;<<;<;<;<;<;<;<<<<<<<<<<<<<<<<<<;;;;;;;<;;iSi__u_KuKuUu_u_duYk_Is<;;;;;;;;;;;;;;;;;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<;;;;;;<;rVff;; ;<;<;<<<<<<<<<<<;;;;;;;;;<<<<<<;;;<<<<;;;;;;<<<<<<<<<<<;<<;cy??;;H>D?M=A;D@;;;; E;E;;;;;;=<=@<=>>?<<<=<<=<<>=;FAAJ>BMAJAAJ@?=;>;=??;;;;;;;;;;;><>;;D;<;;;;;PcEE@E;;?;;;@@@<>>@@@BGEA||A||@G|[|}|A||A}G|[D|[|A||E|[~G|[}|G|[|YA<; EDIT":3040::RSRSN:MOMO((N1)2):WCWCN10w =;DEF=@;B;;;;;C;P;;;;A;;;;;;;;?\r[st^;;mlkj;;;;;;;;fghi;;;;;;=>?\WU;P;;;BC;KQNOA@RST;;V;X;;;;]^`ba;cde;;fgh;;;;;;;;;;i;;;;@;YAPCI=>?;;;;;;;;;K;;;;;;;;;;\Z;_;;;;;;;nopqedcb;;;;[]^;;;;<=>ONGH;;;;;;;J;;LMCKPQRAU@W;;;?\];^`_bcdghit;;;;;;;;;;;uuu;===<<;< ;;;;;>;>;;;;<;;;;;;;;==<<=<<;;====;;;;;;;;====;;;;;;<<<>==;<;;;==;======>==;;=;=;;;;<=><<;<<<;;<<<;;;;;;;;;;<;;;;<;=<<<>=>=;;;;;;;;;>;;;;;;;;;;<=;<;;;;;;;========;;;;<=<;;;<<<<====;;;;;;;=;;==<=>======;;;><=;><<<<<<<<<;;;;;;;;;;;;;;;>=K==;======A=O= ===N========K?==GI===>>??========??>>===;;;===@DD;=;;;B=;B?DDDD?>F;;D;D;;;;=C@==;===;;===;;;;;;;;;;K;;;;O;K===>DLK;;;;;;;;;Q;;;;;;;;;;=?;I;;;;;;;??>>??>>;;;;LG=;;;====DD[B=======D==DD==I@DDDDD===@@@=@G===================;;;;CBPGG;G=====F=T====X===== ===PDGGLNB==CCDD========DDCC===;;;GGGEII;G;;;GB;GDIIIIDBK;;I;I;;;;GHEBG;BBB;;BBB;;;;;;;;;;P;;;;Y;PGGGCIQP;;;;;;;;;V;;;;;;;;;;GD;N;;;;;;;DDCCDDCC;;;;VLB;;;GGGGII`G=======I==IIGBNDIIIII;==EJE=EQBBBBBBBB===========;;;;;;;;;;;<=>?;;;;;=;;@;;;;;A;;>;;;;; ;;;;;;;;;;;;;;B;C;;DE;;;;;;;;;;;;G=?=;;;;;>;;<;;;;;>;;?;;;;;;;;;;;;;;;;;;;?;=;;=?;;;;;;;;;;<;;;;;;=;;;;;;;>;??;;;;;;;>;<;@B;;;;B;A;;;;;A;;;;;;;;;======A======C=======J=NJ=======L=B=OW======@=====D======;;;======b======I=======?=?@=======B=A=AW====>= ?=====A======;;;;;;;;;O;?@OAOOOOF;OBGOOOOOC;;;;;;O;;;;OOO;O;=OHO=ODE;;;;======@=ObQ?BCE??AB??=LNNDEDE@N======W====?@A=A=?AD@CBQM=;;;======c=bbaDL?E?GAGMA=G??MG??@?======W====?AD=E=FF@@@BQM=;;;;assJJ[r;;GSdVVbbbFFF\r~ \~;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<<<<<<<<<<<<<<<<<<<<<<<<;<<;;;cHXdtHLLUfdduuH^T^tQct;;;;;;<;;;;;;<;;;;;;;;;;;;;;;;;;<<<<<<<<=<<<<<<<<<<<<<<<<<<<;;;p\<<@B;;;;;;;;;>B@AD?;;;;J>>A_?qC;;;;;;;;;C;;A;;;; ;;;;;;;;;<<<@D@D;;;;;;;<<;<;;A@?AAAABHDFO=;;@O;;;;;;;;;;;O;;;>;;;;;;?>E>@OF|[}|F[D|[|B|[|@D[~CA}E|[|A}B|[|;OOOOOOOOOOOuT@=;_ N):L(D2NN)(D1NN):120ot XXX1(LR)XB:K6u YYBASIC,46700 POKE -16433,0 RUN"INN" "I@ !?M^MC-@m[I@mSR!;m8mSI@mSe!`M<(w>M2DR2^f2"g2z2z2W2m2u22%!R"ER"_f"#g"z"z"X"n"v""&!>?"c_"?f"Pf"\"x"/2e_2Af2Rf2^2z22(@!R m0!wM<(;>C2"g2^f2v_*I@@7mB"I@"#gk!Wm0!uBASIC,46000 RUN"INN2" ,0 RUN"INN2" "I@ !?M^MC-@m[I@mSR!;m8mSI@mSe!`M<(w>M2DR2^f2"g2z2z2W2m2u22%!R"ER"_f"#g"z"z"X"n"v""&!>?"c_"?f"Pf"\"x"/2e_2Af2Rf2^2z22(@!R m0!wM<(;>C2"g2^f2v_*I@@7mB"I@"#gk!Wm0!uBASIC,46000 POKE -16458,0 RUN"INN2" "I@ !?M^MC-@m[I@mSR!;m8mSI@mSe!`M<(w>M2DR2^f2"g2z2z2W2m2u22%!R"ER"_f"#g"z"z"X"n"v""&!>?"c_"?f"Pf"\"x"/2e_2Af2Rf2^2z22(@!R m0!wM<(;>C2"g2^f2v_*I@@7mB"I@"#gk!Wm0!uBASIC,46700,RUN"INN" 8,0 RUN"INN" "I@ !?M^MC-@m[I@mSR!;m8mSI@mSe!`M<(w>M2DR2^f2"g2z2z2W2m2u22%!R"ER"_f"#g"z"z"X"n"v""&!>?"c_"?f"Pf"\"x"/2e_2Af2Rf2^2z22(@!R m0!wM<(;>C2"g2^f2v_*I@@7mB"I@"#gk!Wm0!u