s DEVILS DUNGEON from "STIMULATING SIMULATIONS by C.W.Engelt as modified by A.E.McLaughlin Jr. ----4/4/81`tE$():E1$E$"E":P$E$"p":J$E$"j":X1$E$"x1":Y$E$"Y":Q$E$"q"t(K$E$"k":K1$E$"K":Y1$E$"Y1":Z$E$"z": E1$t2,,"Welcome to the DEVILS DUNGEON"u<,"----When you wish to quit, enter `99' in room #1 on any level."KuF,"-You gain experience by moving (1 x level #), fighting monsters"uP,"and finding gold (1 pt. for each piece of gold)."uZ,"-Enter `0' in any room #1 to trade experience for speed or" vd,"strength. If you run out of strength or speed, you die ---so"Mvn,"on each level, try to find room #1 as quick as possible."vx,"-Enter the room number to goto any adjacent room in the list."v,"-Enter `0' in any room but #1 to fight the monster if you are" w,"strong enough. I'll print his speed & strength for comparison."fw,"-If stuck, enter `99' in any room except #1 to use your magic"w,"wand. This will create a DROPOFF (if it works!). It has been"w,"known to malfunction once in a while and cost you speed and"8x,"strength. DROPOFFs take you to the next level down if you enter "}x,"`.1' but you can't go back up. Slides are also one way! Some"x,"corridors might be enchanted allowing one way only also!"y,"-The deeper you go, the more gold is available to find but the"Oy,"monsters become stronger and faster also! Your speed and strength"y,"go down each move by an amount equal to the level you're on.":y,"I'll print a command reminder at the bottom when you are ready to"&z,"play so you don't have to memorize these instructions. Please,sz,"press ENTER when ready for more instructions.";:"---READY";ZZ$: E1$z,"-Drawing a map of each level is recommended but not necessary"z,"as you can enter `88' at any time to get a list of rooms you"={","have visited and the numbers of rooms they connect to."{,,"In case of a `tremor', things will change so better check!":{6," Let's see----did I forget anything----?";: I :|@:,"-Oh yes, the GOLD. You have to take it out of the room to get to"W|J,"keep it and any monster there wont let you take it while it's"|T,"alive so it's either fight or run and leave the gold behind!"|^,"-Also, you may run into Demons and poison gas down here!"'}h,"Demons might curse you (take half your speed) or steal your gold."\}r,"If gassed, you'll lose half your strength.":}|,"-------When you are ready to play, press ENTER."::,;:"READY";ZZ$} P$;J$;X1$;Y$"8 ";: reverse video,save cursor,enable 25,pos. cursorD~" `0'=fight or trade `99'=use wand or quit `88'=review rooms `.1'=decend "~ Q$;K$;Y1$: reset rvs video,restore cursor,turnoff 25~ E1$:,"Hang on while I draw my maps!":~ SET ROOMS~ R(),L(A),F(),X(),B() L: G: E:X:D:YSe:YDe!: C C: S C C:,"OK, let me get the map.":  C C:,"Elevator going down!":  C C:,"AGAIN!--- Where did I put those maps!":  C C:,"You sure are keeping me busy!"  I A:L(I):* I X:N(()): I NH J N]&R(@())q0 L(R) &:L(R)I: JDR(I)(()):B(I)N I:B(L)ЀXR()`: I :X(I):ހb HAZARDSl () #z "TREMOR": I :L(I)(X()):Pv () #z "TREMOR": I :L(I): X()X( ) ()L "CURSED BY DEMON!":YD(YD)ׁ X()X( ) ()L "GASSED!":YS(YS)YDYDD:YSYSD: YD YS \: DECREMENT AND TESTV YD :,"You just ran out of speed and died!":  YS :,"You just exhausted your strength and died!"ׂ:, "It might be possible for me to bring you back to life!","Would you like to try again? 1=YES 2=NO ";: B ( B B: O E1$:,"OK, so long-----QUITTER!" I :: J$;X1$;Y$"8 ";K1$;Y1$;K$: C  :: E1$:Ӄ:,"Would you like to start from the beginning? Enter (0)-" ,"or continue from where you are? Enter (1)-";: B B ?AA: A > : YDe:YSe| E1$: Y$"#&";:"CUT--CUT--PULL--TWIST--PUSH--SEW--SEW" I  :::,,"THERE!!!":: :,"The operation was a success! You have been returned","to the land of the living and for my modest fee,"3  G 4 : Go*,"I extracted the small amount of gold you had!": \4GG:,"I took only 250 pieces of gold.": \Ӆ> E1$: Y$"(-";: "----POOF----": Y$"--";H"Oh-Oh! It didn't work!":9R,"Oh well, no one is perfect! Two out of three isn't bad!": t\:,"GOLD";G;" ";"EXP.";E;"DEPTH";D: OUTPUT STATUSf,"SPEED:";YD;,"STRENGTH:";YS: p: ˆp I X:F(I):: ADJACENT ROOMSچz I @ LL(I)  L(I) L(I)L F(L(I))B L(I) L(I) F(L(I))J:cNR(L): CONVERT I :Q(N):X(I)(NQ):NQ:‡ X() MS: : MONSTERS,DEMONS,GAS҇ F MSD(X()X()X()L)MDD(X()X()X()L)="MONSTER","SPEED:";MD;,"STRENGTH:";MS] X()X( ) "DEMONS" X()X( ) "POISONOUS GAS" X( ) T: $: TREASUREȈTX( )X( )X( ),"MAXIMUM GOLD:";TLD"$SX()X()X()X(): SLIDES AND DROPOFFS2. SX SB8 S S\B X() SL VpL,"SLIDE TO:";SV X()X( ) ,"DROPOFF"lj`,"MOVE FROM ROOM #";L;"TO ROOM #";: INPUT MOVEՉj I Xt F(I) IL I;~ I  M: MX & Mc M Y M M X()X( ) DD:F:  M M "NO DROPOFF": l Mc ӊ Mc L E1$:,"YOU FOUND";G;"PIECES OF GOLD!":  MAGIC WAND* ()L "BACKFIRE":YS(YS):YD(YD): lO,"WAND WORKS!":R(L): \r MS <: MOVE OR TRADE M L ,"No monster to fight! Enter room #";: ʋ M L ,"EXPERIENCE:";E;"SPEED:";YD;"STRENGTH:";YS:,"ADD SPEED";: N;  EN ,"NEED MORE EXPERIENCE": dEEN:YDYDN:,"EXPERIENCE LEFT:";E~,"ADD STRENGTH";: N( EN ,,"NEED MORE EXPERIENCE": Č2EEN:YSYSN: \<F: M : FIGHTF M PYH(()YS):MH(()MS)*Z YHMS YHMS>d MHYS MHYS\n ()YD()MD x,"Monster attacks!":YSYSMH:MSMS(YH): Ѝ,"You attack!":MSMSYH:YSYS(MH):EEYH MS ,"Monster Killed!":R(L)R(L): l):,"Monster still alive!": l_: ()YD()MD ,"ESCAPED": : RUN,"Monster HIT you!":YSYS(L~MS):  T : TREASUREǎG1(()TLD):  X()X( ) ()L ,"Demon got gold!":G1: 7,"You found";G1;"pieces of gold.":GGG1PEEG1:R(L)R(L)` MOVE F(M) MS LM:F:EED:B(L): l̏:,"Not adjacent! Try a different room! Room #";: L1L:K X: PRINT ROOMS B(K) J,K; "--";"LK: p-, J XH6 F(J) JK J;R@ J:ZJ KiTLL1: \