1 PRINT"{clear}":POKE53280,0:POKE53281,0:B$="{space*39}"
2 POKE775,168:POKE808,234
3 DIMT$(5),M$(20):GOTO5000
4 OPEN2,8,2,"start,s,r":INPUT#2,GL:IFGL<1THEN7
5 FORA=1TO5:INPUT#2,T$(A):IFT$(A)="*"THENT$(A)=""
6 NEXT:INPUT#2,DF:GOTO8
7 GOSUB2156:PRINT"{down}...cheat enabled...":GOSUB2011
8 CLOSE2:PRINTCHR$(8):HJ=5
10 B=1:DIMS$(31,6),R$(31,2):Y$="o.k.":GG=1
12 Y2$="i can't do that...yet"
13 V=53248:S=54272:SB=53265
14 X1$="breclidigcutdridro":X2$="empliggetgo helinsloofil"
15 X3$="movopepatquirea":X4$="savshaswitaltiethr"
16 FORA=1TO31:FORAA=1TO2:READA$:R$(A,AA)=A$:IFA$=""THENAA=2
17 NEXTAA,A
24 PRINT"{clear}{down*4}"SPC(8)"{light blue}do you wish to restore{down}":PRINTSPC(12)"a saved safari{down}"
25 PRINTSPC(17)"{yellow}y/n":GOSUB2000
26 IFA$="y"THEN2100
28 FORA=1TO31:FORAA=1TO6:READA$:S$(A,AA)=A$:IFA$=""THENAA=6
29 NEXTAA:NEXTA
30 IFB>3THEN41
31 FORA=0TO24:POKES+A,0:NEXT:GOSUB8000:GOSUB8004
32 SYS49421:GOSUB8005:GOSUB8010:GOTO41
40 PRINTY$:GOSUB2010
41 PRINT"{clear}";:POKESB,PEEK(SB)AND239:GOSUB2020:SX=0:Y=0:SP=0:X=0
48 IFB>26THEN54
49 IFB>13THEN51
50 ONBGOTO3300,3300,3300,3300,3300,3360,3380,3400,3400,3450,3004,3004,3050
51 B=B-13
52 ONBGOTO3050,3540,3200,3350,3900,3970,3820,3390,3150,3600,3920,3950,3650
54 B=B-26
55 ONBGOTO3700,3750,3800,3340,3940
70 POKESB,PEEK(SB)OR16
71 PRINT"{home}{down*15}"
72 PRINT"{yellow}i am ";:IFB>20THEN75
74 ONBGOTO78,78,78,84,86,88,90,92,94,101,97,99,102,104,106,108,110,111,113,115
75 B=B-20:ONBGOTO117,119,121,123,125,127,129,131,133,135,137
78 PRINT"in the midst of a dry sandy desert{down*2}":GOTO139
84 PRINT"in an arid desert.ahead a mound":PRINT"rises from the sand":GOTO139
86 PRINT"in a rocky desert.a palm tree":PRINT"here provides some respite from the"
87 PRINT"glaring sun.":GOTO139
88 PRINT"amongst rolling foothills.the":PRINT"desert stretches north.":IFGJ=0THEN140
89 PRINT"there is an old man here.":GOTO139
90 PRINT"surrounded by steep hills.thick":PRINT"undergrowth hugs rocky cliff faces"
91 PRINT"blocking your progress":GOTO139
92 PRINT"on top of a mound.below you see an":PRINT"island surrounded by murky water.{down}"
93 GOTO139
94 PRINT"by a swampy lake in a deep crater":PRINT"a stone edifice rises from the centre"
95 PRINT"of the island.":GOTO139
97 PRINT"in a thicket of dense undergrowth.":PRINT"it grows flush to a steep rockface.{down}"
98 GOTO139
99 PRINT"on a rocky ledge above the bush.":PRINT"savanna rolls north towards the desert{down}"
100 GOTO139
101 PRINT"on a swampy island below a huge":PRINT"stone statue.{down}":GOTO139
102 PRINT"on a winding path between steep":PRINT"cliffs.the wind grows chill as you"
103 PRINT"climb higher.":GOTO139
104 PRINT"on a wide ledge at the end of the":PRINT"path.snow is visible on nearby peaks"
105 PRINT"& the wind tears at your clothes":GOTO139
106 PRINT"in a chill cave.a tunnel leads":PRINT"to the west while ahead there appears"
107 PRINT"to be sunlight.":GOTO139
108 PRINT"on a wide ledge overlooking a":PRINT"lush valley.far in the distance smoke"
109 PRINT"seems to rise from a volcano!":GOTO139
110 PRINT"in a dim cave.":GOTO139
111 PRINT"in a native village surrounded by":PRINT"very tall,very mad,natives.{down}"
112 GOTO139
113 PRINT"in a dirty hut.broken pottery &":PRINT"food scraps litter the dirt floor.{down}"
114 GOTO139
115 PRINT"on the great white road by a":PRINT"statue of a lion.there is a hut here"
116 PRINT"with an opening at the rear.":GOTO139
117 PRINT"on the great white road by a":PRINT"narrow ravine.smoke rising from a"
118 PRINT"volcano fills the sky ahead.":GOTO138
119 PRINT"overlooking an ancient ruined city":PRINT"in a rocky valley.the city has been"
120 PRINT"built hard against the volcano.":GOTO138
121 PRINT"by the city walls.they have been":PRINT"built strong & tall to repel"
122 PRINT"intruders such as you.":GOTO138
123 PRINT"behind the stone lion.a slab":PRINT"of red stone appears to be set into"
124 PRINT"the base of the statue.":GOTO138
125 PRINT"in a long room filled with dust":PRINT"& pillars.traces of the wealth of"
126 PRINT"the city are everywhere..":GOTO138
127 PRINT"in a chamber with four doors.":PRINT"a strange design is set into the"
128 PRINT"marble floor.":GOTO138
129 PRINT"in a small room which was once a":PRINT"treasure storehouse.an open chest is"
130 PRINT"in the north corner.":GOTO138
131 PRINT"in an eerie vault.giant skeletons":PRINT"repose on ornate thrones around you."
132 PRINT"low stairs lead into darkness.":GOTO138
133 PRINT"by a huge brown door.the head of":PRINT"a lion has been carved in the centre"
134 PRINT"two horrible statues are nearby..":GOTO138
135 PRINT"at the top of the statue.an":PRINT"indentation filled with fresh water is"
136 PRINT"here.":GOTO138
137 PRINT"in a dim chamber in the statue.":PRINT"stone steps lead into the dark..{down}"
138 B=B+20
139 IFGQ=1THENHK=HK+1:IFHK=30THENPRINT"{down}{pink}the lamp goes out":LL=5:HK=0:GQ=0:GOSUB2007
140 IFGA=0THENGB=GB+1
141 IFGE=1THENPRINT"{pink}{down}you awake covered with bumps & fronds":GE=2:GOSUB2007
142 IFGB>5ANDGB<9THENPRINT"{pink}{down}i feel thirsty...":GOSUB2007
143 IFGB=9THENPRINT"{pink}{down}i'm dehydrating fast...":GOSUB2007
144 IFGB=10THENPRINT"{pink}{down}oh for a foster's..":GOSUB2007
145 IFGB=12THENPRINT"{pink}{down}you've just turned to dust!!":GOSUB2013:GOSUB8020:GOTO2210
146 IFGK=1THENGM=GM+1:IFGM=4THENGJ=1:GM=0:GK=0
147 IFB=17ANDGQ=1THEN2222
148 IFB=19THENGW=GW+1:IFGW=9THEN2090
149 IFGY=1THENGZ=GZ+1:IFGZ=1THENPRINT"{pink}{down}the natives discover your escape":GOSUB2007
150 IFB=31ANDGY=1THENPRINT"{pink}{down}the natives lose you":GY=0:GZ=0:PC=PC+1:GOSUB8020:GOTO7990
151 IFHI=1ANDB>27ANDB<30THENHH=HH+1
153 IFGZ>1ANDGZ<9THENPRINT"{pink}{down}the natives are in hot pursuit":GOSUB2007
154 IFHH=2ANDB>27ANDB<30THENPRINT"{down}{pink}you hear a movement":GOSUB2007
155 IFHH=4ANDB>27ANDB<30THENPRINT"{pink}{down}the statues stir!":GOSUB2007
156 IFHH=8ANDB>27ANDB<30THENPRINT"{pink}{down}the statues are moving..":GOSUB2007
157 IFHH=10ANDB>27ANDB<30THENPRINT"{pink}{down}the statues attack & tear you apart!":GOSUB2013:GOTO2210
158 IFGZ=9THEN2094
159 IFB=18ANDGT=1THEN2094
160 POKE198,0:PRINT"{down}{light blue}> ";:C=0:Q=18:Z$="":J=1:C$="":D$="":IC=0
162 GETW$:C=C+1:IFW$=CHR$(13)THENPRINTCHR$(32):GOSUB2005:GOTO200
163 IFC=3THENQ=164-Q:C=0
164 PRINTCHR$(Q)CHR$(32)CHR$(146)CHR$(157);
165 IFW$=CHR$(20)THENW$="":IFLEN(Z$)>0THENPRINTCHR$(20);:Z$=LEFT$(Z$,(LEN(Z$)-1)):Z=Z-1
166 IFW$=CHR$(32)THENJ=LEN(Z$)+2:GOSUB2005:GOTO168
167 IFW$<CHR$(65)ORW$>CHR$(90)THENW$=""
168 PRINTW$;:Z$=Z$+W$:Z=LEN(Z$):IC=IC+1
170 IFB=18ANDIC=20THEN2230
199 GOTO162
200 GC=GC+1:PRINT"{light blue}":IFZ=0THEN41
201 IFZ>1THEN300
204 IFZ$="i"THEN2059
205 IFZ$="g"THEN2030
206 IFZ$="l"THEN2150
208 FORA=1TO2:IFR$(B,A)=Z$THEN210
209 NEXT:GOTO223
210 IFB=11ANDZ$="e"THENB=7:GOTO40
211 IFB=17ANDZ$="e"THENB=15:GOTO40
212 IFB=19ANDZ$="e"ANDGT=1THENB=18:GOTO40
213 IFB=24ANDZ$="s"THENB=20:GOTO40
214 IFB=8ANDZ$="w"THENB=4:GOTO40
215 IFB=3ANDZ$="e"ANDGA=0THENB=1:GOTO40
216 IFB=31ANDZ$="w"THENB=24:GOTO40
217 IFB=19ANDGT=0ANDZ$="e"THENPRINT"i wish i could...":GOTO2040
218 IFB=3ANDGA=1ANDZ$="e"THENB=4:GA=2:GOSUB8020:GOTO40
219 IFZ$="n"THENB=B-1:GOTO40
220 IFZ$="s"THENB=B+1:GOTO40
221 IFZ$="e"THENB=B+1:GOTO40
222 IFZ$="w"THENB=B-1:GOTO40
223 PRINT"sorry can't go there":GOTO2040
300 D$=MID$(Z$,J,3):IFASC(C$)>82THEN312
301 IFASC(C$)>76THEN310
302 IFASC(C$)>68THEN307
304 FORA=1TO6:IFLEFT$(C$,3)=MID$(X1$,A*3-2,3)THENONAGOTO710,470,530,500,540,440
305 NEXT:GOTO314
307 FORA=1TO8:IFLEFT$(C$,3)=MID$(X2$,A*3-2,3)THENONAGOTO490,560,420,330,750,460,600,800
308 NEXT:GOTO314
310 FORA=1TO5:IFLEFT$(C$,3)=MID$(X3$,A*3-2,3)THENONAGOTO370,680,410,2215,690
311 NEXT:GOTO314
312 FORA=1TO6:IFLEFT$(C$,3)=MID$(X4$,A*3-2,3)THENONAGOTO900,570,550,380,520,580
313 NEXT
314 PRINT"sorry can't translate":GOTO2040
330 IFB=4ANDD$="mou"THENB=8:GOTO40
332 IFB=7ANDD$="thi"THENB=11:GOTO40
333 IFB=14ANDD$="cav"ANDGP=1THENB=15:GOTO40
334 IFB=15ANDD$="tun"THENB=17:GOTO40
335 IFB=19ANDD$="hol"ANDGX=1THENB=20:GW=0:GY=1:GOSUB8000:GOSUB8006:GOSUB8010:GOTO40
336 IFB=20ANDD$="hut"THENB=19:GOTO40
337 IFB=9ANDGF=1THENPRINT"ok you skim across the water":B=10:GOSUB2013:HW=1:GOTO41
338 IFB=10ANDGF=1THENPRINT"ok you skim across the water":B=9:GOSUB2013:GOTO41
340 IFB=20ANDD$="sta"THENB=24:GOTO40
341 IFB=24ANDHA=1ANDD$="doo"THENB=31:GOTO40
342 IFB=31ANDD$="ste"THENPRINT"strange,something stops you":GOTO2040
344 IFB=26ANDD$="doo"THEN2350
345 IFB=27ANDD$="sta"ANDHF=1THENB=28:GOTO40
346 IFB=28ANDD$="sta"ANDGQ=0THEN2110
347 IFB=28ANDD$="sta"ANDGQ=1THENB=27:HH=0:GOTO40
349 GOTO223
370 IFB=27ANDD$="che"ANDHE=0THEN2004
371 IFB=27ANDD$="che"ANDHE=1ANDHF=0THENHF=1:PRINT"ok i see something":PC=PC+1:GOTO379
378 GOTO2004
379 GOSUB2013:S$(B,6)="stairs":GOTO41
380 IFB=6ANDD$="man"THEN384
383 GOTO2003
384 IFGJ=0THENPRINT"i can't see him...":GOTO2040
385 IFGI=0THENAA=3:GOTO387
386 AA=2
387 A=INT(RND(1)*AA)+1:ONAGOTO388,389,390
388 PRINT"the old man sneers & leaves..":GK=1:GJ=0:GOTO2040
389 PRINT"the old man looks & ignores you":GOTO2040
390 PRINT"he says 'follow the path of white":PRINT"& take this lamp'":GJ=1:GOSUB2012
391 N$="lamp":PC=PC+1:GOTO2281
410 IFB=24ANDD$="lio"ANDHA=0THEN415
414 GOTO2004
415 PRINT"that's very kind";:GOSUB2013:PRINT"{space*2}you hear a scrape":HA=1:S$(24,6)="door"
416 GOSUB2013:GOTO41
420 N$=D$:IFD$="rop"ANDHD=1THENPRINT"sorry its stuck..":GOTO2040
421 GOSUB2160
425 FORA=1TO5:IFT$(A)=N$THENPRINT"i already have it":GOTO2040
426 NEXT:FORA=1TO6:IFS$(B,A)=N$THEN428
427 NEXT:PRINT"i can't get that":GOTO2040
428 FORAA=1TO5:IFT$(AA)=""THEN430
429 NEXT:PRINT"my pack is full":GOTO2040
430 T$(AA)=N$:S$(B,A)=""
431 IFN$="fronds"THENGF=0
439 GOTO40
440 N$=D$:GOSUB2160
445 FORA=1TO5:IFT$(A)=N$THEN447
446 NEXT:PRINT"i don't have it":GOTO2040
447 FORAA=1TO6:IFS$(B,AA)=""THEN449
448 NEXT:PRINT"sorry,no room here":GOTO2040
449 T$(A)="":S$(B,AA)=N$
450 IFN$="fronds"THENGF=1
451 IFN$="fronds"ANDB>8ANDB<11THEN2008
458 GOTO40
460 IFB=30ANDD$="sto"ANDGH=0THENN$="stone":GOSUB2300:IFE=1THENGH=1:GOTO467
461 IFB=14ANDD$="art"ANDGP=0THENN$="artifact":GOSUB2300:IFE=1THEN468
465 GOTO2004
467 PRINTY$;:GOSUB2010:PRINT" i hear a noise..":GOSUB2013:T$(A)="":PC=PC+1:GOTO41
468 PRINTY$;:GOSUB2010:PRINT" i hear creaking chains..":GOSUB2013:T$(A)=""
469 PRINT"the cliff is moving..":GOSUB2013:GP=1:S$(14,6)="cave":PC=PC+1:GOTO41
470 IFB=10ANDD$="sta"THENB=30:GOTO40
471 IFB=30ANDD$="sta"THENB=10:GOTO40
472 IFB=11ANDD$="led"THENB=12:GOTO40
473 IFB=16ANDD$="ste"THENB=18:GOTO40
474 IFB=18ANDD$="ste"THENB=16:GOTO40
475 IFB=11ANDD$="tre"ANDGN<2THEN2015
476 IFB=11ANDD$="tre"ANDGN=2THENB=12:GOTO40
477 IFB=23ANDD$="rop"ANDHD=1THENB=25:HJ=0:GOTO40
478 IFB=25ANDD$="rop"THENB=23:HJ=5:GOTO40
480 GOTO2004
490 IFB=27ANDD$="che"ANDHE=0THENHE=1:PRINTY$:GOTO2040
495 GOTO2004
500 IFB=19ANDD$="rop"ANDGU=1ANDGV=0THENPRINT"ok i think i can...":GV=1:GOTO2040
502 IFB=19ANDD$="rop"ANDGU=1ANDGV=1THENPRINT"nearly there...":GV=2:GOTO2040
503 IFB=19ANDD$="rop"ANDGU=1ANDGV=2THENPRINT"that's it i'm free":GV=3:PC=PC+1:GT=1:GOTO2040
509 IFB=19ANDGT=0ANDGU=0ANDD$="rop"THEN511
510 GOTO2004
511 N$="crystal":GOSUB2300:IFE=0THEN513
512 IFE=1THENGU=1:GOTO500
513 N$="knife":GOSUB2300:IFE=0THEN510
514 GU=1:GOTO500
520 IFD$="rop"ANDHC=0THENN$="rope":GOSUB2300:IFE=1THEN525
524 GOTO2004
525 INPUT"{yellow}where{light blue}";CC$:IFLEFT$(CC$,3)<>"roc"THENPRINT"sorry":GOSUB2010:GOTO2040
526 N$="rock":GOSUB2300:IFE=0THEN2004
527 HC=1:PRINTY$:PC=PC+1:GOTO2040
530 N$="spade":GOSUB2300:IFE=0THENPRINT"nothing to dig with..":GOTO2040
531 IFB=4ANDGD=0THENN$="artifact":GD=1:PC=PC+1:GOTO2280
535 PRINT"ok i find nothing..":GOTO2040
540 IFD$="can"THENN$="canteen":GOSUB2300:IFE=1THEN545
544 GOTO2004
545 IFDF=0THENPRINT"sorry,it's empty..":GOTO2040
546 IFDF=1ANDB<4THENGB=0:DF=0:GA=1:PRINTY$:GOTO2040
547 IFDF=1THENDF=0:PRINTY$:GOTO2040
548 GOTO41
550 IFB=9ANDD$="lak"THEN2009
551 IFB=10ANDD$="lak"THEN2009
555 GOTO2004
560 IFD$="lam"ANDGQ=1THENPRINT"it's alight..":GOTO2040
561 IFD$="lam"THENN$="lamp":GOSUB2300:IFE=1THEN565
564 GOTO2004
565 N$="matches":GOSUB2300:IFE=0THEN2004
566 LL=LL+1:IFLL>4THENPRINT"sorry,its out of oil..":GOSUB2013:GOTO41
567 GQ=1:GOTO40
570 IFB=5ANDD$="pal"ANDGE=0THEN575
574 GOTO2004
575 PRINT"it trembles...";:GOSUB2013:PRINT"fronds start falling..":GOSUB2013
576 PRINT"{pink} bonk!!!{yellow}":GOSUB2013:PRINT"{clear}":GOSUB2012
577 GE=1:S$(5,6)="fronds":PC=PC+1:GOTO41
580 IFB=23ANDD$="rop"THENN$="rope":GOSUB2300:IFE=1THEN587
586 GOTO2004
587 IFHC=0THENPRINT"ok but i would keep it":T$(A)="":S$(B,6)="rope":GOSUB2013:GOTO2040
588 IFHC=1THENPRINT"ok up it goes..";:GOSUB2010:PRINT"and catches the window"
589 T$(A)="":S$(B,6)="rope":HD=1:GOSUB2013
590 FORA=1TO5:IFT$(A)="rock"THENT$(A)=""
591 NEXT:GOTO41
600 IFB=8ANDD$="isl"THENPRINT"i see a statue":GOTO2040
601 IFB=9ANDD$="lak"THENPRINT"what dirty,slimy water!":GOTO2040
602 IFB=10ANDD$="sta"THENPRINT"very ominous..":GOTO2040
603 IFB=30ANDD$="hol"THENPRINT"what a strange shape":GOTO2040
604 IFB=6ANDD$="hut"THENPRINT"it's your average grass & bark hut":GOTO2040
605 IFB=6ANDGJ=1ANDD$="man"THENPRINT"looks grubby to me":GOTO2040
606 IFB=16ANDD$="val"THENPRINT"i see a long white road there":GOTO2040
607 IFB=18ANDD$="nat"THENPRINT"mean,real mean":GOTO2040
608 IFB=19ANDD$="wal"THENPRINT"it's made of grass & mud":GOTO2040
609 IFB=22ANDD$="cit"THENPRINT"it's very old":GOTO2040
610 IFB=23ANDD$="win"THENPRINT"it's 3m above your head":GOTO2040
611 IFB=26ANDD$="doo"THENPRINT"i'm confused..":GOTO2040
612 IFB=28ANDD$="thr"THENPRINT"i see tall,regal skeletons":GOTO2040
613 IFB=29ANDD$="sta"THENPRINT"they're grotesque & dead i hope":GOTO2040
614 IFB=27ANDHF=1ANDD$="sta"THENPRINT"it's very dark there..":GOTO2040
615 IFB=27ANDD$="che"ANDHE=0THENPRINT"it's full of gems":GOTO2040
616 IFD$="art"THENN$="artifact":GOSUB2300:IFE=1THENPRINT"it's star shaped":GOTO2040
617 IFD$="cry"THENN$="crystal":GOSUB2300:IFE=1THENPRINT"it's very sharp":GOTO2040
618 IFB=10ANDGH=1ANDD$="hol"ANDHG=0THENN$="parchment":HG=1:GOTO2280
619 IFB=14ANDD$="cli"THEN2319
620 IFB=14ANDD$="led"THENPRINT"strange.footprints lead into the cliff":GOTO2040
621 IFB=25ANDD$="win"THENPRINT"a rope is there":GOTO2040
622 IFD$="par"THENN$="parchment":GOSUB2300:IFE=1THENPRINT"its part of the diary":GOTO2040
623 IFB=25ANDD$="urn"THENPRINT"it's full of oil":GOTO2040
630 PRINT"i see nothing of interest":GOTO2040
680 IFB=29ANDD$="doo"THENPRINT"the lion stirs";:GOSUB2013:PRINT"{space*2}and says..":GOTO685
684 GOTO2004
685 GOSUB2007:PRINT"{down}to pass my door you must answer my":PRINT"riddles.."
686 GOSUB2011:GOTO2400
690 IFD$="par"THENN$="parchment":GOSUB2300:IFE=1THENPRINTY$:GOSUB2010:GOTO2500
695 GOTO2004
710 IFB=19ANDGV=3ANDD$="wal"THENPRINT"ok but you're noisy":GX=1:S$(19,6)="hole":GOTO716
715 GOTO2004
716 GOSUB2013:GOTO41
750 IFB>3THEN757
752 IFGC>6THENN$="canteen":GOSUB2300:GOTO754
753 GOTO799
754 IFE=0THENPRINT"i should have brought water..":GOTO2040
755 PRINT"drink!":GOTO2040
757 IFGE=2THEN763
758 IFGC>45THENONGLGOTO760,760,761
759 GOTO799
760 PRINT"work on the palm":GOTO2040
761 PRINT"leave the water alone,it's slimy":O2040
763 IFGJ=1THEN773
764 IFGC<85THEN799
765 IFHW=1THEN768
766 PRINT"use the palm to get to the island":GOTO2040
768 IFGH=1THEN771
769 N$="stone":GOSUB2300:IFE=0THENPRINT"heed the old zulu":GOTO2040
770 PRINT"for god's sake...climb the statue!":GOTO2040
771 PRINT"read the diary!!!":GOTO2040
773 IFGP=1THEN782
774 IFGD=1THEN778
775 N$="shovel":GOSUB2300:IFE=0THENPRINT"if only i had a shovel":GOTO2040
776 PRINT"dig!!!":GOTO2040
778 ONGLGOTO779,779,780
779 PRINT"look at the cliff several times":GOTO2040
780 PRINT"place the star to open the way":GOTO2040
782 IFGT=1THEN786
783 IFB<18THEN799
784 IFB=19ANDGT=0THENPRINT"i must cut the ropes..":GOTO2040
786 IFGY=1ANDGZ<9THENPRINT"read in the tunnel,go to the lion":GOTO2040
788 IFB>19ANDGY=0ANDHC=0THENPRINT"tie the rope to something heavy":GOTO2040
799 PRINT"you're on your own here, bwana..":GOTO2040
800 IFB=30ANDD$="can"THENN$="canteen":GOSUB2300:IFE=1THEN810
801 IFB=25ANDD$="lam"THENN$="lamp":GOSUB2300:IFE=1THEN812
809 GOTO2004
810 IFGG=1THENPRINT"sorry it's full":GOTO2040
811 GG=1:PRINTY$:GOTO2040
812 LL=0:HK=0:PRINTY$:GOTO2040
890 GOSUB2020:PRINT"{clear}{light blue}insert blank tape{down}":PRINT"press any key{down}"
892 GETA$:IFA$=""THEN892
900 PRINT"{yellow}saving safari...{down}":POKES+24,0:SYS49421:U$=CHR$(13):OPEN2,8,2,"@0:twosave,s,w"
901 PRINT#2,B;U$;LL;U$;GJ;U$;GQ;U$;HK;U$;GA;U$;GB;U$;GE;U$;GK;U$;GM;U$;GW
902 PRINT#2,GY;U$;GZ;U$;HI;U$;HH;U$;PC;U$;GT;U$;GC;U$;GP;U$;GX;U$;GF;U$;HA
903 PRINT#2,HF;U$;HE;U$;GI;U$;HD;U$;GH;U$;GN;U$;HJ;U$;GU;U$;GV;U$;HC;U$;GD;U$;DF
904 PRINT#2,HG;U$;GG;U$;HZ;U$;GR;U$;HW;U$;TZ
905 FORA=1TO5:IFT$(A)=""THENT$(A)="*"
906 PRINT#2,T$(A):NEXT:FORA=1TO31:FORAA=1TO6
907 IFS$(A,AA)=""THENS$(A,AA)="*"
908 PRINT#2,S$(A,AA):NEXT:NEXT:CLOSE2
909 FORA=1TO5:IFT$(A)="*"THENT$(A)=""
910 NEXT:FORA=1TO31:FORAA=1TO6:IFS$(A,AA)="*"THENS$(A,AA)=""
911 NEXT:NEXT:GOTO30
2000 GETA$:IFA$=""THEN2000
2001 IFA$<>"y"ANDA$<>"n"THEN2000
2002 RETURN
2003 PRINT"sorry,no effect...":GOTO2040
2004 PRINT"sorry can't do that...":GOTO2040
2005 IFZ$="go"THENC$="go ":RETURN
2006 C$=LEFT$(Z$,3):RETURN
2007 GOSUB2011:PRINT"{up}";:PRINTB$:PRINT"{up*2}";:RETURN
2008 PRINT"ok they float on the water..":GOTO2040
2009 PRINTY$;:GOSUB2013:PRINT" you feel sharp little teeth on":PRINT"your flesh":GOTO2210
2010 FORH=1TO750:NEXT:RETURN
2011 FORH=1TO2000:NEXT:RETURN
2012 FORH=1TO4000:NEXT:RETURN
2013 FORH=1TO1000:NEXT:RETURN
2015 PRINTY$;:GOSUB2010:PRINT"{pink} snap!! the branch breaks":GOSUB2013
2017 PRINT"{clear}":GOSUB2012:GN=GN+1:GOTO41
2020 FORA=0TO16:POKEV+A,0:NEXT:POKEV+21,0:POKEV+27,0:POKEV+23,0:POKEV+29,0:RETURN
2030 PRINT"i can go ";
2031 IFR$(B,1)=""THEN2037
2032 FORA=1TO2:IFR$(B,A)="n"THENPRINT"north.";
2033 IFR$(B,A)="s"THENPRINT"south.";
2034 IFR$(B,A)="e"THENPRINT"east.";
2035 IFR$(B,A)="w"THENPRINT"west.";
2036 NEXT:GOTO2040
2037 PRINT"nowhere obvious..":GOTO2040
2040 GOSUB2013:PRINT"{home}{down*15}":FORA=1TO8:PRINTB$:NEXT:GOTO71
2059 GOSUB2020:ZB=0:PRINT"{clear}"SPC(8)"{yellow}{cm @*20}"
2060 PRINTSPC(7)"{reverse on}{brown}{sh pound}{yellow} i have in my pack..":PRINTSPC(7)"{brown}{reverse on}{space*20}{reverse off}{sh pound}"
2061 PRINT"{down*2}{yellow}":FORA=1TO5:IFT$(A)="*"THENT$(A)=""
2062 IFT$(A)=""THEN2064
2063 PRINT"{right*5}"T$(A):ZB=ZB+1:PRINT
2064 NEXT:IFZB>0THEN2068
2065 IFZB=0THENPRINT"{home}{down*12}{right}{brown}{reverse on}{sh pound}{yellow} nothing bar the maker's label {right}{brown}{sh pound}{yellow} {right}{brown}{sh pound}{yellow} "
2066 PRINT"{right}{brown}{reverse on}{space*31}{reverse off}{sh pound}{right}{reverse on} {reverse off}{sh pound}{right}{reverse on} {reverse off}{sh pound}"
2068 PRINT"{down*2}{right*3}{brown}{reverse on}{sh pound}{yellow} i can carry five items only {right*2}{brown}{sh pound}{yellow} "
2069 PRINT"{right*3}{brown}{reverse on}{space*29}{reverse off}{sh pound}{right*2}{reverse on} {reverse off}{sh pound}"
2070 GOSUB2012:GOTO41
2090 PRINT"{down}{light blue}the natives are back";:GOSUB2013:PRINT"...with their {pink}knives{yellow}":GOSUB2011
2091 PRINT"{down}gulp!!!":GOSUB2013:GOTO2210
2094 PRINT"{down}{pink}you are caught!":GOSUB2013
2095 PRINT"{down}{pink}here comes that {reverse on} heart transplant ":GOSUB2011:GOSUB8020:GOTO2210
2097 PRINT"{clear}{light blue}insert & rewind save game tape{down}":PRINT"{yellow}press any key{down}"
2098 GETA$:IFA$=""THEN2098
2100 PRINT"{clear}{yellow}restoring saved safari...{down}":OPEN2,8,2,"twosave,s,r"
2102 INPUT#2,B,LL,GJ,GQ,HK,GA,GB,GE,GK,GM,GW,GY,GZ,HI,HH,PC,GT,GC,GP,GX
2103 INPUT#2,GF,HA,HF,HE,GI,HD,GH,GN,HJ,GU,GV,HC,GD,DF,HG,GG,HZ,GR,HW,TZ
2104 FORA=1TO5:INPUT#2,T$(A):IFT$(A)="*"THENT$(A)=""
2105 NEXT:FORA=1TO31:FORAA=1TO6:INPUT#2,S$(A,AA)
2106 IFS$(A,AA)="*"THENS$(A,AA)=""
2107 NEXT:NEXT:CLOSE2:IFB>0THEN30
2108 GOSUB2156:GOTO28
2110 PRINTY$:GOSUB2010:GOSUB2020:PRINT"{clear}"
2111 POKESB,PEEK(SB)OR16:PRINT"{clear}{down*15}{yellow}i am in a very dark place.{down*2}"
2112 OO$="":INPUT"{light blue}>";OO$
2113 JJ$=LEFT$(OO$,3):IFJJ$="lig"THEN2120
2114 IFGR=5THENPRINT"{down}whoooops! a bottomless p i{space*2}t .{space*2}.":GOSUB2013:GOTO2210
2116 PRINT"{down}sorry,can't operate too well in the dark":GR=GR+1:GOSUB2013:GOTO2111
2120 JK$=MID$(OO$,7,3):IFJK$="lam"THEN2122
2121 GOTO2116
2122 N$="lamp":GOSUB2300:IFE=0THEN2116
2123 N$="matches":GOSUB2300:IFE=0THEN2116
2124 IFB=2ANDHJ=5THENB=15:GQ=1:GOTO40
2125 IFB=1THENB=27:GQ=1:GOTO40
2126 IFB=2THENB=28:GQ=1:GOTO40
2127 IFB=3THENB=16:GQ=1:GOTO40
2150 II=0:PRINT"{yellow}i see ";:FORA=1TO6:IFS$(B,A)="*"THENS$(B,A)=""
2151 IFS$(B,A)=""THEN2153
2152 PRINTS$(B,A)".";:II=II+1:IFII=4THENPRINT
2153 NEXT:GOTO2040
2156 GL=2:DF=1:T$(1)="canteen":T$(2)="amulet":T$(3)="stone":T$(4)="matches"
2157 T$(5)="spade":RETURN
2160 REM
2162 IFN$="fro"THENN$="fronds":RETURN
2163 IFN$="rop"THENN$="rope":RETURN
2164 IFN$="art"THENN$="artifact":RETURN
2165 IFN$="lam"THENN$="lamp":RETURN
2166 IFN$="spa"THENN$="spade":RETURN
2167 IFN$="can"THENN$="canteen":RETURN
2168 IFN$="cry"THENN$="crystal":RETURN
2169 IFN$="roc"THENN$="rock":RETURN
2170 IFN$="par"THENN$="parchment":RETURN
2172 IFN$="tor"THENN$="torch":RETURN
2173 IFN$="mat"THENN$="matches":RETURN
2174 IFN$="jew"THENN$="jewel":RETURN
2175 IFN$="com"THENN$="compass":RETURN
2176 IFN$="mac"THENN$="machete":RUN
2178 IFN$="amu"THENN$="amulet":RETURN
2179 IFN$="kni"THENN$="knife":RETURN
2180 IFN$="sce"THENN$="sceptre":RETURN
2181 IFN$="dia"THENN$="diary":RETURN
2182 IFN$="peb"THENN$="pebble":RETURN
2183 IFN$="sto"THENN$="stone":RETURN
2184 IFN$="bin"THENN$="binoculars":RETURN
2185 IFN$="med"THENN$="medicines":RETURN
2186 IFN$="pic"THENN$="pick":RETURN
2187 IFN$="bea"THENN$="beads":RETURN
2188 IFN$="rat"THENN$="rations":RETURN
2190 RETURN
2206 GOSUB2011:GOTO2210
2210 GOSUB2011:FORA=0TO24:POKES+A,0:NEXT:GOSUB2020:POKE53280,0:POKE53281,0:GOSUB7002
2211 POKES+5,136:POKES+6,136:POKES+24,15:POKES+1,4:POKES,208:POKES+4,33:GOSUB2013
2212 POKES+1,3:POKES,210:GOSUB2013:POKES+1,3:POKES,54:GOSUB2013
2213 FORA=15TO0STEP-1:POKES+24,A:FORH=1TO100:NEXTH,A:POKES+4,0:PC=PC*5:PC=PC+49
2215 GOSUB2020:POKE53280,0:PRINT"{clear}{reverse off}{down*4}"SPC(7)"{yellow}you have played"GC"moves{down}"
2216 PRINTSPC(8)"{light blue}and completed"PC"% of{down*2}"
2217 PRINT"{right*9}{pink}king solomon's mines{down*4}":PRINTSPC(11)"play again{space*2}y/n"
2218 GETA$:IFA$=""THEN2218
2219 IFA$<>"y"ANDA$<>"n"THEN2218
2220 IFA$="y"THENRUN
2221 SYS64738
2222 FORH=1TO400:NEXT:PRINT"{home}{down*2}":FORA=1TO9:PRINTB$:NEXT:PRINT"{down*7}"
2223 PRINT"{pink}wind blows the lamp out!":GOSUB2007:GQ=0:GOTO160
2230 PRINT"{down}{pink}it grows very dark as the tall,mad":PRINT"natives surround you..":GOSUB2012
2231 GOSUB8000:GOSUB8005:GOSUB8010
2232 GOSUB2020:PRINT"{clear}{down*3}{yellow}you are captured!!!{down*2}":GOSUB2011:PRINT"they tie you up...{down*4}"
2233 GOSUB2011:PRINT"{pink}these natives are {reverse on} heart hunters! ":GOSUB2011
2237 PRINT"{light blue}{down*2}they intend to cut out your heart!{down*3}":GOSUB2012
2238 PRINT"while they sharpen their knives, they":PRINT"{down}throw you in a hut."
2239 GOSUB2012:GOSUB8020:B=19:GOTO41
2280 PRINTY$;:GOSUB2010:PRINT" i see "N$
2281 FORA=1TO6:IFS$(B,A)=""THENS$(B,A)=N$:GOTO2040
2282 NEXT:GOTO2040
2300 E=0:FORA=1TO5:IFT$(A)=N$THENE=1:RETURN
2301 NEXT:RETURN
2302 E=0:FORA=1TO6:IFS$(B,A)=N$THENE=1:RETURN
2303 NEXT:RETURN
2319 IFGP=1THENPRINT"i see a cave":GOTO2040
2320 A=INT(RND(1)*3)+1:ONAGOTO2321,2322,630
2321 PRINT"i see strange markings":GOTO2040
2322 PRINT"what's this! a star-shaped hollow":GOTO2040
2350 INPUT"which door 1-4";A$
2351 A=VAL(A$):IFA<0ORA>4THENPRINT"{up}";:PRINTB$:PRINT"{up}";:GOTO2350
2352 ONAGOTO2360,2365,2380,2355
2355 B=27:GOTO40
2360 PRINTY$:GOSUB2010:PRINT"{clear}":POKE53280,2:POKE53281,2:PRINT"{down*9}{white}"
2361 PRINTSPC(12)"splotttt!!{down*2}":GOSUB2010
2362 PRINT" even your asbestos undies won't help{down}"
2363 PRINT"{space*4}in this room full of lava!!":GOSUB2011:GOTO2210
2365 PRINTY$:GOSUB2010:PRINT"{clear}":GOSUB9900
2370 PRINT"{home}{down*2}{light blue}"SPC(6)"aaagggghhh h h h{space*3}hh !!!{down*2}":GOSUB2013
2372 PRINTSPC(9)"this is the pits!!!{down*2}":GOSUB2010
2373 PRINT"{space*3}you have fallen in a pit full of{down*2}":PRINTSPC(12)"poison spikes"
2374 GOSUB2012:GOTO2210
2380 PRINTY$:GOSUB2010:PRINT"{clear}"
2381 DT$="{pink}CC>":PRINT"{home}{down*3}":FORA=1TO18:PRINTDT$;:FORH=1TO20:NEXT:PRINT"{left*3}{space*4}{left*2}";:NEXT:PRINTDT$
2385 PRINT"{home}{light blue}{down*12}"SPC(9)"zwwaaaannngggg!!!!":GOSUB2013
2386 PRINT"{space*5}{down*2}a poison dart pierces you!":GOSUB2011:GOTO2210
2400 HI=1:GOSUB9100:PRINT"{right}{light blue}";CHR$(34);"i am not in youth nor old age"
2401 PRINT"{right*4}but in infancy i am known":PRINT"{right*2}i'm a stranger to fool & sage"
2402 PRINT"{right*2}yet ever am i greatest alone";CHR$(34)
2404 INPUT"{down*2}{yellow}>";RA$
2405 IFLEFT$(RA$,1)<>"i"THENPRINT"{down}wrong,my witless friend":HH=HH+1:GOSUB2011:GOTO41
2410 PRINT"{down}a lucky guess..now try this one":GOSUB2011
2412 GOSUB9100:PRINT"{right}{light blue}";CHR$(34);"i'm stronger than any empire"
2413 PRINT"{right*6}king,army or town":PRINT"{right*4}i eat rocks,chew steel"
2414 PRINT"{right*2}and grind tall mountains down":PRINT"{right*2}and yet kind to the young...";
2415 PRINTCHR$(34):INPUT"{down}{yellow}>";RA$
2417 IFLEFT$(RA$,4)<>"time"THENPRINT"{down}wrong.my pets are stirring":HH=HH+1:GOSUB2011:GOTO41
2419 GOSUB8000:GOSUB8005:GOSUB8010
2420 PRINT"{down}well done my friend.you have earned":PRINT"entry here,but beware"
2422 GOSUB2011:GOSUB2011:GOSUB2020
2450 PRINT"{clear}{down*3}{right*9}{yellow}you have found and{down}":PRINTSPC(9)"opened the door to{down}"
2451 PRINT"{light blue}{right*8}king solomon's mines{down*3}":GOSUB2012
2452 PRINT"{pink}{right*3}are you brave enough to enter ??{down*3}":GOSUB2012
2453 PRINTSPC(14)"{yellow}look for{down}":PRINTSPC(8)"{light blue}king solomon's mines{down}"
2454 PRINTSPC(14)"adventure{space*2}ii":FORH=1TO20000:NEXT:GOSUB8020:SYS64738
2500 PRINT"{clear}{yellow}";:GOSUB2020:PRINTCHR$(9):PRINTCHR$(14):POKE53280,7:POKE53281,9:GJ=1
2520 PRINT"{down*3}{right}JUNE 12 ..Met old man in the hills.":PRINTSPC(12)"Proved helpful in";
2521 PRINT" crossing":PRINTSPC(12)"the Mountains.{down*2}"
2522 PRINT" JULY{space*2}2 ..Out of the Mountains.Native":PRINTSPC(12)"village here with TALL"
2523 PRINTSPC(12)"peole.WATCH THEM..DON'T":PRINTSPC(12)"lose HEART!{down*2}"
2524 PRINT"{right}JULY 22 ..The Four Doors..Which one?":PRINTSPC(12)"That's it! The sign above"
2525 PRINTSPC(12)"{down}If only I could under-":PRINTSPC(12)"stand riddles..."
2528 FORH=1TO16000:NEXT:PRINT"{clear}":PRINTCHR$(142):PRINTCHR$(8):POKE53280,0:POKE53281,0:GOTO41
3004 PRINT"{clear}{dark gray} {reverse on}{space*12}{reverse off}{cm k}{space*3}{reverse on}{sh pound}{space*9}N{space*10}"
3006 PRINT" {reverse on}{space*12}{cm m}{reverse off}{space*3}{reverse on}{space*9}{110}{space*11}"
3008 PRINT" {reverse on}{space*13}{127}{sh pound}{space*9}{cm m}{space*12}"
3010 PRINT" {reverse on}{space*7}{109}{space*6}{cm g}{space*9}{125}{space*12}"
3012 PRINT" {reverse on}{space*8}{103}{space*5}{103}{space*9}{103}{space*12}"
3014 PRINT" {reverse on}{space*8}{104}{space*5}{104}{space*9}{cm g}{space*12}"
3016 PRINT" {reverse on}{space*8}{cm m}{space*5}{cm m}{space*8}{cm m}{space*13}"
3018 PRINT" {reverse on}{space*9}{109}{space*5}{cm h}{space*7}{110}{space*13}"
3020 PRINT" {cm u}{cm y}{reverse on}{cm p*4}{cm i}{cm p*2}{sh @}{space*5}{109}{cm p*3}{space*3}{110}{space*14}"
3022 PRINT" {reverse on}{112}{cm y}{reverse off}{cm i}{cm o*2}{cm i}{cm o*2}{space*2}{127}{reverse on}{cm p}{space*3}{cm m}{reverse off}{space*4}{cm u*2}{reverse on}{108}{cm p*3}{cm o}{cm i*2}{cm o}{cm p*2}{110}{cm y}{111}{101*2}"
3024 PRINT" {reverse on} {109}{space*8}{112}{reverse off}{space*15}{reverse on}{sh pound}{cm y*5} {110}{space*3}"
3026 PRINT" {reverse on}{space*2}{cm g}{space*8}{111}{cm y}{112}{cm y*2}{cm u*3}{cm y*7}{109}{space*6}{cm g}{space*3}"
3028 PRINT" {reverse on}{space*2}{103}{space*7}{110}{space*3}{109}{space*11}{104}{space*5}{110}{space*4}"
3030 PRINT" {reverse on}{space*2}{104}{space*7}{cm g}{space*4}{103}{space*10}{125}{space*10}"
3032 PRINT" {reverse on}{space*3}M{space*6}M{space*5}M{space*9}{cm g}{space*10}":IFB=11THEN3502
3033 GOTO70
3050 PRINT"{clear}{brown}";
3052 PRINT" {109}{space*7}{109}{light blue}{127}{reverse on}{space*2}{white}{space*3}{cm l}{light blue}{space*6}{white}{space*15}"
3054 PRINT"{space*2}{brown}{cm g}{space*7}{109}{light blue}{127}{sh pound}{white}{127}{reverse on}{space*3}{127}{light blue}{space*4}{reverse off}{sh pound}{reverse on}{white}{space*15}"
3056 PRINT"{space*2}{brown}{109}{space*2}{109}{space*5}{109}{space*2}{white}{cm y}{127}{reverse on} {reverse off}{sh pound}{light blue}{127}{reverse on}{space*2}{reverse off}{sh pound} {white}{127}{reverse on}{space*11}{cm o}{cm i} "
3058 PRINT"{space*6}{brown}{109}{space*4}{cm n}{space*7}{light blue}{cm u}{dark gray}{110}{space*3}{white}{127}{sh pound}{space*3}{127}{reverse on}{space*4}{reverse off}{sh pound}{space*2}{127}"
3060 PRINT"{space*7}{brown}{cm g}{space*4}{103}{space*6}{dark gray}{cm n}{space*10}{white}{127}{reverse on}{cm o}{cm i}{reverse off}{sh pound}"
3062 PRINT"{space*7}{brown}{103}{space*4}{104}{space*6}{dark gray}{110}"
3064 PRINT"{space*7}{brown}{103}{space*4}{cm m}{space*5}{dark gray}{110}"
3066 PRINT"{space*7}{brown}{104}{space*5}{cm h}{space*3}{dark gray}{cm n}{space*19}{110}"
3068 PRINT"{space*7}{brown}{cm n}{space*5}{109}{space*3}{dark gray}{104}{space*18}{103}"
3070 PRINT"{space*8}{brown}{cm g}{space*5}{108}{space*2}{dark gray}{cm g}{space*18}{cm h}"
3072 PRINT" {brown}{cm g}{space*6}{109}{space*5}{109}{cm y}{100*2}{099}{102}{space*15}{dark gray}{110}"
3074 PRINT" {brown}{109}{space*7}{109}{cm p}{102*2}{100}{101}{space*5}{109}{space*13}{dark gray}{110}"
3076 PRINT" {brown}{cm p}{102*2}{099}{100}{101*2}{cm y*2}{space*11}{109}{blue}{cm i*2}{cm o}{cm p}{cm @}{space*6}{dark gray}{110}"
3078 PRINT"{space*18}{brown}{cm o*3}{cm i}{reverse on}{127}{reverse off} {green}{113}{blue}{cm y}{cm u}{reverse on}{cm o}{cm p}{cm y}{cm u*2}{reverse off}{cm o}{cm @}"
3080 PRINT"{space*13}{brown}{cm p}{cm o*2}{reverse on}{109} {cm h}{space*4}{reverse off}{space*5}{green}{113}{blue}{cm y}{reverse on}{sh pound}{space*3}{reverse off} {green}{113}"
3081 POKEV+21,7:POKEV+39,14:POKEV+40,14:POKE2040,33:POKE2041,34:POKEV,208:POKEV+1,50
3082 POKEV+2,152:POKEV+3,50:POKEV+41,14:POKE2042,33:POKEV+4,127:POKEV+5,50
3083 IFB=1ANDGP=0THENB=B+13:GOTO70
3084 IFB=13THEN3100
3085 IFB=1ANDGP=1THENPRINT"{home}{down*7}{right*3}{gray}{reverse on}{sh pound} {cm u}{cm asterisk}{down}{left*4}{space*4}{down}{left*4}{cm h}{space*3}{reverse off}{cm j}";
3086 PRINT"{down}{left*5}{reverse on}{cm j}{space*3}{cm m}{down}{left*5}{cm k}{space*4}{down}{left*5}{reverse off}{brown}{cm x} {gray}{cm t}{cm y}{cm t}":B=B+13:GOTO70
3100 PRINT"{home}{brown}";
3102 PRINTSPC(31)"{reverse on}{space*7}"
3104 PRINTSPC(30)"{reverse on}{space*8}"
3106 PRINTSPC(29)"{reverse on}{space*9}"
3108 PRINTSPC(26)"{cm d}{reverse on}{space*11}"
3110 PRINTSPC(26)"{reverse on}{space*11}N"
3112 PRINTSPC(25)"{cm l}{reverse on}{space*10}N "
3114 PRINTSPC(24)"{cm d}{reverse on}{space*10}{cm h}{space*2}"
3116 PRINTSPC(23)"{cm l}{reverse on}{space*4}G{space*5}G{space*3}"
3118 PRINTSPC(22)"{cm d}{reverse on}{space*4}N{space*5}N{space*4}"
3120 PRINTSPC(21)"{reverse on}{cm k}{space*4}N{space*6}{cm g}{space*4}"
3122 PRINTSPC(21)"{reverse on}{cm j}{space*4}{cm g}{space*5}N{space*5}"
3124 PRINTSPC(21)"{reverse on}{space*4}{sh -}{space*5}{cm m}{space*6}"
3126 PRINTSPC(16)"{cm d}{reverse on}{space*8}{cm g}{space*5}{cm m}{space*6}"
3128 PRINTSPC(14)"{reverse on}{sh pound}{space*9}N{space*6}N{space*6}"
3130 PRINTSPC(13)"{reverse on}{sh pound}{space*9}N{space*6}N{space*7}":GOTO70
3132 PRINT" {cm @}{cm o}{cm i*3}{reverse on}{cm u}{cm y*2}{space*3}N{space*17}{cm g}{space*7}":GOTO70
3150 PRINT"{clear}{light blue}";
3152 PRINT" {cm y}{cm u*3}{reverse on}{cm i}{cm p}{space*2}{cm @}{cm o}{cm i*2}{reverse off}{cm u}{cm y*2}{cm t*3}{reverse on}{space*5}{cm -}{space*6}{reverse off}{sh pound}"
3154 PRINT"{space*7}{dark gray}{109}{space*11}{reverse on}{light blue}{cm h}{space*3}{reverse off}{sh pound}{cm y}{127}{reverse on}{cm i}{cm o}{cm i}{reverse off}{cm y}{cm t}"
3156 PRINT"{space*7}{dark gray}{cm m}{space*12}{reverse on}{light blue}{space*2}{reverse off}{sh pound} {dark gray}{125} {109}"
3158 PRINT"{space*8}{cm g}{space*11}{light blue}{127}{sh pound}{space*2}{dark gray}{113}{space*2}{109}"
3160 PRINT"{space*8}{103}{space*11}{110}{space*2}{111}{reverse on}{cm h}."
3162 PRINT"{space*8}{109}{space*10}{110}{space*3}{cm g}{reverse on}{cm h}."
3164 PRINT"{space*9}{cm g}{space*13}{cm g}{reverse on}{cm h}.{reverse off}{space*2}{117}{099*2}{105}"
3166 PRINT"{space*13}{111}{reverse on}{space*3}{reverse off}{space*6}{cm g}{reverse on}{cm h} {reverse off} {111}{cm y*2}{reverse on}{space*3}"
3168 PRINT"{space*13}{cm g}{reverse on} {113} {reverse off}{space*4}{111}{cm y}{cm g}{reverse on}{cm h}.{reverse off} {cm g}{space*2}{reverse on}{space*4}"
3170 PRINT"{space*13}{cm g}{reverse on}{cm o*3}{reverse off} {111}{cm y*2}{113*2} {reverse on} {reverse off}{cm u*2}{space*4}{cm i*5}"
3172 PRINT"{space*10}{111}{cm y*2}{space*2}{reverse on}{cm p*5}{reverse off}{space*4}{reverse on} {cm h*3} {reverse off}{space*2}{reverse on}{space*2}{123}{space*2}"
3174 PRINT"{space*5}{111}{cm y}{reverse on}{cm j}{reverse off} {111}{space*3}{cm t*3}{reverse on}{space*7}{reverse off} {reverse on} {reverse off}{space*6}{reverse on}{space*5}"
3176 PRINT"{space*7}{reverse on}{cm h}{reverse off} {cm g}{cm j*3} {reverse on}{cm o}{reverse off} {reverse on}{cm o*7}{reverse off} {reverse on}{cm @}{reverse off}{space*6}{reverse on}{cm @*5}"
3178 PRINT"{space*4}{reverse on}{cm j}{reverse off}{space*2}{reverse on} {reverse off}{111}{space*4}{cm y*4}{reverse on}{space*2}....{space*4}.....{space*2}..{space*2}"
3180 PRINT" {green}{cm i*2}{reverse on}{dark gray}{sh pound} {reverse off}{green}{cm p}{reverse on}{dark gray}{sh pound} {reverse off}{cm g}{space*2}{green}{cm @*3}{cm p*3}{reverse on}{dark gray}{space*16}{cm o*4}{cm i}"
3182 PRINT" {green}{cm u*3}{cm y*6}{cm t*4}{cm y}{cm u*9}{cm y*3}{cm t}{cm u*3}{cm t*3}{cm y*4}":B=B+13:GOTO70
3200 PRINT"{clear}{brown}";
3202 PRINT" {reverse on} {light blue}{space*36}"
3204 PRINT" {reverse on}{brown} {reverse off}{cm k}{reverse on}{light blue}{space*21}{reverse off}{sh pound}{space*2}{cm t}{cm y} {127}{reverse on}{space*5}{reverse off}{brown}{cm d}{reverse on} "
3206 PRINT" {reverse on}{space*2}{light blue}{space*10}{reverse off}{sh pound}{cm t}{space*2}{cm u}{cm t*2}{cm y}{cm t}{cm y}{gray}{110}{space*7}{light blue}{cm y}{cm u}{cm t*2} {reverse on}{brown}{space*2}"
3208 PRINT" {reverse on}{space*2}{reverse off}{cm j}{light blue}{cm y}{127}{reverse on} {reverse off}{sh pound}{cm t}{cm y}{cm t} {cm u}{space*8}{gray}{110}{cm y}{space*12}{brown}{cm d}{reverse on}{space*2}"
3210 PRINT" {reverse on}{space*3}{reverse off}{space*2}{gray}{109}{space*13}{cm m}{space*13}{brown}{cm f}{reverse on}{space*3}"
3212 PRINT" {reverse on}{space*3}{reverse off}{cm f}{space*2}{gray}{109}{space*12}{110}{space*13}{reverse on}{brown}{space*4}"
3214 PRINT" {reverse on}{space*4}{reverse off}{space*3}{gray}{109}{space*24}{brown}{cm n}{reverse on}{space*3}{104}"
3216 PRINT" {reverse on}{104}{space*3}{reverse off}{cm g}{space*27}{reverse on}{cm j}{space*3}{103}"
3218 PRINT" {reverse on} {109}{space*2}{reverse off}{cm j}{light gray}{cm @}{blue}{cm @}{space*4}{green}{113}{space*12}{113}{space*6}{brown}{cm d}{reverse on}{space*3}{cm m}{110}"
3220 PRINT" {reverse on}{space*2}{109}{space*2}{reverse off}{blue}{cm t}{light gray}{cm y}{cm u}{cm i}{cm o}{cm p}{space*10}{green}{113} {113}{space*7}{reverse on}{brown}{space*4}{110} "
3222 PRINT" {reverse on}{space*3}{103} {reverse off}{cm f}{space*3}{light gray}{cm u*3}{reverse on} {cm u}{reverse off}{cm o}{space*15}{brown}{cm m}{reverse on}{space*3}{104}{space*2}"
3224 PRINT" {reverse on}{space*3}{104}{space*2}{reverse off}{space*2}{green}{113*2}{space*4}{light gray}{cm y}{cm u}{reverse on} {cm t}{cm y}{cm u}{reverse off}{cm i}{cm @}{space*5}{green}{113*2} {brown}{cm l}{reverse on}{space*3}{103}{space*2}"
3226 PRINT" {reverse on}{space*3}{cm n}{space*3}{reverse off}{space*2}{orange}{cm @}{cm p*2}{cm o}{cm i*2} {cm o}{cm i}{cm o}{cm p}{light gray}{cm u}{orange}{cm @}{cm p}{cm @}{cm p}{cm @}{space*3}{brown}{cm d}{reverse on}{space*4}{cm h}{space*2}"
3228 PRINT" {reverse on}{space*4}{109} {orange}{cm h}{space*19}{cm u}{reverse off}{cm o}{cm @}{reverse on}{brown}{space*4}{110}{space*3}"
3230 PRINT" {reverse on}{space*5}{orange}O{space*22}{cm m}{brown}{space*3}N{space*4}":B=B+13:GOTO70
3300 FORA=1TO6:PRINT"{reverse on}{light blue}{space*37}":NEXT
3301 FORA=1TO8:PRINT"{reverse on}{yellow}{space*37}":NEXT
3302 A=INT(RND(1)*2)+1:ONAGOTO3303,3304
3303 PRINT"{home}{down*6}{yellow}{reverse on}{cm t*2}{cm y}{cm u}{cm y}{cm u}{cm y*3}{cm t*2}{cm y}{cm u*5}{cm y*2}{cm u}{cm y}{cm t}{space*3}{cm y}{cm u}{cm t}{cm u}{cm y*2}{cm t}{cm u*3}{cm y}":GOTO3306
3304 PRINT"{home}{down*6}{yellow}{reverse on}{space*3}{cm t*2}{cm y*3}{cm u*2}{cm y}{cm t} M{cm p}{cm @} {cm t*3}{cm y*2}{cm u*5}{cm y*3}{cm t}{cm y}{cm t*3}{cm y}"
3306 A=INT(RND(1)*2)+1:ONAGOTO3307,3309
3307 PRINT"{home}{down*7}{reverse on}{right*6}Q.{down}Q{down*3}{right*4}..Q{up}{right}QQ{down*2}Q{right*3}.QQ{up}{right}.{up}Q":GOTO3312
3309 PRINT"{home}{down*8}{right*5}{reverse on}{cm t*2}EDDDCCF{cm p*3}{cm @*2}{down*2}{left}FFCCCDECFFCDE"
3312 IFB=4THENPOKEV+21,1:POKEV+39,7:POKE2040,35:POKEV+29,1:POKEV,180:POKEV+1,80
3313 IFB<>5THEN3320
3314 IFB=5THENPOKEV+21,1:POKEV+39,0:POKEV+29,1:POKEV+23,1:POKE2040,36
3315 POKEV,27:POKEV+1,75
3320 GOTO70
3340 PRINT"{down*5}"SPC(13)"{dark gray}{reverse on}{space*2}{cm y*2}{reverse off}{cm i}{cm o}{cm i}{reverse on}{space*3}{down}{left*9} Q{space*7}"
3341 PRINTSPC(13)"{reverse on}{cm h}{space*8}{down}{left*9}{space*9}{down}{left*10}{sh pound}{space*9}{cm l}"
3342 PRINTSPC(11)"{reverse on}{sh pound}{space*7}{cm y}P{space*2}{down}{left*12}{space*9}{cm m}{space*2}":B=B+26:GOTO70
3350 IFGQ=0THENB=B+13:GOTO70
3351 IFGQ=1THENPRINT"{home}{down*2}"
3352 PRINT"{dark gray}{space*3}lio n i{down}s{space*2}the{space*2}w a y{down}":PRINT"{space*4}lion{space*3}is {down}the{space*2}exit"
3353 PRINT"{down*3}{space*8}treat{space*2}h{up}im{space*2}kindly..":B=B+13:GOTO70
3360 GOSUB3850:GOSUB3860:POKEV+21,1:POKEV+39,7:POKE2040,40
3361 POKEV,60:POKEV+1,105:GOTO70
3380 GOSUB3850:GOSUB3860
3381 POKEV+21,7:POKEV+29,7:POKEV+39,2:POKEV+40,7:POKEV+41,13
3382 FORA=2040TO2042:POKEA,41:NEXT:POKEV+27,7:POKEV,60:POKEV+1,105
3383 POKEV+2,190:POKEV+3,108:POKEV+4,236:POKEV+5,106
3385 GOTO70
3390 GOSUB3870
3391 PRINT"{home}{down*5}{dark gray}{reverse on} P{cm k}{reverse off}{cm f}":PRINT"{reverse on}{space*2}{cm j} ":PRINT"{reverse on}{space*2}{cm h}{space*2}{reverse off}{cm f}":PRINT"{reverse on}{space*2}P{cm @}{space*2}":PRINT"{reverse on}{space*4}{cm h} P"
3392 B=B+13:GOTO70
3400 POKEV+21,1:POKEV+39,6:POKEV+29,1:POKEV+23,1:POKE2040,37
3401 POKEV,155:POKEV+1,90
3402 PRINT"{clear}{light blue}";
3404 FORA=1TO3:PRINT" {reverse on}{space*37}":NEXT
3412 PRINT" {reverse on}{cm p}{cm o}{yellow}{111}{cm t*3}{space*8}{cm t}{cm y}{cm u}{cm y}{cm t}{space*10}{cm t}{cm y}{cm t}{112}{light blue}{cm o}{cm @*2} "
3414 PRINT" {reverse on}{yellow}{space*2}{109}{space*4}{125}{space*6}{109}{110}{space*12}{110}{space*2}{cm m}{space*5}"
3416 PRINT" {reverse on}{space*3}{cm g}{space*3}{104}{space*7}{cm h}{space*12}{cm h}{space*2}{104}{space*3}{110} "
3418 PRINT" {reverse on}{109}{space*2}{109}{space*3}{cm m}{space*7}{103}{space*11}{104}{space*3}{110}{space*3}{cm h} "
3420 PRINT" {reverse on} {cm y}{109} {cm o}{reverse off}{cm y}{cm u}{cm y}{cm t*2}{sh space}{cm y*4}{cm u*2}{cm y}{cm t*2}{space*8}{cm t}{cm y*2}{cm u*2}{reverse on}{cm i}{cm o}{space*2}"
3422 PRINT" {reverse on}{space*2}{reverse off}{cm v}{space*32}{cm c}{reverse on} "
3424 PRINT" {reverse on} {reverse off}{orange}{space*9}{cm @}{cm p}{reverse on}{cm u}{cm y}{space*9}{cm t}{cm y}{cm u}{reverse off}{cm o}{cm p}{cm @*2}{space*5}{yellow} {cm c}"
3426 PRINT" {cm h}{orange}{space*14}{cm t}{cm y*2}{cm u}{cm t*2}{yellow}"
3428 PRINT" {cm f}{space*35}{cm d}"
3430 PRINT" {reverse on} {reverse off}{cm i}{space*34}{reverse on} "
3432 PRINT" {reverse on}{space*3}{reverse off}{cm f}{space*30}{cm d}{reverse on}{space*2}"
3434 PRINT" {reverse on}{space*4}{cm t}{cm y*6}{cm u*4}{reverse off}{cm i}{cm o}{cm p*2}{cm @}{cm p}{cm i*4}{reverse on}{cm u}{cm y*4}{cm t*2}{space*5}":IFB=8THENGOTO70
3435 PRINT"{home}{down*11}{right}{brown}{reverse on} {cm y*2}{cm u}{reverse off}{cm o}{right*25}{cm p}{cm o*5}{reverse on} "
3436 PRINT"{right}{reverse on}{space*37}":PRINTB$:PRINTB$:GOTO70
3450 PRINT"{clear}{down*2}{dark gray}";
3452 PRINT"{space*15}{reverse on} {cm t}{cm y}{space*2}"
3454 PRINT"{space*15}{reverse on}{cm g}{space*3}{cm l}"
3456 PRINT"{space*15}{reverse on}{space*3}{cm p}{cm m}"
3458 PRINT"{space*14}{reverse on}{sh pound}{space*3}{cm m} "
3460 PRINT"{space*13}{reverse on}{sh pound}{space*4}{cm m} "
3462 PRINT"{space*15}{reverse on}{space*2}{108}{sh @} "
3464 PRINT"{space*15}{reverse on}{109}{space*3}{cm m}"
3466 PRINT"{space*15}{reverse on}{cm p}{sh @}{space*3}"
3468 PRINT"{space*16}{reverse on}{space*3}{cm l}"
3470 PRINT"{space*15}{cm l}{reverse on}{space*4}"
3472 PRINT"{space*15}{reverse on}{space*5}{cm n}"
3474 PRINT"{space*6}{orange}{cm @*2}{cm p*2}{cm o}{cm i}{reverse on}{cm u}{cm y*2}{space*7}{cm y}{cm u}{reverse off}{cm i*2}{cm o}{cm @*3}"
3475 IFGH=1THENPRINT"{home}{down*11}"SPC(17)"{space*2}"
3476 GOTO70
3502 PRINT"{home}{down*2}{green}{right*8}{cm o}{right*25}{cm d}{cm f}"
3504 PRINT"{right*8}{reverse on}{space*3}{reverse off}{right*15}{cm p}{cm i}{right*6}{cm d}{reverse on}{space*3}"
3506 PRINT"{right*7}{reverse on}{space*5}{reverse off}{right*13}{reverse on}{space*4}{reverse off}{right*5}{reverse on}{space*3}{cm l}"
3508 PRINT"{right*7}{reverse on}{cm j}{space*5}{reverse off}{right*11}{reverse on}{space*3}M{space*3}{reverse off}{right*2}{cm i} {reverse on}{space*3}"
3510 PRINT"{right*6}{reverse on}{space*7}{reverse off}{right*13}{reverse on}{space*2}MN {cm l}{space*3}{cm j} {cm m}"
3512 PRINT"{right*7}{reverse on}{space*2}M{space*4}{reverse off}{right*5}{reverse on} {cm l}{reverse off}{right*4}{reverse on}{space*3}{cm m}{space*3}{cm g}{space*5}"
3514 PRINT"{right*3}{reverse on} {cm k}{reverse off}{right*3}{reverse on}{space*2}MN{space*3}{reverse off}{right*3}{reverse on}{space*3}{reverse off}{right*3}{reverse on}{space*4}{sh -}{space*3}{sh -}{space*5}"
3516 PRINT"{right*2}{reverse on}{space*4}{reverse off}{cm o}{reverse on}P{space*3}{cm g}{space*3}{reverse off}{cm h}{reverse on}{space*5}M{cm y}{cm u}{space*4}G{space*3}{cm g}{space*4}"
3518 PRINT"{right}{reverse on}{space*7}M{space*2}{sh -}{space*3}N{space*6}G{space*5}{cm g}{space*2}N{space*6}"
3519 FORA=1TO4:PRINT"{right}{reverse on}{green}{space*37}":NEXT
3520 PRINT"{up*4}"SPC(11)"{reverse on}{sh -}{down}{left}G{down}{left}{sh -}"SPC(16)"G{up}{left}{cm h}N{up}{left*3}M{cm h}{right}N":GOTO70
3540 IFGQ=0THEN2111
3542 PRINT"{clear}{down}{gray} {reverse on}{space*14}{cm @*2}{cm p}{cm o*2}{cm i*2}{cm o}{cm p}{cm @*3}{space*8}"
3544 PRINT" {reverse on}{space*12}{reverse off}{cm v}{space*14}{cm c}{reverse on}{space*6}"
3546 PRINT" {reverse on}{space*9}{reverse off}{cm v}{space*19}{reverse on}{space*5}"
3548 PRINT" {reverse on}{space*5}{reverse off}{cm u}{cm y}{cm t}{space*21}{dark gray}{103}{reverse on}{gray}{space*4}"
3550 PRINT" {reverse on}{space*4}{reverse off}{cm v} {dark gray}{125}{space*8}{cm p*2}{102*3}{114*2}{space*6}{110} {gray}{cm l}{reverse on}{space*3}"
3552 PRINT" {reverse on}{space*3}{reverse off}{space*3}{dark gray}{cm m}{space*6}{110}{cm y}{space*7}{109}{space*4}{110}{space*3}{gray}{cm c}{reverse on}{space*2}"
3554 PRINT" {reverse on}{space*3}{reverse off}{cm f}{space*2}{reverse on}{dark gray}{sh pound}{127}{reverse off}{space*4}{cm m} {cm g}{space*2}{blue}{cm d}{cm p}{space*3}{dark gray}{110}{109}{space*3}{cm h}{space*5}{reverse on}{gray} "
3556 PRINT" {reverse on}{space*4}{reverse off} {dark gray}{cm m}{reverse on}{space*2}{reverse off}{space*4}{104} {104}{space*2}{reverse on}{blue}{space*2}{reverse off}{cm j} {dark gray}{cm m} {104}{space*2}{110}{space*5}{gray}{cm l}{reverse on} "
3558 PRINT" {reverse on}{space*3}{cm l}{reverse off} {reverse on}{dark gray}{cm k}{space*2}{reverse off}{cm g}{space*3}{103} {cm m}{100}{101}{orange}{cm t}{cm y}{dark gray}{cm t}{099}{104} {103} {cm m}{space*6}{reverse on}{gray}{space*2}"
3560 PRINT" {reverse on}{space*3}{cm m}{reverse off} {reverse on}{dark gray}{cm j}{space*2}{reverse off}{space*4}{cm g}{100}{cm t}{space*8}{108} {104}{space*5}{gray}{cm d}{reverse on}{space*2}"
3562 PRINT" {reverse on}{space*4}{reverse off} {dark gray}{cm l}{reverse on}{space*2}{127}{reverse off}{100}{101}{cm t}{space*12}{101}{103}{space*5}{reverse on}{gray}{space*3}"
3564 PRINT" {reverse on}{space*4}{reverse off} {dark gray}{sh @}{cm t}{101}{cm t}{space*16}{108}{space*4}{reverse on}{gray}{space*4}"
3566 PRINT" {reverse on}{space*4}{reverse off}{dark gray}{110}{space*21}{cm t}{101}{100}{099}{reverse on}{gray}{cm j}{space*3}"
3568 PRINT" {reverse on}{space*4}{reverse off}{space*24}{cm d}{reverse on}{space*5}":B=B+13:GOTO70
3600 PRINT"{clear}{light blue}";
3602 PRINT" {reverse on}{space*3}{cm p}{cm o}{cm i}{reverse off}{cm y}{cm t*2}"
3604 PRINT" {cm u}{cm t}{cm y}"
3606 PRINT"{space*12}{reverse on}{dark gray}{space*2}{reverse off}{112}{space*5}{reverse on}{space*2}{reverse off}{112}{space*10}{reverse on}{space*2}{reverse off}{112}"
3608 PRINT"{space*12}{reverse on}{space*10}{reverse off}{cm m}{space*10}{reverse on}{space*4}"
3610 FORA=1TO8:PRINT" {reverse on}{space*10}{cm m}{space*10}{cm g}{space*9}{cm m}{space*4}":NEXT
3611 PRINT"{space*12}{cm u*10}{space*11}{cm u*4}"
3612 PRINT"{home}{down*5}{right*7}{space*2}{down}{left*2}{space*2}"
3627 IFHD=1THENPRINT"{home}{down*7}{right*6}{reverse on}{right}{cm m}{down}{left}{cm m}{down}{left}{cm m}{down}{left}{cm m}
3628 B=B+13:GOTO70
3650 PRINT"{clear}{blue}";
3652 PRINT"{space*12}{119}{space*6}^^"
3654 PRINT"{space*9}{dark gray}{111}{cm y*4}{112}{space*2}{111}{cm y*4}{112}"
3656 PRINT"{space*4}{blue}{120} {dark gray}{cm m}{space*2}{cm g}{space*4}{cm m}{space*2}{cm g}{space*4}{cm m}{space*2}{cm m}"
3658 PRINT"{space*3}{cm m}{reverse on}{space*2}{reverse off}{cm m}{space*2}{cm g}{space*4}{cm m}{space*2}{cm g}{space*4}{cm m}{space*2}{cm m}{space*2}{red}{115}"
3660 PRINT"{space*3}{dark gray}{cm m}{reverse on}{space*2}{reverse off}{cm m}{space*2}{cm g}{space*4}{cm m}{space*2}{cm g}{space*4}{cm m}{space*2}{cm m} {reverse on}{space*2}{reverse off}{cm g}"
3662 PRINT"{space*3}{cm m}{reverse on}{space*2}{reverse off}{cm m}{space*2}{cm g}{space*4}{cm m}{space*2}{cm g}{space*4}{cm m}{space*2}{cm m} {reverse on}{space*2}{reverse off}{cm g}"
3664 PRINT"{space*3}{cm m}{reverse on}{space*2}{reverse off}{cm m}{space*2}{cm g}{space*4}{cm m}{space*2}{cm g}{space*4}{cm m}{space*2}{cm m} {reverse on}{space*2}{reverse off}{cm g}"
3666 PRINT"{space*3}{cm m}{reverse on}{space*2}{reverse off}{cm m}{space*2}{cm g}{space*4}{cm m}{space*2}{cm g}{space*4}{cm m}{space*2}{cm m} {reverse on}{space*2}{reverse off}{cm g}"
3668 PRINT"{space*3}{cm m}{reverse on}{space*2}{reverse off}{cm m}{space*2}{cm g}{space*4}{cm m}{space*2}{cm g}{space*4}{cm m}{space*2}{cm m} {reverse on}{space*2}{reverse off}{cm g}"
3670 PRINT"{space*3}{cm m}{reverse on}{space*2}{reverse off}{cm m}{cm p*2}{cm h}{space*4}{cm m}{cm p*2}{cm g}{space*4}{cm m}{cm p*2}{sh @} {reverse on}{space*2}{reverse off}{cm g}"
3672 PRINT"{space*3}{cm m}{reverse on}{space*2}{reverse off}{110}{space*19}{109}{reverse on}{space*2}{reverse off}{cm g}"
3674 PRINT"{space*3}{cm m}{cm t*2}{space*9}{reverse on}{brown}{sh pound}{127}{reverse off}{space*12}{dark gray}{cm g}"
3676 PRINT"{space*3}{cm m}{space*9}{brown}{127}{reverse on}{space*4}{reverse off}{sh pound}{space*10}{dark gray}{cm g}"
3678 PRINT"{space*3}N{space*9}{reverse on}{brown}{sh pound} {reverse off}{sh pound}{cm asterisk}{reverse on} {cm asterisk}{reverse off}{space*10}{dark gray}M":B=B+13:GOTO70
3700 PRINT"{down*2}{right*5}{dark gray}{cm m}"SPC(18)"{cm m}":FORA=1TO6:PRINT"{right*2}{cm m}{reverse on}{space*2}{reverse off}{cm m}"SPC(18)"{cm m}":NEXT
3701 PRINT"{right*2}{cm m}{reverse on}{space*2}{reverse off}{cm m}{cm p*18}{sh @}{down}M{down}M{down}M{up*3}"
3702 PRINT"{right*2}{cm m}{reverse on}{space*2}{reverse off}N{down}{left*4}{cm m}{down}{left}{cm m}{down}{left}N":IFHF=0THEN3706
3703 PRINT"{home}{down*6}"SPC(12);:GOSUB9000
3704 PRINT"{home}{down*11}"SPC(19)"{gray}{reverse on}{space*2}H{reverse off}M{down}{left*4}{cm t*4}":B=B+26:GOTO70
3706 PRINT"{home}{down*6}"SPC(17);:GOSUB9000:B=B+26:GOTO70
3750 IFGQ=0THEN2110
3752 PRINT"{clear}{down*2}{dark gray}{space*13}{cm m}{cm y*6}{cm g}"
3754 PRINT"{space*13}{cm m}{space*6}{cm g}"
3756 PRINT"{space*13}{cm m}{cm y}{112}{space*4}{cm g}"
3758 PRINT"{space*13}{cm m}{cm y*2}{112}{space*3}{cm g}"
3760 PRINT"{space*2}{reverse on}{brown}{space*3}{reverse off}{dark gray}{cm p*8}{sh @}{cm y*3}{112}{099*2}{108}{cm p*7}{reverse on}{brown}{space*3}"
3762 PRINT"{space*2}{reverse on}{space*3}{reverse off}{space*9}{dark gray}{cm t*4}{space*10}{reverse on}{brown}{space*3}"
3764 PRINT"{space*2}{reverse on}{space*3}{reverse off}{space*23}{reverse on}{space*3}"
3766 PRINT"{space*2}{reverse on}{space*3}{reverse off}{white}{102}{099}{102}{space*17}{099}{102}{099}{reverse on}{brown}{space*3}"
3768 PRINT"{space*2}{reverse on}{space*6}{reverse off}{space*17}{reverse on}{space*6}"
3770 PRINT"{space*2}{reverse on}{space*3}{reverse off}{white}C {reverse on}{brown}{cm l}{reverse off}{space*17}{reverse on}{cm j}{reverse off} {white}C{reverse on}{brown}{space*3}":B=B+26:GOTO70
3800 PRINT"{down*3}"SPC(11)"{dark gray}O{cm y*8}P":FORA=1TO8:PRINTSPC(11)"{cm g}{space*8}{cm m}":NEXT
3801 PRINT"{space*4}{cm p*7}{cm g}{space*8}{cm m}{cm p*8}"
3803 IFHZ=1THEN3812
3804 PRINT"{home}{down*2}":FORA=1TO10:PRINTSPC(11)"{brown}{reverse on} {sh -} {sh -} {sh -} {sh -}{space*2}":NEXT
3805 PRINT"{home}{down*5}"SPC(20)"{yellow}{reverse on}{cm u}{cm v}":FORA=1TO4:PRINT:NEXT:PRINTSPC(20)"{reverse on}{cm i}{cm f}"
3806 POKEV+21,1:POKEV+39,7:POKEV+23,1
3807 POKEV+29,1:POKE2040,38:POKEV,133:POKEV+1,90:B=B+26:GOTO70
3812 PRINT"{home}{down*2}"SPC(20)"{brown}{reverse on}{cm u}":FORA=1TO10:PRINTSPC(20)"{reverse on} ":NEXT:PRINTSPC(20)"{cm u}"
3813 PRINT"{home}{down*5}{yellow}"SPC(21)"{cm k}{down*5}{left}{cm k}":B=B+26:GOTO70
3820 GOSUB3870
3821 POKEV+21,1:POKEV+23,1:POKEV+29,1:POKE2040,39:POKEV+39,7:POKEV,45:POKEV+1,85
3825 B=B+13:GOTO70
3850 PRINT"{reverse on}{light blue}{space*35}"
3851 PRINT"{cm y}{cm asterisk}{reverse on}{space*29}{reverse off}{sh pound}{cm u}{cm y} "
3852 PRINT"{space*2}{cm asterisk}{reverse on}{space*25}{reverse off}{sh pound}{cm u}{cm y} ":PRINT"{space*5}{cm t}{cm y*3}{cm t}{cm y}{cm t*3}{cm asterisk}{reverse on}{space*11}{reverse off}{sh pound}"
3853 PRINTSPC(22)"{cm t}{cm y}{cm u}{cm y}":RETURN
3860 PRINT"{home}{down*9}{green}{reverse on}{space*2}{cm t}{cm y}{cm u*8}{reverse off}{cm i}{cm o}{cm p*2}{space*2}{cm @*4}{cm p*2}{cm o*3}{cm i*3}{reverse on}{cm u*5}"
3861 FORA=1TO4:PRINT"{reverse on}{space*35}":NEXT
3862 PRINT"{up*5}":PRINTSPC(17)"{reverse on}{cm t*2}EEDDCCFFR":RETURN
3870 GOSUB3850:GOSUB3860:PRINT"{home}{down*11}":FORA=1TO35:PRINT"{reverse on}{white} ";:NEXT:RETURN
3900 GOSUB3850:PRINT"{home}{down*10}"SPC(14)"{green}{cm pound*4}{cm +}{cm pound*2}"
3901 PRINT"{space*4}{cm pound*3}{cm +*16}{cm pound*4}":FORA=1TO35:PRINT"{cm +}";:NEXT
3902 POKEV+21,15:FORA=39TO42:POKEV+A,7:NEXT:POKEV+23,15:POKEV+29,15
3903 FORA=2040TO2043:POKEA,40:NEXT:POKEV,40:POKEV+1,103:POKEV+2,100:POKEV+3,95
3904 POKEV+4,160:POKEV+5,98:POKEV+6,220:POKEV+7,104
3910 B=B+13:GOTO70
3920 GOSUB3850:PRINT"{home}{down*8}"SPC(12)"{dark gray}{cm o}{cm i}{cm o}{down}{left*4}{reverse on}{cm g} {sh -} {cm m}{down}{left*6} {cm g} Q {cm m} "
3921 PRINTSPC(9)"{reverse on}{cm t*9}{down}{left*9}{space*4}{pink} {dark gray}{space*4}":FORA=1TO35:PRINT"{green}{reverse on} ";:NEXT
3922 IFHA=1THENPRINT"{home}{down*12}"SPC(13)"{reverse off} "
3923 B=B+13:GOTO70
3940 PRINT"{down*2}"SPC(16)"{dark gray}{cm p}{cm i}{cm p}{down}{left*3}{reverse on}{space*3}{down}{left*4}{reverse off}{cm a}CCC{cm s}{down}{left*5}O{cm y*3}P{down}{left*6}O{cm y*5}P";
3941 PRINT"{down}{left*8}O{cm y*7}P{down}{left*10}O{cm y*9}P":PRINTSPC(8)"{cm y*19}"
3942 B=B+26:GOTO70
3950 PRINTSPC(32)"{blue}{reverse on}{cm @*6}":PRINT"{orange}{reverse on}{right*3}{cm @*3}{right*4}{cm @*3}{right*11}{cm @*3}{right*6}{pink}{space*4}"
3951 FORA=1TO11:PRINT"{right*3}{reverse on}{brown}{cm h} {cm m}{right*4}{blue}{cm g} {cm m}{right*11}{brown}{cm g} {cm m}{right*6}{pink}{space*4}":NEXT
3952 PRINT"{right*3}{reverse on}{orange}{cm t*3}{right*4}{cm t*3}{right*11}{cm t*3}{right*6}{pink}{space*4}{down}{left*4}{space*4}"
3953 PRINT"{home}{down*4}"SPC(16)"{dark gray}O{cm y*4}P":FORA=1TO5:PRINTSPC(16)"{cm g}{space*4}{cm m}":NEXT
3954 PRINT"{space*2}{cm p}{right*3}{cm p*4}{right*3}{cm p*3}{cm h}{right*4}{cm m}{cm p*2}{right*3}{cm p*6}":B=B+13:GOTO70
3970 PRINT"{down*11}{right*7}{yellow}CCDDEE{cm t}{up}{cm g}{up}{left*2}H{up}{left}{sh -}{up}{left}H{up}{left}{sh -}{up}{left}G{up}{left}{sh -}{up}{left}{cm m}{up}{cm p}FFCDFDCF{cm p}";
3971 PRINT"{down}{cm h}{down}{left}G{down}{left}{cm g}{down}{left}G{down}{left}{sh -}{down}{left}G{down}{left}G{down}{left*2}{cm m}{down}{cm y}EDDCDCC"
3972 PRINT"{home}{down*3}"SPC(14)"{light blue}{reverse on}{cm g}{space*6}{reverse off}{sh pound}{cm y}{cm u}{down}{left*10}{reverse on} {cm p}{cm o*2}{cm i*3}"
3973 PRINT"{down*3}"SPC(19)"{green}{cm pound*3}{down}{left*7}{cm pound*2}{cm +*3}{cm pound*2}{down}{left*4}{cm +}{cm pound*2}":IFGX=0THEN3980
3974 PRINT"{home}{down*3}"SPC(27)"{yellow}FCF{down}{left*4}{cm m}{light blue}{cm asterisk}{reverse on}{cm o}{cm i}{reverse off}{yellow}G{down}{left*4}G{space*2}{cm g}{down}{left*4}{sh -} H{down}{left*3}H G{down}{left*2}{cm g}{sh -}{down}";
3975 PRINT"{left*2}E"
3980 B=B+13:GOTO70
5000 C=0
5001 PRINT"{clear}{light blue}a voice booommmms...{down*2}"
5002 PRINT"{yellow}who sent you..{down}":INPUT" ";PW$
5003 IFPW$="manobi"THENC=0:GOTO5006
5004 C=C+1:IFC=4THENSYS64738
5005 GOTO5001
5006 Z$="spmaamknscdipestmepiberahacabitojecozzxx"
5007 FORA=1TO20:READM$(A):NEXT
5010 PRINT"{clear}{light blue}and who are you ???{down*2}"
5012 INPUT" ";N$
5014 PRINT"{down*2}{pink}checking your story...":Q=1
5020 FORA=1TOLEN(N$)/2
5022 A$=MID$(N$,A*2-1,2)
5023 IFA$="cf"THENA$="ca":DF=1
5024 FORAA=1TO20
5026 IFA$=MID$(Z$,AA*2-1,2)THENT$(Q)=M$(AA):Q=Q+1
5027 NEXT:NEXT
5028 Q=0:N$="":Z$="":A$="":GOTO4
5990 DATASPADE,MATCHES,AMULET,KNIFE,SCEPTRE,DIARY,PEBBLE,STONE,MEDICINES
5992 DATAPICK,BEADS,RATIONS,HAT,CANTEEN,BINOCULARS,TORCH,JEWEL,COMPASS
5994 DATAMACHETE,SPEAR
6002 DATAE,S,W,S,E,N,S,,N,S,N,S,N,,W,E,W,,,E,,W,E,E,W,W,,N,S,N,,E,,
6003 DATAE,,S,,N,E,W,E,W,,S,,E,,W,,N,,S,,N,,,W,
6004 DATASAND,,SAND,,SAND,,MOUND,,PALM,,HUT,,THICKET,,LAKE,,ISLAND,STATUE,
6006 DATALAKE,STATUE,FRONDS,,TREES,,CREVISE,BUSH,ROCK,,MOUNTAINS,SNOW,,CLIFF
6008 DATAVALLEY,,TUNNEL,CRYSTAL,,VALLEY,STONE STEPS,,,HUTS,MAD NATIVES,,
6010 DATAROAD,STONE LION,,RAVINE,VOLCANO,,RUINED CITY,VOLCANO,
6012 DATAWALL,WINDOW,,,PILLARS,WINDOW,URN,,FOUR DOORS,,CHEST,GEMS,,WOODEN THRONES
6013 DATATABLE,,STATUES,ANCIENT DOOR,,INDENTATION,HOLE,,ROPE,STEPS,
7002 GOSUB2020:PRINT"{clear}{down*2}":FORA=1TO9:PRINTSPC(9)"{brown}{reverse on} {orange}{space*13}":NEXT
7003 PRINT"{home}{down*5}":FORA=1TO3:PRINT"{right*6}{brown}{reverse on} {orange}{space*19}":NEXT
7004 PRINT"{down*3}"SPC(9)"{brown}{reverse on} {orange}{cm i}{right}{cm o}{cm p}{cm @*2}{cm p*2}{cm o}{cm i}{cm p}{cm i}":PRINT"{home}{down*5}"SPC(11)"{reverse on}here{space*2}lies"
7005 PRINTSPC(11)"{reverse on}another{down}{left*3}clumsy{down}{left*10}adventurer{down*2}{left*7}r.i.p"
7006 RETURN
7990 GOSUB2007:TZ=1:GOTO151
8000 FORA=0TO24:POKES+A,0:NEXT:POKE54277,131:POKE54278,128:POKE54284,17
8001 POKE54285,128:POKE54291,17:POKE54292,128:POKE49881,33:POKE49882,33
8002 POKE49883,33:RETURN
8004 POKE49884,1:SYS49408:SYS49434,0:RETURN
8005 POKE49884,1:SYS49408:SYS49434,1:RETURN
8006 POKE49884,1:SYS49408:SYS49434,2:IFTZ=1THENGY=0
8007 RETURN
8010 FORA=1TO6:POKE54296,A:FORH=1TO50:NEXT:NEXT:RETURN
8020 FORA=6TO0STEP-1:POKE54296,A:FORH=1TO50:NEXT:NEXT:SYS49421:RETURN
9000 PRINT"{brown}O{cm y*4}P{down}{left*6}{cm g}{right*4}{cm m}{down}{left*6}{reverse on} {orange}{cm a}CCCC{cm s}{down}{left*7}{brown} {orange}{sh -}{space*4}{sh -}{down}{left*7}";
9001 PRINT"{brown} {orange}{sh -}{space*4}{sh -}{down}{left*7}{brown}{reverse off}{cm asterisk}{reverse on}{orange}{cm z}CCCC{cm x}":RETURN
9100 PRINT"{home}{down*13}":FORA=1TO10:PRINTB$:NEXT:PRINT"{home}{down*13}":RETURN
9900 PRINT"{home}{down*15}"SPC(15)"{yellow}^{right*3}^{right}^{down}{left*8}^{sh -}{right*3}{sh -}{right}{sh -}{down}{left*8}{sh -}{sh -}{right*3}{sh -} {sh -}{space*2}^";
9901 PRINT"{down}{left*11}{sh -}{sh -}{space*2}^{sh -} {sh -}^ {sh -}{down}{left*11}{sh -}{sh -}{space*2}{sh -}{sh -}{space*2}{sh -} {sh -}{down}{left*11}";
9902 PRINT"{sh -}{right*7}{sh -}":RETURN
