SHANLOAD  .0:0:46999:"23739","o"  "SHAN$" 47000:Z=52571[ ( "SHANCODE" 2 "SHANUDG" <"SHAN" iSHAN$ P v `y21aub`aX9 =t 9p9!'#1A99nN{ A8  = ȁȟyĀ1  (m?@G6?1   e ݸ e^^;y@ 1  Q! y~~?e z>8ey@ 1  9):! `1w/E_OD 1ss1 A> `1/AAyZz 1Ny`%y} w|3^k!1s\5 %UW#^^@y 5uU!&u1! W_W_W]W}O}_4_?!a|$%9q߼'ǀ9!19N q 9%9 O  *Sdq۬1!'!$=/sg`!A9 <% \yxċŞ]y(]U_UW my HU^]Ȃ=W;x쀣< Oe|'?=*!n6j"ye_jڪ)s,ꀔe<@ QSe~Y^UUuU`[^]WUe uU]Uw]?}e ~@?ee}<@% :{F`Dy=>1y] :?1y;檪?qe ~7o?;ye8=%uDD`)s}}svՀ1U U_TU_X9aUUUuUss)fUUU߾UoY@?{O~ Q?f)u8׀Ҁ%yV:%Az1U ꪨy%z몫A`%l[F%4~qz%8 %@1~?,zm@a):bs2' ` |<ppp<9 9+ =5cz99A7#g!.0 |<p ď@} @ =A UEπȁȼ0 0s|p fO~ @:qw;꯮()?0 p ~>}!YG?@@ 9! eU*U  ; 8p`<}!1C <?x1ŀ[ !eu*7`2vE ~ @y~ 8pp|}3PPy9<r!*6ϻ@?``80x~?80p8xpA>y۾!@*C[D ` px<?80px8  GFFGFFGGGEE GGGFFGGFFGEEGGGDDGGGFFGGGGEGGFFGEEGGGDFFGGGEFF GDFFGGGGGGGFFGFFDDDDGGFF GEEGDDGGCCGGGDDGDGGEEGCCGDDDDDGCCGGGDDGDDGEEGCCGBBGGCGEEDDGDDGCCGDDDDDGGFFEEGFFGDDDDDGGFFEECCGGFFGDDDDDGGFFGGCCGGFGDDDWEEGDDGCCGCCGGGWWEEGDDGCCGGGWWEEGDGEEGCCGEE"WW GEEGEEWWFFGGGCCGEEDDEEgzgFFGGGCCGDDF FFGGGCCGDDF GGGECCCGGECCCEECEEEBECBEBEEBEEBCCCEEEBCBCBBCBCBCBBEEBBBEEEBBBCBCCBCCBGBBCCCEBBCCEEx!@ *v\p#@w#z[ [v\RDMbk(>8x( #|[ *v\~w#p#w#z[ *v\N#@~( #z[ DM#F#~#SHANCODE z!H|!!}1}y1(^89y!Y91y='_y<([99=}yy==(.e}!Y911م'Ye999999999[1=91y==-Ye!yY}y1Yeــــــــ[݀y==1^e%1ٛـy==y<1XX݀y==y==,Yeـ1 Ye91y==XX1-}y1!,Yey== Ye}yy==XZ99.911!,Ye}.Ye}y1}1.a91y==,^89y.Ye켓-ž!=!%E11y9hko4999999999-Ų!a%-a1eXeZ[USU[US?4Ųa eXeik jŲeaeeZ[US_USŲ@e ae[e@ik Ų@yٌaU[US?eYe@Z[US8A ղ@)1!8jeYe@ik98% Ai%i%8_USy_9X[US9)s)a1}1}գ1U`` A1aa)YU``  aa})U`` qq!y)q @eU%aa@)Yq @e]=aa@15. @ռ=8U%!aa@9y)U.sռ=8U%a}Řy)U``)DEDEDEDFDFDFDGDGDG DC  DC  DC  DE  DE  DE  DF  DF  DF  DG  DG  DG5G)x!@ *v\p#@w#z[ [v\RDMbk(>8x( #|[ *v\~w#p#w#z[ *v\N#@~( #z[ DM#F#~#!y9a1=19=yE@ <B99}9A9y-Y19999999999=9199998@88Bf8xDـٌ1a񁁓yy}ـفٞyـفـٙ=1 0D@D>ZDDDyٿa1=1yx@x<BxDD 1=eyaY  y  1    =@@@>@B@DD yy}e1=a  1  yِ   18 <~< ~B2 \>2 \KT:V(n(:\!X(!Y("!Z(*![(2!\(Ix((*x((y(( y(( :WG x x2Uy2T:V((>2 \>#2 \KTKT(]!m} x(e!u ~$/ݶw#$x@gxo]Kx( eKw$98670@`px|~pH!kY)SHANUDG X d~`~~ff~ff~f~ff~ffff~`nf~<<|fff|~666~`~~ll|ll~f~ff~ffff~`nf~<<|fff|f`f>>f`f>SHAN HAHAJAU$="9":D$="8":F$="0" (23658j\,8 Z 8700! dTL=144 n 9000(# +64341U,10 :64340T,1 210 SELECT FIRST TILE 0 64000 X=64341U:Y=64340T .X=0Y>19Y<248000@ -X=0Y<20Y>23210 '(X,Y)=78900":210 8800`" Z=51-1 &B(FT,FT1,Z)0LE=Z:280 Z %FT1=1FT1=12 330J ")B(FT,FT1-1,LE)=0330J ,)B(FT,FT1+1,LE)=0330J 6 8950" ; 0 @ 210 JMARK FIRST TILE OQA=(FT*3)-2:A1=(FT1*2)+2:A2=LE:ST=FT:ST1=FT1:ST2=LE TSZ=AA+2:Z,A1;1;1;A2+1+(5*(A2=1));" ":Z Y.1}L,10 :0 ^SELECT SECOND TILE c64000 h4X=64341U:Y=64340T:.1}L,10 : m"X=08900":480 w'(X,Y)=78900":480 | 8800`" Z=51-1 &B(FT,FT1,Z)0LE=Z:420 Z %FT1=1FT1=12 500 )B(FT,FT1-1,LE)=0500 )B(FT,FT1+1,LE)=0500  8950" \Z=AA+2:Z,A1;1;0;1;A2+1+(5*(A2=1));" ":Z  210 CHECK TILE ARE DIFFERENT 9B=(FT*3)-2:B1=(FT1*2)+2:B2=LE A=BA1=B1450 \Z=AA+2:Z,A1;1;0;1;A2+1+(5*(A2=1));" ":Z CHECK TILES MATCH &#B(ST,ST1,ST2)>34"600X +3B(ST,ST1,ST2)B(FT,FT1,LE)8980#:210 N 700 XCHECK FLOWERS/SEASONS bEB(ST,ST1,ST2)>38&B(FT,FT1,LE)<39'8980#:210 lB(ST,ST1,ST2)<39'B(FT,FT1,LE)35#B(FT,FT1,LE)36$B(FT,FT1,LE)37%B(FT,FT1,LE)38&8980#:210 TAKE AWAY TILES -B(ST,ST1,ST2)=0:B(FT,FT1,LE)=0 B2=B2-1:A2=A2-1 NA2=0Z=AA+2:Z,A1;0;7;" ":Z:.1}L,5 HA2>0Z=ST:F=ST1:L=A2:X=A:Y=A1:9300T$:.1}L,5 NB2=0Z=BB+2:Z,B1;0;7;" ":Z:.1}L,5 HB2>0Z=FT:F=FT1:L=B2:X=B:Y=B1:9300T$:.1}L,5 )TL=TL-2:0,10 ;TL;" " TL=01000  210 ALL TILE GONE $Z=120:.01z# =,Z:Z -Z=201-1:.01z# =,Z:Z 47000:Z=52571[ VA$=" Y O U H A V E B E A T E N T H E D R A G O N"  7915  HELP  61001I,72H:61002J,229:61004L,0:61005M,64@:61007O,0:61008P,8:61000H:61001I,72H:61002J,237:61004L,0:61005M,88X:61007O,0:61008P,1:61000H 121,7;1;"SEARCHING FOR MOVE"  H(40(,4):H=1 Z=16 F=112 B(Z,F,1)0B(Z,F,2)=0H(H,1)=Z:H(H,2)=F:H(H,3)=B(Z,F,1):H(H,4)=1:H=H+1:5060 <B(Z,F,1)0B(Z,F,2)05060 F Z 0Z=16:F=12 1-1 ΜB(Z,F,1)0B(Z,F,2)=0H(H,1)=Z:H(H,2)=F:H(H,3)=B(Z,F,1):H(H,4)=1:H=H+1:5080 <B(Z,F,1)0B(Z,F,2)05080 F Z 'Z=25:F=112 B(Z,F,2)0B(Z,F,3)=0H(H,1)=Z:H(H,2)=F:H(H,3)=B(Z,F,2):H(H,4)=2:H=H+1:5100 <B(Z,F,2)0B(Z,F,3)05100 F Z 0z=25:f=12 1-1 B(Z,F,2)0B(Z,F,3)=0H(H,1)=Z:H(H,2)=F:H(H,3)=B(Z,F,2):H(H,4)=2:H=H+1:5120 <B(Z,F,2)0B(Z,F,3)05120 f z 'Z=25:F=112  B(Z,F,3)0B(Z,F,4)=0H(H,1)=Z:H(H,2)=F:H(H,3)=B(Z,F,3):H(H,4)=3:H=H+1:5140  <B(Z,F,3)0B(Z,F,4)05140 F Z 0Z=25:F=12 1-1 B(Z,F,3)0B(Z,F,4)=0H(H,1)=Z:H(H,2)=F:H(H,3)=B(Z,F,3):H(H,4)=3:H=H+1:5160(  <B(Z,F,3)0B(Z,F,4)05160( #F (Z -'Z=25:F=112 2B(Z,F,4)0B(Z,F,5)=0H(H,1)=Z:H(H,2)=F:H(H,3)=B(Z,F,4):H(H,4)=4:H=H+1:5180< 4<B(Z,F,4)0B(Z,F,5)05180< 7F <Z A0Z=25:F=12 1-1 FB(Z,F,4)0B(Z,F,5)=0H(H,1)=Z:H(H,2)=F:H(H,3)=B(Z,F,4):H(H,4)=4:H=H+1:5200P H<B(Z,F,4)0B(Z,F,5)05200P KF PZ UB(3,7,5)0H(H,1)=3:H(H,2)=7:H(H,3)=B(3,7,5):H(H,4)=5:H=H+1 ZB(4,7,5)0H(H,1)=4:H(H,2)=7:H(H,3)=B(4,7,5):H(H,4)=5:H=H+1 _B(3,6,5)0H(H,1)=3:H(H,2)=6:H(H,3)=B(3,6,5):H(H,4)=5:H=H+1 dB(4,6,5)0H(H,1)=4:H(H,2)=6:H(H,3)=B(4,6,5):H(H,4)=5 i SH=1 sZ=SH+1H x#H(Z,3)>34"5300 }_H(SH,3)=H(Z,3)H(SH,1)H(Z,1)H(SH,2)H(Z,2)5500| $Z:SH=SH+1:SH=H5260  5235s U21,7;" NO MATCH FOUND ":Z=150-1:.02{# =,Z:Z =""5265 21,0;,,  200 $H(SH,3)<35#5250 :H(Z,3)>38&H(SH,3)<39'5250 :H(Z,3)<39'H(SH,3)>38&5250 CH(Z,1)H(SH,1)H(Z,2)H(SH,2)5500|  5250 |MATCH FOUND 21,0;,, DX=(3*H(Z,1))-2:Y=(2*H(Z,2))+2 xX,Y;1;1;H(Z,4)+1+(5*(H(Z,4)=1));" ";X+1,Y;" ";X+2,Y;" " FX=(3*H(SH,1))-2:Y=(2*H(SH,2))+2 X,Y;1;1;H(SH,4)+1+(5*(H(SH,4)=1));" ";X+1,Y;" ";X+2,Y;" ":.2~L,10 =""5540 DX=(3*H(Z,1))-2:Y=(2*H(Z,2))+2 xX,Y;1;1;H(Z,4)+1+(5*(H(Z,4)=1));" ";X+1,Y;" ";X+2,Y;" " FX=(3*H(SH,1))-2:Y=(2*H(SH,2))+2 X,Y;1;1;H(SH,4)+1+(5*(H(SH,4)=1));" ";X+1,Y;" ";X+2,Y;" ":.2~L,10  200 YOU QUIT 47000:Z=52571[ XA$=" T H E D R A G O N H A S B E A T E N Y O U ! !" O0,0;5;1;A$(31):A$=A$(2)+A$(1) .004yn,(*20) ""8700!  7930 @ MENU J61001I,0:61002J,64@:61004L,72H:61005M,229:61007O,0:61008P,8:61000H O61001I,0:61002J,88X:61004L,72H:61005M,237:61007O,0:61008P,1:61000H T@Z=05:Z,18;7;0;" ":Z Yz1,19;7;0;"RETURN";2,19;"QUIT";3,19;"HELP";4,19;"RETRY" ^0:145,174:61=,0:0,-43+:-61=,0:0,43+:7:.1}L,20 c M1=1 h2M1,19;1;4;0;" " m^=U$M1>1M1,19;1;7;0;" ":M1=M1-1:8040h r^=D$M1<4M1,19;1;7;0;" ":M1=M1+1:8040h |=F$8100  8045m 7M1=161001I,72H:61002J,229:61004L,0:61005M,64@:61007O,0:61008P,8:61000H:61001I,72H:61002J,237:61004L,0:61005M,88X:61007O,0:61008P,1:61000H:205 M1=27900 8M1=361001I,72H:61002J,229:61004L,0:61005M,64@:61007O,0:61008P,8:61000H:61001I,72H:61002J,237:61004L,0:61005M,88X:61007O,0:61008P,1:61000H:5000 M1=48600! DEFINE KEYS ""8202 0:0:7: %6,6;6;"PRESS.." 8,12 ;"UP..." -U$=:U$=""U$=13 U$=" "8220 !(8,18;U$:.2~L,0 &10 ,12 ;"DOWN." +3D$=:D$=""D$=13 D$=" "D$=U$8235+ 0)10 ,18;D$:.2~L,0 512 ,12 ;"LEFT." :9L$=:L$=""L$=13 L$=" "L$=U$L$=D$8250: ?)12 ,18;L$:.2~L,0 D14,12 ;"RIGHT" I?R$=:R$=""R$=13 R$=" "R$=U$R$=D$R$=L$8265I N)14,18;R$:.2~L,0 S16,12 ;"FIRE." XEF$=:F$=""F$=13 F$=" "F$=U$F$=D$F$=L$F$=R$8280X ])16,18;R$:.2~L,0 b'18,12 ;6;"OK Y/N?" g="Y"Ŧ="y"8320 l="N"Ŧ="n"8200 v 8295g 64344X,U$ 64345Y,D$ 64346Z,L$ 64347[,R$ 64348\,F$ 8700! INSTRUCTIONS G::"THE GAME CONSISTS OF 144 TILES BUILT IN THE SHAPE OF A PYRAMID." ڏ"THE COLOUR OF THE TILE SHOW WHATLAYER THE TILE IS ON. STARTING FROM THE BOTTOM THESE ARE WHITE, MAGENTA,GREEN, CYAN AND YELLOW." Q"YOU MAY TAKE ANY MATCHING PAIR FROM THE END OF A HORIZONTAL ROWON ANY LAYER." I"TILES ARE SELECTED BY PLACING THE CURSOR OVER THEM AND HITTINGFIRE." P"OPTIONS ARE GIVEN DURING THE GAME, BY PRESSING FIRE ON THE WORD ~MENU~." 4"THE GAME ENDS WHEN ALL THE TILESHAVE BEEN TAKEN." $'6;" PRESS ANY KEY" =""8440 8700! !* !4VIEW TILES !> 0 !H55880H:Z=58636 !MDZ=12 14:Z,12 ;1;0;5;" ":Z !R=""8530R! !\.1}L,15:8700! ! RETRY !Z:10 ,8;"RESORTING TILES";12 ,10 ;"PLEASE WAIT":.2~L,0 !T$=Q$ ! 9130# !TI=144 ! 200 !MAIN MENU "0:0:7: "CON=1:S$(4,20):S$(1)=" ":S$(2)=" ":S$(3)=" ":S$(4)=" " " 5,6;4;S$(1);16,5;S$(3);7,8;7;"1..START GAME";9 ,8;"2..INSTRUCTIONS";11 ,8;"3..VIEW TILES";13 ,8;"4..DEFINE KEYS" "RCON=15,6;4;S$(2);16,5;S$(4) "RCON=25,6;4;S$(1);16,5;S$(3) "+CON=CON+1:CON>2CON=1 "="1"100d "$="3"85004! ")="2"8400 "+="4"8200 ". 4 "3 8720" "V "`CONVERT X Y "j+X=1X=2X=3FT=1 "o+X=4X=5X=6FT=2 "t+X=7X=8X=9 FT=3 "y.X=10 X=11 X=12 FT=4 "~.X=13 X=14X=15FT=5 ".X=16X=17X=18FT=6 "%Y/2ɺ(Y/2)Y=Y-1 "FT1=(Y-2)/2 " "NOWT THERE ",21,9 ;5;"NOTHING THERE" "$.2~L,5:.3,0 "21,0;,, " "ILLEGAL MOVE #+21,9 ;5;"ILLEGAL MOVE" #$Z=110 :.03{u\,Z:Z # 21,0;,, # #NOT A MATCH #+21,10 ;5;"NOT A MATCH" #CZ=10 1-1:.03{u\,Z:Z:21,0;,, ## #(SET UP & SHUFFLE TILES #).2~L,10 #*0:0:0:7::8,6;5;" " #,l11 ,10 ;5;" " #."16,11 ;"PLEASE WAIT" #/423670v\,23673y\:23671w\,23674z\ #2KA$="01020304050607080910111213141516171819202122232425262728293031323334" #<<Z=12:A$=A$+A$:Z:A$=A$+"353637383940414200" #PT$="" #ZLE=144 #dZ=1144 #n*R=(*LE)+1:R=(R*2)-1 #xT$=T$+A$(RR+1) #R=1A$=A$(3) #-R1A$=A$(R-1)+A$(R+2) #LE=LE-1 #Z #Q$=T$ #;B$(6,12 ,5):B(6,12 ,5) #T$=T$+"00":9900& #:L=15:Z=16:F=112 # B$(Z,F,L) # F:Z:L #:L=15:Z=16:F=112 #B$(Z,F,L)="B"9210# #)B(Z,F,L)=T$(2):T$=T$(3) # F:Z:L $PRINT OUT TILES $ :.2~L,20 $X=1:Y=4 $'Z=16:F=112 $"L=51-1 $,!B(Z,F,L)=0L:9275;$ $6 9300T$ $;1Y=Y+2:Y>26Y=4:X=X+3 $@F:Z $J;0,0;"Tile Left=";tl;0,20;"Menu" $O $TLB(Z,F,L)16236066\,0:236077\,240:TI=B(Z,F,L) $^iB(Z,F,L)>16B(Z,F,L)32 236066\,0:236077\,243:TI=(B(Z,F,L)-16) $hWB(Z,F,L)>32 236066\,0:236077\,246:TI=(B(Z,F,L)-32 ) $|CHR=(TI*6)+26 $X,Y;1;L+1+(5*(L=1));CHR;(CHR+1);X+1,Y;(CHR+2);(CHR+3);X+2,Y;(CHR+4);(CHR+5) $+236066\,0:236077\,60< $ &BOARD DATA &!"B","T","T","T","T","T","T","T","T","T","T","B","T","T","T","T","T","T","T","T","T","T","T","T","B","T","T","T","T","T","T","T","T","T","T","B","B","T","T","T","T","T","T","T","T","T","T","B","T","T","T","T","T","T","T","T","T","T","T","T","B","T","T","T","T","T","T","T","T","T","T","B" &!"B","B","B","B","B","B","B","B","B","B","B","B","B","B","T","T","T","T","T","T","T","T","B","B","B","T","T","T","T","T","T","T","T","T","T","B","B","T","T","T","T","T","T","T","T","T","T","B","B","B","T","T","T","T","T","T","T","T","B","B","B","B","B","B","B","B","B","B","B","B","B","B" &!"B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","T","T","T","T","T","T","B","B","B","B","B","B","T","T","T","T","T","T","B","B","B","B","B","B","T","T","T","T","T","T","B","B","B","B","B","B","T","T","T","T","T","T","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B" &!"B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","T","T","T","T","B","B","B","B","B","B","B","B","T","T","T","T","B","B","B","B","B","B","B","B","T","T","T","T","B","B","B","B","B","B","B","B","T","T","T","T","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B" &!"B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","T","T","B","B","B","B","B","B","B","B","B","B","T","T","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B" '