Db?j!6Y:\81V#o(@#~ ր o >$ӟ   #Ùϟ ǛÙÙɜϟρǛ 9À>g 6v痟vogo>y>zE%: ţ:2Σ.2.e 9僀>g 6v珟nogo>x>x6v6ƅbJjf6f68|9ޞ<}2<>3:>V:֧>:2>3>~Þ|2>3><<*9T*T*UT *~T$4zxRʿ}ʿ}ʿ}ʿ}ʿ~__ீ^(fr)gTzPzĦdqphmL Zذrgzԧx $***i*I"LJ0"v)Tb"L*Q*0_?ҼؒHFRP&dK"!"! "* >ngi18fDd"LQ Q Cx06 X9g9XЎ?m={:&g[g[9s9 +q+ً+ً3>ϛll6 X9g8Xӯ"IkH%k6fg[g[9s9 +q+ً+ً3>ϛll6 X9gX6wgG@sfޙg[g[9s9 +q+ً+ً3>ϛll6 X9gXnѶ'V[VKVSV[V[V[V[VkVsV[VKRSF[ZZZZ6;VVVsVVVVVVVTQFll 9Y9g0A'Iq PM+ty_^uMd-[M@yپ=}ччٓ@477353<dzTLJ=NM2L3ói > =0\7+iiXڜԮħ#|_GC@@vG_|rPAAGG__~|رڳғүȪ@UՀx88<\~8=f'Y9x>w<`;83/~g7{/mmnxwg_F_V|fvfV46>F^>|6Vfv4fVF^^|fvv6p?30?03>}6}? p???_>O3Mφr>|]FvF=p  <8 .G3L 0<? @>@0 >Fs<@ 3?<p_oWiV8fYÞ^<~[X.)0??'tG3 0<@`PhF`AÀ@<@@@ 3?<|c}15nbP]=;+=^?@p_v6 n|l`PY?Op_v뿟n> v7F 7z htn`;` >?6 =Ϙx=ku ng﹟;o̟>vgF /z hp?np0`>?6g =טx=kqns7d48?.?`/w`?O 9p{p8?;  wO/w{w;48?.6?p/o?_/ Wy>{pp03; 6 o_߯/Wy{ww748?.}?.]?`} =/;|߼\7oָ}?=>"AA@A ~ n8t?m0 >~nqa>?o  ?t07t|{x1{h>?o?q7q yxcC_>=E@@1=g`>4>ſ=g|/0/~| |?`| |xd(ۀxXx0 |g'/ß{ |op/`/pop/t~@| |owsqp0| }{?>9=;`%߼v9wp/{z lpG:}{)gʁU+ߓ߫߃߅  ? pxw^>v<<?{<?> >v< `0/0݀:x1.0Yzrݦ8ٜNrs8<À~ /݇{0/x<8?x8=!|(v1[߾k0qw~8=;?x;=}v[߾kqϏw~< hÌ0>;)10 d!gg`Ǔat [e.6/>>)1egG8hݜ1m-X4;d7./.66/6>>;)!0dgǗc[ۃe.6 vvvv}}}M}]PPPP zz```` $OO,B.F0~ hhhh p @;`:"@ (hwx_os|>??a7/(Q78qo``i`i0}XXXX3ƞ9PPPPťŵյ١ɑ55PPPPm%%%xxxxEEEUUժUUxxxx@@@@@@@((((pppp*((ppppxxxxxxxxpppp @HA@ d```` J &0)ȉF0 9G$Hl?y$6````0ph` PP|#0 8DDDDD8 $ $PPPP*[x[x@xo@x[x[x@xPPPP??--?--??pppp?`^{}uuu)uuE}xxxxwttwtpxxxx [[[[ c|#s97??hhhhxxxx4444467544/P%'/E/'`5eG5Oɀ @A8BrdͫO$fDsX|B#~Br̳ݘ`YLBE~# xxxx?`@ x#* *xxxxkm-ikklnml nml l ll>xxxxހ@~DVD4ܯ޾րxxxx00xxxxOO?ÃOO?xxxx_Pr{@ PPPPU,ݰ~p+}N````qwuuw=]1uUwppppO_=#ݻ7'1hhhh      ~xx@x              _TX xxx@,FTTT xx *I4}xxxx <l< <xx      2:V:Zz^>'Si`TWde'HM\xxxx Xh7/;r;r;r xxxx80 ,(2*))xxxx?LH((8{()( `xxxx   ,]xxl<x       xx9z1@xx02?<xx&b"|xx ;xx        x 8`oD0l &2Z[6oXPxxxx               xx `PP ? xxxx   oyz{>t Xxxxx =s,~((~|? <@@xxxxc Pxi()^).|0;?xxxx1({X{4~ ~><`xxxx/0:????O  @xxxx/0:ɿ_ xxxx?poX[Xhx߽yXb?xxxx8l7-tt|L׸z0@xxxx       @ xxxx                xxpߠ`xLd䴶lߨ( @>'xxxx  x            xx!$$$@/3;``)p7xxxx d`dPPPP@@ @@PPPP@@ @@PPPPpLC@@0@ @0@CLpPPPP0 @@@@ 0````0 @@@@ 0xxxx        ''>';xx %? 03? 03O3l6+?KORr-8g-t1SjrVM9Z[G3hjpݳ@՛9 p@?@ ?TUUA UUAT@ p@9p8??0- @# # @00- @# x x00xx x x0???xxxpxx88xxppxx8A BH !<8 #<p0<8 8wẅwẅNgsNgsr΀r΀p<<;f=B<ll8>>~~|||||||>> |||||||||<Ϝ>xygx<'88_Lds#<,1ҺD,1666dddd +qrt'G8d8mff=8p  008~~8p888 0`<88888888888p 0 `0 0`x888f>00<66<202 >BB<DHpHDB@~BfZBBBBbRJFB"LOW PAIR":5600 "s$""t$="HIGH PAIR":5600 i=19 :c$(1)=r$(i)c$(2)=r$(i+1)c$(3)=r$(i+2)c$(4)=r$(i+3)c$(5)=r$(i+4)t$="STRAIGHT"  hi:c$(1)="A"c$(2)="0"c$(3)="J"c$(4)="Q"c$(5)="K"t$="HIGH STRAIGHT" !{s$="NOTHING":f$(1)=f$(2)f$(2)=f$(3)f$(3)=f$(4)f$(4)=f$(5)s$="FLUSH" "<s$="FLUSH"t$="HIGH STRAIGHT"t$="ROYAL FLUSH":5600 #:s$="FLUSH"t$="STRAIGHT"t$="STRAIGHT FLUSH":5600 $t$=""t$=s$ % 5600 &dtmpc=0:tmpc=c+3:c=(tmpc/4):col=(tmpc-c*4)+1:*** ConvertCard *** (s$=r$(c):s$="0"s$="10" ) *fz=15:c=(c$(z))-64@:550&:s$="10"s$="0":** Convet c$ to real Cardnmes ** +&c$(z)=s$:f$(z)=(col+64@):z: 010 ,7;1;t$:498:i=112 :s$:c:t$=s$11 ,7;1;"YOU WIN: ";c:gold=gold+c 4 i:s$="2" 6c14,7;"N=New Game":15,7;"E=End Game":22:a$="E"a$="e"20 8!a$="N"a$="n"a$=s$:408 : 5666 X660:*Karo* Zbi+15,j+2:8,16:-8,16:-8,-16:8,-16 \ b660:*Herz* d-i+16,j+7:n=1:m=-1 f10 ,n*10 :0,n*10 :-4,n*4:-5,0:-2,m*2:-2,n*2:-5,0:-4,m*4:0,m*10 :10 ,m*10 : l660:*pick* n9i+16,j+32 :n=-1:m=1:614f pPi+11 ,j+4:8,0:i+15,j+4:0,6: v660:*kreuz* xei+10 ,j+30:638~:i+6,j+20:638~:i+16,j+20:638~ z 624p ~H8,0:0,-8:-8,0:0,8: gi+2,j+2:26,0:0,36$:-26,0:0,-36$:*back* Qi,j:30,0:0,40(:-30,0:0,-40(: Gi=mx:i=ii+89Y:i,0:i:45056::** ClearScreen ** '1,1;1;"Wait...": i=22528X22800Y i,0:i %"Startadress?":a:***HexMonitor*** nb=a:i=41-1:n=(b/(16^(i-1))):b=b-(n*(16^(i-1))):692:i b":";:a=aa+8:b=(a):n=(b/16):b=b-n*16:692:n=b:692:" ";:a  684 'n=n+480:n58:n=n+7 n$=(n):n$;: +i=49100̿492000:c:i,c:i,c:i >i=032 :c=(46973}+i):47909%+i,c:i: _810*:i=49200049299:c:i,c:i::*49100-BFCC:listvars;49200-C030:itemtable* 8item=(itable+rn):item=090Z:***Items*** &item<9 750+item:b$:i$ :mx+b$(2)-480,b$(3)-480:90Z 8item<9 750+item:b$:s$:***ActionItem*** mc=68D746 $4,2;"You found a ";s$ 6i=b$(1)-480:v(i)=v(i)+1:v$(i)=s$ 0mx+b$(2)-480,b$(4)-480 'itable+rn,0:66B:24 7*ITEM-DATEN: inr,iposition,iblocknew,iblockold,string "1OCJ","Key" "1OC[","Key" "2OC[","Herb" "3OC[","Shild" "5`U[","Enemy" "6atJ","locked door!" "7gUJ","Enemy2" "8WTJ","Guard"  *ROOM TABLE* !y1,2,4,6,7,8,9 ,10 ,11 ,12 ,3,5,1,79O,80P,81Q,77M,76L,78N,524,14,13 ,19,20,20,21,41),42*,47/,46.,15,22,24,38&,39',40(,524,43+,44,,45-,16,23,25,37%,513,13,524,502,491,480,17,27,26,59;,568,568,67C,557,546,535,18,28,36$,60<,568,568,68D,69E,70F,71G,35#,29,36$,58:,579,568,75K,74J,73I,72H,34",30,36$,1,1,61=,62>,62>,62>,63?,32 ,31,33!,66B,65A,65A,65A,65A,65A,64@ %*INROOM-TABLE* &!1,2,2,2,2,2,1,3,3,4,1,2,1,1,1,1,1,1,1,5,5,6,5,5,5,5,5,5,4,6,5,5,5,5,5,5,5,2,1,5,5,5,5,5,5,5,1,1,1,1,5,5,5,5,5,5,1,5,5,5,5,5,5,7,5,1,1,1,1,5,1,5,5,5,5,1,1,1,1,1,5,5,5,5,5,5,1,1,1,1,1,1,1,1,1,1,1,1,1,1 )*ITEM-ENEMY TABLE* *Q0,0,0,0,0,0,7,0,8,0 +Q0,0,0,0,0,0,0,0,0,0 ,Q0,0,2,0,0,0,0,0,0,0 -Q0,0,2,0,2,5,6,0,0,0 .Q0,0,0,2,3,2,0,0,0,0 /Q0,0,0,0,4,0,0,0,0,0 0Q0,0,0,0,1,0,0,0,0,0 1Q0,0,0,0,0,0,0,0,0,0 2Q0,0,0,0,0,0,0,0,0,0 3Q0,0,0,0,0,0,0,0,0,0 R *INROOMS* S="o;g<;B=B=;;g=;CFCF;;>F>;hF;;?F?=hF;;hFDEFF;;lF;;lFj;7;;;;" TJ"o;<<;=Bg=;;==;FCFD ;;>F;gFDF;;?F=gFDO;;FEFFEFDF;;FFEFFEFF;; jF j;7;;;;" U%"m9l^99l]99m\99\m9l\m9\99l\j979999" VC"o;<<;=Bg=;;==;FCFF ;;>F;FFPFF;;?F=FFDFF;;hFEgF;;lF;; jF j;7;;;;" W'"o9l^99l]99l\i9\\i9l\h9h\h9l\j979999" X2"o9lN99l=99lJ99JIJJIJIJ99lJ99JJIgJIJ99lJj979999" Y@"o9lN99lM99>J>J>JJA99?J?J?gJ99gJKLJIJ99JIJKLgJ99gJKLgJj979999"  *ROOMS* 2"p2k132l132k1332k1882j13882i13g82h133g82h133833" ""n2g3h8i3k833883y83o83i83p8" ;"2g13388332h138g32h13g532i167632k1332j1g32i1h323g1i32l33" ,"n2g1k3h1g5388h1676383l183k1g3j1h3g1p3h33" G"3l833g838g5383h86763383i83883g83388338838388g38338838833h838k388g33" -"n9nNJJlM9mJ9nJ9iJIUJ99J9J9JJ9J99JJ9hJk9J9" *"n9nNnMnJlJ9JJ99JJ99J99JJ9J9J9gJj9JJn99" ,"n9nNnMnJnJi9Jh9J9JJKLJ9J99JJ9KLJJj9KLg99" ""n9nNnMxJ99kJ99J9jJ99JJ9iJi9iJ9" ""n9nNnMt[9[l9g[99Y99i[99k[i9i[9" !"p2l122v13m13388h18h3i8k388p33" 5"n2l122j1g52j16762j12:223388122122g3i832i388332m32" /"h9[[i9ZN9[[gN99HM9[[gM99l[9x[9l[99l[i9[[g99" 2"y9Y[9[[gN99[V9[[gM99[9k[9[9k[9[[9i[99l[i9[[g99" K"h9[[i9Z99[[i9H99[[9NN99H9g[99M99H9[9g[9[9[9[[9[9[[99[9[[9[g9h[9g[i9[h99" 3"h9[j9[[9i[99g[h9[99[9j[99[[m9k[99[j9[99l[i9[h99" 3"h9[j9gN[hN99gM[hM99l[99l[99n[9l[99g[KLg[i9KLg99" <"h9KLi9gNKL99N99MGMKL9WM99g[KL9[[99g[KL9[[99h[9g[g9j[w999" -"o9lN99lM99l[9[9j[9g[9h[9[[9[[h9[[g9j[n999" 1"p9<9<9<9<99l=99l[9JIJIJIJIpJ9IJIJIJI[g9j[n999" A"h9KLi9gNKLgN99gMKLgM99gJKLgJ9hJKLlJKLhJ9gJKLgJg9JJKLJJj9KLg99" /"h9[[l9[[gNg9M9[[gM99l[99m[9m[9l[g9j[j9[[g99" D"h9[[m9h[g9[9[9g[99i[99[99[99g[9[99[9[9[[9[99[[9[9g[g9[[9[l9[[g99" &"o9lN99lM99k[99m[9m[99l[g9j[j9[[g99" *"h9[[j9j[h9k[99l[99m[9m[99k[g9j[j9[[g99" ;"h9[[j9i[i9i[h9i[9[[9g[9[99[[9h[9[[9[g9g[99[[g9j[j9[[g99" /"p9j"2m32h38g3823g5i32867688g323h83833288383g832k8332h8i3288j33" 4"h9JJiJgNJJNNg9gMJJMMg9kJg9lJ99lJ99kJi9hJk9JJ9999" 4"h9[[i9<<9[[9<<99==9[[9==99l[9x[99k[999j[j9[[9999" ("o9l<99l=99l[99m[9m[99k[999j[j9[[9999" ""o9l<99l=99j[9Y9x[99k[999j[n999" A"h9KLi9g@Pײ@@U*"2 !  ~͆*##"#*, "x HS>2  PS>2  ***Set Block***!($ = "*[w#w# * w#w# *:      w#w w#w=    '  #D   34567 =$:a$="E"a$="e"20 =c+10 :d=c:j=1t(i):d,s:d=d-1:j:s=s+1:i:45056::**ig1copy** listvars;49200-C030:itemtable* ;"2.k-joystick":7 FillMatrix *** MMMMMMWXWMMjdM323Vb3-0b}x(>@Pײ@@U*"2 !  ~͆*##"#*, "x HS>2  PS>2  ***Set Block***!($ = "*[w#w# * w#w# *:      w#w w#w=    '  #D   34567 =$=$A"A@ ! @xxx0|#s97??hhh0 q]s?-]7w~M~?o}```0c߶UUHHH0UU_UUHHH0???0000?`_}~zzzzzB~PPP0 @HAA d```0WۓOOHHH0xxx0}}}M}]xxx0Կ_|{|ƿXXX00000?+*xxx0o? xxx0w__`"@xxx0 0(870t0404> ~xxx0m%%%xxx0EUEUժUUxxx0@@@((xxx0 (xxx0xxx0م9)5[mGPPP0UUUUPPP0:zxxx0~>~66~>~xxx0xxx0{{xxx0;yy9=;9y XXX0 y;9)IXXX0}}l xxxxxx}/I5r"\T(\W}lػw//xxx0H2"X5,ZںU?]YovQxxx0k{ыm[ٛl"5s~?xxx0ʽ|z^^>~޸xxx0ڵ,z^^>Y~x~qxxx0j4Y_ԯĪfKN~;^zxxx0FV.n+YO{xxx0?ZZU]ovQxxx0U@Ww_wwwxxx0qwuuw=]1uUwxxx0jmUU?????xxx0xxx0*U{mmnn*XXX0$UφګmڪoЮ:XXX04444467544xxx0/P%'.E/'`5eG5Oɀxxx0?j@!Vz* *xxx0 xxx0?@@@@aAFXFA@a@@@@?hhh0  @@hhh0@@  hhh0pLC@@1@ @1@CLphhh07]ʉΉʉI?hhh0\`]UUIU]I`\hhh0ܕUUIhhh0\`PUQ]U\`\hhh0wݸ;@@;hhh0T(P8xxxx0???\>P ?=@9?8?/xxx0oU(9p=xxx0nU( ppxxx0?=X X5<;?>;8 > ߿πə*K\> > ~(>w(o( ր`>$>(>)#^#2ϼ/|?Cq5WWWWWWWW 񓓙ۓ W{ۓ Wۓ66ۓAWu߶6ۓo{ 홙ߟO O?ٺO~~OP߿~O ͘͟ A۔|ەY{ۓەۓۿ%߭߭߭߭߭߭ ܏)МПO Ƀ܃ϻ绔OO>>Ot30矇>O|N 33真9玞 ɟϓ瓔Ư癙ϓO{痟痟矗ōu 'Ïg ~~{v^uρϟǛ~ Mc xq^Uッ2w/66l"66W 癁ɟ6ۓ W ۓ66666666ۓ WWWWW ۓۓ66666ۓۓۓ ~uO~~5~~1Aݻ线 ϙ~O ~~~ O~~~~~~~~O ~~~~~ OO~~~~~OOO uosە˓ ۿ  σ>wn_ >>::>::>u᫛σɃ݃ ۙ::>O ɻ绛݃>>> O>>>>>>>>O ߭߾>>>>>߭߭ OO>>>>>OOO ϟuU ϟɟٟ 灙瑑 瓛ٟ ~?{~~zz~~zz~w קßzz~ÿ~~~~~~~~~~~~~~~~~~~~~ 6?  66666666  ?7F@1ʉV@WWWWWWW ۓۓۓۓۓۓۓ @WWWWW A @IۓۓۓۓۓL@ OOOOOOO @p @a COOOOOL@  @@L @@LL@߭߭߭߭߭߭ OOOOOOO @a@C߭߭߭߭ @@pOOOOOL@ A @] @L@  F @1ʉ@V@ X@ Ή??W@HxxxxH 8HxHH 8HxHH 8H`XHH 8H`HH 8HH0xxxx0000xxHH 8H`HH 8H`xxHH 8x x 8x 8x`HH 8x `xHH 8H `xHH 8HHxHH 8HHHH xH 8HHHH xH 8H 8H 8 h H 8 h HL8@o # @6\\\\b*[b'\%/TDWX![! HP!!x0 K SR P45056:710 <236066\,0:236077\,187:font bc00-beff 0:7:1,1;"HARRY THE MAGICAL":2,1;"-":4:3,1;"The Hero Hallows":4,1;"(c) cmg 1986-2010":10 ,1;"cmg";(64@);"breathenet.de":11 ,1;"01746973355";(64@):12 ,1;"vodafone.de":6,1;"1.keys: 1,2,3,4,5":7,1;"2.kemp-Joystick" z7:8,1;1;"Press 1 or 2":22:a$="1"20,1;"1 2 3 4 5":e=26:12 <a$="2"20,1;"KEMPSTON":e=32 :12 7 <b=45056:mx=45313:B000,B101 *** Variables *** 5itable=492000:v(5):v$(5,5) sn=60<:snlr=0:sx=5:xs=0:xt=0:sy=4:ys=0:yt=0:rn=36$:mc=0:pos=0:oldb=0:**Sprite/RoomValues** ja$="":s$="":i=0:j=0:k=0:l=0:c=0:p=0:z=0:** Globals ** Ahp=10 :mp=10 :ex=0:lv=1:gold=10 Qleft=100d:down=120x:up=140:right=160:action=180 item=0:rf=0:vf=0:t(6):c$(5):r$="A234567890JQK":d$(524):f$(5):** flags,ingames **  80P:e a$=:a$=""22   90Z:e  *KEYBOARD* 3k=63486:k=191k=25526 k<200k=k+64@ Kl=254:d=253:u=251:r=247:a=239:40(  *KEMPSTON* "k=31:k=032 "8l=2:d=4:u=8:r=1:a=16 (xs=sx:ys=sy ) k=ddown * k=uup + k=rright , k=aaction - k=lleft .e 2Amxb=mx:1,1;1;"Wait...":*** ShowMatrix *** 4i=0̱a$-1 5c=a$(i+1)-480:c557d=a$(i+2)-480:k=0c-535:mxb,d:mxb=mxb+1:k:i=i+2:535 6mxb,c:mxb=mxb+1:i B0:7:0,24;"STATUS":1,24;"=":4,20;" ":4,20;"HP:";hp:5,20;"MP:";mp:6,20;"Ex:";ex:7,20;"Lv:";lv:8,20;" ":8,20;"Gd:";gold Hg10 ,20;"Inventory:":i=15:v(i)010 +i,20;v(i);" ";v$(i) Li: Pt801!+5*rf:i=1rn:mn:i:mn+(900-502*rf):a$:502:720:*** FillMatrix *** ZLpos=mx+sx+sy*10 :oldb=(pos):pos,sn:y=b:pos,oldb::***Sprite*** c 90Z:e drsn=62>+snlr:snlr=snlr+1:snlr=snlr*(snlr2):sx=sx-1:sx-1112p:** Left ** lsx=9 :rn=rn-1 n 80P p$200:z=0sx=xs:sy=ys t 90Z:e xMsnlr=0:sy=sy+1:sn=64@:sy9 112p:** Down ** ~'sy=0:rn=rn+10 :110n Lsnlr=0:sy=sy-1:sn=66B:sy-1112p:** Up ** 'sy=8:rn=rn-10 :110n ssn=60<+snlr:snlr=snlr+1:snlr=snlr*(snlr2):sx=sx+1:sx10 112p:** Right ** &sx=0:rn=rn+1:110n Ymc=68Dv(1)=0s$="You need a key to open!!!":188:***Action*** kmc=68Dv(1)>04,1;"Door open!!!":v(1)=v(1)-1:740 %mc=19item0740 Amc<35#mc>42*4,2;"Nothing happens ":e Gmc=37%mc=39'hp>2rn4gold>2300, +192:i=1(mc-34"):s$:i bl=4:c=1:i=1̱s$:l,c;s$(i):c=c+1:c=18c=1:l=l+1 i:e Q"Master Dumb: Harry, you must found your frinds Herm and Rom, be a Hero!!!":35 '"You need a Permission to leave!":36 ."To found secret places you must effort":37 9"Herm:Harry, im so lucky to see you, youre a Hero!":38 ȍ21,1;" ":z=0:mc=(mx+sx+sy*10 ):48896,mc:z=48897:z=1:*** CheckBlock *** <mc=37%21,1;"take duell!!!":10 : Kmc>34"mc<43+21,1;"Talk to person....":10 Iitem0mc=(b$(3)-480)21,1;i$:10 20,20;mc ;mc=7mc=41)mc=42*mc=23250  Kz=1:rf=0270:rf=1:80P::***EnterRoom*** /rf=1280:rf=0:80P: 5xt=sx:yt=sy:sx=5:sy=7::**PosSave** ,sx=xt:sy=yt:sy=sy+1::**posLoad** sx=xt:sy=yt ,%mc=39'400:***Duell*** 8et()=((65536*23674z\+256*23673y\+23672x\)/60<):sekunden seit start :31,1;"*GET READY FOR DUELL*":0 ;(3,2;"*REPEAT THE SPELL!*" <t1=t():c=0 =65,2;" ":5,5;" "; >*x$=(480+9 *):a$=x$:1 @x$; B$t2=t():t2-t110 330J D"x$="":10 :a$320@ Fc=c+1:318> J7,5;"Points: ";c L0:t=(t2-t1) NIc<38,5;" FAILED!!! ":hp=hp-1:748 P750+item:b$ R(9 ,2;"YOU WON!!!":0 T 746 1,1;"PLAY with me!":2,1;"Mahjong ?(1)":3,1;"Video-":4,1;"Poker ?(2)":*** MAHJONG *** #22:a$"1"a$"2"24 (gold=gold-1:66B:666 a$="2"500 Ii=16:t(i)=1:i:480:c=mx+19:t=1 'c,513:45056:e+425 @k=dt6c,0:c=c+10 :t=t+1:420 @k=ut1c,0:c=c-10 :t=t-1:420 k=a434  420 l=199c:k=13:r=(6*)+1:mx+2+k,r+32 :t(r)=t(r)+1:480:t(r)=9 k=3:l=99c Pk:mx+3,0:mx+4,0:mx+5,0:45056:l t=rgold=gold+6 s$="1":5666 4k=63486:k=191k=255451 k<200k=k+64@ )d=253:u=251:a=239: #k=31:k=0460 $d=4:u=8:a=16: c=mx-2+10 :s=33!:i=16:c=c+10 :d=c:j=1t(i):d,s:d=d-1:j:s=s+1:i:45056::**ig1copy** "NOTHING",0,"LOW PAIR",0,"HIGH PAIR",1,"TWO PAIR",2,"THREE",3,"HIGH STRAIGHT",4,"STRAIGHT",4,"FLUSH",6,"FULL HOUSE",9 ,"QUADS",25,"STRAIGHT FLUSH",502,"ROYAL FLUSH",250 5,0,0,98b,5,4,32 ,98b,5,8,64@,98b,5,12 ,96`,98b,5,16,128,98b c668:t$="12345":z=1524:d$(z)=((524*)+65A):z:** ShuffleCards ** Fp=1:z=15:c$(z)=d$(p):p=p+1:z:520 12 ,1;"** Choose Cards **":13 ,2;"1-5=Hold Card":14,2;"N=New Choice":15,2;"Enter=Draw" T526:22:k=(a$):k>480k<546t$(k-480)="H":512 &a$="n"a$="N"t$="12345":512 "k=13 668:530  512 666:0,1;"** VIDEO POKER **":7:0:499:z=15:c=(c$(z))-64@:550&:i,j:i,j;s$:i,j:660:590N+10 *col:z::*** DisplayPokerCards *** Uz=04:10 ,2+z*4;t$(z+1):z::*** TextMask *** 8z=15:t$(z)"H"c$(z)=d$(p):p=p+1 Wz:i=15:j=15:c$(i)