1 POKE56,63:POKE55,229:CLR:POKE36879,8:OM=4
2 GOSUB15:BB=Y:GOSUB15:CC=Y:GOSUB15:DD=Y
3 PRINT"[147]":RESTORE:FORY=16357TO16383:READZ:POKEY,Z:NEXT:GOSUB171:GOTO152
4 POKE36869,205:A=9:B=9:DEFFNC(D)=4096+A+22*B
5 FORZ=1TO3:GOSUB15:E(Z)=Y:NEXT:GG=483
6 POKE36878,15
7 FORZ=1TO4:GOSUB16:E1(Z)=Y:E2(Z)=E1(Z):NEXT:F=33792
8 G=4096:H=4579:Y=RND(-TI)
9 I=4117:J=4558:GOSUB15:N=Y:N1=INT(RND(.)*GG)+G:GOSUB15:EE=Y
10 GOSUB15:CU=Y
11 GOSUB14:X1=Y:GOSUB14:O1=Y:GOSUB14:P1=Y:FORY=832TO936:READZ:POKEY,Z:NEXT
12 GOSUB14:S1=Y:GOSUB14:T1=Y:GOSUB14:U1=Y:GOSUB14:V1=Y:GOSUB14:FA=Y:GOSUB14:W1=Y
13 GOSUB16:BY=Y:BX=Y::GOSUB16:CY=Y:CX=Y:GOSUB16:DY=Y:DX=Y:GOSUB16:EY=Y:EX=Y:GOTO17
14 Y=INT(RND(.)*GG)+G:RETURN
15 Y=INT(RND(.)*40)+1:RETURN
16 Y=INT(RND(.)*20)+1:RETURN
17 GOSUB14:Q1=Y:GOSUB14:R1=Y:DEFFNA1(D)=4096+E1(Y)+22*E2(Y):DEFFNA2(D)=4096+BX+22*BY
18 DEFFNA3(D)=4096+CX+22*CY:DEFFNA4(D)=4096+DX+22*DY:DEFFNA5(D)=4096+EX+22*EY
19 D1=4106:D2=4568:D4=4337:D3=4316:DEFFNA7(D)=4096+GH(Z)+22*GZ(Z):TI$="000000"
20 GOSUB263:PRINT"[147]":IFK=1ORK=9ORK=17ORK>24ANDK<28ORK>32ANDK<38ORK=3THEN261
21 PRINT"CCCCCCCCCCCCCCCCCCCCCC"
22 IFK=12ORK=25ORK=26ORK>32ANDK<37ORK=3ORK=6ORK=2THEN24
23 FORY=ITOHSTEP22:POKEY,3:POKEY+F,2:NEXT
24 IFK=1ORK=9ORK=11ORK=25ORK>32ANDK<36ORK=17THEN26
25 FORY=JTOH:POKEY,3:POKEY+F,2:NEXT
26 IFK=1ORK=3ORK=4ORK=7ORK=9ORK=13ORK=17ORK>24ANDK<28ORK>32ANDK<38THEN28
27 FORY=GTOJSTEP22:POKEY,3:POKEY+F,2:NEXT
28 IFK<>10ANDK<>16ANDK<>13ANDK<>25THEN30
29 FORZ=1TOINT(RND(.)*15)+15:Y=INT(RND(.)*GG)+G:POKEY,7:POKEY+F,0:NEXT
30 IFK>3ANDK<8ORK=15ORK=18ORK>21ANDK<25ORK=32THENPOKED1,11:POKED1+F,0
31 IFK>11ANDK<16ORK=23ORK=26ORK>29ANDK<33ORK=40THENPOKED2,11:POKED2+F,0
32 IFK=5ORK=15ORK=16ORK>18ANDK<21ORK=22ORK=24ORK=29ORK>37ANDK<41THENFL=1
33 IFFLTHENPOKED3,11:POKED3+F,0:FL=0
34 IFK=4ORK=14ORK=15ORK=18ORK=19ORK=23ORK=28ORK=21ORK>36ANDK<40THENPOKED4,11:POKED4+F,0
35 IFK=16ANDLK=0THENPOKEH-88,10
36 RR=0:IFK=39ORK=29ORK=31ORK=20THENRR=9
37 IFI(2)=9THEN183
38 IFK=5THENFORY=GTOHSTEP25:POKEY,3:POKEY+F,4:NEXT
39 IFK=8THENFORY=GTOHSTEP7:POKEY,3:POKEY+F,2:NEXT
40 IFK=16THENFORY=GTOHSTEP18:POKEY,3:POKEY+F,2:NEXT
41 IFK=12THENFORY=ITOJSTEP21:POKEY,3:POKEY+F,4:NEXT
42 IFK<>30THEN44
43 FORY=GTOHSTEP23:POKEY,3:POKEY+F,3:NEXT:FORY=ITOJSTEP21:POKEY,3:POKEY+F,3:NEXT
44 IFK<>18THEN46
45 FORY=D3TOD4-2:POKEY,3:POKEY+F,2:NEXT:FORY=D3+10TOD2STEP22:POKEY,3:POKEY+F,2:NEXT
46 IFK=20ANDI(7)=9THENPOKED4,9:POKED4+F,3
47 IFK=21ANDI(7)=9THENPOKED3,9:POKED3+F,3
48 IFK=5ANDI(6)=9THENPOKED4,9:POKED4+F,4
49 IFK=6ANDI(6)=9THENPOKED3,9:POKED3+F,4
50 IFK=11THENFORY=D1+44TOD2STEP22:POKEY,3:POKEY+F,4:NEXT
51 IFK<>3THEN53
52 FORY=D1TOD2STEP22:POKEY,3:POKEY+F,4:NEXT:FORY=D3TOD3+10:POKEY,3:POKEY+F,4:NEXT
53 IFK=2THENFORY=D3+2TOD4:POKEY,3:POKEY+F,4:NEXT
54 IFK<>40THEN57
55 FORY=D1+43TOD2-23STEP22:POKEY,3:POKEY+F,2:NEXT
56 FORY=D3+2TOD4-2:POKEY,3:POKEY+F,2:NEXT
57 IFK=14THENFORY=GTOHSTEP5:POKEY,3:POKEY+F,2:NEXT:POKED4-1,32:POKED2-22,32
58 IFK<>23THEN60
59 FORY=D1+44TOD2-44STEP22:POKEY,3:POKEY+F,2:NEXT:FORY=D3TOD4-2:POKEY,3:POKEY+F,2:NEXT
60 IFK>50THENPOKE36879,76:PRINT"[147]"
61 POKE36880,5:POKE36881,25:IFK=10ORK=13ORK=16ORK=25THENGR=K
62 IFK<>22THEN65
63 FORY=D3+2TOD2-44STEP23:POKEY,3:POKEY+F,3:NEXT
64 FORY=D1+44TOD4-2STEP23:POKEY,3:POKEY+F,3:NEXT
65 FORY=1TO3:IFTR(Y)=KTHENPOKETA(Y),TB(Y):POKETA(Y)+F,0:NEXT
66 IFK=15THENFORY=ITOD4-10STEP21:POKEY,3:POKEY+F,2:NEXT:FORY=D4-10TOHSTEP23:POKEY,3
67 IFCU=KTHENCK=9:POKE38399,7:SYS16357
68 IFPEEK(FNC(D))=3THENK=33:GOTO20
69 POKE36879,25+INT(RND(.)*7)
70 FORY=4580TO4601:POKEY+F,4:NEXT:IFI(1)=9THENPOKE4581,2:O=0
71 IFI(2)=9THENPOKE4583,5:P=0
72 IFI(3)=9THENPOKE4585,6:Q=0
73 IFI(4)=9THENPOKE4587,7:R=0
74 IFI(5)=9THENPOKE4589,8:S=0
75 IFI(6)=9THENPOKE4591,12:T=0
76 IFI(7)=9THENPOKE4593,12:POKE4593+F,3:U=0
77 IFI(8)=9THENPOKE4595,19:V=0
78 IFI(10)=9THENPOKE4599,6:POKE4599+F,0:FF=0
79 IFI(9)=9THENPOKE4597,20:X=0:GOTO220
80 IFI(9)=9THEN82
81 IFK=37ORK=28ORK=29ORK=8ORK=10ORK=2ORK=1THENPOKE38399,0:SYS16357:POKE36879,8
82 POKE36869,205:SYS832:MA=0:MB=0:IFPEEK(830)=0THEN241
83 POKEFNC(D),32:POKE36877,0:IFPEEK(830)=1THENMB=-1:IFCK=9THENMB=1
84 IFPEEK(830)=3THENMA=1:IFCK=9THENMA=-1
85 IFPEEK(830)=5THENMB=1:IFCK=9THENMB=-1
86 IFPEEK(830)=7THENMA=-1:IFCK=9THENMA=1
87 A=A+MA:B=B+MB:IFPEEK(FNC(D))=32THEN102
88 GOSUB205:IFPEEK(FNC(D))=3ANDI(1)=0THEN244
89 IFPEEK(FNC(D))=4ANDI(8)=0THEN244
90 IFPEEK(FNC(D))=7ANDI(4)=0ANDR1<>FNC(D)THEN188
91 POKE36876,INT(RND(.)*127)+128:IFFNC(D)=O1ANDO=KTHENI(1)=9:O=0
92 IFFNC(D)=P1ANDP=KTHENI(2)=9:P=0
93 IFFNC(D)=Q1ANDQ=KTHENI(3)=9:Q=0
94 IFFNC(D)=R1ANDR=KTHENI(4)=9:R=0
95 IFFNC(D)=S1ANDS=KTHENI(5)=9:S=0
96 IFFNC(D)=T1ANDT=KTHENI(6)=9:T=0
97 IFFNC(D)=U1ANDU=KTHENI(7)=9:U=0
98 IFFNC(D)=X1ANDX=KTHENI(9)=9:X=0
99 IFFNC(D)=V1ANDV=KTHENI(8)=9:V=0
100 IFFNC(D)=FAANDFF=KTHENI(10)=9:FF=0
101 IFFNC(D)=W1ANDW=KTHENK=INT(RND(.)*40)+1:GOTO21
102 POKE36876,0:IFA>21ORA<0ORB>21ORB<0THEN246
103 POKEFNC(D),0:POKEFNC(D)+F,0
104 FORY=1TO3:IFE(Y)=KTHEN106
105 NEXT:GOTO112
106 Y=INT(RND(.)*4)+1:POKEFNA1(D),32:IFE1(Y)<ATHENE1(Y)=E1(Y)+1
107 IFE1(Y)>ATHENE1(Y)=E1(Y)-1
108 IFE2(Y)>BTHENE2(Y)=E2(Y)-1
109 IFE2(Y)<BTHENE2(Y)=E2(Y)+1
110 POKEFNA1(D),18:POKEFNA1(D)+F,6
111 IFFNA1(D)=FNC(D)THEN188
112 IFK<>BBTHEN119
113 MA=0:MB=0:POKEFNA2(D),3:IFBX<ATHENMA=1:GOTO117
114 IFBX>ATHENMA=-1:GOTO117
115 IFBY>BTHENMB=-1
116 IFBY<BTHENMB=1
117 BY=BY+MB:BX=BX+MA:IFPEEK(FNA2(D))=4ORPEEK(FNA2(D))=7THENBY=BY-MB:BX=BX-MA
118 POKEFNA2(D),13:POKEFNA2(D)+F,2:IFFNA2(D)=FNC(D)THEN188
119 IFK<>CCTHEN126
120 POKEFNA3(D),32:IFCX<ATHENMA=1
121 IFCX>ATHENMA=-1
122 IFCY>BTHENMB=-1
123 IFCY<BTHENMB=1
124 CX=CX+MA:CY=CY+MB:IFPEEK(FNA3(D))=3THENCX=CX-MA:CY=CY-MB
125 POKEFNA3(D),14:POKEFNA3(D)+F,0:IFFNA3(D)=FNC(D)THEN188
126 IFK<>DDTHEN133
127 POKEFNA4(D),32:POKEFNA4(D)-1,32:IFDX<ATHENDX=DX+1:GOTO129
128 DX=DX-1
129 IFDY<BTHENDY=DY+1:GOTO131
130 DY=DY-1
131 POKEFNA4(D),17:POKEFNA4(D)-1,16:POKEFNA4(D)-1+F,5:POKEFNA4(D)+F,5
132 IFFNA4(D)=FNC(D)THEN188
133 IFK<>EETHEN141
134 POKEFNA5(D),32:IFEX<ATHENMA=1
135 IFEX>ATHENMA=-1
136 IFEY>BTHENMB=-1
137 IFEY<BTHENMB=1
138 EX=EX+MA:EY=EY+MB
139 IFPEEK(FNA5(D))=3ORPEEK(FNA5(D))=4ORPEEK(FNA5(D))=7THENEX=EX-MA:EY=EY-MB
140 POKEFNA5(D),0:POKEFNA5(D)+F,3:IFFNA5(D)=FNC(D)THENZ=INT(RND(.)*10)+1:I(Z)=0:EE=0
141 IFRR=0THEN145
142 Z=INT(RND(.)*GG)+G:POKEZ,3:POKEZ+F,7:IFZ=FNC(D)THEN188
143 Z=INT(RND(.)*8)+1:POKE36880,Z:Y=INT(RND(.)*9)+21:POKE36881,Y:POKE36876,128
144 POKE36877,128
145 IFK<>GRORI(4)=9THEN82
146 Z=INT(RND(.)*13)+1:POKEFNA7(D),32:IFGH(Z)<ATHENGH(Z)=GH(Z)+1
147 IFGH(Z)>ATHENGH(Z)=GH(Z)-1
148 IFGZ(Z)<BTHENGZ(Z)=GZ(Z)+1
149 IFGZ(Z)>BTHENGZ(Z)=GZ(Z)-1
150 POKEFNA7(D),0:POKEFNA7(D)+F,2:IFFNA7(D)=FNC(D)THEN188
151 GOTO82
152 PRINT"[158][147]THE SWORD"
153 PRINT"PRESS F1 TO START IN      THE FOREST."
154 PRINT"PRESS F3 TO BE PLACED   RANDOMLY IN A ROOM."
155 PRINT"PRESS F5 TO START WITH   A TREASURE."
156 GETT$:IFT$=""THEN156
157 IFT$="[133]"THENK=33:M=4:GOTO4
158 IFT$<>"[134]"THEN161
159 GOSUB15:IFY=8ORY=10ORY=12ORY=30ORY=40THEN159
160 K=Y:M=4:GOTO4
161 IFT$="[135]"THEN163
162 GOTO152
163 PRINT"[147]   TREASURES":PRINT"0. RANDOM"
164 PRINT"1. BOOTS":PRINT"2. WAND OF SECRETS":PRINT"3. GLOBE":PRINT"4. CROSS"
165 PRINT"5. WAND OF THE WAY":PRINT"6. PURPLE KEY":PRINT"7. BLUE KEY"
166 PRINT"8. AXE":PRINT"9. TORCH"
167 GETT$:IFT$=""THEN167
168 IFT$<"0"ORT$>"9"THEN152
169 HH=VAL(T$):IFHH=0THENHH=INT(RND(.)*9)+1
170 I(HH)=9:GOTO152
171 GOSUB15:N=Y:IFN=1ORN=7ORN=6ORN=9ORN>13ANDN<21ORN>22ANDN<30ORN>30THEN171
172 GOSUB15:O=Y:IFO=1ORO=9ORO=17ORO>24ANDO<28ORO>32ANDO<38THEN172
173 GOSUB15:P=Y:IFP=10ORP=8ORP=28ORP=29THEN173
174 GOSUB15:Q=Y:IFQ=1ORQ=9ORQ=17ORQ>24ANDQ<28ORQ>32ANDQ<38THEN174
175 GOSUB15:R=Y:GOSUB15:S=Y:GOSUB15:X=Y:GOSUB15:W=Y
176 GOSUB15:T=Y:IFT>1ANDT<6ORT>10ANDT<14THEN176
177 GOSUB15:V=Y:IFV=1ORV=9ORV=17ORV>24ANDV<28ORV>32ANDV<38THEN177
178 GOSUB15:U=Y:IFU>1ANDU<6ORU>10ANDU<14ORU=21ORU=22ORU=30THEN178
179 GOSUB15:FF=Y:IFY=1ORY=2ORY=10ORY=8ORY=37ORY=28ORY=29THEN179
180 FORZ=1TO3:AA(Z)=INT(RND(.)*GG)+G:NEXT
181 FORZ=1TO3:GOSUB15:TR(Z)=Y:GOSUB14:TA(Z)=Y:NEXT:TB(1)=6:TB(2)=19:TB(3)=2
182 DIMGZ(13):DIMGH(13):FORZ=1TO13:GOSUB16:GZ(Z)=Y:GH(Z)=Y:NEXT:RETURN
183 IFK=10ORK=8THENPOKED3,42
184 IFK=9ORK=7THENPOKED4,42
185 IFK=24ORK=28ORK=37THENPOKED2,42
186 IFK=16ORK=20ORK=29THENPOKED1,42
187 GOTO38
188 M=M-1:FORY=250TO200STEP-1:FORZ=230TO240
189 POKE36877,Y:POKE36876,Z:NEXT:NEXT:IFM<1THEN192
190 POKE36877,0:POKE36876,0:K=33:GOSUB15:BB=Y:GOSUB15
191 CC=Y:GOSUB15:DD=Y:GOSUB15:K=Y:CK=0:GOTO20
192 POKE36876,0:POKE36877,0
193 PRINT"[147]YOUR QUEST IS OVER":POKE36869,192:POKE36879,8
194 PRINT:IFM<1THENPRINT"YOU HAVE FAILED      TO FIND THE SWORD"
195 IFM>0THENPRINT:PRINT"CONGRATULATIONS!    YOU FOUND[160]THE SWORD"
196 PRINT"PRESS FIRE"
197 SYS832:IFPEEK(831)=0THEN197
198 RUN
199 RETURN
200 IFFNC(D)<>N1THEN188
201 FORY=160TO255:POKE36876,Y:FORZ=14TO0STEP-2:POKE36878,Z:NEXT:NEXT:D8=36878
202 GOTO203
203 FORY=255TO160STEP-1:POKE36876,Y:FORZ=0TO14STEP2:POKED8,Z:NEXT:FORZ=14TO0STEP-4
204 POKED8,Z:NEXT:NEXT:GOTO192
205 IFPEEK(FNC(D))=63ORPEEK(FNC(D))=1THEN200
206 IFPEEK(FNC(D))<>10THENRETURN
207 Z=INT(RND(.)*10)+1
208 I(Z)=9:K=80:LK=1:RETURN
209 IFI(3)=9THEN216
210 IFI(10)=9THEN212
211 RETURN
212 IFK-N=8ORK-N=-8ORK-N=1ORK-N=-1THENPOKE36876,130:GOTO215
213 IFK-N=7ORK-N=9ORK-N=-7ORK-N=-9THENPOKE36876,250:GOTO215
214 POKE36876,200
215 RETURN
216 IFK-N=8ORK-N=-8ORK-N=1ORK-N=-1THENPOKE36876,250:GOTO219
217 IFK-N=7ORK-N=9ORK-N=-7ORK-N=-9THENPOKE36876,200:GOTO219
218 POKE36876,130
219 RETURN
220 IFK=OTHENPOKEO1,2:POKEO1+F,0:IFI(5)=9THENPOKEO1+F,7
221 IFK=PTHENPOKEP1,5:POKEP1+F,0
222 IFK=QTHENPOKEQ1,6:POKEQ1+F,0:IFI(5)=9THENPOKEQ1+F,7
223 IFK=RTHENPOKER1,7:POKER1+F,0:IFI(5)=9THENPOKER1+F,7
224 IFK=STHENPOKES1,8:POKES1+F,0
225 IFK=TTHENPOKET1,12:POKET1+F,4
226 IFK=UTHENPOKEU1,12:POKEU1+F,3
227 IFK=FFTHENPOKEFA,6:POKEFA+F,0
228 IFK=WTHENPOKEW1,15:POKEW1+F,2
229 IFK=VTHENPOKEV1,19:POKEV1+F,0:IFI(5)=9THENPOKEV1+F,7
230 IFK=XTHENPOKEX1,20:POKEX1+F,7
231 IFK<>NTHEN80
232 POKEN1,63:POKEN1+F,0:FORY=1TO3:POKEAA(Y),63:POKEAA(Y)+F,0:NEXT:IFI(5)=9THENPOKEN1,1
233 GOTO80
234 DATA169,148,133,252,169,1,133,251,173,255,149,160,0,145,251,200,208,251,160,255,145
235 DATA251,230,251,208,250,96
236 DATA120,8,72,152,72,138,72,173,19,145,72,173,34,145,72,169,0,141,62,3,141,63,3,169
237 DATA127,141,34,145,173,32,145,73,255,41,128,42,8,169,195,141,19,145,173,17,145,73
238 DATA255,41,60,74,74,40,42,168,41,16,201,16,208,3,141,63,3,152,41,15,162,0,232,224,9
239 DATA240,8,221,160,3,208,246,142,62,3,104,141,34,145,104,141,19,145,104,170,104,168
240 DATA104,40,88,96,2,3,1,5,4,12,8,10
241 IFPEEK(831)=16ANDI(4)=0THENM=0:GOTO188
242 IFPEEK(831)=16THENI(4)=0:BB=50:CC=50:DD=50:FORY=1TO3:E(Y)=50:NEXT
243 GOTO103
244 IFA>21ORA<0ORB>22ORB<0THEN246
245 A=A-MA:B=B-MB:GOTO102
246 IFA>21THENA=0:K=K+1:IFK=41THENK=1
247 IFA<0THENA=21:K=K-1:IFK=0ORK=32ORK=24ORK=16ORK=8THENK=33
248 IFB>21THENB=0:K=K-8:IFK<1THENK=34
249 IFB<0THENB=21:K=K+8:IFK>40THENK=35
250 IFTI$>"000200"THEN252
251 GOSUB209:GOTO20
252 FORY=1TO3:IFE(Y)<KTHENE(Y)=E(Y)+1
253 IFE(Y)>KTHENE(Y)=E(Y)-1
254 NEXT:IFCC<KTHENCC=CC+8
255 IFCC>KTHENCC=CC-8
256 IFBB>KTHENBB=BB-7
257 IFBB<KTHENBB=BB+7
258 IFDD>KTHENDD=DD-9
259 TI$="000000":IFDD<KTHENDD=DD-9
260 GOTO251
261 IFK=3THEN22
262 FORY=1TOINT(RND(.)*50)+50:Z=INT(RND(.)*GG)+G:POKEZ,4:POKEZ+F,5:NEXT:GOTO22
263 IFOM=MTHEN266
264 POKE36879,8
265 POKE36869,192:PRINT"[147]MEN LEFT";M:FORT5=1TO1000:NEXT:POKE36869,205:K=33
266 OM=M:RETURN