ZXTape! 0Created with Ramsoft MakeTZXDC """&0:0:1:7: Fn$(129,29):d(129):a(8,3):gs=0 =t=1129:n$(t):t:t=1129:d(t):t 4t=18:q=13:a(t,q):q:t  :" THE DUNGEON MASTER" #:" DUNGEON CREATION PROGRAM" #:"  1983 Crystal Computing" 16,8;"Do you wish to:";18,5;"i) Create a new dungeon";19,1;"or";20,4;"ii) Modify an existing one" -" ENTER c or m ";a$:a$=""10 $a$="m"a$(1)="M"2000 a$"c"10 7:16,0;" Enter the largest room number" ~: " NB: Rooms must be numbered":" sequentially from 1 but 13":" 44 and 58 must not be used" " ";n:n=030:n>255:10 ,3;"Too many rooms - try again":100d:28 ]:4,4;"THE PRINCIPAL AIM OF THIS";6,4;"ADVENTURE IS TO COLLECT A" .8,4;"NUMBER OF TURQUOISE RINGS" !]20,3;"PLEASE SPECIFY THIS NUMBER":" ";trn:trn<133! #d$(255,24) ( i=1n *8i=13 i=44,i=58:d$(i)="p":600X + pd=1 - 2Za$="North":490:a$="East":490:a$="South":490:a$="West":490 F:'" Room ";i G'" Choose from the following :":'" 0 = Finish":" 1 = Monster 1 (208 + points)":" 2 = Monster 2 (90-207 points)":" 3 = Monster 3 (28-89 points)":" 4 = Monster 4 ( 0-27 points)":" 5 = Armour":" 6 = Weapons":" 7 = Potions":" 8 = Other magic" Za$=:a$=""90Z _a$>"8"a$<"0"90Z da=a$::a=0600X n?:t=1a(a,2):t;" ";n$(t+a(a,1)-1):t x1"Which one (0 to exit) ";c:c=070F y%(c>21)(c<0)120x }c>a(a,2)120x '"How many ";z:(z0)127 q=1z d$(i,pd)=(d(c+a(a,1)-1)+a(a,3)):pd=pd+1:pd=25:10 ,6;"No more space in room" pd<25135 Oq=z:q:"Keep room (Y/N) ? ";a$:a$(1)="n"a$(1)="N"i=i-1 600X pd=20.5,5 q 120x #:'" Room ";i:'" To the ";a$ '" 1 = Open door":" 2 = Wood door":" 3 = Iron door":" 4 = Opening":" 5 = Secret door":" 6 = Wall":"Which type (1 to 6) ? ";a `a<1a>6:10 ,8;"Wrong - Try again":100d:490 Md$(i,pd)=a:pd=pd+1:a=6d$(i,pd)=255:pd=pd+1: &"To which room number ? ";a 0ta=13 a=44,a=58::10 ,4;"Illegal room - Try again":100d:550& :d$(i,pd)=a:pd=pd+1: Xgs=1 bi lS" Enter dungeon file name (Max 10 chars) ";v$ q9v$>10 10 ,10 ;"TRY AGAIN":620l vd$(13 )=n {d$(44,)=trn  v$d$() :"Verify (Y/N) ? ";a$ -a$(1)="n"a$(1)="N"8000@ #:" Cue up and start the tape"  v$d$() !:;" Verified OK" G"Save again (Y/N) ? ";a$:a$(1)="n"a$(1)="N"8000@ ?"Same name ? ";a$:a$(1)="N"a$(1)="n"620l  640 "Demogorgon","Asmodeus","Orcus","Bulette","Geryon","Titan","Big rat","Red dragon","Lich","Beholder","Fire elemental","Blue dragon","Trapper","Jubilex","Green dragon","Ankheg","Medusa" "Balrog","Roper","Black dragon","Vampire","Earth elemental","Giant spider","White dragon","Will-o-wisp","Render","Xorn","Umber hulk","Chimera","Troll","Wight","Cockatrice","Hell horse","Pitfiend" "Cave bear","Minotaur","Carrion crawler","Boring beetle","Salamander","Gargoyle","Hell hound","Leucrotta","Bone devil","Carniverous ape","Displacer beast","Ogre","Mummy","Large spider","Blink dog","Evil warrior","Stirge" "Ghoul","Basilisk","Troglodyte","Bugbear","Sahuagin","Orc","Gnoll","Hobgoblin","Manes","Fire beetle","Zombie","Shadow","Kobold","Goblin","Skeleton","Rat","Giant centipede" "Orcmail","Elfmail","Dwarfmail","Platemail","+1 Platemail","+2 Platemail","+3 Platemail","+4 Platemail","Mithril platemail","+5 Platemail","Platemail of power" "Dagger","Battle axe","Great axe","Club","Hammer","Javelin","Mace","Morningstar","Pike","Scimitar","Spear","Spetum","Longsword","Shortsword","2-Handed sword","Trident","Cold spear","Holy avenger","Axe of destruction","Vorpal blade","Sword of lightning" $"Strawberry","Raspberry (Good)","Raspberry (Poison)","Chocolate","Lime","Egg","Blackberry","Cinnamon","Pineapple","Lemon","Orange","Banana","Grape","Fig","Plum","Rice","Gritty","Cherry" ."Astral escape spell","Rod of blasting","Rod of annihilation","Amulet of finding","Ruby ring","Diamond ring","Sapphire ring","Emerald ring","Turquoise ring","Curse scroll","Aerosol monster repellent" 8>15,21,18,10 ,23,59;,502,29,41),7,72H,27,60<,16,28,1,43+,20,513,26,64@,31,579,31,66B,19,67C,63?,69E,62>,65A,14,46.,24,4,71G,11 ,6,535,33!,37%,40(,22,2,25,47/,45-,568,8,42*,70F,34",3,61=,9 ,524,480,35#,38&,17,5,68D,546,39',36$,557,491,12 ,1,2,3,4,5,6,7,8,9 ,10 ,11 ,1,2,3,4,5,6,7,8,9 ,10 ,11 ,12 ,13 ,14,15,16,17,18,19,20,21,1,2,3,4,5,6,7,8,9 ,10 ,11 ,12 ,13 ,14,17,18,19,20,15,16,21,22,23,24,25,26,27,28,29,1,17,0,18,17,0,35#,17,0,524,17,0,69E,11 ,80P,80P,21,110n,101e,18,140,119w,11 ,140  "Dungeon file name ? ";v$ v$>10 2000 ::" Start the tape"  v$d$() n=d$(13 ) trn=d$(44,) '::8;1;"Stop the tape"  200: x'"Turquoise ring number = ";trn:"Do you want to modify ?(Y/N) ";a$:a$(1)="Y"a$(1)="y""To what ? ";trn f" Extend,alter,append or examine"'"(PRESS E,A,P or X respectively)"'" ";a$ a$"e"a$"E"2050 " By how many rooms ? (0 to proceed to next stage) ";b:i=n+1n+b:gs=1:42*:i:n=n+b a$"a"a$"A"2200  i" Alter which room ? (0 to proceed to next stage) ";i:i=021004  d$(i)="" "gs=1:42*:2060  4K"Save dungeon ? (Y or N)";a$:a$(1)="n"a$(1)="N"2045 9 620l a$"x"a$"X"2300 T" Examine which room ? (0 to proceed to next stage) ";i i=02045 i>ni<02200 ):12 ;5;1;"Room ";i $ "North :";:t=1:3000 #"East :";:t=3:3000 $ "South :";:t=5:3000 $ "West :";:t=7:3000 ,9 ;5;1;"Room Contents" =t=9 24:v=(d$(i,t)):v=32 t:2255 "act=1:q=1129 act=82240 +q=a(act+1,1)act=act+1 +v-a(act,3)=d(q)n$(q):q=999 q:t /"Copy to printer ? (y/n)";v$:v$="y"v$="Y"  2200 " Append to which room ? (0 to proceed to next stage) ";i:i>ni<0i=13 i=44,i=58:"Illegal room -- Try again":2300 i=021004 9t=124:d$(i,t)=32 pd=t:t=99c t /t=100dgs=1:60<:gs=0 $ 2300 3490 +10 *d$(i,t) 0d$(i,t)6 "to room ";d$(i,t+1)  "Open door ";: "Wood door ";: "Iron door ";: "Opening ";: "Secret door ";: "Wall": @ y=7 Jx=07 G7-x:7-x:7+x,5;"Enjoy your adventure !" Q.1}L,7+x-y:.08}# =,y-x:.06|u\,7-x:.04|# =,7-x+y x y <DUNGEON 2 ENs  ''Q **u "DDt F0S|  11111}  .   "=Tq     66W   +-> 11 5 Y