"a"%?u{8@6 :\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,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(: *Clear screen* 2i=mx:i=ii+89Y:i,0:i:45056  i=22528X22800Y i,0:i *HEXMONITOR* "Startadrss?":a 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$;: *poke-routine i=49100̿492000 c:i,c:i,c:i >i=032 :c=(46973}+i):47909%+i,c:i: 49100-bfcc:list vars 49200-c030:item table &810*:i=49200049299  c:i,c:i: *ITEM-ROUTINE* +item=(itable+rn):item=090Z 750+item:b$:i$ 0mx+b$(2)-480,b$(3)-480  90Z *ITEM-ACTION-ROUTINE* 750+item:b$:s$ 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:90Z:e 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(>݆ٸ Ӭ0 :s ͯӬ0 6 6'*r6 6|:i=09W:i=0:j=121y:658: ,0:0,-36$:*back* 0!w0#8 .F7:w 6 "~Cr(<(H ~(Agn ~ 4~ٸ *Ӭ0% N( ~ ~ O~ w 7ÿ!~#fo(8~ ~ٸ Ӭ0u t :s Ӭ0"r:(;ͯ:>(>݆ٸ Ӭ0 :s ͯӬ0 6 6'*r6 6|:i=09W:i=0:j=121y:658: ,0:0,-36$:*back* 0!w0#8>##8>0 :{>(>2:{(u!ߊ!d~goΪg~2>26 66 6 B222{Ö:w2:!*$%~t((~~ :!DwN:wN:wN:wN7w w F(8: /:w( $KѧR( !Ap~w>2N F7:w 6 "~Cr(<(H ~(Agn ~ 4~ٸ *Ӭ0% N( ~ ~ O~ w 7ÿ!~#fo(8~ ~ٸ Ӭ0u t :s Ӭ0"r:(;ͯ:>(>݆ٸ Ӭ0 :s ͯӬ0 6 6'*r6 6| N(f f  xG2r:(/ͯ~ٹ Ӭ0Kɸ :r ͯӬ0>:r7{ٺ{к}ټ}м~O >O݆W_y݆go8~W_ne$-~go^SK;p!L5S;pB(B y^#V#x@Pq@pA)& Јмް-Ћ0 pN0L0900!M> w, 284&T8&0:\& (&xogyOG{2*+##n~ .0.xo8gy O G>2:T0~&0Ko[+< &:O:w8(:Z!y2Zpf}_o))){gpFoo)`@+ͮ:\0 Wco)):0H0+N"ޮ#^w#^2Yw#TW&o\)))Rp8+N" #^#^w+w##^2 Yw#:OGy_!@x(x/w M MMMZWqM P  qMMMMMMMZWqMMQ PMMM3243'\%{Rv(>@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ۓAWu6ۓo{ O ?ɺO~~OP~O 竻 AەY{ۓۓ%߭߭߭߭߭߭ Ƀ)O ˛Ƀ݃癙O>>Ot30矇::>O|N ɟ9篿 ٛɟٟ癙ϓO{痟ӓ矗ōu 'g ~~{v^uρϟǛzz~ Mc x q^Uッ2kw/66l"66W 癁ɟ6ۓ W ۓ66666666ۓ WWWWW ۓۓ66666ۓۓۓ ~~~~uO~~5~~1A线 ϙ~O ~~~ O~~~~~~~~O ~~~~~ OO~~~~~OOO {uosە ۿ  >>ы>>wn_ >>::>::>u՛σɃ݃ ۙ::>O ɻ绛݃>>> O>>>>>>>>O ߭߾>>>>>߭߭ OO>>>>>OOO muU ۛϟɟٟ 灙瑑 瓛ٟ ~~[~~?{~~zz~~zz~w ßzz~ÿ~~~~~~~~~~~~~~~~~~~~~66ٛ66?  66666666  ?7 F@1ʉL@WWWWWWW ۓۓۓۓۓۓۓ @WWWW A @IۓۓۓۓL@ OOOOOOO @p @a COOOOPL@  @@L @@LL@߭߭߭߭߭߭ OOOOOOO @a@C߭߭߭ @@pOOOOL@ A @] @8L@  F @1ʉT @L@ X@ Ή( ?? xL@HxxxxH 8HxHH 8HxHH 8H` 8H`HH 8HH0xxxx0000xxHH 8H`HH 8H `xHH 8x 8x 8x`HH 8x `xHH 8H `xHH 8HHxHH 8HHHH xH 8HHHH xH 8H 8H 8 hHxx 8 hHxxL8@u # @\\\^ɒ^\Oi҂[6X![!HP!! xxN  K SR P45056:712 <236066\,0:236077\,187:font bc00-beff 0:7:1,1;"Harry the Magical":2,1;"-":4:3,1;"Harry and the orden":4,1;"(c) cmg 1986-2008":10 ,1;"cmg&breathenet.de":11 ,1;"01746973355&":12 ,1;"vodafone.de" P6,1;"1.keys: 1,2,3,4,5":7,1;"2.k-joystick":7 <="1"20,1;"1 2 3 4 5":e=26:12 ;="2"20,1;"KEMPSTON":e=32 :12 7 *VARIABLES* *b=45056:mx=45313:b000,b101 5itable=492000:v(5):v$(5,5) >sn=60<:sx=5:sy=4:rn=36$:mc=0 snlr=0 Ahp=10 :mp=10 :ex=0:lv=1:gold=10 Qleft=101e:down=121y:up=141:right=161:action=180 -item=0:rf=0:vf=0:flags  80P:e  *KEYBOARD* 3k=63486:k=191k=25526 k<200k=k+64@ Al=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 2*SHOW MATRIX* 3-mxb=mx:1,1;1;"Wait..." 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 B80,24;"STATUS":1,24;"=" C4,20;" " D84,20;"HP:";hp:5,20;"MP:";mp F86,20;"Ex:";ex:7,20;"Lv:";lv G&8,20;"Gold: ";gold;" " H!10 ,20;"Inventory:" JFi=15:v(i)010 +i,20;v(i);" ";v$(i) Li N P*FILLMATRIX* R+801!+5*rf:i=1rn:mn:i T*mn+(900-502*rf):a$:502 V 720 Z *SPRITE* \$pos=mx+sx+sy*10 :oldb=(pos) ^pos,sn:y=b `=21,1;" rn: ";rn;" mn: ";mn;" s: ";sx;sy;" " a21,11 ;item b pos,oldb: c 90Z:e d*LEFT* eAsn=62>+snlr:snlr=snlr+1:snlr=2snlr=0 f'sx=sx-1:sx-1112p lsx=9 :rn=rn-1 n 80P p$200:z=0sx=xs:sy=ys t 90Z:e x*DOWN* ysnlr=0 z3sy=sy+1:sn=64@:sy9 112p ~sy=0:rn=rn+10 110n *UP* snlr=0 4sy=sy-1:sn=66B:sy-1112p sy=8:rn=rn-10 110n *RIGHT* Asn=60<+snlr:snlr=snlr+1:snlr=2snlr=0 'sx=sx+1:sx10 112p sx=0:rn=rn+1 110n *ACTION* amc=68Dv(1)=0s$="You need a key to open, the key is the solution":188 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 *what ppl say h"Master Dumb: Harry, you must found your friends Herm and Rom, maybe they know where the orden is":35 :"you need the permission of the inuisitor to leave.":36 B"you must found Hagger, he is a secret-keeper for the orden":37 Z"Herm: Harry, im so lucky to see you i stay here alone, rom know where the orden is":38 *CHECK BLOCK* Qz=0:mc=(mx+sx+sy*10 ):48896,mc:z=48897:z=1 <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  *ENTER ROOM* :z=1:rf=0270:rf=1:80P: /rf=1280:rf=0:80P:  *pos.save* xt=sx:yt=sy sx=5:sy=7   *pos.load* sx=xt:sy=yt sy=sy+1  ,*DUELL WITH SLYTHIN* .mc=39'400 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 *ingame: mahjong 1,1;"Would you play":2,1;"Mahjong ?(1)":3,1;"Poker1 ?(2)":4,1;"Poker2 ?(3)" a$=:a$=""404 a$="2"a$="3"500 a$"1"99c (gold=gold-1:66B:666 Ut(6):i=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=a430  420 *start ingame 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:66B:90Z  80P:e 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   *ig1copy 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: M2,4,32 ,121y,2,8,64@,121y,2,12 ,96`,121y,2,16,128,121y,9 ,0,0,65A,9 ,4,32 ,65A,9 ,8,64@,65A,9 ,12 ,96`,65A,9 ,16,128,65A,9 ,20 c(9 ):d(13 ):f(4):g(5):h(5):i(5):c$="23456789TJQKA":666:0,3;"** Texas Holdem **":a$="3"590N i=19 n=(524*+1):n=c(1)n=c(2)n=c(3)n=c(4)n=c(5)n=c(6)n=c(7)n=c(8)n=(9 )503 !c(i)=n:i:499:599W jz=0:z=19 :c=c(z):550&:i,j:i,j;s$:i,j:660:590N+10 *col:z O599W:c=c(1):550&:c=c(2):550&:520:y$=s$ O505:c=c(3):550&:c=c(4):550&:520:t$=s$ >15,0;"you: ";y$:16,0;"other: ";t$ 5z=59 :c=c(z):550&:z:*chk board  !66B:80P:90Z:e  df(1)5f(2)5f(3)5f(4)5s$="flush":546"  7n=4:576@:i=1s$="four":546" 8n=3:576@:i1s$="three":546" 7n=2:576@:i=1s$="pair":546" 'i2s$="doubl pair":546" ! s$="null" " $ 502 &>n=2:i=0:col=0:j=0:convert,cardnr ,;i=i+1:col=col+1:j=j+1:c=i570: .j<4556, 4<n=n+1:col=0:j=0:i<524556, <#s$=c$(n-1):s$="T"s$="10" =n=14n=1 >*d(n)=d(n)+1:f(col)=f(col)+1 ?/15,0;" ";z;" ";d(n);" ";f(col): @2i=0:j=113 :i=i+(d(j)=n):j: N&0,2;"** 5card stud ** " P0599W:i=0:j=121y:658: W]7:0:i=113 :d(i)=0:i:i=14:f(i)=0:i: X660:*Karo* Zbi+15,j+2:8,16:-8,16:-8,-16:8,-16 \ b660:*Herz* d-i+16