Crystal ZePZe\eWCrystal Quest by Jacek Przychodzen from Sinclair User 1985 annual 1,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! =110n10 .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=yc-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 p>.9ffffke=ke+(*3)+1:n$=" WHITE KEYS ":9996 ':cy,cx;7;1;"":540 ?>.73333n$=" COBWEBS ":9996 ':cy,cx;" ":540 j>.5n$=" AMMO ":en=en+(*3)+1:9996 ':cy,cx;5;1;"":540 G>.2~Ln$=" A COIN ":9996 ':cy,cx;6;"":540 P>.1}Ln$=" ELIXIR ":9996 ':cy,cx;4;1;"":540 Hn$=" A BLUE KEY ":9996 ':cy,cx;1;1;"":540 915,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;1;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$="" [1,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 Ypx=xpy=yro<40(l=121:.005y# =,l*2:f=3280 :l:pit  (cy,cx)7515  b(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:ke=ke-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 u(s()=(10 -(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 object move your man toone of the object's sides and press direction key." s1;" 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." F3;4;2;"";0;5;"-ACTIVE GENERATOR" ['3;5;1;1;"";0;0;5;"-INACTIVE GENERATOR" \1;"Blue key";1;"()";7;"opens magenta";3;"()";7;"door" ,1;"White key()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" 61;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:" w4;"";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." A6;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." 5;1;"";6;" - Gun. Found in room next to";11 ;"the one where monster";11 ;"attacked you last." B4;1;"";6;" - Ammo. Found in supply room." A7;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: :1,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." p" Once you'll leave room and yourstrength will be lower than 100 it will be automatically raised back to 100." 1;7;2;1;"IMPORTANT";0;0;5;" - To leave room you ";12 ;"must collect white ";12 ;"key first!" d7;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;""  Il=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,l: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 prog. *** %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 ,j19,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,34",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  Xdc$=" ":0,0;2;" " Y>21,0;2;" " Z@l=120:l,0;2;"";l,31;"":l 19,13 ;7;1;"1984":#0;" Press any key" ]l=17 ^14,3;l;" " _15,3;l;" " `36,3;l;" " a+9 ,7;l;" " b+10 ,7;l;" " c+11 ,7;l;" " d513 ,6;8-l;"DESIGNED AND WRITTEN" e217,7;8-l;"JACEK PRZYCHODZEN" 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:l+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,l*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 I4cg=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" y13 ,18;7;"KEYs ";1;1;" ";7;ke1;15,18;"KEYs ";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 CASSETTE ":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 :" Name of the character? ( max 10 letters ) ";x$ x$s() 8050r !4***** READ game ***** !5P:6:"Character's name? ";x$:x$>10 1,557:85015! !620,3;1;1;7;1;" PRESS ANY KEY TO LOAD ";18,1;" INSERT DATA-CASSETTE AND" !7d0:.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' ' ' UDGs 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;" ":