2 POKE775,168:POKE808,234
3 DIMS$(12):B$="{space*38}"
5 PRINT"{clear}":POKE53281,0:POKE53280,0:GOSUB1202:GOSUB1099:GOSUB1103
7 FORH=1TO4500:NEXT:GOSUB1120:FORH=1TO1000:NEXT
12 BS$="{reverse on}{yellow}+/+/*+/*****+/+/*+/+/**+/+/***+/**+/+/"
13 B1$="{reverse on}^{down}{left}{arrow left}{down}{left}^{down}{left}{arrow left}{down}{left}{pound}{down}{left}{pound}{down}{left}{pound}{down}{left}^{down}{left}{arrow left}{down}{left}{pound}{down}{left}{pound}{down}{left}^{down}{left}{arrow left}{down}{left}^{down}{left}{arrow left}{down}{left}{pound}{down}{left}{pound}{down}{left}{pound}{down}{left}{pound}{down}{left}^{down}{left}{arrow left}{down}{left}{pound}{down}{left}{pound}{down}{left}{pound}"
14 PRINT"{clear}":POKE53265,PEEK(53265)OR64:POKE53283,6:POKE53272,25:GOSUB100
15 GOSUB1107:FORA=1TO12:READS$(A):NEXT:FORA=1TO5:READM$(A):NEXT
16 FORH=1TO5000:NEXT
17 PRINT"{clear}":POKE53280,14:POKE53281,14:POKE53283,9
20 PRINT"{home}{down}"BS$:PRINT"{home}{right}"B1$
22 PRINT"{home}"SPC(36)B1$:PRINT"{home}":FORA=1TO21:PRINT:NEXT:PRINTBS$
24 PRINT"{home}{down*2}{right*2}{brown}){down}:=<::::<:<={up};{down}{left}:::<<=<::::=<{up};{down}{left}:<=<::::{up}-{down}"
25 PRINT"{right*3}{pink}{reverse on} trader jims outpost...{space*9}"
26 PRINT"{right*3}{brown}&{reverse on}{space*30}{reverse off}%"
27 PRINT"{right*3}${reverse on}{yellow}a dying{space*2}adventurer staggers{space*2}{reverse off}{brown}%"
28 PRINT"{right*3}{brown}&{reverse on}{space*30}{reverse off}%"
29 PRINT"{right*3}{reverse on} {yellow}from the jungle raving about{space*2}{reverse off}{brown}%"
30 PRINT"{right*3}{brown}&{reverse on}{space*30}{reverse off}%"
31 PRINT"{right*3}${reverse on}{yellow} 7 foot tall natives, ice and{space*2}"
32 PRINT"{right*3}{brown}&{reverse on}{space*31}"
33 PRINT"{right*3}&{reverse on}{yellow}snow, a searing volcano and..{space*2}"
34 PRINT"{right*3}{brown}&{reverse on}{space*30}{reverse off}%"
35 PRINT"{right*3}{reverse on}{yellow} a cache of treasure fit for a{space*2}"
36 PRINT"{right*3}{brown}{reverse on}{space*31}{reverse off}%"
37 PRINT"{right*3}{brown}&{reverse on}{yellow}king{space*27}"
38 PRINT"{right*3}{brown}&{reverse on}{space*30}{reverse off}%"
39 PRINT"{right*3}${reverse on}{green}and so the quest begins.....{space*2}{reverse off}{brown}%"
40 PRINT"{right*3}{brown}&{reverse on}{space*30}{reverse off}%"
41 PRINT"{right*2}{down}{brown}-{up}::'(::{down};{up}{left}:(::::::{down};{up}{left}::{down}{left};{up}'(':::(:{down}{left};{up}::'(::':{down})"
50 FORH=1TO15000:NEXT
52 PRINT"{clear}":POKE53280,0:POKE53281,0
58 PRINT"{right*3}{brown}&{yellow}{reverse on} the search for {reverse off}{brown}%"
60 PRINT"{home}{down*3}{right*3}{brown}!{yellow}:![{right}{brown}!{yellow}&{brown}!{yellow}$]:{brown}!{yellow}::%":PRINT"{right*3}{brown}&{yellow}$[{right*2}{brown}${yellow}${brown}:{yellow}:{reverse on}@{reverse off}:{brown}&{yellow}:{brown}8["
61 PRINT"{right*3}:{yellow}:{reverse on}@{reverse off}]{right}{brown}:{yellow}:{brown}&{yellow}:{brown}&{yellow}:{brown}:{yellow}:{right}{brown}!{yellow}:":PRINT"{right*3}{brown}:{yellow}&{brown}:{yellow}{reverse on}@{reverse off}]{brown}&{yellow}:{brown}:{yellow}&{brown}:{yellow}%{brown}${yellow}:?:%"
62 PRINT"{right*3}{brown}$[@8[:[:[:[:8::[{down*2}"
63 PRINT"{right*3}{brown}!{yellow}:?:{brown}!{yellow}::%{brown}!{yellow}:{right*2}{brown}!{yellow}&::{brown}!{yellow}:]!%{brown}!{yellow}::%{brown}!{yellow}:]:{brown}${up}{left}!{yellow}&{down}{left}[{brown}!{yellow}:?:"
64 PRINT"{right*3}{brown}&{yellow}:{brown}:[:{yellow}${brown}>{yellow}:{brown}:{yellow}${right*2}{brown}:{yellow}:{brown}>{yellow}:{brown}&{yellow}:{reverse on}@[{reverse off}:{brown}:{yellow}${brown}>{yellow}:{brown}:{yellow}${reverse on}@{reverse off}:{brown}[{right}:{yellow}%{brown}:["
65 PRINT"{right*3}{brown}:{yellow}{reverse on}##{reverse off}:{brown}:{yellow}:{brown}>{yellow}&{brown}&{yellow}:{right*2}{brown}:{yellow}:{brown}>{yellow}:{brown}:{yellow}${brown}@:{yellow}:{brown}&{yellow}:{brown}>{yellow}:{brown}${yellow}:{brown}:{yellow}&{right*2}{brown}:{yellow}{reverse on}##{reverse off}:"
66 PRINT"{right*3}{brown}!{yellow}&::{brown}:{yellow}:::{brown}&{yellow}::?{brown}:{yellow}:?%{brown}:{yellow}:{right}{brown}${yellow}&{brown}:{yellow}:::{brown}&{yellow}:{brown}:{yellow}&{right*2}{brown}!{yellow}&::"
67 PRINT"{right*3}{brown}$::[&::[:8:[:::[:[{right}:[:::[:[:[{right*2}:?:[{down*2}"
68 PRINT"{right*3}{brown}!{yellow}$]!:{brown}!{yellow}:{brown}!{yellow}&]:{brown}!{yellow}::%{brown}!{yellow}:?:"
69 PRINT"{right*3}{brown}:{yellow}:{reverse on}@[{reverse off}%{brown}:{yellow}:{brown}&{yellow}:{reverse on}@{reverse off}:{brown}:{yellow}${brown}:[${yellow}${brown}:["
70 PRINT"{right*3}&{yellow}%{brown}@:{yellow}:{brown}&{yellow}:{brown}:{yellow}:{brown}:{yellow}:{brown}&{yellow}:{reverse on}#{reverse off}{right}{brown}:{yellow}{reverse on}##{reverse off}%"
71 PRINT"{right*3}{brown}&{yellow}:{right}{brown}${yellow}&{brown}:{yellow}${brown}:{yellow}:{brown}${yellow}:{brown}:{yellow}:?:{brown}!{yellow}::%"
72 PRINT"{right*3}{brown}:[{right}:[:[:[:[8::[:8:["
73 FORH=1TO1000:NEXT
74 PRINT"{home}{down*18}"SPC(25)"{brown}&<:::=<?:::"
75 PRINTSPC(25)"{brown}${reverse on}{yellow} part{space*2}1 {reverse off}{brown}%":PRINTSPC(25)"&:'(::((::%"
78 FORH=1TO10000:NEXT
80 PRINT"{clear}":GOSUB156:POKE53283,6
81 PRINT"{home}{down*7}{right*7}{blue}$?:::?=<:=::::==<::<::"
82 PRINT"{right*7}&{light blue}{reverse on} trader jims outpost{blue}{reverse off}%":PRINT"{right*7}::::::::{light blue}{reverse on}on{space*2}the{space*6}{reverse off}{blue}%"
83 PRINT"{right*7}&:::{light blue}{reverse on}zambesi river{space*5}":PRINT"{right*7}{blue}&::8(:8::::8'(::::':::{down}"
84 PRINTSPC(11)"{blue}?<::::::==<:<%":PRINTSPC(11)"{blue}&:{light blue}{reverse on}june{space*3}1903{blue}{reverse off}%"
85 PRINTSPC(11)"$:8::'(8:::::8"
90 FORH=1TO4000:NEXT:GOTO199
100 PRINT"{down*6}"SPC(7)"{blue}!{light blue}$:%{blue}!{light blue}&::{blue}!{light blue}$::{blue}!{light blue}&{blue}!{light blue}:::{blue}!{light blue}$:%"
101 PRINTSPC(7)"{blue}${light blue}:{blue}>{light blue}:{blue}:{light blue}:{blue}:[${light blue}&{blue}>{light blue}${blue}${light blue}:{blue}:{light blue}&{blue}:[${light blue}:{blue}>{light blue}&"
102 PRINTSPC(7)"{blue}:{light blue}&::{blue}${light blue}&%{right}{blue}&{light blue}:::{blue}:{light blue}${blue}&{light blue}:{right*2}{blue}:{light blue}&::"
103 PRINTSPC(7)"{blue}&{light blue}:{blue}>{light blue}:{blue}:{light blue}:{blue}[{right}&{light blue}:{reverse on}@{reverse off}]{blue}&{light blue}:{blue}&{light blue}$::{blue}&{light blue}:{blue}>{light blue}$"
104 PRINTSPC(7)"{blue}8[>[:[{right*2}:[@8:[8:8[:[>[{down*2}"
105 PRINTSPC(11)"&{reverse on}{light blue}march{space*3}1903{reverse off}{blue}%":GOSUB156:RETURN
156 PRINT"{home}{down*4}{right*3}{yellow}+/+/*+/*****+/+/*+/+/**+/+/***"
157 PRINT"{down*12}{right*3}{yellow}+/+/*+/*****+/+/*+/+/**+/+/***"
158 B2$="^{down}{left}{arrow left}{down}{left}^{down}{left}{arrow left}{down}{left}{pound}{down}{left}{pound}{down}{left}{pound}{down}{left}^{down}{left}{arrow left}{down}{left}{pound}{down}{left}{pound}{down}{left}^{down}{left}{arrow left}{down}{left}^{down}{left}{arrow left}{down}{left}{pound}":PRINT"{home}{down*3}{right*4}"B2$
159 PRINT"{home}{down*3}"SPC(31)B2$:RETURN
160 PRINT"{home}";:FORE=1TO16:PRINT:NEXT:FORE=1TO5:PRINTB$:NEXT
161 PRINT"{home}";:FORE=1TO16:PRINT:NEXT:PRINTS$(C):PRINT:RETURN
170 PRINT"{home}{down*14}"B$:PRINT"{up}";:RETURN
172 PRINT"{clear}":POKE53265,PEEK(53265)AND191:POKE53272,21
179 GOSUB1120
180 PRINT"{clear}{down*9}"SPC(14)"{light blue}load game{down*2}":PRINTSPC(12)"{yellow}1{space*2}first part{down}"
181 PRINTSPC(12)"2{space*2}second part"
182 GETZR$:IFZR$=""THEN182
184 IFZR$<>"1"ANDZR$<>"2"THEN182
185 ZR=VAL(ZR$):IFZR=1THEN200
186 OPEN2,8,2,"start,s,r":INPUT#2,VB:CLOSE2:IFVB<4THEN297
187 PRINT"{down*2}{pink}{space*6}first part{space*2}must be played{down}"
188 PRINTSPC(10)"before second part":FORH=1TO3000:NEXT
189 PRINT"{up*3}";:FORA=1TO3:PRINTB$:NEXT:PRINT"{up*5}";:GOTO182
199 GOSUB1120
200 PRINT"{clear}":POKE53265,PEEK(53265)AND191:POKE53272,21:PRINTCHR$(14):PRINTCHR$(8)
202 PRINT"{clear}{light blue}HI{sh space}THERE !{down}":PRINT"What's your name buddy{pink}";:INPUTN$
203 L=LEN(N$):IFL>12THEN202
204 PRINT"{light blue}{down}Well {pink}"N$"{light blue}, here chasing that":PRINT"treasure I suppose.{down}"
205 PRINT"If you ask me it's all a crazy tale":PRINT"concocted by a deranged programmer"
206 PRINT"{down}I guess you'll be needing some supplies"
207 PRINT"and by the look of that fat wallet you"
208 PRINT"have money to spend{down*3}":POKE198,0
209 PRINTSPC(10)"{gray}{reverse on} PRESS{sh space}ANY{sh space}KEY{sh space}"
210 GETA$:IFA$=""THEN210
212 PRINT"{clear}{light blue}Being of a kind and generous nature"
213 PRINT"I will supply you with a pack to carry"
214 PRINT"your supplies-at a bargain price- of"
215 PRINT"{pound}10. As this is the only store around"
216 PRINT"these parts, that's an offer you can't":PRINT"refuse !"
217 PRINT"{down}Unfortunately it carries five items only"
218 PRINT"{down*2}{yellow}Here is a list of my ADVENTURERS"
219 PRINT"SUPPLIES, please choose by number":FORH=1TO1500:NEXT
220 PRINT"{down}{light blue}Oh by the way don't forget to choose"
221 PRINT"a weapon or two, in case you should"
222 PRINT"meet {pink}(chuckle){light blue} something unfriendly !"
223 PRINT"{down*3}"SPC(10)"{gray}{reverse on} PRESS{sh space}ANY{sh space}KEY{sh space}":POKE198,0
224 GETA$:IFA$=""THEN224
226 PRINT"{clear}{yellow}{reverse on}"SPC(7)" ADVENTURERS{sh space}SUPPLIES{down*2}"
228 PRINT"{home}{down*2}":FORA=1TO12STEP2:PRINT"{right*2}"A"{pink}"S$(A)"{yellow}":NEXT
229 PRINT"{home}{down*2}":FORA=2TO12STEP2:PRINTSPC(20)A"{pink}"S$(A)"{yellow}":NEXT
230 PRINT"{right*2}{down}{light blue}REMEMBER, FIVE{sh space}ITEMS{sh space}ONLY{sh space}MY{sh space}LAD{sh space}!{down}"
232 PRINT"...and select by my numbers only !{down}"
234 FORA=1TO5
236 PRINT"{yellow}{right*3}Enter "M$(A)" item number ";:INPUTC$
237 C=VAL(C$):IFC<1ORC>12THENPRINT"{up}"B$:PRINT"{up}";:GOTO236
238 FORD=1TO5:IFC=TS(D)THENPRINT"{up}"B$:PRINT"{up}";:GOTO236
239 NEXT:TS(A)=C:T$(A)=S$(C)
242 GOSUB160:ONCGOSUB304,301,311,313,310,306,307,308,309,305,302,300
243 GOSUB170:NEXT:FORH=1TO3000:NEXT
245 PRINT"{clear}{yellow}Well my friend, you have chosen well{down*3}{light blue}"
246 FORA=1TO5
247 PRINTSPC(12)T$(A):PRINT:NEXT
255 PRINT"{down*3}{right*2}{yellow}HAPPY{sh space}WITH{sh space}YOUR{sh space}SELECTIONS{sh space}Y/N";:INPUTG$
256 IFG$<>"n"ANDG$<>"y"THENPRINT"{up}"B$:PRINT"{up}";:GOTO255
257 IFG$="n"THENFORW=1TO5:TS(W)=0:NEXT:GOTO226
260 PRINT"{clear}{yellow}Well a fine choice, my lad":PRINT"I'll take cash---Don't give credit"
262 PRINT"{down}{light blue}You see, not too many of you":PRINT"ADVENTURERS make it back !{down}"
263 FORH=1TO1000:NEXT
264 PRINT"{yellow}One last thing....":PRINT"That dead man, stark raving mad he was"
265 PRINT"kept on repeating something about a":PRINT"Diary..."
266 FORH=1TO1000:NEXT
267 PRINT"{down}...and this{down}"
268 PRINT"{pink}'..The Skull...Look for the Skull":PRINT".......Its inside the SKULL!!!"
269 FORH=1TO1500:NEXT
270 PRINT"{down*3}{light blue}Dashed if I know what he meant..."
272 PRINTSPC(10)"{down*2}{gray}{reverse on} PRESS{sh space}ANY{sh space}KEY{sh space}":POKE198,0
273 GETA$:IFA$=""THEN273
274 GOTO410
281 POKE53265,PEEK(53265)OR64:POKE53283,9:POKE53272,25
282 PRINT"{clear}{down}{right*3}{yellow}+/+/*+/*****+/+/*+/+/**+/+/****"
283 PRINT"{down*10}{right*3}{yellow}+/+/*+/*****+/+/*+/+/**+/+/**+/"
284 B4$="^{down}{left}{arrow left}{down}{left}^{down}{left}{arrow left}{down}{left}{pound}{down}{left}{pound}{down}{left}{pound}{down}{left}^{down}{left}{arrow left}{down}{left}{pound}{down}{left}{pound}{down}{left}^{down}{left}{arrow left}{down}{left}{pound}":PRINT"{home}{right*4}"B4$
285 PRINT"{home}"SPC(32)B4$
286 PRINT"{home}{down*3}{right*6}{brown}=::??<::::::?::<<?:=::=:?"
287 PRINT"{right*6}${yellow}{reverse on}you depart to the sound "
288 PRINT"{right*6}{reverse on} of trader jims laughter{reverse off}{brown}%"
289 PRINT"{right*6}{brown}&:::::::::::::::::::::::%":PRINT"{right*6}&::{yellow}{reverse on}.....and head across{space*2}"
290 PRINT"{right*6}{reverse on} the crocodile infested {reverse off}{brown}%"
291 PRINT"{right*6}{brown}${yellow}{reverse on}zambesi...{space*13}{reverse off}{brown}%"
292 PRINT"{right*6}8:88::'(8:::::((::((8:::8"
294 FORH=1TO5000:NEXT:PRINT"{clear}":POKE53265,PEEK(53265)AND191:POKE53272,21
295 GOSUB2999:OPEN2,8,2,"@0:inv,s,w":FORA=1TO5:PRINT#2,T$(A):NEXT:CLOSE2
296 PRINT"{clear}{yellow}loading...":SYS39428
297 PRINT"{clear}{yellow}loading...":POKE49243,51:SYS49194
300 PRINT"{light blue}Good choice. Enough there to hang":PRINT"yourself":RETURN
301 PRINT"{light blue}That's one of your better selections":RETURN
302 PRINT"{light blue}Not so silly after all !":PRINT"You'll be needing fire to keep away"
303 PRINT"wild animals.":RETURN
304 PRINT"{light blue}Smart Man.....If only it were loaded.":RETURN
305 PRINT"{light blue}Ahh{space*2}Maybe a wee drop of something":PRINT"to go in that ?":RETURN
306 PRINT"{light blue}FOOD !!!{space*2}The staff of life !":RETURN
307 PRINT"{light blue}I once saw JUNGLE{sh space}JIM kill a crocodile":PRINT"with that knife.":RETURN
308 PRINT"{light blue}These Beads are good enough to get":PRINT"you a wife out there.":RETURN
309 PRINT"{light blue}Not much good if a herd of mad":PRINT"elephants runs over you..":RETURN
310 PRINT"{light blue}Ah ! A very good German brand.":RETURN
311 PRINT"{light blue}Very good choice...especially if you"
312 PRINT"don't trust directions given to you":PRINT"by deranged programmers.":RETURN
313 PRINT"{light blue}Big enough to dig your own grave.":RETURN
410 PRINT"{clear}{light blue}Here's some helpful advice..{down*2}":PRINT"{right*4}'I'{space*2}Lists pack items{down}"
411 PRINT"{right*4}'L'{space*2}Lists items at sites{down}":PRINT"{right*4}'G'{space*2}Lists OBVIOUS exits{down}"
413 PRINT"{right*4}SAVE{space*2}Saves game to disk{down}":PRINT"{right*4}HELP{space*2}Use if needed...{down}"
415 PRINT"{right*4}QUIT{space*2}Stops hair pulling{down*3}"
416 PRINT"{down}Well, good luck anyway {pink}"N$
417 PRINTSPC(10)"{down*2}{gray}{reverse on} PRESS{sh space}ANY{sh space}KEY{sh space}":POKE198,0
418 GETA$:IFA$=""THEN418
420 GOTO281
1000 DATA"Rifle","Torch","Compass","Pick","Binoculars","Rations","Knife"
1001 DATA"Beads","Medicines","Canteen","Matches","Rope"
1003 DATAFIRST,SECOND,THIRD,FOURTH,FIFTH
1099 FORSX=54272TO54296:POKESX,0:NEXT
1100 POKE54277,131:POKE54278,128:POKE54284,17:POKE54285,128:POKE54291,17
1101 POKE54292,128:POKE49881,33:POKE49882,33:POKE49883,33
1102 POKE49884,1:SYS49408:SYS49434,2:RETURN
1103 SYS49421:SYS49408:SYS49434,1
1104 FORKK=0TO15:POKE54296,KK:FORH=1TO100:NEXT:NEXT:RETURN
1107 SYS49421:SYS49408:SYS49434,0
1108 FORKK=0TO15:POKE54296,KK:FORH=1TO100:NEXT:NEXT:RETURN
1120 FORKK=15TO0STEP-1:POKE54296,KK:FORH=1TO100:NEXT:NEXT:SYS49421:RETURN
1202 PRINT"{clear}{down*7}{dark gray}";
1204 PRINT"{space*2}{cm i*34}"
1206 PRINT"{space*2}{reverse on}{space*16}a{space*17}"
1208 PRINT"{space*2}{reverse on}{space*34}"
1210 PRINT"{space*2}{reverse on} {reverse off}{space*4}{reverse on} {reverse off}{space*3}{reverse on} {reverse off}{space*3}{reverse on} {reverse off}{space*3}{reverse on} {reverse off}{space*3}{reverse on} {reverse off}{space*3}{reverse on} {reverse off} {reverse on}{space*2}{reverse off}{space*2}{127}{reverse on}{space*2}"
1212 PRINT"{space*2}{reverse on} {reverse off} {reverse on}{space*4}{reverse off} {reverse on} {reverse off} {reverse on} {reverse off} {cm u}{reverse on}{space*3}{reverse off} {reverse on}{space*2}{reverse off} {reverse on} {reverse off}{cm u}{reverse on} {reverse off} {reverse on} {reverse off} {reverse on} {reverse off} {reverse on}{space*2}{reverse off} {reverse on} {127}{reverse off}{127}{reverse on} "
1214 PRINT"{space*2}{reverse on} {reverse off}{space*4}{reverse on} {reverse off} {reverse on} {reverse off} {reverse on} {reverse off} {reverse on}{space*4}{reverse off} {reverse on}{space*2}{reverse off} {reverse on} {reverse off} {reverse on} {reverse off} {reverse on} {reverse off} {reverse on} {reverse off} {reverse on}{space*2}{reverse off} {reverse on}{space*2}{reverse off} {reverse on} "
1216 PRINT"{space*2}{reverse on}{space*4}{reverse off} {reverse on} {reverse off} {sh pound} {reverse on} {reverse off} {reverse on}{space*4}{reverse off} {reverse on}{space*2}{reverse off}{space*3}{reverse on} {reverse off}{space*3}{reverse on} {reverse off} {127}{reverse on} {reverse off} {reverse on}{space*2}{reverse off} {reverse on} "
1218 PRINT"{space*2}{reverse on} {cm i*3}{reverse off} {reverse on} {reverse off}{space*2}{reverse on}{sh pound}{space*17}{127}{reverse off} {reverse on} {reverse off} {reverse on}{cm i*2}{reverse off} {reverse on} "
1220 PRINT"{space*2}{reverse on} {reverse off}{space*4}{reverse on} {reverse off} {reverse on}{sh pound}{space*4}production{space*5}{127} {reverse off}{space*4}{reverse on} "
1222 PRINT"{space*2}{reverse on}{space*34}":RETURN
2999 FORA=1TO5
3000 IA=ASC(LEFT$(T$(A),1)):IA=IA-128
3002 IB=LEN(T$(A)):IC$=RIGHT$(T$(A),(IB-1))
3004 T$(A)=CHR$(IA)+IC$:NEXT
3005 FORA=1TO5:POKE680+TS(A),5:NEXT:RETURN
