ZXTape! 0Created with Ramsoft MakeTZXCRYSTAL g 1e\g1,502::s(16):pt=0:pit=450:d$="THE CHEST CONTAINS":5000:0:7:0::7000X:650:#0;5;1;"DO YOU WANT TO LOAD YOUR PREVIOUS CHARACTER?(Y/N)" ="y"85004! =(110n)10 .005y# =,0:2 knc=0:ke1=0:ke=0:cro1=3:cro2=5:cro3=8:cro4=40(:cg=0:ms=0:diam=0:st=0:co=0:gol=0:en=10 :ro=1:sc=0:m=0 wb=0:m$="":psi=215:k6=5:k5=177:k4=70F:k3=6:k2=69E:k1=68D:x=15:y=12 cc=0:mh=0:mo=0:mv=0:8050r:sc=sc+((st/5)):l=031:1,l;4;6;"";21,l;"":l *st=st+502:st<99cst=99c Il=220:l,0;4;6;"";l,31;"":l m1,16;1;7;"";21,16;"";11 ,0;"";11 ,31;"" 9999':ro=cro339' rn=(*10 )+1 Ol=1rn:38&:b=1̺(*10 )+1:a:b:a:l:39' <n=110 :12 ,n;4;6;"":n: <n=415:16,n;4;6;"":n: ;n=9 19:8,n;4;6;"":n: ;n=625:4,n;4;6;"":n: =n=2030:10 ,n;4;6;"":n: ;n=617:n,7;4;6;"":n: !<n=618:n,26;4;6;"":n: ";n=26:n,15;4;6;"":n: #=n=10 20:n,17;4;6;"":n: $<n=617:n,22;4;6;"":n: &[27,28,29,30,31,32 ,33!,34",35#,36$ '2260:y,x;1;5;"":600X (,""st=st-1:9999':500 )rmo=0mo=1:9990':9991':1000:my=yy:mx=xx:641:my,mx;2;1;m$ *0mo=1mc=2:mb=1:1010 -/(mcy,mcx)=524sc=sc-1:640 4x=0x=31y=1y=21.2~L,2:.2~L,2:.2~L,2:.3,10 :.2~L,5:250:sc=sc+5:ro=ro+1::20 40( ***FIRING*** nxc=x+1:l=xcxc+10 :.01z# =,-10 :(y,l)=" "l<31y,l;7;"":2000:l +q=xcl-1:y,q;" ":q:3010 : xc=x-1:l=xcxc-10 -1:.01z# =,-10 :(y,l)=" "l>0y,l;7;1;"":2005:l 4q=xcl+1-1:y,q;" ":q:3010 : wyc=y+1:l=ycyc+10 :.01z# =,-10 :(l,x)=" "l<21l,x;7;1;"":2008:l +q=ycl-1:q,x;" ":q:3010 : yc=y-1:l=ycyc-10 -1:.01z# =,-10 :(l,x)=" "l>1l,x;7;1;"":2010:l 4q=ycl+1-1:q,x;" ":q:3010 : #x=0wb=3:x=30 #x=31wb=1:x=1 #y=21wb=2:y=2 #y=1wb=4:y=20 .y=2pt=1wb=4:y=20  6wb=311 ,31;4;6;"" 5wb=111 ,0;4;6;"" 5wb=21,16;4;6;"" 6wb=421,16;4;6;""   ,en=01,0;7;2;1;"OUT OF AMMO":f=14:.1}L,40(:f:1,0;4;6;"": -en=en-1 .m=2235 /m=4240 0m=1220 1m=3230 2 n>.9ffffke=ke+(*3)+1:n$="WHITE KEYS":9996 ':cy,cx;7;1;"":540 =>.73333n$="COBWEBS":9996 ':cy,cx;" ":540 h>.5n$="AMMO":en=en+(*3)+1:9996 ':cy,cx;5;1;"":540 E>.2~Ln$="A COIN":9996 ':cy,cx;6;"":540 N>.1}Ln$="ELIXER":9996 ':cy,cx;4;1;"":540 Fn$="A BLUE KEY":9996 ':cy,cx;1;1;"":540 815,6;7;1;"ANOTHER GO?(Y/N)" ="y".5,30: ="n".5,0:  426 ‚px=0:py=0:mc=4:mb=0:m$="":pt=1::490:#0;1;7;2;"SNAKE PIT" ýl=031:2,l;4;6;"";21,l;"":l:l=320:l,0;4;6;"";l,31;"":l<13 l,2;4;6;"" l:3;1;6,1;"";2,1;"";12 ,1;"";4,1;7;"";9 ,1;"";4,29;4;1;"";19,29;"" Sy,x;5;"":l=12:9990':yy,xx;7;1;"":l @l=13:9990':yy,xx;1;1;"":l 7""490:st=st-1:9999':500 y=2x=15:l=70-1:.02{# =,l:my,mx;1;l;m$:l:.2~L,2:.2~L,2:.2~L,2:.3,10 :.2~L,5:250:sc=sc+20:ro=ro+1::pt=0:20 Ymo=0mo=1:9990':1000:m$="":my=yy:mx=xx:my,mx;mc;mb;m$  1010 $mx=3my<14640  455 h$=" ":ke1>1h$="" g$=" ":ke>1g$="" Z1,0;"KEY"+g$;" ";ke;" KEY"+h$;1;1;" ";7;0;ke1  i="q"m=4:cy=y-1:cx=x:510:(cy,cx)=" "y,x;" ":y=y-1:y,x;5;"" i="a"m=2:cy=y+1:cx=x:510:(cy,cx)=" "y,x;" ":y=y+1:y,x;5;"" i="p"m=1:cy=y:cx=x+1:510:(cy,cx)=" "y,x;" ":x=x+1:y,x;5;"" i="o"m=3:cy=y:cx=x-1:510:(cy,cx)=" "y,x;" ":x=x-1:y,x;5;"" =" "cg=1300, ^st08,9 ;1;1;6;2;"ADVENTURE LOST":425 Spx=xpy=yro<40(l=l21:.005y# =,l*2:f=3280 :l:pit  (cy,cx)7515  a(cy,cx)=k1sc=sc+5:st=st+100d:9998':n$="ELIXIR ":9995 ':9999': d(cy,cx)=k2n$=" AMMUNITION ":sc=sc+5:en=en+4:9998':9995 ':9999': f(cy,cx)=k4sc=sc+502:gol=gol+1:9998':n$=" GOLD BARS ":9995 ':9999': ^(cy,cx)=k3sc=sc+2:co=co+1:9998':n$=" COIN ":9995 ':9999': g(cy,cx)=k5sc=sc+500:n$=" crystal ":diam=diam+1:9998':9995 ':9999': (cy,cx)=k6n$=" GUN ":cg=1:sc=sc+6:en=en+1:9998':9995 ':.1}L,5:.1}L,7:.1}L,5:.2~L,0:9999':  (cy,cx)=71Gpt=0cx>0cx<31cy>1cy<21sc=sc+2:ke=ke+1:9998':n$=" WHITE KEY ":9995 ':9999':  (cy,cx)=71Gke>0cx<2cx=31cy=21cy=1640:sc=sc+5:ke=ke-1:f=-502-30:.05|L,f:.04|# =,f-5:f:cy,cx;0;" ":9999':  (cy,cx)=67Cke1>0640:sc=sc+4:ke1=ke1-1:9999':f=-502-30:.1}L,f:f:cy,cx;" ":  (cy,cx)=65Acy,cx;" ":ke1=ke1+1:sc=sc+8:n$=" BLUE KEY ":9995 ':.1}L,10 :.1}L,6:9999':  M(cy,cx)=2sc=sc+2:9999':.01z# =,-10 :400 j(cy,cx)=psil=130:y,x;ٺ(*6)+1;ܥ;"":.001wn,*502:l:425 (cy,cx)=71Gpt=1cx>0cx<31cy>1cy<21sc=sc+2:ke=ke+1:9998':n$=" WHITE KEY ":9995 ':9999':  XYb$=" HALLWAY ROOM ":ro=cro1cro1=ro+3:700:705:b$=" SUPPLY ROOM " Ybro=cro2cro2=ro+3:710:9990':yy,xx;1;1;"":b$=" VAULT ROOM " Z:ro=cro3cro3=ro+8:720:b$=" CRYSTAL ROOM " [&diam5ro40(8000@ \diam<5ro14010 ,6;6;2;1;"ADVENTURE LOST";0;7;0;12 ,1;"YOU DIDN'T GET ALL CRYSTALS":l=15:s=120:.01z# =,s:s:l:8050r: ]->.733339990':yy,xx;2;"" ^6>.9ffff9990':yy,xx;1;1;"" jKcg=09990':9991':yy,xx;5;0;0;"" k69990':9991':yy,xx;6;0;"" l;#0;5;" ROOM NO.";ro;" ";7;1;b$ m*9990':yy,xx;7;1;"" p9990':py=yy:px=xx q$l=130:(py,l)" "l r@py,l;4;"":.001wn,502:py,l;0;" ":l us()=(mv*10 )*10 v fmo=0:l=70-1:my,mx;1;l;m$:.02{# =,l:l:my,mx;0;" ": <l=07:.02{# =,l:my,mx;1;l;m$:l: #0;"INSTRUCTIONS?(Y/N)" %=(110n).5,10 : %="y".5,20:655  651 >:1,9 ;7;2;1;"INSTRUCTIONS" ;5;1;" THE OBJECT OF THE GAME IS TO COMPLETE SUCCESSFULLY A DUNGEON GENERATED RANDOMLY BY THE COMPUTER."' 5;1;" ON THE WAY YOU MUST COLLECT ";7;2;1;"5";0;5;0;"CRYSTALS.TO PICK UP ADDITIONAL POINTS COLLECT OTHER OBJECTS" a1;"TO PICK OBJECTS MOVE YOUR MAN TO ONE OF THE OBJECTS SIDES AND PRESS DIRECTION KEY." n1;"YOU CAN ONLY SHOOT WHEN YOU CARRY A GUN ";5;""'7;"AND AMMUNITION ";4;"." 1;2;" YOU WILL LOSE GAME ONLY WHEN"'6;" -1 YOU STEP INTO"'" psi-FIELD ";1;7;1;2;"" 1;" -2 YOU'LL RUN OUT OF STRENGTH"'2;" WHEN MONSTER HITS YOU IT WILL DISARM YOU AND WILL TAKE AWAY SOME OF YOUR STRENGTH.";#0;7;" PRESS ANY KEY" 0:.2~L,0: u1;"YOU CAN DEACTIVATE PSI-FIELD BY SHOOTING AT THE GENERATORS FROM THE DISTANCE OF EXACTLY ONE "'"CHARACTER" H(3);4;2;"";0;5;"-ACTIVE GENERATOR" ]'(3);5;1;1;"";0;0;5;"-INACTIVE GENERATOR" X1;"BLUE KEY";1;"";7;"OPENS MAGENTA";3;"";7;"DOOR" +1;"WHITE KEY(O)OPENS WHITE DOOR" ,1;"YOU CAN'T REUSE ANY OF THE KEYS" ^4;"UPON ENTERING A ROOM SNAKE WILL RUN ACROSS INDICATING TRAPDOOR TO THE SNAKE PIT." )1;7;" NAME SCORE" 6'1;2;" ";6;"MUTANT E.T.30PTS" 7'1;2;" ";6;" GOGLES.....20PTS" 7'1;2;" ";6;" MLOT.......10PTS" F'4;" ";3;" SNAKE......N/A ";7;"CAN'T KILL IT" @#0;7;"PRESS ANY KEY":0:.2~L,0: 07;1;"IN YOUR QUEST YOU'LL FIND;" y4;"";6;"-ELIXIR.IT WILL INCREASE YOUR";(11 );"STRENGTH AND IMPROVE";(11 );"YOUR FINAL SCORE" _2;"";6;"-CHEST.IT CAN CONTAIN";(11 );"MANY USEFUL";(11 );"OBJECTS" |6;1;"";6;"-COIN.FOUND IN EVERY ROOM.";(11 );"IT WILL INCREASE YOUR";(11 );"FINAL SCORE." =6;1;"";6;"-GOLD.FOUND IN VAULT ROOM." 1;6;1;1;"";0;0;6;" -CRYSTAL.FOUND IN TREASURE";(11 );"ROOM.TO GET IT YOU'LL";(11 );"HAVE TO KNOCK OUT";(11 );"PSI-FIELD" o5;" -GUN. FOUND IN ROOM NEXT TO";(11 );"THE ONE WHERE MONSTER";(11 );"ATTACKED YOU LAST." ?4;1;"";6;" -AMMO.FOUND IN SUPPLY ROOM." ?7;1;"";6;" -W.KEY.FOUND IN EVERY ROOM." Z1;1;"";6;" -B.KEY.FOUND IN SOME ROOMS.";(11 );"OR IN BOXES." @#0;7;"PRESS ANY KEY":0:.2~L,0: 81,1;1;7;"MOVEMENT CONTROLS" '';6;1;(10 );"Q";5;" -UP"''(5);6;"O";5;" -LEFT ";6;"P";5;" -RIGHT"''(10 );6;"A";5;" -DOWN" a'4;" PRESS ";6;"SPACE";4;" TO FIRE IN THE DIRECTION OF THE LAST MOVE." n" ONCE YOU LEAVE ROOM AND YOUR STRENGTH WILL BE LOWER THAN 100 IT WILL BE AUTOMATICLY RAISED BACK TO 100." 1;"IMPORTANT";0;0;5;" -TO LEAVE ROOM YOU ";(12 );"MUST COLLECT WHITE ";(12 );"KEY FIRST!" c7;1;"-IF YOU WISH TO SAVE YOUR PROGRESS ON TAPE PRESS S IN STATUS MODE." M#0;7;"PRESS ANY KEY TO START.":0:.2~L,10 ::  9990' 'yy,xx;4;0;1;""  A9990':9991':yy,xx;5;0;1;"": Ƌ10 ,12 ;4;6;"";14,12 ;"";12 ,12 ;3;1;"";12 ,18;"" Yl=11 13 :l,12 ;4;6;"";0;" ";6;"":l *11 ,15;6;1;"" A12 ,12 ;3;1;"";12 ,18;""  Jl=823:6,l;4;6;"";16,l;"";:l Jl=10 21:8,l;4;6;"";14,l;"":l Il=715:l,8;4;6;"";l,23;"":l Jl=9 13 :l,10 ;4;6;"";l,21;"":l 6,15;3;1;"";14,15;"";10 ,11 ;4;2;"";10 ,20;"";10 ,12 ;1;7;1;2;""  gh=0 @9 ,(*10 )+11 ;1;6;1;"" ?3,29;1;1;"";19,2;""  #<.4Lm$="":mv=.8L: #<.8Lm$="":mv=.6: m$="":mv=.4L: ^my>ymcy=my-1:mcx=mx:(mcy,mcx)=" "my,mx;" ":my=my-1:my,mx;mc;mb;m$: ^myxmcy=my:mcx=mx-1:(mcy,mcx)=" "my,mx;" ":mx=mx-1:my,mx;mc;mb;m$: ^mx10 st=(st-s()):9999' !(mcy,mcx)=215640  de=.001wn:l-1,x;5;1;1;"";l,x;0;7;0;" ":sc=sc+5:l=30502:.001wn,1:l:gh=gh+1 gh=2n=14:f=70-1:10 ,12 ;f;1;"":de,f*6:f:n:10 ,12 ;0;" "  de=.001wn:l-1,x;5;1;1;"";l,x;0;7;0;" ":sc=sc+10 :l=30502:.001wn,l:l:gh=gh+1 gh=2gh=0:n=14:f=70-1:y-2,2;f;1;"":de,f*8:f:n:y-2,2;0;" ":f=70-1:y-2,1;f;0;"";y-2,30;"":.001wn,f*8:f:y-2,1;7;" ";y-2,30;" "  $***END OF PROGRAM*** %D11 ,2;7;1;" THIS GAME IS NOW COMPLETED " &@13 ,2;6;"YOUR TOTAL SCORE IS..";5;SC '914,2;2;"COINS COLLECTED........";CO (A15,2;4;"COIN BONUS.............";CO*5 )U17,21;3;"--------";18,10 ;5;"TOTAL SCORE >"; *16,2;5;"STRENGTH...............";st:cob=sc:l=0st*29 :18,23;cob+l:.01z# =,30:l:sc=sc+l +`cob=sc:l=0co*59 :.01z# =,557:18,23;cob+l:l:sc=sc+l ,i19,1;7;1;"PRESS ANY KEY TO SEE STATUS";20,1;"AND SAVE RESULTS." .=""1070. /+.2~L,0:knc=1:8050r %(y,l+1)=66B3015  %(y,l-1)=66B3015  %(l+1,x)=66B3015  %(l-1,x)=66B3015 7(l-1,x)=84Tro+20=cro31030 F(l-1,x)=84Trocro3ƫ(y-2,x)=84T1040  ?ms=ms+1:sc=sc+(s()/2):9999':mo=0: ;mh=1my,mx;0;" ":mh=0:3000 :  ymh=1:.05|L,502:f=70-1:my,mx;f;1;"":.01z# =,(f*10 )/2:f: +s$:s1=s$(s$-2̱s$):s1*100d  ,5001:l="a""u"+7:a:l,a:l M0,247,247,247,0,127,127,127 Q0,8,8,8,11100,111110>,11100,0 p0,111111?,66B,11111101,11001101,10110101,11001110,11111100 Q0,0,0,0,11100,111110>,11100,0 Q0,0,28,28,0,1110111w,1110111w,0 ^0,8,11100,101010*,1001001I,101010*,11100,8 i8,10100,111110>,1011101],1001001I,11100,10100,10100 c0,10100,101010*,11100,111110>,1011101],8,11100 q111100<,11000,11000,1111110~,1011010Z,11000,100100$,1100110f f1110008,40(,1111100|,10111010,1110008,68D,40(,1101100l C0,0,0,24,24,0,0,0 m60<,66B,10011001,10100101,10100111,10100101,10100101,255 ]0,0,11111,1110100t,11100100,11000100,0,0 E0,8,28,28,20,8,28,0 _0,0,0,1100001a,10010101,10011111,1100000`,0 J0,8,36$,0,1001001I,0,34",8 [8,11100,32 ,16,8,100100$,1000100D,1110008 Q102f,153,102f,153,102f,153,102f,153 _11000,16,1110008,1101106,1100000,8,16,11000 \11000,8,11100,1101100l,1100 ,8,16,11000 m1110008,111010:,1111010z,10111100,10111000,68D,40(,1101100l  Xhc$=" ":0,0;2;" " Y>21,0;2;" " ZDl=120:l,0;2;"";l,31;"":l 19,13 ;7;1;"1984":#0;" PRESS ANY KEY" ]l=17 ^O4,3;l;"     " _E5,3;l;"    " `M6,3;l;"    " a;9 ,7;l;"    " b710 ,7;l;"   " c?11 ,7;l;"    " d513 ,6;8-l;"DESIGNED AND WRITTEN" e.17,7;8-l;"KEITH BURNARD" f$15,14;8-l;"BY" ""7091 l =""7005] .5,0:: @6#0;"ROOM NO.";ro;2;1;1;6;"EXIT ROOM":gh=0:x=15:y=20:11 ,0;4;6;"";21,16;"";11 ,31;"":l=10 20:l,1;" ":l:19,(*27)+2;5;"" A)l=18:l,0;1;" ":l:9 ,0;4;6;"";9 ,15;3;1;0;"":6:l=-1-3-1:232+l,135+l:-15,15,-:l:7 Bl=10 110n22:4:l,104h:0,5:-7,0:10 ,25:10 ,-25:-7,0:0,-5 Ckk=.8L:ff=10 :f=111o1332:1+3,f:ff,0:ff=ff-kk:f:ff=10 :l:7:l=18:(*4)+1,(*25);7;1;".":l Dl=11 193:l,1;4;2;1;"";7;1;"";0;4;"":l E,""st=st-1:9999':500 Fy=9 y,x;" ":y=y-1:l=1430:8,l;1;" ":.001wn,1*2:l:8,31;1;" ":1060$ Gmo=0cc=0:mo=1:1000:my=20:mx=(*28)+1:641:my,mx;2;1;m$ HKcc=cc+1:cc=2cc=0:mc=2:mb=1:1010 I6cg=019,15;5;(156) J 8005E r sN255,0:0,175:-255,0:0,-175 t_3,3:249,0:0,170:-249,0:0,-170 w91,6;4;1;"* * * STATUS * * *" z4,2;6;"EXPERIENCE..";sc;6,2;4;1;"ROOM........";ro;8,2;3;"STRENGTH....";st {r10 ,2;5;"SHOTS LEFT ":f=12 ̺11 +en:f<3110 ,f;2;1;"" |T.001wn,40(:f:11 ,1;2;1;"--------------------" }y12 ,4;1;6;"CRYSTALS ";diam;14,4;"GOLD ";gol;16,4;"COIN ";co ~@cg=12,1;2;7;"YOU ARE ARMED" Kcg=02,1;2;7;1;"YOU ARE UNARMED" z13 ,18;7;"KEY (s) ";1;1;" ";7;ke1;15,18;"KEY(s) ";7;" ";ke a17,1;6;"-----------------";18,2;2;" MONSTERS SLAIN ";ms :#0;7;1;" PRESS (S) TO SAVE GAME" 20,1;2;1;6;" PRESS ANY KEY TO CONTINUE ":knc=120,1;7;1;" GAME FINISHED " ="s"8300l =""8201 %knc=0::.2~L,10 :  l*****SAVE GAME ***** m:10 ,6;1;1;5;" INSERT DATA CASETTE ":s(1)=st:s(2)=en:s(3)=diam:s(4)=gol:s(5)=cg qs(6)=ro rs(7)=sc ss(8)=cro1 ts(9 )=cro2 us(10 )=cro3 vs(11 )=cro4 ws(12 )=co xs(13 )=ms y2s(14)=ke:s(15)=ke1:s(16)=knc 9" NAME OF THE CHARACTER ? (MAX 10 LETTERS ) ";x$ x$s() 8050r !4*****GAME ***** !5P:6:"CHARACTER'S NAME ?";x$:x$>10 1,557:85015! !6|20,3;1;1;7;1;"PRESS ANY KEY TO LOAD ";18,1;"INSERT DATA-CASETTE AND" !7e0:.5,0::21,0;1;1;" LOADING ";:x$="";"SOMETHING"; !80;" ";x$:x$s() !9ro=s(6) !:sc=s(7) !;cro1=s(8) !<cro2=s(9 ) !=cro3=s(10 ) !>cro4=s(11 ) !?co=s(12 ) !@ms=s(13 ) !Aknc=s(16):ke=s(14):ke1=s(15):st=s(1):en=s(2):diam=s(3):gol=s(4):cg=s(5) !C|:1;10 ,5;"STOP THE TAPE";12 ,10 ;"GAME LOADED":l=060<:.01z# =,10 :l: !H87:.3,10 :.2~L,0:11 '4yy=(*17)+3:xx=(*27)+3 '(yy,xx)79990' ' ' UDG's A= B= C= D= E= F= G= H= I= J= K= L= M= N= O= P= Q= R= S= T= U= ' cy,cx;0;" ";0,0;1;6;2;" COLLECTED ";n$:l=040(:.01z# =,l:l:0,0;c$: ' 0,0;c$:cy,cx;0;" ";0,0;5;d$+n$:20:l=45--10 -1:.01z# =,l:l '0,0;c$: '90,0;"EXPERIENCE ";sc;" STRENGTH ";st;" ": SiDTHE CHEST CONTAINSa$C nerorororo(iaoHmsFEDxyL  $ccB HALLWAY ROOM N WHITE KEY MH G