ZXTape! 0Created with Ramsoft MakeTZXtitle ??AA"" *4:4:18,30;" " "" mj title @tBB~BBBJN>BB@>B~BBBJN>0>B~BBBJN>008>B~BBBJN>BRH8>B~BBBJN>8>B~BBBJN>??>B~BBBJN>???@P@P@P@P@P@P@PBBBBBFBBB@BBBBBBFBXBBBBBFBXX(BBBBBFBZRH(BBBBBFB(BBBBBFB@P@BBBBBFB@P@P@PBBB<>B~BBBJN>>H>B~BBBJN>8~~008>B~BBBJN>~~888>B~BBBJN>~~~88>B~BBBJN>~88>B~BBBJN>????>B~BBBJN>?~|@B>B~BBBJN>8BBBBBBFB~BBBBBFB(~~XX(BBBBBFB~~(((BBBBBFB~~~((BBBBBFB~((BBBBBFB@P@P@P@BBBBBFBP@PB~D@DBBBBBFB(<<BBB<B~BBBJN>8~|8>B~BBBJN>BRH~~88~>B~BBBJN>~~TUU88~>B~BBBJN>~(BBBBBFB(~(BBBBBFBZRH~~((~BBBBBFB~~TWU((~BBBBBFB<|BBB<"-1"15,25;"v";4;" "  64:y=1420:y,20;" ":y `n=1719:n,25;" ":n:0:255,15:0,25: `7:1:21,0;"Please wait - sorting the tiles ":0:4: X7:1:21,2;"You now get a LOOSE TILE ...":0:4: }.2~L,20:.2~L,0:7:1:21,2;"That is a concealed KONG !!!":0:4: o.2~L,20:7:1:21,0;"Pick up-(Y)es/(N)o.(E)xit/(S)ave":0:4: loose=1:7:1:17,25;"Your ";18,25;"Loose";19,25;"tile ";0:4: y.2~L,20:7:1:21,2;"Which tile to discard? (1-";w-f+1;")":0:4: .2~L,0:.2~L,20:.2~L,0:7:1:21,3;"That is an exposed KONG !!!":0:4: o.2~L,20:7:1:21,0;"Do you want this tile (Y)es/(N)o":0:4: \7:1:21,0;"Now we will count up your score.":0:4: K1:21,0;" ":502: Pa=f:x=fb:((h(x)-1)/4)="((h(b)-1)/4)"g(a)="h(x)":a="a+1" "x:a="a-1":a="f+2"pung="1"  =n=fw-3:"((h(n)-1)/4)"="((h(n+3)-1)/4)""185" n: a"150":7:1:21,3;"You have a CONCEALED KONG":"100":"980":"182" 0:4:168,568:24,0:0,-41):-25,0:0,41):3,3:25,0:-3,-3:0,-41):3,3:0,41): n=wf-1:big=0 m=fn:h(m)>big big=h(m) m:m=fw:h(m)=bigh(m)=h(n) m:h(n)=big:n: "235:n=13 w:x:y:n E24,7,0,14,4,14,8,14 74:n=xx+4:e=yy+6:e,n;" ":e:n 50:w="14"0,8:0,71G 245:n=13 w:x:y:n:x,y+3:3,0:-3,-3:0,-41):3,3:0,41): M192,112p,192,112p,32 ,568,64@,568 /c=1:l=1:v=99cc=c+1 (b=1w:h(b)137255 @((h(b)-1)/4)=((e(b)-1)/4)265  h(b)=keep130 #m=168-((l-1)*8) .1}L,10 :0:(c*8),m:24,0:0,-41):-25,0:0,41):3,3:25,0:0,-41):-3,-3:(c*8)+24,m+1:1,1:300,  Jc=c+4:c29c=1:l=l+7:v=99cc=c+1  Mb:b=w+1:n=1w:e(n)=h(n):n:e(b)=0:0:4: s0:4:0,0:255,0:0,175:-255,0:0,-175: L0:4:y=f*4-2264:6,y;"":y "Hy=2((w-7)*4)-24:y=30296( %13 ,y;"":y:"75": (Py=2((w-14)*4)-24:20,y;"":y:"75": 1c$="":x="((h(b)-1)/4)" 4x="-1""345" 6,xǰ"8"x="x+1":0:5:"345" ;-xǰ"17"x="x-8":0:6:"345" @6xǰ"26"c$="":x="x-17":7:0:"345" EUxǰ"29"c$="":330J:0:n=27x:x$:y:n:y:x="x-17":"345" J+"RED",2,"GRN",4,"WHT",7 LMxǰ"33"334N:n=30x:x$:n:1:7:c$="W":"345" N" N"," S"," E"," W" Q,340T:n=137h(b):x$:n:c$="" T1"SPR","SUM","AUT","WIN","SPR","SUM","AUT","WIN" V(5:0:h(b)ǰ"140"2 YHy=02:z=04:l+z,c+y;" ":z:y:x=-1 \7c$=""4:x="1"x="5"x="7"x="9"2 ^&h(b)ǰ"108"l,c;x:9 :"360" c l,c;x$ fIh(b)Ȱ"137"l+2,c;"***";l+3,c;"**";l+4,c;"***": h-h(b)ǰ"36"h(b)Ȱ"73"h(b)ǰ"108""400": m3h(b)Ȱ"37"h(b)ǰ"72"l+2,c+1;"": rFh(b)Ȱ"109"h(b)ǰ"120"l+4,c;c$:l+2,c+1;"": wl+3,c;c$: ~b="w+1":l="1":discard=n $n>"7"n="n-7":l="l+7":"385" Lc="n*4-3":0,.5:4:a=ll+4:a,c;" ":a:"75" discard="b""225": Bh(discard)="h(b)":pung="1"n=discardw:e(n)="0":n:"225" '"300":"130":"75":n="discard":  410+x %n=1x:y:z:l+y,c+z;c$:n: 2,1 !1,1,3,1 12,0,3,1,4,2 A2,0,4,0,2,2,4,2 Q2,0,4,0,3,1,2,2,4,2 a2,0,3,0,4,0,2,2,3,2,4,2 q0,2,1,1,2,0,3,0,3,2,4,0,4,2 1,0,1,2,2,0,2,2,3,0,3,2,4,0,4,2 1,0,1,2,2,0,2,2,3,0,3,2,4,0,4,2,3,1 #x$="pung":a=f+3x$="kong" X"150":ٰ"7":ڰ"1":21,2;"That is a ";x$;" OR a chow ...":"150":"150" 7:1:21,3;"Choose - (";x$(1);")";x$(24);" or (c)how ?":menu="1""100":a$=x$(1):"150":"50":7:1:21,0;"I will choose a ";x$;" - Thank you":"100":"428" "0:a$=:.2~L,20 8"150":"75":a$="c"a$="C""870":"75":"1150" %a$"p"a$"k"a$"P"a$"K""427" o=0:"75":1115[ 7:1:426 @0:1:4:z=1:f8465 Fy=(f*4)-2264:6,y;z:z=z+1:y By=2((w-7)*4)-24:y="30""475" $13 ,y;z:z="z+1":y:"490" Xy=((f-7)*4)-2((w-7)*4)-24:y="30""475" $13 ,y;z:z="z+1":y:"490" Ny=2((w-14)*4)-24:20,y;z:z="z+1":y "57":0: 0:7:1 Tr=117,25;"Your ";18,25;"discard":z$="NORTH": Gz$=w$17,25;"Your";18,25;"tile":525  Q17,25;"Discard";18,25;"by ";19,25;z$  z$="EAST"z$="NORTH": z$="NORTH"z$="WEST": z$="WEST"z$="SOUTH":  z$="EAST": +Pg(a)=h(b):i=f:n=fb:h(n)=g(i)d(i)=h(i):h(i)=g(i):h(n)=d(i):i=i+1 0@n:f="a+1":w="w+1":rɰ"1"(v+flowers)="92"eastpung="1" 2 e(w)="0": 8Eflowers=flowers+1:h(b)=aah(b)=abyrseason=yrseason+1 :7:1:21,0;"That is a SEASON tile for you.. ":"100":"150":21,2;7;1;"Exposing your SEASON tile ...":"100":d="1":"130" >0(d,29)39'd=d+1:574> A47:2:h(b)1415:0 B&"40":d,29;x$:"50":"150" Dv="0""1030" FBl="15":c="21":"142":"190":"120":m="b":"50":"300" J)145:75K:0:4: [a="f-1":mj="mj+1" ]N0:7:1:m=0:x=a:a8m=a-7:x=7 b0,"(x*2)-3";"EXPOSED":n="((x*2)-3)-1"1-1:0,n;"<":n:n="((x*2)-3)+7"̰"x*3+x-1":0,n;">":n gm00: l4n=1̰"m*3+m-1":7,n;">":n:0: w$="WEST"z$="SOUTH": w$="SOUTH"z$="EAST": w$="EAST"z$="NORTH":  z$="WEST": Ya=f:x=fb:((h(x)-1)/4)=((h(b)-1)/4)g(a)=h(x):a=a+1 )x:a=a-1:af+21150~ N143:70F:550&:h(f-2)=-1:h(f-3)=-1 7150:200:141:250:600X !130:150:142 v="0""1030" J"50":l="15":c="21":b="w+1":"120":"190":"300":"145":"40" h(b)Ȱ"137""565":"700" "150":"148" ,menuɰ"2""150":"2900":"100":"730" "0:a$=:.2~L,20 a$="n"a$="N""1088" a$="y"a$="Y""780" "725" dn=1f-3:"((h(b)-1)/4)"="((h(n)-1)/4)"ư"((h(b)-1)/4)"="((h(n+1)-1)/4)""765" n:665  147 Ih(w+2)=h(b):x=w+1n+1-1:h(x)=h(x-1):x h(n)=h(w+2)  Jw=w+1:f=f+1:250:600X:mj=mj-1:690  *440:0:150:146 menuɰ"2""1900":"795"  3400H Kn="n+f-1":"50":"380":"50":"280":"141":h(n)="h(w+1)":"1180" %m="((h(b)-1)/4)":m>"26" *.n="f"̰"w":"((h(n)-1)/4)+1"="m""820" / n:"840" 4.x="f"̰"w":"((h(x)-1)/4)-1"="m""865" 9x >.x="f"̰"w":"((h(x)-1)/4)+2"="m""865" Cx H.n="f"̰"w":"((h(n)-1)/4)-1"="m""850" Mn: R.x="f"̰"w":"((h(x)-1)/4)-2"="m""865" \x: a3a(1)=h(n):a(2)=h(x):a(3)=h(b) b7m="((a(1)-1)/36)":n=13:a(n)>"108" cmɰ"((a(n)-1)/36)" d n:o="1": f7:1:21,3;"That is an exposed CHOW...":"150":"150":"141":m="1":n=ff+2:g(m)="h(n)":m="m+1":n l>m=fw+1:a(1)=h(m)a(2)=h(m)h(m)=0 nFm:h(f)=a(1):h(f+1)=a(2):h(f+2)=a(3) p-d=w:w=f+2:200:w=d:d=1 vTh(w+1)=0:n=13:m=ff+2:g(n)=h(m)g(n)=0:n z*m:n:n=13:g(n)=0n |>m=f+3w+1:h(m)=0h(m)=g(n):g(n)=0 m:n qe(w+1)=0:pung="1":f="f+3":w="w+1":a="f-1":"200":"130":"250":"150":"600":o="1":  k=0 <m=0:n=w6-1:h(n)<137920 m=m+1:n  m=0b="w+1":110n mȰ"flowers"flowers="m" p150:7:1:21,5;"You have ";m;" SEASON tile":m>121,27;"s" R 80P:0:4:s="2":f="7":h(w-k)Ȱ"141"s="5":f="0" ;340T:h(w-k)=aah(w-k)=abyrseason=yrseason+1 x=137h(w-k):y$:x K"75":b="w+1":l="15":c="21":"190":"120":"300":"145":"150" h(b)137flowers=flowers+1:"50":7:1:21,0;"Your LOOSE TILE is a SEASON TILE":d=0:574>:955 V1:7:"150":21,1;"Swopping LOOSE tile for SEASON":d="1" 0(d,30)39'd=d+1:970 En="w":"380":s:f:d,29;y$:f="1":"50":"150":"141" .200:250:k=k+1:900 }m=03:g(m+1)=h(n+m):h(n+m)=h(f+m):h(f+m)=g(m+1):m:h(f+1)=-1:h(f+2)=-1 ea=4:f=f+4:141:200:250:600X:130:150:142 <l="15":c="21":b="w+1":"120":"190":"145":"300" &h(b)1375655:985 <"150":"148":menuɰ"2""100":"2900":"100":"993" "0:a$=:.2~L,20 0a$="n"a$="N""75":"130":"150":"170": a$"y"a$"Y""988" !"440":0:"150":"146" $menuɰ"2""1900":"100":"998"  3400H ]n="n+f-1":"50":"380":"50":280:141:h(n)=h(w+1):"200":"250": 1loose=0:j=1j=2:1015  j=0 $l="15":c="21":b="w+1":m="b" n=1w:e(n)=h(n):n vǰ"0""130":7:1:21,0;1;"NO MORE TILES - END OF GAME !!! ":0:"300":"150":7:1:21,0;"YOU DID NOT GET A MAH JONG HAND.":"1402" $w$(1)=z$(1)j=1 #"120":"190":.2~L,20 )(300,:500:0:4 .h(b)1375655 3"144" 5menuɰ"1""1085" 7=n=1120x:""a$=:.2~L,20:"1090" 9n ;"2900":"1090" =0:a$= BCa$="n"a$="N".2~L,-10 :"40":"130":"150":"1000" Ca$="e"a$="E".2~L,0::menu=0:v=92\:pung=0:keep=0:2850" :6:6::"105" E+a$="s"a$="S".2~L,20:"9500" Ha$"y"a$"Y".3,0:.3,0:"50":"150":7:1:21,0;1;" INVALID CHOICE !! TRY AGAIN.. ";0:"150":"150":"1075" J8.2~L,20:150:fish=11300 L j=1f3750 Qj="1""665" So="1""1135" V9j="2"o="0""800":o="1""160":aȰ"f+2""420" ["o="1"aǰ"f+1""870":"1150" o"160":"75":aǰ"f+1"7:1:1:21,0;"YOU CANNOT PICK UP THAT TILE !!!":0:150:"130":"150":"1000" r4a=f+3"75":"147":"150":"550":"685" t7:1:21,3;"That is an exposed PUNG ...":"150":"550":"150":"141":"200":"250":"130":"600":f="a+1" ymj>"5""1400" ~6"640":(w-f)+1=1n=1:1165 !"440":0:"150":"146" menuɰ"2""1900":"1165"  3400H 4n="n+f-1":e(n)="0":keep="h(n)":"280":"50" jɰ"1"w="w-1" t="1"w="w+1":t="0" 3r="1"w="w-1":"380":"225":r="0":"1180" "380" S"50":"141":"50":"200":"250":pung="0":"130":"150":"1200":"1000" Yendchowa="0":endchowb="0":endchowc="0":endpair="0":endpunga="0":endpungb="0" 3j(17):x="mj":n="1"̰"f-1":j(n)="1":n n=fw:n+2>w"1220" m="((h(n)-1)/4)":m="((h(n+1)-1)/4)"m="((h(n+2)-1)/4)"x="x+1":j(n)="1":j(n+1)="1":j(n+2)="1":n="n+2" n  x<"2" o="1""1245" /n=fw-2:j(n)="1"j(n+2)="1"n  m="((h(n)-1)/4)":mȰ"27"n Ӵm+1=((h(n+1)-1)/4)m+2=((h(n+2)-1)/4)x=x+1:j(n)=1:j(n+1)=1:j(n+2)=1:f>"1"1245 n  x<"3" ,endpair="-1":endb="-1":x<"4""1255" 5n=fw:j(n)="0"endpair="((h(n)-1)/4)":"1285" n ;m="1":n=fw:j(n)="0"k(m)="((h(n)-1)/4)":m="m+1" n N"k(1)"="k(2)"ư"k(3)"="k(4)"endpunga="k(1)":endpungb="k(3)":"1285"  o=1 0"k(1)"="k(2)"m="k(3)":n="k(4)":"1280" -"k(3)"="k(4)"m=k(1):n=k(2) mȰ"27"nȰ"27" Am=n-1endchowa=m-1:endchowb=n+1:1285 -m=n-2endchowc=m+1:1285   m=1 K((h(m)-1)/36$)>2h(m)=-1m=m+1:1286 n=1w:h(n)="-1"n c((h(n)-1)/36$)=((h(m)-1)/36$)ƺ((h(n)-1)/36$)<3"1295"  h(n)>"108""1295"  fȰ"2"  mixed="1" n n1:7:1:21,6;"YOU ARE FISHING !!! ":fish=1:"250":0:"150": mixed="1"jɰ"1""1100" Bsparhead=0:onlyplace=0:y=((h(b)-1)/4) )y=endpairsparhead=1:1380d 2 y=endpungay=endpungb"1380" F9k(1)=k(2)m=3:n=4:1360P Km=1:n=2 PKy=endchowaa(1)=h(b):a(2)=k(m):a(3)=k(n):1379c UKy=endchowba(1)=k(m):a(2)=k(n):a(3)=h(b):1379c ZKy=endchowca(1)=k(m):a(2)=h(b):a(3)=k(n):1379c _ "1100" conlyplace="1" d7:1:1:21,6;"MAH JONG - WELL DONE":0:n=130:.2~L,20:n:"150" iWj=1sparhead="1""141":w=w+1:"200":"250":"150":"149":"1400" n2y=endpungay=endpungbmj="10":"160":"1140" s"870":"150" yqburied="0":mj="99":"130":75K:7:1:21,0;"THAT'S A COMPLETE MAH JONG HAND." {#"200":"150":mjɰ"99""1405" |V7:21,1;"First we will check some hands":"100":"150":"3000" }=4:15,25;" ":"149":.2~L,20 ~=5:n=1420:n,14;" ":n p0:4:111o,64@:98b,0:0,-568:-98b,0:0,568 s"150":"150":ٰ"7":ڰ"1":21,3;"First your GROUND SCORE...":.2~L,20:"100":ٰ"0":ڰ"4" M0:6:14,15;"GROUND ";15,15;"SCORE: " score="0":mj="99""150":7:1:21,1;"You score 20 pts for MAH JONG":"100":score="20":"1497":"150" x="0":a="0" 6n="1"̰"w-2":"1425":a="a+1":y="1"̰"a":x$:y +"First","Second","Third","Fourth","fifth" Nٰ"7":ڰ"1":"((h(n)-1)/4)"ɰ"((h(n+3)-1)/4)""1455":kong check "h(n+1)"="-1"x="16":"1690":7:1:21,0;x$;" a concealed KONG:Score ";1;x;0:score="score+x":.2~L,20:"75":"1497":n="n+3":"1487" x="8":"1690" 7:1:21,0;x$;" an exposed KONG: Score ";1;x;0:.2~L,20:score="score+x":"75":"1497":n="n+3":"1487" >"((h(n)-1)/4)"ɰ"((h(n+2)-1)/4)""1475":Pung check x="2":"1690" nȰ"f"x="x*2":7:1:21,0;x$;" a concealed PUNG: Score ";1;x;0:.2~L,20:score="score+x":"75":"1497":n="n+2":"1487" 7:1:21,0;x$;" an exposed PUNG: Score ";1;x;0:.2~L,20:score="score+x":n="n+2":"75":"1497":b="0":"1487" !"((h(n)-1)/4)">"24""1485" 7:1:"((h(n)-1)/4)"="((h(n+2)-1)/4)-2"ư"((h(n)-1)/4)"="((h(n+1)-1)/4)-1"21,0;x$;" a CHOW. That scores 0 !!":.2~L,20:n="n+2":"200":"150":"1487"  a="a-1" n x="0" ր"150":x="0":ٰ"7":ڰ"1":21,2;"Your total GROUND SCORE: ";۰"1";score;۰"0":.2~L,20:"300":"150" 9score=07:0:15,24;"0"  1500 z"100":ٰ"7":z="(25-score)":ڰ"0":1:15,z;score:.2~L,20:"100":0:15,z;score  "150": z="0":y="0":extras="0":"75":ٰ"7":ڰ"1":21,0;"Now we count your EXTRA POINTS..":.2~L,20:502:0:6:17,15;"EXTRA ";18,15;"POINTS:":"150":ٰ"0":ڰ"4":"150":ٰ"7":ڰ"1" j21,5;"Any pairs of dragons?":.2~L,20:"75":a="109":b="120":"1540":"100" ]7:1:21,3;"Any pairs of your wind?":.2~L,20:75K: G1525:n=1yrwind:a,b:n:"1540":yrwndpung="z":"150" Q129,132,125},128,133,136,121y,124| ^7:1:21,1;"Any pairs of Wind of Rnd?":.2~L,20:502 O"1525":n=1rndwind:a,b:n:"1540":rndwndpung="z":"150":"1570" :z="0":y=0:n=1w-1:h(n)bn nw1553  W((h(n)-1)/4)=((h(n+2)-1)/4)n=n+2:z="z+1":n  n"2"n B"((h(n)-1)/36)"ɰ"((h(n+1)-1)/36)"n="29":"1890":"1725" n="29":x="1":"1895" 97:1:21,6;"An all pung hand?" ‘x="0":h(w+1)=-1:n=1w-2:"((h(n)-1)/4)"="((h(n+2)-1)/4)"ư"((h(n)-1)/4)"ɰ"((h(n+3)-1)/4)"x="x+1":n="n+2" 2"((h(n)-1)/4)"="((h(n+3)-1)/4)"n=n+3 =n:x=4n=24:x=1:1895g:1745 n=24:1890b B7:1:21,0;"Pungs or kongs of dragons?" 8z="0":n=1w-2:"((h(n)-1)/12)"ɰ"9"n nȰ"w-2""1760" f"((h(n)-1)/4)"="((h(n+2)-1)/4)"Ű"((h(n)-1)/4)"="((h(n+3)-1)/4)"z=z+1:n=n+2:n |z01:21,27;"YES ";z:0:.2~L,20:doubles="doubles+z":"50":"1899":"1770" n="27":"1890" B7:1:21,1;"Pung or kong of Your Wind?" 3yrwndpungɰ"0"n="28":x="1":"1895":"1785" n="28":"1890" xn="29":ٰ"7":ڰ"1":21,1;"Pung or Kong of Wnd of Rnd?":"75":rndwndpungɰ"0"x="1":"1895":"1795"  "1890" ٰ"7":ڰ"1":21,0;"Any Owner's Seasons (";s$;")?":.2~L,20:"75":yrseasonɰ"0"1:21,27;"YES ";yrseason:0:.2~L,20:doubles="doubles+yrseason":"50":"1899":"1809"  n="27":"1890" mjɰ"99""1825" ٰ"7":ڰ"1":21,0;"Loose Tile from wall for MJ?":.2~L,20:"75":loose="1"n="29":x="1":"1895":"1820" n="29":"1890" {ٰ"7":ڰ"1":21,0;"MJ with last tile from wall?":.2~L,20:v="0"j="1"n="29":"1895":"1825" n="29":"1890" !dw$="EAST"7:1:x="1":21,0;"As EAST WIND you get one DOUBLE.":"1897" "mjɰ"99""1830" $x7:1:21,3;"A BURIED TREASURE Hand?":"3050":n="27":buried="1"x="2":"1895":"1830" % "1890" &Z7:1:21,3;"A Set of SEASON TILES?":.2~L,20:"3500" +#n="26":x="0""1890":"1837" ,i7:1:21,27;1;"YES";21,31;0;x:x=x*3:"1897" -mjɰ"99""1845" .k7:1:21,6;"A PURITY Hand?":n="21":x=1w:h(x)Ȱ"109""1890":"1840" /x:x="3":"1895" 0;7:1:21,4;"An ALL HONOUR Hand?" 1jn=1w:x="((h(n)-1)/4)":xɰ"0"xɰ"8"xɰ"9"xɰ"17"xɰ"18"x<"27"n="24":"1890":"1845" 3n:n="24":x="3":"1895" 5doubles=07:1:21,1;"You did not score any doubles":150:150:7:0:16,24;"0":1865I 6fٰ"7":ڰ"1":21,5;"You have ";doubles;" double...":doublesɰ"1"21,22;"s" :;z="total":n="1"̰"doubles":total="total"+"total":n ?K"150":"150":7:1:21,0;"z";" pts doubled "; Cdoubles="1""once = "; Ddoubles="2""twice = "; E%doublesȰ"3";doubles;" times = "; F"75":۰"1":;"total" IW0:"75":ٰ"0":ڰ"6":18,14;"GRAND ";19,14;"TOTAL " NR7:0:"300":19,(25-total);"total":"50":"150" Sumenu="1""100":7:1:21,0;"ANOTHER DEMONSTRATION COMING ...":"1500":"2850":"105" XP"150":7:1:21,0;"PRESS ANY KEY FOR ANOTHER GAME. " ] 0 a "2850" dO"50":1:21,n;"NO":0:.2~L,0:"150":"150": h?1:"50":21,n;"YES":.1}L,20:0 i90:.2~L,20:doubles=doubles+x:502 k7:0:1:x="(25-doubles)":16,x;doubles:0:.2~L,20:"150":16,x;doubles:150: qn=fw vDx="((h(n)-1)/36)":x="3"x="seta"x="setb"x="setc""1915" x "1990" {n Sn=fw:x="((h(n)-1)/4)":x="((h(n+1)-1)/4)"x="((h(n+2)-1)/4)"n="n+2":n <x="((h(n+1)-1)/4)+1"x="((h(n+2)-1)/4)+2"n="n+2":n %x="((h(n+1)-1)/4)"n="n+1":n x="((h(b)-1)/4)"n Ƅn="n-f+1":"100":"150":7:1:.2~L,20:21,5;"I will discard number ";"n":"200":"150": ;x="0":y="0":z="0":n=1w:h(n)Ȱ"109""2025" "h(n)ǰ"36"x=x+1:"2025" h(n)ǰ"72"y="y+1":"2025"  z=z+1 n !seta="0":setb="1":setc="2"  x=yx=z x=yx>"z"setc="-1": x=zx>"y"setb="-1": y=zy>"x"seta="-1": +x>"y"x>"z"setb="-1":setc="-1":  )y>"x"y>"z"seta="-1":setc="-1": seta="-1":setb="-1":  2215 En=23675{\+256*23676|\:b=nn+135:c:b,c:b: C255,0,0,0,0,0,0,0 L16,16,124|,146,124|,16,16,16 N16,124|,132,120x,480,88X,148,178 I0,124|,40(,40(,568,40(,124|,0 G6,9 ,9 ,70F,80P,32 ,88X,128 K0,60<,126~,126~,126~,126~,60<,0 F0,64@,0,94^,82R,82R,82R,0 G0,8,8,120x,72H,72H,120x,0 I0,16,16,118v,84T,84T,116t,0 G0,0,0,119w,85U,87W,121y,3 G0,0,0,119w,85U,85U,117u,0 C0,0,0,24,24,0,0,0 C0,96`,96`,0,0,6,6,0 G192,192,0,24,24,0,3,3 I0,102f,102f,0,0,102f,102f,0 K102f,102f,0,24,24,0,102f,102f M102f,102f,0,102f,102f,0,102f,102f Y8,29;"Rnd";9 ,29;"Wnd";10 ,29;1;r$;0 K12 ,29;"You";13 ,29;1;w$(1);0 Q14,29;7;2;s$;15,29;0;5;s$  "50":"270":"75" ej="0":ڰ"4":ٰ"0":1,1;"TO SELECT EACH PLAYERS WIND:":.2~L,20:"50":ڰ"6" xonlyplace="0":sparhead="0":loose="0":yrseason="0":flowers="0":eastpung="0":end="0":fish="0":k(4) r3,1;"Throwing 2 dice each - the";4,1;"highest is EAST WIND:":.2~L,20:"50" mixed="0":v="91":pung="0":chow="0":mj="0":o="0":r="0":t="0":k="1":f="1":a="0":d(17):g(17):a(3) Q6,1;"You are ";ٰ"7";ڰ"1";"PLAYER 1":.2~L,20:502 0:y=14:x=2*y+6:x,3;"Player ";y;":":x=110n14232 :x,129-y*16:11 ,0:0,-11 :-11 ,0:0,10 :x:z=14:n=(*6)+1:b=(*6)+1: @2328 :x=1n:a$:x:2328 :x=1b:b$:x tx=2*y+6:.01z# =,-20:x,14;a$;x,16;"+";x,18;b$;x,20;"=":x=(n+b) "","","","","","" bz:"75":1:2*y+6,24-x;n+b:0:2*y+6,23-x;" " %d(y)=n+b:.2~L,(n+b)*3:y $4big=0:y=14:d(y)>bigbig=d(y) ),y:y=14:d(y)=big23553 .y 3d(y)=0:x=14:d(x)=big1:17,1;"TIE - THROWING AGAIN":0:1,0:y=715:y,13 ;" ":17,1;" ":y:2320 8Bx:17,18;" ":2365= :n=1y:w$:s$:n =7"EAST","WIN","SOUTH","SPR","WEST","SUM","NORTH","AUT" ?$2368@ :n=1y:aa:ab:n @Q140,144,137,141,138,142,139,143 B=y="1"17,1;ٰ"9";ڰ"1";"You are EAST WIND":.2~L,20:"75":7:0:19,1;"Your Season tiles:";ڰ"2";19,20;s$;7;0;19,24;"and";0;5;19,28;s$:.2~L,20:j="1":s$="WIN":w="14":r="1":"2385" Gl7:1:16,1;"Player ";y;" is EAST WIND":.2~L,20:75K:18,1;0;4;"You are ";w$;" WIND":.2~L,20:75K:7:0:20,1;"Your Season tiles":.2~L,20:2:20,20;s$;0;20,24;"and";20,28;0;5;s$ L"w=13 :y=2j=1 QXyrwind=y:2388T :n=(*4)+1:x=1n:r$:x:z$="EAST":rndwind=n T"E","S","W","N" V 2500 :5:5: e"50":"270":"50":0:6:1,3;"SETTING UP THE TABLE ... ":.73333,0:"50":4,3;5;"Mixing the 144 tiles..":.2~L,20:"50" jN6,3;ٰ"7";ڰ"0";"TWITTERING OF THE SPARROWS":.5,10 o,x="1"̰"20":n="(*40)":.05|L,n:x tٰ"0":ڰ"5":10 ,3;"Building the 4 walls..":.2~L,20:"50":12 ,3;"Pushing them together..":.2~L,20:"50" yR14,3;ٰ"7";ڰ"0";"TO KEEP THE DEVILS OUT":.2~L,20:"90" ~ٰ"0":ڰ"5":18,3;"We have now built the..":.2~L,20:"50":ٰ"7":ڰ"0":20,3;"GREAT WALL OF CHINA":.2~L,20:"200" 4:4:: t(144) :n=1w 4h(n)=(*144)+1:t(h(n))="1""2510" t(h(n))="1":n menu="1""2000"  'tv="99":4:4::d(21):"270":w="21":n=121:e(n)=0:h(n)="(*144)+1":n ,W"250":0:7:n=119:e(n)="0":n,n+1;"*MAH JONG*":n 6"75" ;jٰ"7":ڰ"1":21,0;" ENTER 'D' (DEMO) OR 'G' (GAME) ":menu="1""50":6::104h >"0:a$=:.2~L,20 @,a$="D"a$="d""50":menu="1":104h E(a$="G"a$="g"menu=2:104h J "2878" W)"150":v+flowers>"80"f="1""2000" Yx="0":seta="-1"x="x+1" Zsetb="-1"x="x+1" \setc="-1"x="x+1" ^x="2""25":"2914" ` "2000" bDx="((h(b)-1)/36)":x="3"x="seta"x="setb"x="setc""2918" d "2970" fUx="((h(b)-1)/4)":n=fw-1:x="((h(n)-1)/4)"x="((h(n+1)-1)/4)""2980" hn:jɰ"2"oɰ"0""2935" k"800":o="0""2935" mx=12:n=fw-1:((h(n)-1)/4)=((a(x)-1)/4)ư"((h(n+1)-1)/4)"="((a(x)-1)/4)"o="0":"2970" rn:x:o="0":"2980" en=1f-1:"((h(b)-1)/4)"="((h(n)-1)/4)"ư"((h(b)-1)/4)"="((h(n+1)-1)/4)""2980" n n=fw:h(n)Ȱ"109""2955" =x="((h(n)-1)/36)":xɰ"seta"xɰ"setb"xɰ"setc""2980" n 3n=fw:"((h(b)-1)/4)"="((h(n)-1)/4)""2980" n P7:1:.2~L,0:21,9 ;"NO - Thank you":"100" a$="n": Z.2~L,20:7:1:21,10 ;"YES - Please":"100":a$="y": B7:1:21,5;"An ALL KONG HAND?":x="23" ez="0":n=1w-3:((h(n)-1)/4)="((h(n+3)-1)/4)"z="z+1":n=n+3:n n:z<"4""3360":"3100" "3370":x="1":"3380" "3100" f>"1"jɰ"1" m="1" 6((h(m)-1)/36$)>"2"m=m+1:"3075" n=1w:h(n)=-1n Y((h(n)-1)/36$)ɺ((h(m)-1)/36$)ƺ((h(n)-1)/36$)<"3" n buried="1": &F7:1:21,5;"A MIXED PUNG HAND?":x=24 +f>"1"jɰ"1""3140" 0hz="0":n=1w:m="((h(n)-1)/4)":m="((h(n+2)-1)/4)"mɰ"((h(n+3)-1)/4)"z="z+1":n="n+2" :*n,z:n:z="4""3370":x="1":"3380" D "3360" XE7:1:21,4;"A CHINESE ODDS HAND?":x="25" b`n=1w:y="((h(n)-1)/4)":m=082:y="m"y="m+9"y="m+18""3180" gm:"3360":"3200" ln v"3370":x="1":"3380" J7:1:21,1;"A HEAVENLY PARADISE HAND?":x="27" w$(1)r$"3299" Yz="0":n=1w:((h(n)-1)/4)<"27"ź((h(n)-1)/4)>"29"n +h(n+1)="-1"z="z+1":n="n+3":n <"((h(n)-1)/4)"="((h(n+2)-1)/4)"z="z+1":n="n+2":n n:z<"3""3299" &1525:n=1yrwind:a,b:n -n=1w-2:h(n)<"a"h(n)>"b"n h(n+1)="-1""3265" 7((h(n)-1)/4)="((h(n+2)-1)/4)""3265" "3299" %n=1w:h(n)>"a"h(n)<"b"n D((h(n)-1)/4)<"30"ź((h(n)-1)/4)>"33"n F((h(n)-1)/4)=((h(n+1)-1)/4)"3285" n:"3299" "3500" x="0""3299" &x=28:"3370":x="2":"3390" "3360"  %O"40":1:7:1:21,x;"NO":.2~L,0:0 )75K:"150": /Q"40":1:7:1:21,x;"YES":.2~L,20:0 3"150":"150": 9jx="1"7:1:1:21,0;"You score a LIMIT (5000 points)":0:"3395" >J7:1:1:21,3;"YOU WIN THE GAME OUTRIGHT" @f400:150:7:1:21,0;"TAKE EVERYONES' MONEY STAKES !!":0 C"600":"150":"1875" H omegawd=j Mn$:n$=03405M R<j=1̱n$:n$(j)<480ůn$(j)>5793405M \j f!n=n$:n>"(w-f)+1"3405M p j=omegawd: 3x="0":m=137140:t(m)ɰ"1""3520" m:x="1" +m=141144:t(m)ɰ"1""3540" m:x="x+1"  #('n=114:n,:h(n):h(n):n %"mj" 1:"screen" env\uneeX, cfR nlyplacparheaoosrseasolowerastpunnisixehoortkf Y Yi]wrwinndwinetetetl8 sdiscar ndchowndchowndchowndpaindpungndpungi ndcorxtrarwndpunndwndpunota(oubleuriemegawYSPRXUWXVOTIBWWESTSSUMREN5XZEASTlXWHTCAaqlutitle ??AE A"" *4:4:18,30;" " "" mj title @tXBB~BBBJN>BB@>B~BBBJN>0>B~BBBJN>008>B~BBBJN>BRH8>B~BBBJN>8>B~BBBJN>??>B~BBBJN>???@P@P@P@P@P@P@PBBBBBFBBB@BBBBBBFBXBBBBBFBXX(BBBBBFBZRH(BBBBBFB(BBBBBFB@P@BBBBBFB@P@P@PBBB<>B~BBBJN>>H>B~BBBJN>8~~008>B~BBBJN>~~888>B~BBBJN>~~~88>B~BBBJN>~88>B~BBBJN>????>B~BBBJN>?~|@B>B~BBBJN>8BBBBBBFB~BBBBBFB(~~XX(BBBBBFB~~(((BBBBBFB~~~((BBBBBFB~((BBBBBFB@P@P@P@BBBBBFBP@PB~D@DBBBBBFB(<<BBB<B~BBBJN>8~|8>B~BBBJN>BRH~~88~>B~BBBJN>~~TUU88~>B~BBBJN>~(BBBBBFB(~(BBBBBFBZRH~~((~BBBBBFB~~TWU((~BBBBBFB<|BBB<"-1"15,25;"v";4;" "  64:y=1420:y,20;" ":y `n=1719:n,25;" ":n:0:255,15:0,25: `7:1:21,0;"Please wait - sorting the tiles ":0:4: X7:1:21,2;"You now get a LOOSE TILE ...":0:4: }.2~L,20:.2~L,0:7:1:21,2;"That is a concealed KONG !!!":0:4: o.2~L,20:7:1:21,0;"Pick up-(Y)es/(N)o.(E)xit/(S)ave":0:4: loose=1:7:1:17,25;"Your ";18,25;"Loose";19,25;"tile ";0:4: y.2~L,20:7:1:21,2;"Which tile to discard? (1-";w-f+1;")":0:4: .2~L,0:.2~L,20:.2~L,0:7:1:21,3;"That is an exposed KONG !!!":0:4: o.2~L,20:7:1:21,0;"Do you want this tile (Y)es/(N)o":0:4: \7:1:21,0;"Now we will count up your score.":0:4: K1:21,0;" ":502: Pa=f:x=fb:((h(x)-1)/4)="((h(b)-1)/4)"g(a)="h(x)":a="a+1" "x:a="a-1":a="f+2"pung="1"  =n=fw-3:"((h(n)-1)/4)"="((h(n+3)-1)/4)""185" n: a"150":7:1:21,3;"You have a CONCEALED KONG":"100":"980":"182" 0:4:168,568:24,0:0,-41):-25,0:0,41):3,3:25,0:-3,-3:0,-41):3,3:0,41): n=wf-1:big=0 m=fn:h(m)>big big=h(m) m:m=fw:h(m)=bigh(m)=h(n) m:h(n)=big:n: "235:n=13 w:x:y:n E24,7,0,14,4,14,8,14 74:n=xx+4:e=yy+6:e,n;" ":e:n 50:w="14"0,8:0,71G 245:n=13 w:x:y:n:x,y+3:3,0:-3,-3:0,-41):3,3:0,41): M192,112p,192,112p,32 ,568,64@,568 /c=1:l=1:v=99cc=c+1 (b=1w:h(b)137255 @((h(b)-1)/4)=((e(b)-1)/4)265  h(b)=keep130 #m=168-((l-1)*8) .1}L,10 :0:(c*8),m:24,0:0,-41):-25,0:0,41):3,3:25,0:0,-41):-3,-3:(c*8)+24,m+1:1,1:300,  Jc=c+4:c29c=1:l=l+7:v=99cc=c+1  Mb:b=w+1:n=1w:e(n)=h(n):n:e(b)=0:0:4: s0:4:0,0:255,0:0,175:-255,0:0,-175: L0:4:y=f*4-2264:6,y;"":y "Hy=2((w-7)*4)-24:y=30296( %13 ,y;"":y:"75": (Py=2((w-14)*4)-24:20,y;"":y:"75": 1c$="":x="((h(b)-1)/4)" 4x="-1""345" 6,xǰ"8"x="x+1":0:5:"345" ;-xǰ"17"x="x-8":0:6:"345" @6xǰ"26"c$="":x="x-17":7:0:"345" EUxǰ"29"c$="":330J:0:n=27x:x$:y:n:y:x="x-17":"345" J+"RED",2,"GRN",4,"WHT",7 LMxǰ"33"334N:n=30x:x$:n:1:7:c$="W":"345" N" N"," S"," E"," W" Q,340T:n=137h(b):x$:n:c$="" T1"SPR","SUM","AUT","WIN","SPR","SUM","AUT","WIN" V(5:0:h(b)ǰ"140"2 YHy=02:z=04:l+z,c+y;" ":z:y:x=-1 \7c$=""4:x="1"x="5"x="7"x="9"2 ^&h(b)ǰ"108"l,c;x:9 :"360" c l,c;x$ fIh(b)Ȱ"137"l+2,c;"***";l+3,c;"**";l+4,c;"***": h-h(b)ǰ"36"h(b)Ȱ"73"h(b)ǰ"108""400": m3h(b)Ȱ"37"h(b)ǰ"72"l+2,c+1;"": rFh(b)Ȱ"109"h(b)ǰ"120"l+4,c;c$:l+2,c+1;"": wl+3,c;c$: ~b="w+1":l="1":discard=n $n>"7"n="n-7":l="l+7":"385" Lc="n*4-3":0,.5:4:a=ll+4:a,c;" ":a:"75" discard="b""225": Bh(discard)="h(b)":pung="1"n=discardw:e(n)="0":n:"225" '"300":"130":"75":n="discard":  410+x %n=1x:y:z:l+y,c+z;c$:n: 2,1 !1,1,3,1 12,0,3,1,4,2 A2,0,4,0,2,2,4,2 Q2,0,4,0,3,1,2,2,4,2 a2,0,3,0,4,0,2,2,3,2,4,2 q0,2,1,1,2,0,3,0,3,2,4,0,4,2 1,0,1,2,2,0,2,2,3,0,3,2,4,0,4,2 1,0,1,2,2,0,2,2,3,0,3,2,4,0,4,2,3,1 #x$="pung":a=f+3x$="kong" X"150":ٰ"7":ڰ"1":21,2;"That is a ";x$;" OR a chow ...":"150":"150" 7:1:21,3;"Choose - (";x$(1);")";x$(24);" or (c)how ?":menu="1""100":a$=x$(1):"150":"50":7:1:21,0;"I will choose a ";x$;" - Thank you":"100":"428" "0:a$=:.2~L,20 8"150":"75":a$="c"a$="C""870":"75":"1150" %a$"p"a$"k"a$"P"a$"K""427" o=0:"75":1115[ 7:1:426 @0:1:4:z=1:f8465 Fy=(f*4)-2264:6,y;z:z=z+1:y By=2((w-7)*4)-24:y="30""475" $13 ,y;z:z="z+1":y:"490" Xy=((f-7)*4)-2((w-7)*4)-24:y="30""475" $13 ,y;z:z="z+1":y:"490" Ny=2((w-14)*4)-24:20,y;z:z="z+1":y "57":0: 0:7:1 Tr=117,25;"Your ";18,25;"discard":z$="NORTH": Gz$=w$17,25;"Your";18,25;"tile":525  Q17,25;"Discard";18,25;"by ";19,25;z$  z$="EAST"z$="NORTH": z$="NORTH"z$="WEST": z$="WEST"z$="SOUTH":  z$="EAST": +Pg(a)=h(b):i=f:n=fb:h(n)=g(i)d(i)=h(i):h(i)=g(i):h(n)=d(i):i=i+1 0@n:f="a+1":w="w+1":rɰ"1"(v+flowers)="92"eastpung="1" 2 e(w)="0": 8Eflowers=flowers+1:h(b)=aah(b)=abyrseason=yrseason+1 :7:1:21,0;"That is a SEASON tile for you.. ":"100":"150":21,2;7;1;"Exposing your SEASON tile ...":"100":d="1":"130" >0(d,29)39'd=d+1:574> A47:2:h(b)1415:0 B&"40":d,29;x$:"50":"150" Dv="0""1030" FBl="15":c="21":"142":"190":"120":m="b":"50":"300" J)145:75K:0:4: [a="f-1":mj="mj+1" ]N0:7:1:m=0:x=a:a8m=a-7:x=7 b0,"(x*2)-3";"EXPOSED":n="((x*2)-3)-1"1-1:0,n;"<":n:n="((x*2)-3)+7"̰"x*3+x-1":0,n;">":n gm00: l4n=1̰"m*3+m-1":7,n;">":n:0: w$="WEST"z$="SOUTH": w$="SOUTH"z$="EAST": w$="EAST"z$="NORTH":  z$="WEST": Ya=f:x=fb:((h(x)-1)/4)=((h(b)-1)/4)g(a)=h(x):a=a+1 )x:a=a-1:af+21150~ N143:70F:550&:h(f-2)=-1:h(f-3)=-1 7150:200:141:250:600X !130:150:142 v="0""1030" J"50":l="15":c="21":b="w+1":"120":"190":"300":"145":"40" h(b)Ȱ"137""565":"700" "150":"148" ,menuɰ"2""150":"2900":"100":"730" "0:a$=:.2~L,20 a$="n"a$="N""1088" a$="y"a$="Y""780" "725" dn=1f-3:"((h(b)-1)/4)"="((h(n)-1)/4)"ư"((h(b)-1)/4)"="((h(n+1)-1)/4)""765" n:665  147 Ih(w+2)=h(b):x=w+1n+1-1:h(x)=h(x-1):x h(n)=h(w+2)  Jw=w+1:f=f+1:250:600X:mj=mj-1:690  *440:0:150:146 menuɰ"2""1900":"795"  3400H Kn="n+f-1":"50":"380":"50":"280":"141":h(n)="h(w+1)":"1180" %m="((h(b)-1)/4)":m>"26" *.n="f"̰"w":"((h(n)-1)/4)+1"="m""820" / n:"840" 4.x="f"̰"w":"((h(x)-1)/4)-1"="m""865" 9x >.x="f"̰"w":"((h(x)-1)/4)+2"="m""865" Cx H.n="f"̰"w":"((h(n)-1)/4)-1"="m""850" Mn: R.x="f"̰"w":"((h(x)-1)/4)-2"="m""865" \x: a3a(1)=h(n):a(2)=h(x):a(3)=h(b) b7m="((a(1)-1)/36)":n=13:a(n)>"108" cmɰ"((a(n)-1)/36)" d n:o="1": f7:1:21,3;"That is an exposed CHOW...":"150":"150":"141":m="1":n=ff+2:g(m)="h(n)":m="m+1":n l>m=fw+1:a(1)=h(m)a(2)=h(m)h(m)=0 nFm:h(f)=a(1):h(f+1)=a(2):h(f+2)=a(3) p-d=w:w=f+2:200:w=d:d=1 vTh(w+1)=0:n=13:m=ff+2:g(n)=h(m)g(n)=0:n z*m:n:n=13:g(n)=0n |>m=f+3w+1:h(m)=0h(m)=g(n):g(n)=0 m:n qe(w+1)=0:pung="1":f="f+3":w="w+1":a="f-1":"200":"130":"250":"150":"600":o="1":  k=0 <m=0:n=w6-1:h(n)<137920 m=m+1:n  m=0b="w+1":110n mȰ"flowers"flowers="m" p150:7:1:21,5;"You have ";m;" SEASON tile":m>121,27;"s" R 80P:0:4:s="2":f="7":h(w-k)Ȱ"141"s="5":f="0" ;340T:h(w-k)=aah(w-k)=abyrseason=yrseason+1 x=137h(w-k):y$:x K"75":b="w+1":l="15":c="21":"190":"120":"300":"145":"150" h(b)137flowers=flowers+1:"50":7:1:21,0;"Your LOOSE TILE is a SEASON TILE":d=0:574>:955 V1:7:"150":21,1;"Swopping LOOSE tile for SEASON":d="1" 0(d,30)39'd=d+1:970 En="w":"380":s:f:d,29;y$:f="1":"50":"150":"141" .200:250:k=k+1:900 }m=03:g(m+1)=h(n+m):h(n+m)=h(f+m):h(f+m)=g(m+1):m:h(f+1)=-1:h(f+2)=-1 ea=4:f=f+4:141:200:250:600X:130:150:142 <l="15":c="21":b="w+1":"120":"190":"145":"300" &h(b)1375655:985 <"150":"148":menuɰ"2""100":"2900":"100":"993" "0:a$=:.2~L,20 0a$="n"a$="N""75":"130":"150":"170": a$"y"a$"Y""988" !"440":0:"150":"146" $menuɰ"2""1900":"100":"998"  3400H ]n="n+f-1":"50":"380":"50":280:141:h(n)=h(w+1):"200":"250": 1loose=0:j=1j=2:1015  j=0 $l="15":c="21":b="w+1":m="b" n=1w:e(n)=h(n):n vǰ"0""130":7:1:21,0;1;"NO MORE TILES - END OF GAME !!! ":0:"300":"150":7:1:21,0;"YOU DID NOT GET A MAH JONG HAND.":"1402" $w$(1)=z$(1)j=1 #"120":"190":.2~L,20 )(300,:500:0:4 .h(b)1375655 3"144" 5menuɰ"1""1085" 7=n=1120x:""a$=:.2~L,20:"1090" 9n ;"2900":"1090" =0:a$= BCa$="n"a$="N".2~L,-10 :"40":"130":"150":"1000" Ca$="e"a$="E".2~L,0::menu=0:v=92\:pung=0:keep=0:2850" :6:6::"105" E+a$="s"a$="S".2~L,20:"9500" Ha$"y"a$"Y".3,0:.3,0:"50":"150":7:1:21,0;1;" INVALID CHOICE !! TRY AGAIN.. ";0:"150":"150":"1075" J8.2~L,20:150:fish=11300 L j=1f3750 Qj="1""665" So="1""1135" V9j="2"o="0""800":o="1""160":aȰ"f+2""420" ["o="1"aǰ"f+1""870":"1150" o"160":"75":aǰ"f+1"7:1:1:21,0;"YOU CANNOT PICK UP THAT TILE !!!":0:150:"130":"150":"1000" r4a=f+3"75":"147":"150":"550":"685" t7:1:21,3;"That is an exposed PUNG ...":"150":"550":"150":"141":"200":"250":"130":"600":f="a+1" ymj>"5""1400" ~6"640":(w-f)+1=1n=1:1165 !"440":0:"150":"146" menuɰ"2""1900":"1165"  3400H 4n="n+f-1":e(n)="0":keep="h(n)":"280":"50" jɰ"1"w="w-1" t="1"w="w+1":t="0" 3r="1"w="w-1":"380":"225":r="0":"1180" "380" S"50":"141":"50":"200":"250":pung="0":"130":"150":"1200":"1000" Yendchowa="0":endchowb="0":endchowc="0":endpair="0":endpunga="0":endpungb="0" 3j(17):x="mj":n="1"̰"f-1":j(n)="1":n n=fw:n+2>w"1220" m="((h(n)-1)/4)":m="((h(n+1)-1)/4)"m="((h(n+2)-1)/4)"x="x+1":j(n)="1":j(n+1)="1":j(n+2)="1":n="n+2" n  x<"2" o="1""1245" /n=fw-2:j(n)="1"j(n+2)="1"n  m="((h(n)-1)/4)":mȰ"27"n Ӵm+1=((h(n+1)-1)/4)m+2=((h(n+2)-1)/4)x=x+1:j(n)=1:j(n+1)=1:j(n+2)=1:f>"1"1245 n  x<"3" ,endpair="-1":endb="-1":x<"4""1255" 5n=fw:j(n)="0"endpair="((h(n)-1)/4)":"1285" n ;m="1":n=fw:j(n)="0"k(m)="((h(n)-1)/4)":m="m+1" n N"k(1)"="k(2)"ư"k(3)"="k(4)"endpunga="k(1)":endpungb="k(3)":"1285"  o=1 0"k(1)"="k(2)"m="k(3)":n="k(4)":"1280" -"k(3)"="k(4)"m=k(1):n=k(2) mȰ"27"nȰ"27" Am=n-1endchowa=m-1:endchowb=n+1:1285 -m=n-2endchowc=m+1:1285   m=1 K((h(m)-1)/36$)>2h(m)=-1m=m+1:1286 n=1w:h(n)="-1"n c((h(n)-1)/36$)=((h(m)-1)/36$)ƺ((h(n)-1)/36$)<3"1295"  h(n)>"108""1295"  fȰ"2"  mixed="1" n n1:7:1:21,6;"YOU ARE FISHING !!! ":fish=1:"250":0:"150": mixed="1"jɰ"1""1100" Bsparhead=0:onlyplace=0:y=((h(b)-1)/4) )y=endpairsparhead=1:1380d 2 y=endpungay=endpungb"1380" F9k(1)=k(2)m=3:n=4:1360P Km=1:n=2 PKy=endchowaa(1)=h(b):a(2)=k(m):a(3)=k(n):1379c UKy=endchowba(1)=k(m):a(2)=k(n):a(3)=h(b):1379c ZKy=endchowca(1)=k(m):a(2)=h(b):a(3)=k(n):1379c _ "1100" conlyplace="1" d7:1:1:21,6;"MAH JONG - WELL DONE":0:n=130:.2~L,20:n:"150" iWj=1sparhead="1""141":w=w+1:"200":"250":"150":"149":"1400" n2y=endpungay=endpungbmj="10":"160":"1140" s"870":"150" yqburied="0":mj="99":"130":75K:7:1:21,0;"THAT'S A COMPLETE MAH JONG HAND." {#"200":"150":mjɰ"99""1405" |V7:21,1;"First we will check some hands":"100":"150":"3000" }=4:15,25;" ":"149":.2~L,20 ~=5:n=1420:n,14;" ":n p0:4:111o,64@:98b,0:0,-568:-98b,0:0,568 s"150":"150":ٰ"7":ڰ"1":21,3;"First your GROUND SCORE...":.2~L,20:"100":ٰ"0":ڰ"4" M0:6:14,15;"GROUND ";15,15;"SCORE: " score="0":mj="99""150":7:1:21,1;"You score 20 pts for MAH JONG":"100":score="20":"1497":"150" x="0":a="0" 6n="1"̰"w-2":"1425":a="a+1":y="1"̰"a":x$:y +"First","Second","Third","Fourth","fifth" Nٰ"7":ڰ"1":"((h(n)-1)/4)"ɰ"((h(n+3)-1)/4)""1455":kong check "h(n+1)"="-1"x="16":"1690":7:1:21,0;x$;" a concealed KONG:Score ";1;x;0:score="score+x":.2~L,20:"75":"1497":n="n+3":"1487" x="8":"1690" 7:1:21,0;x$;" an exposed KONG: Score ";1;x;0:.2~L,20:score="score+x":"75":"1497":n="n+3":"1487" >"((h(n)-1)/4)"ɰ"((h(n+2)-1)/4)""1475":Pung check x="2":"1690" nȰ"f"x="x*2":7:1:21,0;x$;" a concealed PUNG: Score ";1;x;0:.2~L,20:score="score+x":"75":"1497":n="n+2":"1487" 7:1:21,0;x$;" an exposed PUNG: Score ";1;x;0:.2~L,20:score="score+x":n="n+2":"75":"1497":b="0":"1487" !"((h(n)-1)/4)">"24""1485" 7:1:"((h(n)-1)/4)"="((h(n+2)-1)/4)-2"ư"((h(n)-1)/4)"="((h(n+1)-1)/4)-1"21,0;x$;" a CHOW. That scores 0 !!":.2~L,20:n="n+2":"200":"150":"1487"  a="a-1" n x="0" ր"150":x="0":ٰ"7":ڰ"1":21,2;"Your total GROUND SCORE: ";۰"1";score;۰"0":.2~L,20:"300":"150" 9score=07:0:15,24;"0"  1500 z"100":ٰ"7":z="(25-score)":ڰ"0":1:15,z;score:.2~L,20:"100":0:15,z;score  "150": z="0":y="0":extras="0":"75":ٰ"7":ڰ"1":21,0;"Now we count your EXTRA POINTS..":.2~L,20:502:0:6:17,15;"EXTRA ";18,15;"POINTS:":"150":ٰ"0":ڰ"4":"150":ٰ"7":ڰ"1" j21,5;"Any pairs of dragons?":.2~L,20:"75":a="109":b="120":"1540":"100" ]7:1:21,3;"Any pairs of your wind?":.2~L,20:75K: G1525:n=1yrwind:a,b:n:"1540":yrwndpung="z":"150" Q129,132,125},128,133,136,121y,124| ^7:1:21,1;"Any pairs of Wind of Rnd?":.2~L,20:502 O"1525":n=1rndwind:a,b:n:"1540":rndwndpung="z":"150":"1570" :z="0":y=0:n=1w-1:h(n)bn nw1553  W((h(n)-1)/4)=((h(n+2)-1)/4)n=n+2:z="z+1":n  n"2"n B"((h(n)-1)/36)"ɰ"((h(n+1)-1)/36)"n="29":"1890":"1725" n="29":x="1":"1895" 97:1:21,6;"An all pung hand?" ‘x="0":h(w+1)=-1:n=1w-2:"((h(n)-1)/4)"="((h(n+2)-1)/4)"ư"((h(n)-1)/4)"ɰ"((h(n+3)-1)/4)"x="x+1":n="n+2" 2"((h(n)-1)/4)"="((h(n+3)-1)/4)"n=n+3 =n:x=4n=24:x=1:1895g:1745 n=24:1890b B7:1:21,0;"Pungs or kongs of dragons?" 8z="0":n=1w-2:"((h(n)-1)/12)"ɰ"9"n nȰ"w-2""1760" f"((h(n)-1)/4)"="((h(n+2)-1)/4)"Ű"((h(n)-1)/4)"="((h(n+3)-1)/4)"z=z+1:n=n+2:n |z01:21,27;"YES ";z:0:.2~L,20:doubles="doubles+z":"50":"1899":"1770" n="27":"1890" B7:1:21,1;"Pung or kong of Your Wind?" 3yrwndpungɰ"0"n="28":x="1":"1895":"1785" n="28":"1890" xn="29":ٰ"7":ڰ"1":21,1;"Pung or Kong of Wnd of Rnd?":"75":rndwndpungɰ"0"x="1":"1895":"1795"  "1890" ٰ"7":ڰ"1":21,0;"Any Owner's Seasons (";s$;")?":.2~L,20:"75":yrseasonɰ"0"1:21,27;"YES ";yrseason:0:.2~L,20:doubles="doubles+yrseason":"50":"1899":"1809"  n="27":"1890" mjɰ"99""1825" ٰ"7":ڰ"1":21,0;"Loose Tile from wall for MJ?":.2~L,20:"75":loose="1"n="29":x="1":"1895":"1820" n="29":"1890" {ٰ"7":ڰ"1":21,0;"MJ with last tile from wall?":.2~L,20:v="0"j="1"n="29":"1895":"1825" n="29":"1890" !dw$="EAST"7:1:x="1":21,0;"As EAST WIND you get one DOUBLE.":"1897" "mjɰ"99""1830" $x7:1:21,3;"A BURIED TREASURE Hand?":"3050":n="27":buried="1"x="2":"1895":"1830" % "1890" &Z7:1:21,3;"A Set of SEASON TILES?":.2~L,20:"3500" +#n="26":x="0""1890":"1837" ,i7:1:21,27;1;"YES";21,31;0;x:x=x*3:"1897" -mjɰ"99""1845" .k7:1:21,6;"A PURITY Hand?":n="21":x=1w:h(x)Ȱ"109""1890":"1840" /x:x="3":"1895" 0;7:1:21,4;"An ALL HONOUR Hand?" 1jn=1w:x="((h(n)-1)/4)":xɰ"0"xɰ"8"xɰ"9"xɰ"17"xɰ"18"x<"27"n="24":"1890":"1845" 3n:n="24":x="3":"1895" 5doubles=07:1:21,1;"You did not score any doubles":150:150:7:0:16,24;"0":1865I 6fٰ"7":ڰ"1":21,5;"You have ";doubles;" double...":doublesɰ"1"21,22;"s" :;z="total":n="1"̰"doubles":total="total"+"total":n ?K"150":"150":7:1:21,0;"z";" pts doubled "; Cdoubles="1""once = "; Ddoubles="2""twice = "; E%doublesȰ"3";doubles;" times = "; F"75":۰"1":;"total" IW0:"75":ٰ"0":ڰ"6":18,14;"GRAND ";19,14;"TOTAL " NR7:0:"300":19,(25-total);"total":"50":"150" Sumenu="1""100":7:1:21,0;"ANOTHER DEMONSTRATION COMING ...":"1500":"2850":"105" XP"150":7:1:21,0;"PRESS ANY KEY FOR ANOTHER GAME. " ] 0 a "2850" dO"50":1:21,n;"NO":0:.2~L,0:"150":"150": h?1:"50":21,n;"YES":.1}L,20:0 i90:.2~L,20:doubles=doubles+x:502 k7:0:1:x="(25-doubles)":16,x;doubles:0:.2~L,20:"150":16,x;doubles:150: qn=fw vDx="((h(n)-1)/36)":x="3"x="seta"x="setb"x="setc""1915" x "1990" {n Sn=fw:x="((h(n)-1)/4)":x="((h(n+1)-1)/4)"x="((h(n+2)-1)/4)"n="n+2":n <x="((h(n+1)-1)/4)+1"x="((h(n+2)-1)/4)+2"n="n+2":n %x="((h(n+1)-1)/4)"n="n+1":n x="((h(b)-1)/4)"n Ƅn="n-f+1":"100":"150":7:1:.2~L,20:21,5;"I will discard number ";"n":"200":"150": ;x="0":y="0":z="0":n=1w:h(n)Ȱ"109""2025" "h(n)ǰ"36"x=x+1:"2025" h(n)ǰ"72"y="y+1":"2025"  z=z+1 n !seta="0":setb="1":setc="2"  x=yx=z x=yx>"z"setc="-1": x=zx>"y"setb="-1": y=zy>"x"seta="-1": +x>"y"x>"z"setb="-1":setc="-1":  )y>"x"y>"z"seta="-1":setc="-1": seta="-1":setb="-1":  2215 En=23675{\+256*23676|\:b=nn+135:c:b,c:b: C255,0,0,0,0,0,0,0 L16,16,124|,146,124|,16,16,16 N16,124|,132,120x,480,88X,148,178 I0,124|,40(,40(,568,40(,124|,0 G6,9 ,9 ,70F,80P,32 ,88X,128 K0,60<,126~,126~,126~,126~,60<,0 F0,64@,0,94^,82R,82R,82R,0 G0,8,8,120x,72H,72H,120x,0 I0,16,16,118v,84T,84T,116t,0 G0,0,0,119w,85U,87W,121y,3 G0,0,0,119w,85U,85U,117u,0 C0,0,0,24,24,0,0,0 C0,96`,96`,0,0,6,6,0 G192,192,0,24,24,0,3,3 I0,102f,102f,0,0,102f,102f,0 K102f,102f,0,24,24,0,102f,102f M102f,102f,0,102f,102f,0,102f,102f Y8,29;"Rnd";9 ,29;"Wnd";10 ,29;1;r$;0 K12 ,29;"You";13 ,29;1;w$(1);0 Q14,29;7;2;s$;15,29;0;5;s$  "50":"270":"75" ej="0":ڰ"4":ٰ"0":1,1;"TO SELECT EACH PLAYERS WIND:":.2~L,20:"50":ڰ"6" xonlyplace="0":sparhead="0":loose="0":yrseason="0":flowers="0":eastpung="0":end="0":fish="0":k(4) r3,1;"Throwing 2 dice each - the";4,1;"highest is EAST WIND:":.2~L,20:"50" mixed="0":v="91":pung="0":chow="0":mj="0":o="0":r="0":t="0":k="1":f="1":a="0":d(17):g(17):a(3) Q6,1;"You are ";ٰ"7";ڰ"1";"PLAYER 1":.2~L,20:502 0:y=14:x=2*y+6:x,3;"Player ";y;":":x=110n14232 :x,129-y*16:11 ,0:0,-11 :-11 ,0:0,10 :x:z=14:n=(*6)+1:b=(*6)+1: @2328 :x=1n:a$:x:2328 :x=1b:b$:x tx=2*y+6:.01z# =,-20:x,14;a$;x,16;"+";x,18;b$;x,20;"=":x=(n+b) "","","","","","" bz:"75":1:2*y+6,24-x;n+b:0:2*y+6,23-x;" " %d(y)=n+b:.2~L,(n+b)*3:y $4big=0:y=14:d(y)>bigbig=d(y) ),y:y=14:d(y)=big23553 .y 3d(y)=0:x=14:d(x)=big1:17,1;"TIE - THROWING AGAIN":0:1,0:y=715:y,13 ;" ":17,1;" ":y:2320 8Bx:17,18;" ":2365= :n=1y:w$:s$:n =7"EAST","WIN","SOUTH","SPR","WEST","SUM","NORTH","AUT" ?$2368@ :n=1y:aa:ab:n @Q140,144,137,141,138,142,139,143 B=y="1"17,1;ٰ"9";ڰ"1";"You are EAST WIND":.2~L,20:"75":7:0:19,1;"Your Season tiles:";ڰ"2";19,20;s$;7;0;19,24;"and";0;5;19,28;s$:.2~L,20:j="1":s$="WIN":w="14":r="1":"2385" Gl7:1:16,1;"Player ";y;" is EAST WIND":.2~L,20:75K:18,1;0;4;"You are ";w$;" WIND":.2~L,20:75K:7:0:20,1;"Your Season tiles":.2~L,20:2:20,20;s$;0;20,24;"and";20,28;0;5;s$ L"w=13 :y=2j=1 QXyrwind=y:2388T :n=(*4)+1:x=1n:r$:x:z$="EAST":rndwind=n T"E","S","W","N" V 2500 :5:5: e"50":"270":"50":0:6:1,3;"SETTING UP THE TABLE ... ":.73333,0:"50":4,3;5;"Mixing the 144 tiles..":.2~L,20:"50" jN6,3;ٰ"7";ڰ"0";"TWITTERING OF THE SPARROWS":.5,10 o,x="1"̰"20":n="(*40)":.05|L,n:x tٰ"0":ڰ"5":10 ,3;"Building the 4 walls..":.2~L,20:"50":12 ,3;"Pushing them together..":.2~L,20:"50" yR14,3;ٰ"7";ڰ"0";"TO KEEP THE DEVILS OUT":.2~L,20:"90" ~ٰ"0":ڰ"5":18,3;"We have now built the..":.2~L,20:"50":ٰ"7":ڰ"0":20,3;"GREAT WALL OF CHINA":.2~L,20:"200" 4:4:: t(144) :n=1w 4h(n)=(*144)+1:t(h(n))="1""2510" t(h(n))="1":n menu="1""2000"  'tv="99":4:4::d(21):"270":w="21":n=121:e(n)=0:h(n)="(*144)+1":n ,W"250":0:7:n=119:e(n)="0":n,n+1;"*MAH JONG*":n 6"75" ;jٰ"7":ڰ"1":21,0;" ENTER 'D' (DEMO) OR 'G' (GAME) ":menu="1""50":6::104h >"0:a$=:.2~L,20 @,a$="D"a$="d""50":menu="1":104h E(a$="G"a$="g"menu=2:104h J "2878" W)"150":v+flowers>"80"f="1""2000" Yx="0":seta="-1"x="x+1" Zsetb="-1"x="x+1" \setc="-1"x="x+1" ^x="2""25":"2914" ` "2000" bDx="((h(b)-1)/36)":x="3"x="seta"x="setb"x="setc""2918" d "2970" fUx="((h(b)-1)/4)":n=fw-1:x="((h(n)-1)/4)"x="((h(n+1)-1)/4)""2980" hn:jɰ"2"oɰ"0""2935" k"800":o="0""2935" mx=12:n=fw-1:((h(n)-1)/4)=((a(x)-1)/4)ư"((h(n+1)-1)/4)"="((a(x)-1)/4)"o="0":"2970" rn:x:o="0":"2980" en=1f-1:"((h(b)-1)/4)"="((h(n)-1)/4)"ư"((h(b)-1)/4)"="((h(n+1)-1)/4)""2980" n n=fw:h(n)Ȱ"109""2955" =x="((h(n)-1)/36)":xɰ"seta"xɰ"setb"xɰ"setc""2980" n 3n=fw:"((h(b)-1)/4)"="((h(n)-1)/4)""2980" n P7:1:.2~L,0:21,9 ;"NO - Thank you":"100" a$="n": Z.2~L,20:7:1:21,10 ;"YES - Please":"100":a$="y": B7:1:21,5;"An ALL KONG HAND?":x="23" ez="0":n=1w-3:((h(n)-1)/4)="((h(n+3)-1)/4)"z="z+1":n=n+3:n n:z<"4""3360":"3100" "3370":x="1":"3380" "3100" f>"1"jɰ"1" m="1" 6((h(m)-1)/36$)>"2"m=m+1:"3075" n=1w:h(n)=-1n Y((h(n)-1)/36$)ɺ((h(m)-1)/36$)ƺ((h(n)-1)/36$)<"3" n buried="1": &F7:1:21,5;"A MIXED PUNG HAND?":x=24 +f>"1"jɰ"1""3140" 0hz="0":n=1w:m="((h(n)-1)/4)":m="((h(n+2)-1)/4)"mɰ"((h(n+3)-1)/4)"z="z+1":n="n+2" :*n,z:n:z="4""3370":x="1":"3380" D "3360" XE7:1:21,4;"A CHINESE ODDS HAND?":x="25" b`n=1w:y="((h(n)-1)/4)":m=082:y="m"y="m+9"y="m+18""3180" gm:"3360":"3200" ln v"3370":x="1":"3380" J7:1:21,1;"A HEAVENLY PARADISE HAND?":x="27" w$(1)r$"3299" Yz="0":n=1w:((h(n)-1)/4)<"27"ź((h(n)-1)/4)>"29"n +h(n+1)="-1"z="z+1":n="n+3":n <"((h(n)-1)/4)"="((h(n+2)-1)/4)"z="z+1":n="n+2":n n:z<"3""3299" &1525:n=1yrwind:a,b:n -n=1w-2:h(n)<"a"h(n)>"b"n h(n+1)="-1""3265" 7((h(n)-1)/4)="((h(n+2)-1)/4)""3265" "3299" %n=1w:h(n)>"a"h(n)<"b"n D((h(n)-1)/4)<"30"ź((h(n)-1)/4)>"33"n F((h(n)-1)/4)=((h(n+1)-1)/4)"3285" n:"3299" "3500" x="0""3299" &x=28:"3370":x="2":"3390" "3360"  %O"40":1:7:1:21,x;"NO":.2~L,0:0 )75K:"150": /Q"40":1:7:1:21,x;"YES":.2~L,20:0 3"150":"150": 9jx="1"7:1:1:21,0;"You score a LIMIT (5000 points)":0:"3395" >J7:1:1:21,3;"YOU WIN THE GAME OUTRIGHT" @f400:150:7:1:21,0;"TAKE EVERYONES' MONEY STAKES !!":0 C"600":"150":"1875" H omegawd=j Mn$:n$=03405M R<j=1̱n$:n$(j)<480ůn$(j)>5793405M \j f!n=n$:n>"(w-f)+1"3405M p j=omegawd: 3x="0":m=137140:t(m)ɰ"1""3520" m:x="1" +m=141144:t(m)ɰ"1""3540" m:x="x+1"  #('n=114:n,:h(n):h(n):n %"mj" 1:"screen" env\uneeX, cfR nlyplacparheaoosrseasolowerastpunnisixehoortkf Y Yi]wrwinndwinetetetl8 sdiscar ndchowndchowndchowndpaindpungndpungi ndcorxtrarwndpunndwndpunota(oubleuriemegawYSPRXUWXVOTIBWWESTSSUMREN5XZEASTlXWHTCqlA 4