M?P!6X'@:\!}%164@:" ";:x:711 [h<0:.5,0:.5,0:.2~L,0:.5,0:.5,3:.2~L,2:.5,2:.2~L,0:.5,0:.2~L,-1:.5,0: \ :end score/_ ykeys=1:s$="wel don y(ou) got out al(ii)v":25:"WELL DONE..! You got out alive ":100d:keys=0 .2~L,0:.2~L,2:.2~L,4:.2~L,5:.5,0:.2~L,5:.2~L,4:.2~L,5:.2~L,7:.5,2:.2~L,2:.2~L,4:.2~L,5:.2~L,9 :.2~L,7:.2~L,7:.2~L,5:.2~L,5:.2~L,4:.2~L,2:.2~L,4:.5,0 J"You have killed ";k;" monsters,";'';"and you have ";g;" gold coins ";'' ŏ:.2~L,0:.2~L,2:.2~L,4:.2~L,5:.5,0:.2~L,5:.2~L,4:.2~L,5:.2~L,7:.5,2:.2~L,2:.2~L,4:.2~L,5:.2~L,9 :.2~L,7:.2~L,7:.2~L,5:.2~L,5:.2~L,4:.2~L,2:.2~L,4:.75@,5 dž"You scored ";:s$="y(ou) sk(oo)(rr)(dd)":502:.05|L,0:1;g*k+s+h;" POINTS.";0;':p02;a$(b(z+3));"S";0;" making",,,"noises";:f=12:24287^:f 0#b(z+3)=0"Nothing."; 2^1;7;"...NOW WHAT?"::1;7;"G-Go in,H-Help,L-Leave";0;" "; 3""8193 40:z$=:246251`: 8z$="g""Go-in":850R :z$="h""Help":950 <z$="l""Leave":832@ > 8204 @Sz$;6;0;"-cHiKeN";0,,:.2~L,-10 :.2~L,-10 H0f=1:(*100d)<10 1000 J Q:entry contents*_ R 526 T10 ,0; V&b(z+3)>0r=b(z+3) X!b(z+3)>0516 Yb(z+3)>0 Z0b(z+3)=0"A Monster-less Cavern" \:100 d ^Ab(z+6)>0"with ";b(z+6);" ";a$(113q),,, `Pb(z+9 )>0a$(b(z+9 )+100d);a$(b(z+9 )+101e),,, bSb(z+12 )>0a$(b(z+12 )+100d);a$(b(z+12 )+101e),,, dSb(z+15)>0a$(b(z+15)+100d);a$(b(z+15)+101e),,, f"b(z+3)>01314" g.b(z+3)>0c=1700838F hg=g+b(z+6) jx=9 153 l.b(z+x)>0b(z+x)<25h=h+30 nb(z+x)>23s=s+1 px r :cave contents+_ z$ 1526:b(z+3)>0r=b(z+3) !b(z+3)>0516 Qw=0:x=6153:b(z+x)>0b(z+x)>0w=2 0b(z+3)=0b(z+x)>0w=1 "x:w=2,,,"and TREASURE"; -w=1"The Cave Contains Treasure",,,, 6b(z+3)=0w=0"The Cave Is Empty"; $b(z+3)>0w=0,,  8182 :help4_  z$:526  526 mb(z+3)>0"the ";2;a$(b(z+3));0;" has ";b(z+3)-12 ;" HIT POINTS" &b(z+3)=0"No Monsters?" ',:8182 :floor cave-in+_ N526:f=0:536:f=13 0-1:.02{# =,f:f:2;0;"THE FLOOR CAVES IN AND YOU FALL",,,"DOWN A ";(w/2);" FOOT PIT TO LEVEL ";2;" ":l=l+(w/12 ):6;1;15,13 ;1;"''";l;"''";0:536:502 ~w>95_2;0;" AND INTO A POOL OF ACID",,,"Take ";h;" HIT POINTS Damage.",,,:.5,-30:250 w>95_h=0 w<40(2;0;" AND ONTO SOME SPIKES",,,"Take ";(h/2);" HIT POINTS Damage",,,:.5,-30:250 w<40(h=h-(h/2) h<0:1,0;1;"SORRY.";0;" DUE TO LACK OF HIT POINTS YOU HAVE DIED IN THE FALL":s$="AaAaaAaaaAaaaa":1:x=164@:" ";:x:711  K9set room contents&_ L<x=363:536:w>70Fb(z+x)=w T%536:b(z+x)>1b(z+x)=w Ux V@x:x=9 153:536:w>75Kb(z+x)=w \0540:b(z+x)>0w>12 b(z+x)=w ]+b(z+x)>0w<13 b(z+x)=0 `x: 9monster appears(_ b526:510:518:" ";2;7;"Arrives"''2;7;"What now?"' "72;7;'"C-Combat S-Spell cast R-Retreat" $ c=0 &0:z$=:z$="c""Combat":c=1500:f=15:2::24311^::24340_:0:24515_:f:23773\:0 ,Bz$="s""Spell":c=1600@:s>024148T^::0 .,z$="r""Retreat":c=1700:150 0c<11318& 1:c:c<11314" 6 9battle results)_  526 F"You had a terrific battle with"''"The ";2;a$(r);:h<(r-12 )" but he killed you",,"and took all your treasure.":.5,0:.5,0:.2~L,0:.5,0:.5,3:.2~L,2:.5,2:.2~L,0:.5,0:.2~L,-1:.5,0 h<(r-12 )711 P" and you killed",,,"it.":150:100d:k=k+1:h=h+12 -r: K24515_:"er..SORRY..You'r out of spells."''"NOW WHAT:":c=0: ?9spell results*_ @-526:536:s<11520 Hs=s-1:w>r"The DEATH SPELL Blasted",,,:23770\:2;a$(r);0;" Lies Dead On The",,,"Floor.":100d:100d:100d Jw>rk=k+1 Lw>r N24515_:"The ";2;a$(r);0;" Is Angry It":25:24515_:,,"Advances...";:w<27"It Attacks ." Rw<271502 T"WHAT NOW?":c=0: \536:526:w<40("oh..BAD LUCK It Attacks",,,:24340_:24340_ w<40(1502 0;6;1;"..cHiCkEn",0;0,,:.2~L,-10 :.2~L,-10 :75K:f=0:l=l+1: 9intro.1_ քi=23613=\+256*23614>\:i,0:i+1,0:23658j\,0::" MONSTER PIT "',;"by Colin Smith" >ץ,0:ץ,10 :ץ,20:ץ,30:ץ,40(:: k"YOU FALL DOWN A 150 FOOT PIT",,,"THAT CONTAINS TREASURE AND MANY",,,"HAZARDS. THE OBJECT OF THE GAME",,, m"IS TO MAKE YOUR WAY UP STAIRS,",,,"THROUGH THE MAZE OF CAVES TO THE",,"EXIT. PRESS KEY ''S'' WHEN ASKED",, I"WHAT DIRECTION? WILL GIVE YOUR",,,"STATUS-THEN ANY KEY TO CONTINUE.",, h"IN COMBAT YOU USE HIT POINTS TO",,,"KILL MONSTERS-SPELL CASTING IS",,,"OFTEN SUCCESSFUL(NOT ALWAYS)." 2," (press key)" =""1760  B"oh..by the way,BEST OF LUCK....",,," .YOU'LL NEED IT." 2;1;8,0;"   <   "  "monster p"400  400 o p4.02{# =,0:2,0;a$(b(1)) q2,10 ;" " r5.02{# =,1:2,11 ;a$(b(2)) s2,21;" " t5.02{# =,2:2,22;a$(b(3)) u XH.02{# =,2:6,0;" Left " Y6,10 ;" " Z7.02{# =,1:6,11 ;" Forward. " [6,21;" " \7.02{# =,0:6,22;" Right. " ] &4: . note where routines stop in eachREM statement, note also the maximum number of bytes (which you can POKE up to, but not above - enter another REM statement and you can start to POKE again - remember to note the new maximum for the new REM)(found before- 13,0,n,217,1,234) ' 'W23613=\,0:23613=\,0:"27 12 85"23552\,25000a:1 eypiQ23613=\,0:23613=\,0:"27 12 85"23552\,25000a:1  "',;"by Colin Smith" PMMU}>B P MM232M@p`p} >>BB<DHpHDB@~BfZBBBBbRJFB$B<<B<|~<<<B|<#DBB@B@@DBBbB(@F@BBB$BBBBbBb@B@B@BB@BbDfBbD!BBBBD@B@BB@BB@B@BBf@!@BfBH@DBBBBBDBB@BB@#(BB|B@@BBBRB|J|BBB$~B@BRBR<B|B<<@<<@>$BB<B<B~B<<<BBB~<B<#B|||~<<D~<BB~B<|~<>@@<>B~BB~!BB@fB@B@BBB@@BB@ @$BB@@@H@D@BB@bB@H@D BBBDB@BBbBB@@BB@DBBB"@BB@B@bBbDH@DBBBbbB@!~BBB@~~|ZB|B|@BB|<B~| |BB|<<p|(<B~|RBB@J~JH@B@BJJB@!BDBBBBB@BB @B@BB$@BBB@ @$@D@BBD@BZB@FBBD@D ZBBDD@BBFZ@@B$@BBD"BBBBB@FBFD@BBBFFB@ BB<<@B~<<B~<$B~BBB~<>~~<>~<B<~">B<|<>B<@@BB<><"<~~B|@@@@~JN"B@@JB@@@@B@JB~@B~D x880xD@FBBBBB@B@BFBB!D@@BBFB@DBB@@@@BBBFBB"B@@FBBBB@BB@B@FBB@ZBBx @(@<@>B<@<>B<~~BB<><"<@~B<<<<~<<@<~B<B~$B< @ !WXw< (>< y x !d͵## x ^!͵# x ^͵ +x & o͵x !,͵# x !͵### !~A# x!  #͵#! 2#͵#! Z#͵#! #͵#! #͵#! #͵#! #͵#!<d͵}o!d͵}ox x!(͵!͵! ͵+xx Kkeys=0:0:0:5:1::p=0:1750 8set words-_ .100d:a$(135,10 ):set words a$(1)=" CAVE " A$(2)=" DOOR " A$(3)=" WALL " A$(4)=" PASSAGE. " A$(5)=" STAIRS " A$(6)=" DOWN " A$(7)=" EXIT " "A$(12 )="SALAMANDER" $A$(13 )="RED ZOMBIE" &A$(14)="BEHOLDER I" (A$(15)="BEHOLDER V" *A$(16)="BEHOLDER X" ,A$(17)="HELL HOUND" .A$(18)="BLUE ETTIN" 0A$(19)="GREY ETTIN" 2A$(20)="PIT WRAITH" 4A$(21)="GARGOYLE I" 6A$(22)="GARGOYLE V" 8A$(23)="GARGOYLE X" :A$(24)="FIRE ETTIN" <A$(25)="CLAY ETTIN" >A$(26)="IRON ETTIN" @A$(27)="HILL ETTIN" BA$(28)="BASILISK I" DA$(29)="BASILISK V" FA$(30)="BASILISK X" HA$(31)="ZOMBIE RAT" JA$(32 )="WRAITH ORC" LA$(33!)="PINK GHOST" NA$(34")="ICE WRAITH" PA$(35#)="MIND GHOST" RA$(36$)="FIRE GHOST" TA$(37%)="CLAY GHOST" VA$(38&)="IRON GHOST" XA$(39')="MIND HYDRA" ZA$(40()="PIT HYDRA" \A$(41))="CLAY HYDRA" ^A$(42*)="IRON HYDRA" `A$(43+)="RED MEDUSA" bA$(44,)="MEDUSA ORC" dA$(45-)="ICE MEDUSA" fA$(46.)="PIT MEDUSA" hA$(47/)="RED FLAYER" jA$(480)="BLUE MUMMY" lA$(491)="CLAY MUMMY" nA$(502)="IRON MUMMY" pA$(513)="MINOTAURUS" rA$(524)="MINOTAURAK" tA$(535)="MINOTAURIC" vA$(546)="PIT FLAYER" xA$(557)="ICE FLAYER" zA$(568)="WERE-WOLF" |A$(579)="WERE-BOAR" ~A$(58:)="WERE-BEAR" A$(59;)="WERE-RAT" A$(60<)="WERE-WORM" A$(61=)="BLACK-WORM" A$(62>)="WHITE-WORM" A$(63?)="STONE-WORM" A$(64@)="BONE-WORM" A$(65A)="UMBER HULK" A$(66B)="STONE HULK" A$(67C)="GREEN HULK" A$(68D)="CLOUD HULK" A$(69E)="STORM HULK" A$(70F)="HOBGOBLIN" A$(71G)="HOBGOBELOW" A$(72H)="MANTACORE" A$(73I)="BAALZEBUL" A$(74J)="TELEMENTAL" A$(75K)="PIT FIEND" A$(76L)="HORNED ORC" A$(77M)="BARBED ORC" A$(78N)="RED GERYON" A$(79O)="JUBILEX I" A$(80P)="JUBILEX II" A$(81Q)="DEMOGORGON" A$(82R)="RED ORCUS" A$(83S)="BLUE ORCUS" A$(84T)="GREY ORCUS" A$(85U)="FIRE ORCUS" A$(86V)="WILD TROLL" A$(87W)="HELL TROLL" A$(88X)="FIRE TROLL" A$(89Y)="BOAR TROLL" A$(90Z)="BLUE TROLL" A$(91[)="WILD DEMON" A$(92\)="BLUE DEMON" A$(93])="RED DEMON" A$(94^)="PIT DEMON" A$(95_)="FIRE DEMON" A$(96`)="ICE DEMON" A$(97a)="BEAR DEMON" A$(98b)="CLAY DEMON" A$(99c)="GREY DEMON" A$(100d)="IRON DEMON" A$(101e)="WILD ETTIN" A$(102f)="PIT ETTIN" A$(103g)="ICE ETTIN" A$(104h)="MIND ETTIN" A$(105i)="HELL ETTIN" A$(106j)="WILD GHOST" A$(107k)="RED GHOST" A$(108l)="PIT GOLEM" A$(109m)="ICE GOLEM" A$(110n)="FLESH RAT" A$(111o)="MIND DEVIL" A$(112p)="FLESH HULK" A$(113q)="GOLD COINS" A$(114r)="+ A SILVER" A$(115s)=" SWORD" A$(116t)="+ A MAGIC" A$(117u)=" LANCE" A$(118v)="+ A SUIT" A$(119w)=" OF ARMOUR" A$(120x)="+ A SPECIA" A$(121y)="L ARTEFACT" A$(122z)=" + A ANCIE"  A$(123{)="NT SCROLL"  A$(124|)="+ A SECRET" A$(125})=" POTION" A$(126~)="+ SOME MOR" A$(127)="E SPELLS" A$(128)="+ A WISDOM" A$(129)=" BOOK" A$(130)="+ A GOLDEN" A$(131)=" RING" A$(132)=" + A SPELL" A$(133)=" LUCKSTONE" +:set up2_ ,\c=0:e=6:l=20:k=0:h=100d:f=0:s=10 :g=0 < 403 :main program,_ :f=1426 &(*200)<51000 #b(18):l=1e=7 Cl<0g>150s>2ƺ(*100d)<8750 Bz=13:b(z)=(*e)+1:b(z)<31100L z Eb(1)=3b(2)=3b(3)=3406  O506:500:6000p:500:506:7000X:506 L:f=0:1;7;"WHAT DIRECTION ?";0;" ";:z=0 Bkeys=1:s$="(wh)ot d(ii)rek(sh)un":10 :keys=0 10:z$=:246251`:z$="a"2000 Kz$="l"z=1:keys=1:s$="left":5:keys=0:"Left" Qz$="f"z=2:keys=1:s$="forword":5:keys=0:"Forward" Nz$="r"z=3:keys=1:s$="r(ii)t":5:keys=0:"Right" z$="s"550& z<1432 z$ b(z)=6l=l+1 b(z)=5l=l-1 b(z)=3600X b(z)=7700 b(z)=2800  b(z)=1900 %(*100d)>90Z1300  400 :set display/rnd no's$_ _:;"   ";"     ": ';" ": r=(*101e)+12 : "The cave contains "; Ekeys=1:s$="(th)e k(aa)v cont(aa)ins":10 :keys=0 D"a";:.2~L,0:.4L,-5:a$(r,1)="I""n"; mkeys=1:s$="a":1:keys=0:a$(r,1)="i"keys=1:s$="n":1:keys=0  ]keys=1:s$="monster":5:keys=0:" ";2;1;a$(r);:10 : ax=11 21:x,0;" ":x:11 ,0;" ": w=(*101e)+12 : %w=((*16)+1)*2: %:status2_ & keys=1:s$="st(aa)tus":5:keys=0:2;0;1;"STATUS";0:.2~L,20:10 :526:11 ,0;"You have killed ";k;" monsters";'';"You are on level ";l;'';"You have ";h;" hit points";'';"You have ";s;" spells";'';"You have ";g;" gold pieces ";''"Your score so far ";1;g*k+s+h;" points";0;:0:10 ,0;" ";:.2~L,20:9 ,16;" ":526:9 ,17;: W:wall4_ X526:keys=1:s$="no entry":5:keys=0:1;6;"NO-ENTRY....Wall Unstable";'':f=1:536:w>502 Y!keys=1:s$="yu fol":5:keys=0:y=13 0-1:.02{# =,y:y:"It shakes..Roof crumbles..Rocks";'';"fall..Knock you to the ground";'';"TAKE ";w;" HIT POINTS DAMAGE.":.05|L,-30:n=120:2:1:n:100d:0:h=h-w Zh<0:1,0;1;"SORRY.";0;" DUE TO LACK OF HIT POINTS YOU HAVE DIED IN THE FALL":s$="AaAaaAaaaAaaaa":1:x=