0,2,1: 4,2,2:"";nAR0:WE0:SH0:GD2000:SE0:SG0:IN0:CO0:DE0:WI0:MA0:EX0:HP0:LV0:MP0NM$"":AH0:WN0MO$(20):X120:MO$(X):DO$(20):X120:DO$(X):CL$(6),RA$(6),AR$(8),WE$(7),SH$(4) X06:CL$(X)::X06:RA$(X)::X08:AR$(X):gX07:WE$(X)::X04:SH$(X)::AR$AR$(0):WE$WE$(0):SH$SH$(0) PO$(20):X120:PO$(X):!" Β ** SIGNED: / ." 1,3,6: 10)"ELCOME TO "(#10)"ВLAY GAME"K$10)"ĒEFINE CHARACTER"}%"NTERGARTE WAS CLOSELY MODELED AFTER"&"THE - GAME . T IS ":"INTENDED TO BE A NON ON-LINE";'" VERSION OF THE SAME GAME. OTH ARE IN THE PUBLIC DOMAIN."&(A$:A$""408)A$"P"11000J*A$"D"10000R+40j *** MAIN MENU ***""10)"NTERGARTE AIN ENU"10)"",10)"ŒXAMINE STATS"10)"ԒOWN10)"ÒAVERNS OF HAOS"10)"ĒUNGEONS OF EATH"<10)"ВIT OF ANDEMONIUM"WWN110)"ҒETIRE"j10)"ђUIT"}&A$:A$""5500A$"E"700:A$"T"900?A$"C"T0:15000DA$"D"T0:1100FA$"P"T0:16000GWN1A$"R"17000 IA$"Q"1200N550&X *** EMPTY ***B *** EXAMINE STATS ***z"AME: ";NM$:"EVEL: ";LV"LASS: ";CL$:"IT OINTS:";HP;"/";MP"ACE: ";RA$"TRENGTH : ";SG:"NTELLEGENCE : ";IN5"ONSTITUTION : ";CO:"EXTERITY : ";DEg"ISDOM : ";WI:"AGIC : ";MA"OLD : $";GD:"XPERIENCE : ";EX:"----""HIELD :";SH$:"RMOR :";AR$:"EAPON :";WE$"[] TO CONTINUE.A$:A$""716%A$(13)200.716B  *** EMPTY ***U *** TOWN ***o""15)"OWN ENU"15)""13)"RMOR HOPPE"13)"ӒHIELD HOPPE"13)"גEAPON HOPPE"13)"ȒEALING ERBS"13)"͒AGIC EALING",13)"ǒAMBLING ALL"H13)"ԒRAINING AMP"a13)"̒EAVE OWN"tA$:A$""911A$"A"922A$"S"950A$"W"975A$"H"13000A$"M"13050A$"G"13075A$"T"14000A$"L"200911%""15)"’UY OR ӒELL"8A$:A$""923HA$"B"927XA$"S"940a923""10)"E LDE RMOR HOPPE":"OU HAVE";GD;"GOLD.""1) EATHER (600)":"2) ING AIL (1200)":"3) HAIN AIL (1800)"8"4) LATE (2400)":"5) ITHRIL (3000)":"6) ILVERON (3600)q"7) TAR ILVER (4200)":"8) NCHANTED (4800)"AKE YOUR CHOICE OR TO EXIT."A$:A$""932A$(13)900PAAR:AR(A$):PRAR600AR1AR8932.GDPR"OT ENOUGH GOLD!":PR0:ARPA:50000:900^AR$AR$(AR):GDGDPR:PR0:"KAY OLD!";" OLD EMAINING:";GD:50000900AR0"OU DON'T HAVE ANY ARMOR TO SELL.":50000:900SEAR300 " WILL GIVE YOU ";SE;" FOR YOUR ARMOR."#"S IT A DEAL?"6A$:A$""947A$"Y"AR0:AR$AR$(AR):GDGDSE:"OU MADE A WISE DECISION.":"OU NOW HAVE";GD;"GOLD.":SE0:50000:900"OO BAD. HAT WAS MY BEST OFFER.":50000:SE0:900 ""15)"’UY OR ӒELL"A$:A$""951,A$"B"955<A$"S"967E951""10)"E LDE HIELD HOPPE":"OU HAVE";GD;"GOLD.""1) MALL (600)":"2) EDIUM (1200)":"3) ARGE (1800)"4) NCHANTED (2400)"AKE YOUR CHOICE OR TO EXIT."'A$:A$""9599A$(13)900VPSSH:SH(A$):PRSH600iSH1SH4959GDPR"OT ENOUGH GOLD!":PR0:SHPS:50000:900SH$SH$(SH):GDGDPR:PR0:"KAY OLD!";" OLD EMAINING:";GD:50000900<SH0"OU DON'T HAVE A SHIELD TO SELL.":50000:900JSESH300~" WILL GIVE YOU ";SE;" FOR YOUR SHIELD.""S IT A DEAL?"A$:A$""971 A$"Y"SH0:SH$SH$(SH):GDGDSE:"OU MADE A WISE DECISION.":"OU NOW HAVE";GD;"GOLD.":SE0:50000:900] "OO BAD. HAT WAS MY BEST OFFER.":50000:SE0:900} ""15)"’UY OR ӒELL" A$:A$""976 A$"B"980 A$"S"993 976 ""10)"E LDE EAPON HOPPE":"OU HAVE";GD;"GOLD."H!"1) AGGER (600)":"2) HORT WORD (1200)":"3) ONG WORD (1800)"!"4) AGIC WORD (2400)":"5) WORD OF IGHT (3000)"!"6) WORD OF RUTH (3600)":"7) NCHANTED WORD (4200)"!"AKE YOUR CHOICE OR TO EXIT." "A$:A$""985"A$(13)900;"PWWE:WE(A$):PRWE600N"WE1WE7985"GDPR"OT ENOUGH GOLD!":PR0:WEPW:50000:900"WE$WE$(WE):GDGDPR:PR0:"KAY OLD!";"" OLD EMAINING:";GD:50000"900!#WE0"OU DON'T HAVE A WEAPON TO SELL.":50000:900/#SEWE300c#" WILL GIVE YOU ";SE;" FOR YOUR WEAPON."|#"S IT A DEAL?"#A$:A$""997$A$"Y"WE0:WE$WE$(WE):GDGDSE:"OU MADE A WISE DECISION.":"OU NOW HAVE";GD;"GOLD.":SE0:50000:900B$"OO BAD. HAT WAS MY BEST OFFER.":50000:SE0:900W$ *** UNUSED ***m$L *** DUNGEON ***$M"NTERING THE DUNGEONS...":50005$N" GREAT DUNGEON LIES BEFORE YOU."$O"TS DARK GREY STONES ARE IN CONTRAST"%P"WITH THE RED EARTH BEYOND. LACK"J%Q"CLOUDS ROLL OVERHEAD AS THE SUN DRIFTS"x%R"SLOWLY BELOW THE MOUNTAINS. PATHWAY"%S"LEADS TO THE WEATHERED DUNGEON DOORS.":M0:50030%Y""12)"UNGEONS OF EATH"%Z12)"";" =";HP&[12)"ԒRAVEL EEPER"/&\12)"ƒIGHT"E&]12)"͒AGIC"\&^12)"ŒSCAPE"t&_M1"HAT NOW?"&`A$:A$""1120&aA$"T"1126&bA$"F"1137&cA$"E"1170&dA$"M"1153&e1120&f *** TRAVEL DEEPER ***'gM11113%'hT0T1:X((1)4)5:CTX:X0@'iTT1:TCTTR1:1134_'j *** DISCOVER MONSTER ***z'kX((1)20)1:EX:X0'l"OU ARE ATTACKED BY A ";DO$(E):X((1)26)10:AMX:X0'm"HAT NOW?":M1:1120'n *** TREASURE ***(oX((1)501)500:TGX:X0:T0Y(pTR1"OU DISCOVER A ŠOF $";TG:50000:GDGDTG:1152m(q *** FIGHT ***(rM0"OTHING TO FIGHT":50005:1113(sFM1FM0:1142(t *** PLAYER ATTACKS MONSTER ***)uX((1)15)1:PHX:X0:PHPHWE:PHPHAHE)v"OU HIT THE ";DO$(E);" FOR";PH:" DAMAGE":AMAMPH:50000{)wAM0M0:"OU HAVE KILLED THE ";DO$(E):1151)x *** MONSTER ATTACKS PLAYER ***)yX((1)30)1:MHX:X0:MHMHAR:MHMHSH:MH0MH0*z"HE ";DO$(E);" ATTACKS...":50000+*{ MH0"T MISSED!":50000:1113W*|"OU TAKE ";MH;" DAMAGE.":HP(HPMH)*}HP0HP0:"OU HAVE BEEN KILLED!":50000:*~50000:1113*X((1)275)100:EXEXX:"OU OBTAIN";X;"EXPERIENCE POINTS.":X0:50000:1113$+"EAVING THE UNGEON.":50005:M0:200C+ *** FIGHT WITH MAGIC ***z+MA0"OU DON'T HAVE ANY MAGIC!":50000:1113+M0"OTHING TO FIGHT!":50000:1113+"OW MUCH AGIC";FM+FM11113,FMMA"OU DON'T HAVE THAT MUCH!":50000:1113(,PHFM:MA(MAFM):FM1:11378,50000:200j,"OU RUN LIKE HELL!!!":50005:M0:200, *** SAVE GAME & QUIT ***,"RESS [] TO EXIT.":SF$"","AME OF SAVE FILE";SF$:ZZ$(13),SF$""1290 -""14)"AVING AME" -1,8,2,SF$",S,W"c-1,NM$;ZZ$;CL$;ZZ$;RA$;ZZ$;LV;ZZ$;HP;ZZ$;MP;ZZ$;SG;ZZ$;IN;ZZ$;-1,CO;ZZ$;DE;ZZ$;WI;ZZ$;MA;ZZ$;GD;ZZ$;EX;ZZ$;SH$;ZZ$;SH;ZZ$;AR$;ZZ$-1,AR;ZZ$;WE$;ZZ$;WE;ZZ$;AH;ZZ$;CL;ZZ$;RA;ZZ$;WN;ZZ$;OE;ZZ$;NE;ZZ$-1. ""10)"ҒETURN TO GAME"8. 10)"̒OAD NEW PLAYER"K. 10)"ђUIT"_. A$:A$""1293o.A$"R"200.A$"L"11000."":.' *** DEFINE PLAYER CLASS/RACE *.'"HAT IS YOUR NAME";NM$:NM$(NM$,10) /'"N ORDER TO PLAY NTERGARTE YOU"1,'"THEY SOUND LIKE. HEY ARE MODERATE"u1.'"FIGHTERS AND ARE VERY GOOD WITH THEIR":"HANDS."1/'7)"(RESS <> TO CONTINUE)":5006010'"HE IGHTER: HIS CLASS IS VERY"12'"POWERFUL. HEY ARE ONE OF THE STRONGEST"#24'"CHARACTERISTICS TO START WITH."R26'"HE LERIC: HIS CLASS IS QUITE NICE."28'"HEY FIGHT WITH MODERATE SKILL, CAN CAST";2:'"SPELLS LIKE A IZARD AND THEY CAN EVEN"2<'"HEAL THEMSELVES (AT THE TOWN)IF THEY":"GET WOUNDED."3>'"HE ALADIN: HIS CLASS IS GREAT. HEY"O3@'"ARE THE WARRIORS OF OOD AND FIGHT AS IF";3B'"THE ATES OF EAVEN WERE BEING ATTACKED!";3D'"HEY ALSO ARE ABLE TO HEAL THEMSELVES"3F'"LIKE THE CLERIC."3G'7)"(RESS <> TO CONTINUE)":50060$4H'"HE ARBARIAN: HIS CLASS IS PERHAPS"R4J'"THE STRONGEST CLASS YOU COULD BE. HEY"{4L'"ALSO HAVE A HIGH CONSTITUTION AND"4N'"DEXTERITY. F COURSE, WHAT THEY HAVE IN"4P'"BRAWN DOES NOT REFLECT THEIR INTEL-"5R'"LEGENCE. OME REFER TO THEM AS 'ALKING"/5T'"OUNTAINS OF ELLO', BECAUSE THAT'S"Q5V'"ABOUT HOW SMART THEY ARE."f5X'15)"HE ACES"5Z'"UMAN: +1 TRENGTH, +1 ISDOM":"LF : +4 NTELLIGENCE, +2 EXTERITY, +2ISDOM, -2 ONSTITUTION, -1 TREGNTH."'6\'"WARF: +2 TRENGTH, +4 ONSTITUTION,+2 NTELLEGENCE, -2 EXTERITY.}6^'"GRE : +4 TRENGTH, +3 ONSTITUTION, -3 NTELLEGENCE, -2 ISDOM, -1 EXTERITY."6`'"IZARD AN: +3 TRENGTH, +2 ONSTITUTION-2 NTELLIGENCE."6b'"OBBIT: +5 DEXTERITY, +2 NTELLIGENCE, -1 TRENGTH.'7d'7)"(RESS <> TO CONTINUE)":50060X7f'"OU WILL BE ALLOWED TO ROLL YOUR"7h'"CHARACTER OVER, SO KEEP TRYING FOR A"7j'"GOOD ONE!":"VAILABLE LASSES:"7l'"1) IZARD":"2) HIEF":"3) IGHTER":"4) LERIC"98n'"5) ALADIN":"6) ARBARIAN":"OU MUST NOW CHOOSE A CLASS"N8o'A$:A$""10095Z8p'A(A$)m8q'A1A610095|8r'CL$CL$(A)8t'"S ";CL$;" CORRECT? (Y/N)"8u'A$:A$""101018v'A$"Y"101048w'"":100868x'"VAILABLE ACES:"C9y'"1) UMAN":"2) LF":"3)WARF":"4) GRE":"5) IZARD AN"w9z'"6) OBBIT":"OU MUST NOW CHOOSE A RACE"9|'A$:A$""101089}'A(A$)9~'A1A6101089'RA$RA$(A)9'"S ";RA$;" CORRECT? (Y/N)"9'A$:A$""10113:'A$"Y"10125:'"":10104U:'LV1:MP((1)31)10:SG((1)14)7:IN((1)14)7:HPMP:'CO((1)14)7:DE((1)14)7:WI((1)14)7:'MA((1)36)25:CL$CL$(2)MA0:'CL$CL$(3)MA0:'CL$CL$(6)MA0:'RA$RA$(1)SGSG1:WIWI11;'RA$RA$(2)ININ4:DEDE2:WIWI2:COCO2:SGSG1a;'RA$RA$(3)SGSG2:COCO4:ININ2:DEDE2;'RA$RA$(4)SGSG4:COCO3:ININ3:WIWI2:DEDE1;'RA$RA$(5)SGSG3:COCO2:ININ2;'RA$RA$(6)DEDE5:ININ2:SGSG1%<'"AME: ";NM$:"EVEL: ";LVd<'"LASS: ";CL$:"IT OINTS: ";MPy<'"ACE: ";RA$<'"TRENGTH : ";SG:"NTELLEGENCE : ";IN<'"ONSTITUTION : ";CO:"EXTERITY : ";DE='"ISDOM : ";WI:"AGIC : ";MA>='"OLD : $";GD:"----"x='"HIELD :";SH$:"RMOR :";AR$:"EAPON :";WE$='"[] TO ACCEPT OR TO ROLL AGAIN."='A$:A$""10149='A$(13)200='A$"A"10125='10149>*198,0:198,1:200$>* *** LOAD CHARACTER IN ***N>*"RESS [] TO EXIT.":PL$""t>*"AME OF PLAYER TO LOAD";PL$>*PL$""200>*""16)"OADING">*1,8,2,PL$",S,R">+1,NM$,CL$,RA$,LV,HP,MP,SG,IN>+1,CO,DE,WI,MA,GD,EX,SH$,SH,AR$?+1,AR,WE$,WE,AH,CL,RA,WN,OE,NE!?+1*? +200H?*+ *** CAVERN MONSTERS ***?,+"2 EADED YDRA","ELL OUND","WARF ARRIOR","RAITH","IGHTER"?.+"OMBIE","WARF RAGON","AMPIRE AT","KELETON ARRIOR"@0+"IANT ERPENT","IANT PIDER","LACK IDER","EDUSSA","INATAUR"R@2+"LYING ANSHEE","AVE RAWLER","UNNEL ION","LOOD PE"p@4+"CID RIPPER","ARGATH"@9+ *** DUNGEON MONSTERS ***@;+"ORGON","ELL RMS","LESH ATER","LOOD RINKER","EAR ASTER"A=+"LACK CREAMER","WAMP ELVER","UNGEON LIMBER","ONE RUSHER"fA?+"CID TINGER","EATH TALKER","ULG","IRE EOPARD","KULL PLITTER"AA+"IQUID RAITH","ALROG","ING ASP","RIMSTONE NHALER"AC+"IFE UENCHER","INGED RAITH"A.200B."NONE","IZARD","HEIF","IGHTER","LERIC","ALADIN","ARBARIAN"WB."NONE","UMAN","LF","WARF","GRE","IZARD AN","OBBIT"B."NONE","EATHER","ING AIL","HAIN AIL","LATE","ITHRIL","ILVERON"B."TAR ILVER","NCHANTED"B."NONE","AGGER","HORT WORD","ONG WORD"9C."AGIC WORD","WORD OF IGHT","WORD OF RUTH","NCHANTED WORD"jC."NONE","MALL","EDIUM","ARGE","NCHANTED"C."YCLOPSE","EATH NGEL","ANTHA","OFFIN REEPER","AVE ROLL"C."AERON","LACK EEVER","LACK ALGARAITH","ROKHA","HOLA"/D."IRE AGGOT","IANT QUAM","ONE CRAPER","LESH IPPER"jD."RAIN RUSHER","YCANTHROPE","ARGOLIAN","NNACOBRA"D."RAGOLITH","EAD URLER"D2 *** HEALING HERBS ***D2HPMP"OU DON'T NEED HEALING!":50000:900E2"EALING ERBS COST $50 EACH." *** PIT OF PANDEMONIUM ***\>"NTERING THE PIT...":50005 ]>"S YOU DESCEND INTO THE PIT YOU">]>"HEAR HYSTERICAL LAUGHTER AND SLAVERING";k]>"HOWLS RISING UP TO MEET YOU. HEN A"]>"WHISPERED VOICE UTTERS:"]>"OME IN, DVENTURERS ARE OUR"]>"FAVORITE GUESTS AT MEAL TIME!":M0:50040^>""12)"IT OF ANDEMONIUM"1^>12)"";" =";HPP^>12)"ԒRAVEL EEPER"f^>12)"ƒIGHT"|^>12)"͒AGIC"^>12)"ŒSCAPE"^>M1"HAT NOW?"^>A$:A$""16020^>A$"T"16026^>A$"F"16037^>A$"E"16070_>A$"M"16053_>16020/_> *** TRAVEL DEEPER ***?_>M116013c_>T0T1:X((1)4)7:CTX:X0_>TT1:TCTTR1:16034_> *** DISCOVER MONSTER ***_>X((1)20)1:EX:X0_>"OU ARE ATTACKED BY A ";PO$(E):X((1)35)15:AMX:X0`>"HAT NOW?":M1:16020/`> *** TREASURE ***S`>X((1)2500)999:TGX:X0:T0`>TR1"OU DISCOVER A ŠOF $";TG:50000:GDGDTG:16052`> *** FIGHT ***`>M0"OTHING TO FIGHT":50005:16013`>FM1FM0:16042a> *** PLAYER ATTACKS MONSTER ***Ga>X((1)15)1:PHX:X0:PHPHWE:PHPHAHa>"OU HIT THE ";PO$(E);" FOR";PH:" DAMAGE":AMAMPH:50000a>AM0M0:"OU HAVE KILLED THE ";PO$(E):16051a> *** MONSTER ATTACKS PLAYER ***b>X((1)30)9:MHX:X0:MHMHAR:MHMHSH:MH0MH0Hb>"HE ";PO$(E);" ATTACKS...":50000qb> MH0"T MISSED!":50000:16013b>"OU TAKE ";MH;" DAMAGE.":HP(HPMH)b>HP0HP0:"OU HAVE BEEN KILLED!":50000:b>50000:16013:c>X((1)300)150:EXEXX:"OU OBTAIN";X;"EXPERIENCE POINTS.":X0:50000:16013hc>"EAVING THE IT.":50005:M0:200c> *** FIGHT WITH MAGIC ***c>MA0"OU DON'T HAVE ANY MAGIC!":50000:16013c>M0"OTHING TO FIGHT!":50000:16013d>"OW MUCH AGIC";FMd>FM116013Pd>FMMA"OU DON'T HAVE THAT MUCH!":50000:16013qd>PHFM:MA(MAFM):FM1:16037d>50000:200d>"OU RUN LIKE HELL!!!":50005:M0:200dhB *** RETIRE/WIN GAME ***emBGD25000"IGHT A WHILE LONGER.":17070+erB"OU ARE A LEVEL TEN ";CL$;"."Xe|B"OU HAVE FOUGHT VALIANTLY AND WELL."eB"HE ROWN OFFERS YOU THIS OPPORTUNITY"eB"AT NIGHTHOOD AND ACCEPTANCE INTO THE"eB"ELITE CLASS OF ԠƠŠ." fB"OU HAVE JUST BEEN GIVEN YOUR OWN" TO CONTINUE"rgjáA$:A$""50026}gkÉ15020gnÙ""7)"RESS <> TO CONTINUE"gtáA$:A$""50036guÉ1113gxÙ""7)"RESS <> TO CONTINUE"h~áA$:A$""50046hÉ160138hÙ""7)"RESS <> TO CONTINUE"MháA$:A$""50056VhÉ200kháA$:A$""50060qhÎ