RR¼;?_ ! 6pD:\`.<7 <B <BD888D<88xDx8+ 8888D88@bBBD0D D@DD DDDD+< ,62>,28,8 IG0,8,28,62>,127,62>,28,8 JG8,28,42*,127,42*,8,28,0 KH8,28,62>,127,127,62>,8,8 LG0,18,535,21,21,21,18,0 MM153,90Z,60<,255,255,60<,90Z,153 N*M=0:A$="A23456789JQK":B$="" P6,0,0,0,0,60<,32 ,2,0,0,22,35#,25,0,0,11 ,6,0,0,0,10 ,27,6,0,46.,0,6,1,3,0,0,47/,25,0,21,0,5,0,2,0,10 ,45-,25,0,20,0,0,0,0,0,10 ,45-,25,0,20,0,0,0,0,0 ZJi=16:j=110 :dato:b(i,j)=dato/100d:j:i d(23672x\+23673y\):mano=(.5+):minimo=7:sb=1:cap1=100d:cap2=100d:apmax=11 :n=(14-minimo)*4 X:9 ,5;"Quieres jugar con una";11 ,5;"baraja de verdad (S/N)?" 3820:r$="s"sb=0 1ap=0:i=1557:c(i)=0:i #0;"aprieta cualquier tecla.":0:6::10 ,12 ;1;"eres mano":mano10 ,12 ;1;" soy" 2,10 :3430f ^y=1sb+1:jug=y:i=15:3980:m(jug,i)=carta:i:3880(:y sb3550 jug=1:2500 mano2860, :3630. mano3630.:2860, y=1sb+1:jug=y i=15 *d(y,i)=13980:m(y,i)=carta i:3880(:y sbjug=2:3550 1jug=1:2500 :3370* :3060 jug=1:3550 B3410R :mano=mano:(cap1>0)(cap2>0)165 "cap100:6::129,98b,6:129,98b,10 :0,4:-20,0,-*5/3:119w,65A:0,-30:20,0:0,30:127,62>:0,-10 :4,0:0,10 :130,108l:0,5:8,18;1;"bang bang !!!";0;2,3;2;0;"No debiste hacerlo, Morgan!":0:100d ,Z6:6:0::9 ,7;"Lo siento, gane yo !":0:100d L- sub. dibuja 1 carta - V 2170z `A>11440 jC>11230 t&1190:I=09 :X,Y,Z ~1X+E*8,175-D*8-Y:Z,0:I I=22524:X,Z 1X+E*8,175-D*8-I:Z,0:I  2230  15,18,7,37%,18,7,14,19,11 ,34",19,11 ,13 ,20,13 ,33!,20,12 ,13 ,21,14,32 ,21,14,12 ,22,15,31,22,15 i12 ,34",12 ,34",12 ,34",12 ,34",12 ,34",12 ,34",12 ,34",12 ,34",13 ,32 ,13 ,32 ,13 ,32 ,14,30,14,30,14,30,15,28,16,26,16,26,17,24,18,22,18,22 19,20,20,18,21,16,22,14,23,12 ,23,12 ,24,10 ,25,8,26,6,27,4,28,2  C>21300 %1270:I=040(:X,Y :X+E*8,175-D*8-I-15:Y,0:I  2230 t28,1,27,3,27,3,26,5,25,7,25,7,24,9 ,23,11 ,23,11 ,22,13 ,21,15,21,15,20,17,20,17,19,19,18,21,18,21,17,23,16,25,16,25,15,27 b16,25,16,25,17,23,18,21,18,21,19,19,20,17,20,17,21,15,21,15,22,13 ,23,11 ,23,11 ,24,9 ,25,7,25,7,26,5,27,3,27,3,28,1   C>31380d %1340<:I=039':X,Y (:X+E*8,175-D*8-I-15:Y,0:I 220+E*8,175-D*8-44,:5,0:33!+E*8,175-D*8-44,:5,0:2230 <26,6,24,10 ,23,12 ,22,14,22,14,21,16,21,16,21,16,21,16,21,16,21,16,22,14,23,12 F!18,22,17,24,16,26,15,28,15,28,14,30,14,30,14,30,14,30,14,30,14,30,15,28,15,28,16,26,17,24,18,22 P28,2,28,2,28,2,27,4,27,4,27,4,27,4,27,4,27,4,26,6,26,6 Z d%1410:I=040(:X,Y n:X+E*8,175-D*8-I-15:Y,0:I x 2230 28,1,27,3,27,3,26,5,25,7,25,7,24,9 ,24,9 ,23,11 ,23,11 ,22,13 ,21,15,21,15,20,17,20,17,19,19,19,19,18,21,18,21,17,23,17,23,17,23,16,25,16,25,17,23,17,23,17,23,18,21,19,19,21,15 23,11 ,27,3,27,3,27,3,27,3,27,3,26,5,26,5,26,5,25,7,25,7  A>10 15906 1470+A*10 I=1A:X,Y X+D,Y+E;7;B;B$(C):I  2230 !2,3,6,3 12,3,4,3,6,3 A2,2,2,4,6,2,6,4 Q2,2,2,4,6,2,6,4,4,3 a2,2,2,4,4,2,4,4,6,2,6,4 q2,2,2,4,3,3,4,2,4,4,6,2,6,4 2,2,2,4,3,3,4,2,4,4,5,3,6,2,6,4 2,2,2,3,2,4,4,2,4,3,4,4,6,2,6,3,6,4 "2,2,2,4,3,2,3,4,4,2,4,4,5,2,5,4,6,2,6,4 , 6A>11 1790 @J=03 J;1700+J*10 :I=039':X:"G"+I,X:I T4D+J,E+1;7;B;"":J2230 ^J hAD+4,E+1;:J=04:7;B;B$(C);:J rJ=58 |;1690+J*10 :I=039':X:"G"+I,X:I $D+J,E+1;7;B;"" J  2230 P0,0,0,0,0,0,0,0,0,0,127,64@,32 ,16,16,31,0,0,255,0,0,0,0,255,0,0,254,2,4,8,8,248,0,0,0,0,0,0,0,0 ]0,0,0,0,0,0,0,0,31,16,16,16,17,17,17,17,255,64@,64@,188,193,29,1,1,248,568,20,244,20,244,20,20,0,0,0,0,0,0,0,0 W0,0,0,0,0,0,0,0,17,17,17,17,34",34",34",34",1,0,2,1,0,16,15,0,20,148,212,20,36$,164,164,36$,0,0,0,0,0,0,0,0 t0,0,7,8,8,8,8,16,62>,127,255,255,255,255,255,255,0,192,255,255,255,255,255,255,60<,255,255,255,255,255,255,255,0,0,224,16,16,16,16,8 s16,8,8,8,8,7,0,0,255,255,255,255,255,255,255,60<,255,255,255,255,255,255,3,0,255,255,255,255,255,255,254,124|,8,16,16,16,16,224,0,0 \0,0,0,0,0,0,0,0,36$,37%,37%,36$,40(,43+,41),40(,0,240,8,0,128,64@,0,128,68D,68D,68D,68D,136,136,136,136,0,0,0,0,0,0,0,0 ^0,0,0,0,0,0,0,0,40(,40(,47/,40(,47/,40(,28,31,128,128,184,131,61=,2,2,255,136,136,136,136,8,8,8,248,0,0,0,0,0,0,0,0 P0,0,0,0,0,0,0,0,31,16,16,32 ,64@,127,0,0,255,0,0,0,0,255,0,0,248,8,8,4,2,254,0,0,0,0,0,0,0,0,0,0  A>12 1980 NJ=03:1890b+J*10 :I=039':X:"G"+I,X:I 4D+J,E+1;7;B;"":J2230 J &AD+4,E+1;:J=04:7;B;B$(C);:J 0J=58 :;1880X+J*10 :I=039':X:"G"+I,X:I D$D+J,E+1;7;B;"" NJ X 2230 bW0,0,0,0,0,0,0,0,0,63?,16,16,8,15,9 ,19,0,255,0,20,8,255,247,128,0,254,4,4,8,248,200,228,0,0,0,0,0,0,0,0 ld0,0,0,1,1,1,1,1,39',78N,156,568,568,120x,568,60<,115s,132,119w,4,4,10 ,0,65A,178,579,156,14,14,15,14,30,0,0,128,64@,64@,64@,64@,64@ vo1,0,0,0,0,0,15,16,15,131,65A,480,12 ,255,31,17,62>,0,128,193,127,127,255,255,120x,96`,193,134,24,127,252,132,64@,128,0,0,0,128,120x,4 Q32 ,32 ,32 ,32 ,32 ,32 ,32 ,32 ,16,16,8,6,1,0,0,0,0,0,0,0,201,62>,8,0,4,4,8,480,192,0,0,0,2,2,2,2,2,2,2,2 V32 ,32 ,32 ,32 ,32 ,32 ,32 ,32 ,0,0,0,3,12 ,16,32 ,32 ,0,16,124|,147,0,0,0,0,0,0,0,128,96`,16,8,8,4,4,4,4,4,4,4,4 j32 ,30,1,0,0,0,1,2,33!,63?,254,24,97a,131,6,30,255,255,254,254,131,1,0,124|,136,248,255,480,12 ,130,193,240,8,240,0,0,0,0,0,128 m2,2,2,2,2,1,0,0,120x,112p,240,112p,112p,579,156,77M,130,0,80P,32 ,32 ,238,33!,206,60<,28,30,28,28,579,114r,228,128,128,128,128,128,0,0,0 Z0,0,0,0,0,0,0,0,39',19,31,16,32 ,32 ,127,0,1,239,255,16,40(,0,255,0,200,144,240,16,8,8,252,0,0,0,0,0,0,0,0,0  J=03 ;2080 +J*10 :I=039':X:"G"+I,X:I 4D+J,E+1;7;B;"":J2230 J AD+4,E+1;:J=04:7;B;B$(C);:J J=58 ;2070+J*10 :I=039':X:"G"+I,X:I $D+J,E+1;7;B;""  J  2230  `0,0,0,0,0,0,0,0,0,0,252,136,76L,77M,46.,30,0,0,231,65A,243,107k,103g,247,0,0,159,8,153,89Y,58:,188,0,0,128,128,0,0,0,0 *a0,0,0,0,0,0,0,0,30,30,17,23,30,24,31,24,247,247,8,255,7,1,143,65A,188,188,68D,244,252,252,252,252,0,0,0,0,0,0,0,0 4d0,0,0,0,0,0,0,0,31,24,24,25,28,31,63?,63?,78N,64@,128,64@,128,255,255,7,252,252,252,124|,252,252,254,254,0,0,0,0,0,0,0,0 >d0,0,1,2,4,8,480,63?,63?,199,3,1,0,0,0,255,255,255,255,255,568,0,0,255,254,225,192,128,0,0,0,255,0,128,64@,32 ,16,8,6,254 Hh127,96`,16,8,4,2,1,0,255,0,0,0,1,3,135,127,255,0,0,28,255,255,255,255,255,0,0,0,128,192,227,252,252,12 ,16,32 ,64@,128,0,0 R`0,0,0,0,0,0,0,0,127,127,63?,63?,62>,63?,63?,63?,224,255,255,1,2,1,2,114r,252,252,248,568,152,24,24,248,0,0,0,0,0,0,0,0 \f0,0,0,0,0,0,0,0,63?,63?,63?,63?,47/,34",61=,61=,130,241,128,224,255,16,239,239,24,248,24,120x,232,136,120x,120x,0,0,0,0,0,0,0,0 f_0,0,0,0,1,1,0,0,61=,92\,154,153,16,249,0,0,239,230,214,207,130,231,0,0,120x,116t,178,502,17,63?,0,0,0,0,0,0,0,0,0,0 p z1I=08:D+I,E;7;" ":I  F=E*8 G=175-D*8 B:F,G J568,0:0,-72H:-568,0:0,72H  j7:D,E;A$(A);D+1,E;B$(C);D+8,E+6;A$(A);D+7,E+6;B$(C):2200  4;10 ,0;C$;10 ,15-(D$)/2;:1:I=1̱D$:0+(5I/2=(I/2));0+(5I/2ɺ(I/2));D$(I);:I:0:  hC=((E$(O)-1)/13 )+1:A=E$(O)-13 *(C-1):B=2:C>2B=0  A>10 A=10  !X$=:X$"S"X$"N"2310  - evaluador - 2i=15:e(i)=0:t(i)=1:i $i=minimo14:r(i)=0:i $i=14:p(i)=0:i Zf(jug)=0:esc=0:col=0:estado=8:final=0:figuras=0 i=15 #r(m(jug,i))=r(m(jug,i))+1 )p(d(m(jug,i)))=p(d(m(jug,i)))+1 i=52640P +ent=1+(m(jug,i))-m(jug,i+1) (K(ent=3)(i=4)((estado=5)(estado=6))2630F 2Oent4ent=1:(i1)(i4)estado=1:2630F <estado=a(estado,ent) Fent=1e(i)=1 Pi ZK(estado=5)(estado=6)e(5)=1:e(4)=0 desc=(estado/2) ni=14 xEp(i)3col=p(i):j=15:z(j)=(iɨd(m(jug,j))):j i Uestado=2f(jug)=5+(m(jug,1)/100d)+(4*(col=5)): =col=5f(jug)=7+(d(m(jug,1))/10 ): i=14minimo-1 r(i)=33870:f(jug)=4+(i/100d):j=14minimo-1:f(jug)=f(jug)+(2*(r(j)=2)):j:final=1 Gr(i)=43870:f(jug)=8+(i/100d):final=1 i:final i=14minimo-1 r(i)22830 *f(jug)=1+(i/100d):3870 k=i-1minimo-1 Tr(k)=2f(jug)=f(jug)+1:j=15:t(j)=t(j)(kɺm(jug,j)):j k  i=minimo i ji=15:figuras=figuras(11 Ǻm(jug,i))(14ɺm(jug,i)):i:figurasf(jug)=3 " ,- descarte - 6fz=f(1):farol=0 @9fz=5fz=6fz=7fz=9 3020 J!fz=8.50 T.fz=8fz=2fz=43030 ^col=43050 h=fz=1((10 *d(f(1)))>12 )3030 resc=23040 |Ofz=1((10 *d(f(1)))>(7+(minimo/2)))3030 esc=33040 0fz=1col=3>.53050 fz=13030 col=33050 ,i=15:d(1,i)=1:i V>.6i=1(3+(*3)):d(1,i)=0:i:farol=1 °des2=0:i=15:des2=des2+d(1,i):i:16,1;6;"yo me descarto de ";des2:2,10 :4;16,1;k$(30): 8i=15:d(1,i)=0:i:3010 5i=15:d(1,i)=t(i):i:3010 5i=15:d(1,i)=e(i):i:3010 5i=15:d(1,i)=z(i):i:3010 - subasta - ap=1:8,26;2*ap;" ";2,26;cap1-1;" ";5,26;cap2-1;" ":prob<.9fffftope=(1.25 *prob-.625)*cap1 1prob.9fffftope=(5*prob-4)*cap1 (cap110 prob.8Ltope=cap1 'faroltope=cap1*.5*(1+) &tope<0tope=0 0 tope=tope :mano3180l D13 ,1;"cuanto apuesta?":"$";iap2:iap2>cap1iap2>cap2iap2<0iap2>apmax13 ,1;"es demasiado ":2,40(:3140D N:5,26;cap2-iap2;" ":jug=2:3750 Xiap203200 b?tope113 ,1;"yo paso tambien":3350 l0tope>1(mano)(>.3)3240 viap1=0:3270 (ap+iap2).3))13 ,1;"quiero tus ";iap2:ap=ap+iap2:2,26;cap1-ap;" ";8,26;2*ap;" ":3350 >13 ,1;"no las veo":cap1=cap1-ap:cap2=cap2+ap: x=tope-ap x>apmaxx=apmax iap1=(1+*x) l16,1;"apuesto ";iap1;2,26;cap1-ap-iap1;" ";8,26;iap1+2*ap;" " 019,1;"las ves (s/n)?":3830 &r$="n"cap1=cap1+ap:cap2=cap2-ap: jug=1:3750:16,1;"apuesta vista":2,10 :ap=ap+iap1:8,26;2*ap;" ";5,26;cap2-ap;" " H19,1;"apuestas mas?(s/n)":3830:r$="n"3350 19,1;"cuanto mas? ";4;" ":"$";iap2:ap+iap2>cap1iap20ap+iap2>cap2iap2>apmax19,1;"es demasiado ":2,40(:3320 J5,26;cap2-ap-iap2;" ";8,26;iap2+2*ap;" " %jug=2:3750:3200 sbjug=2:2500 &sb"que jugada tienes?";f(2) 5f(1)>f(2)cap1=cap1+ap:cap2=cap2-ap: cap1=cap1-ap:cap2=cap2+ap: *- probabilidades - 4prob=0 >/i=1̺f(1):prob=prob+b(desc,i):i Hoprob=prob+((f(1)-f(1))*100d-minimo-1)*b(desc,1+f(1))/(14-minimo): R-variacion de probs.- \\i=110 :b(desc,i)=(b(desc,i)*10 +(i=(1+f(2))))/11 :i: f- pantalla - p&1:4::6:0 zt2,17;"tengo : ";cap1;" ";5,17;"tienes: ";cap2;" ";8,17;"apostado:";ap;" "  - dibuja cartas - "D=1+(11 jug=1) W=15 0C=d(m(jug,6-W)):B=k(m(jug,6-W)) ,A=m(jug,6-W):A=14A=1 ,E=2*W-1+(15jug=1)  1110V !.05|L,10 +2*W:W $6:0: .- descarte=el - 8;sb"De cuantas te descartas?";desc:desc=desc+1: Bdesc=1 Li=15 Vdir=22559X+2*i `dir,192+dir j<13 ,1;"Te descartas de esta(s/n)?":3830 tTd(2,6-i)=(r$="s"):desc=desc+d(2,6-i):dir,-192+dir ~i \3750:13 ,1;"Esta bien asi (s/n)? ":3830:r$="n"3650B 3750:3430f : - subr. borrar - Ci=13 193:i,0;4;k$(16):i  - subr. tecla - (r$=:r$"s"r$"n"r$"g"3830  r$="g"4040:3820  .5,10 : - subrutina aux.- 0j=15:t(j)=(iɺm(1,j)):j: (- ordenador - 2i=15 <j=i+15 Fm(jug,i)m(jug,j)3950n P v1=m(jug,i) Zm(jug,i)=m(jug,j) d m(jug,j)=v1 nj xi  - repartidor de cartas- 4sb1,10 :"dame una carta : ";carta: num=557-(*n) c(num)3990 c(num)=1 (carta=1.1 +(num/4)+m(num)  - grabacion - " salvar(s) o cargar(c)?";r$ r$="s""probs."b(): r$="c""probs."b():  4040 Z Zxmataninimapdapdpma nuu7artfffg334d cba efgsostadinaiguran aroesesi)Xro oopapap# 1 |u\# ={# = ~aG3333}aG|u\}L =p|u\k|u\z# ={u\ p  ~W =p|L{# =}Lffff ~L}Lffff ~L  73}IG773A A23456789JQKBR"" CKER jd Me3j2 _.)RR&{Rv>6>>>>**>>5Z<>BB<DHpHDB@~BfZBBBBbRJFB