ESCOBA   ç:ç::"" escoba hO0ANjOC6;18,3;"~escoba~ CODE 58880,3488":"escoba" u0;16,12 ;" ":1;6;18,3;" PARA EL CASSETTE ":150 ,23675{\,0:23676|\,242 %NUNCA PULSAR RUN. HACER GOTO 1  62120: ea=99c:aa=99c:m$(3,2):c$(8,2):j$(100d,8):n=0 7h$(3,2):i=18:c$(i)="99":i &baza=0:n=99c:nc=0 inicio e instrucciones 00:1:6:0::10 T420:i=112 :429+i:a,b,c,d:a/13 ,b:c/13 ,d:i 2,6,2,6,2,6,2,7,2,7,2,7,4,9 ,4,9 2,6,2,6,2,6,2,7,2,7,2,7,4,9 ,4,9 2,4,2,6,3,7,3,4,2,2,2,1,3,4,3,2  451 E3,8;"";4,8;" ";5,8;"": 14,10 ;"";5,10 ;"": H3,13 ;"";4,13 ;"";5,13 ;"": 14,15;"";5,15;"": 14,17;"",5,17;"": 14,19;"";5,19;"": H3,21;" ";4,21;"";5,21;"": 14,23;"";5,23;"": 16,24;"";7,22;"": 7,17;"": 7,14;"": 7,11 ;"" 7,8;"":  c10 ,3;"El Spectrum te reta a una";12 ,1;"interesante partida a la Escoba"  485 Qi=136$:a$:#1;0,0;0;0;1;a$ 5j=118:a=62200:""500 j:i " El proposito del juego "," consiste en obtener la mayor"," puntuacion segun la siguiente"," relacion :"," - Mayor n de cartas."," - Mayor n de oros." L" - Mayor n de sietes."," - Escobas ."," - Posesion del velos(7 de oros)" z" "," El valor de cada carta es igual"," a su numero excepto:"," Sota:8 puntos"," Caballo:9 puntos"," Rey:10 puntos"," " " Para hacer baza debes intentar"," sumar 15 puntos."," "," "," Si consigues retirar todas las"," cartas de la mesa haces ESCOBA."," "," "," Suerte y que gane el mejor"," "," "," "," " /"..............................."," "," "," " " "," "," "," "," "  barajar T1:7:1:2::n$(80P):12 ,10 ;"BARAJANDO" qa$=" ":i=721:i,27-i;1;1;6;a$(i+5):i :x=1:y=14:n=40(:3000 :i=1420:1;i,1;1;7;" ":i:0 i=039' @a=62200:a=62322r:a=62200:a=62322r d7:480,10 :0,-2:-40(,0:0,568:2,0 Ai=7#1;0,9 ;2;2;" 1985" j=(*40()+1 Fi=11 #1;0,8;2;2;"A.F.Canton" Fi=16#1;0,9 ;2;2;"MICROHOBBY" Ei=20#1;0,11 ;2;2;"CASSETTE" Nn$(j*2-1)" "j=j+1:j=j-(40(j=41)):515 ]n$(j*2-1)=(i/10 ):n$(j*2)=(i-10 *n$(j*2-1)):i &0:7:1:1: Tj=06:j+2,1;0;j;" " B14-j,1;0;j;" " N1,2*j+1;0;j;" ";1,29-2*j;" " P15,2*j+1;0;j;" ";15,29-2*j;" " j [1:g=03010 :x=3+g*.73333:y=5:n=g:3000 :g &m1:18,3;0;6;"?Quien deseas que empiece a "''" jugar?: 1=Spectrum 2=Humano" + 6000p -62340 0a$="1"pr=1:570: 5 a$="2"pr=-1:570: 7a$=:557- :&4:1:1:1: ?N0:4:i=021:i,5;" ":i X INICIO DEL CICLO DE JUEGO Z1;7;19,6;"CONTRINCANTE:";20,7;3;6;"Cartas:00 Oros:00";21,7;"Sietes:0 Escobas:00" [escm=0:esch=0:e$="":f$="":baza=0:punt=1:orom=0:oroh=0:siem=0:sieh=0:vel=0 \0,6;3;6;"SPECTRUM:";1,7;1;5;"Cartas:00 Oros:00";2,7;"Sietes:0 Escobas:00" ]g=16 b411 ,11 ;7;0;" REPARTO. " lreparto de cartas mpr=-1645 vi=13 {3m$(i)=n$(puntpunt+1):punt=punt+2:i } 2950 pr=-1655 Fi=13:h$(i)=n$(puntpunt+1):punt=punt+2:i  2985 pr=-1630v g1664 Ri=14:c$(i)=n$(puntpunt+1):punt=punt+2:i:nc=4  2970 h=13 Ypr=1700:11 ,11 ;0;" ":2950 :2970 N3500 :11 ,11 ;0;" ":2985 :2970 Zpr=-1700:11 ,11 ;0;" ":2950 :2970 %h:.5,20:g:5000  311 ,11 ;2;6;" MI TURNO "  pienso la mejor combinacion cont=0 )4;4;21,0;" " (i=02^(nc-1)-1 22432W,i ڇvelus=0:s1=0:s2=0:c1=0:c2=0:o1=0:o2=0:p1=0:p2=0:v1=0:v2=0 j=1nc z=(8-j,0) 770+100d*z  Investigacion valor normal -c1=c1+1:p1=p1+c$(j,2)+1  "c$(j,2)="6"s1=s1+1 "c$(j,1)="3"o1=o1+1  'c$(j)="36"v1=1:velus=1 * 950 \!Investigacion valor inverso f-c2=c2+1:p2=p2+c$(j,2)+1 p"c$(j,2)="6"s2=s2+1 z"c$(j,1)="3"o2=o2+1 'c$(j)="36"v2=1:velus=1 j  a=99c k=13 p1+m$(k,2)+1=15cont=cont+1:j$(cont)=k+("0"i<100d)+("0"i<10 )+i+(v1+(m$(k)="36"))+(s1+(1m$(k,2)="6"))+(o1+(1m$(k,1)="3"))+c1 p2+m$(k,2)+1=15cont=cont+1:j$(cont)=k+("0"2^nc-1-i<100d)+("0"2^nc-1-i<10 )+(2^nc-1-i)+(v2+(m$(k)="36"))+(s2+(1m$(k,2)="6"))+(o2+(1m$(k,1)="3"))+c2 k i -cont=01600@:sin posibilidades $ escoger mejor jugada .win=0:p$="0000" 8i=1cont B-j$(i,5)>p$p$=j$(i,5):win=i Li Vx=0:y=7*j$(win,1)-7:e$=e$+m$(j$(win,1)):n=m$(j$(win,1)):3000 :1:3350 :m$(j$(win,1))="aa" `Rorom=orom+j$(win,7):siem=siem+j$(win,6):vel=vel+j$(win,5) j&22432W,j$(win,24) om$(j$(win,1))="aa" tk=1nc ~/z=(8-k,0):z=11170 e$=e$+c$(k):c$(k)="aa":y=4+(8k>4):x=5*k+1-(20k>4):1:3350 :nc=nc-1 k baza=1 nc=0escm=escm+1 orom=0:siem=0 k=1̱e$-12 >e$(k)="3"orom=orom+1:e$(k+1)="6"vel=1 &e$(k+1)="6"siem=siem+1 k  1760 @sin jugada posible Jnc=nc+1 T/escoger la menos ventajosa para el adversario ^Qz$(3,4):z$(1)="0000":z$(2)="0000":z$(3)="0000" hi=13 m&m$(i)="aa"z$(i)="2222":1680 rGm$(i,1)="3"z$(i,3)="1":m$(i,2)="6"z$(i)="1110" |&m$(i,2)="6"z$(i,2)="1" &m$(i,2)>"4"z$(i,4)="1" i a=1:a$="1112" i=13 z$(i)4):x=5*k+1-(20k>4) n=c$(k):3000 :k 1;7;1,14;("0"Ʊe$<20);e$/2;1,22;("0"orom<10 );orom;2,14;siem;2,24;("0"escm<10 );escm;0,16;("(Velos)"vel=1) 3;6;20,14;("0"Ʊf$<20);f$/2;20,22;("0"oroh<10 );oroh;21,14;sieh;21,24;("0"esch<10 );esch;19,19;("(Velos)"vel=-1)  ck=13:y=7*k-7:x=27:n=h$(k):(4n=99c):3000 :k  &dibujo de la carta n en posicion x,y 7:0 n>39'3300 y,x;"" -236077\,229+3*(n/10 ) i=15 Gy+i,x;0;7;"";b$(n+1,i);7;0;"":i (0;7;y+6,x;"" 236077\,60< `i=n-(n/10 )*10 +1:i=i+(2i>7):y,x;0;7;1;i 236077\,250: carta al reves @n=99ci=yy+6:4;1;i,x;" ":i: y,x;"" Yi=15:y+i,x;0;7;"";8;"";7;0;"":i *y+6,x;7;0;"":  carta flash 3 9 :1:y,x;" ":i=y+1y+5:i,x;" ";i,x+4;" ":i:y+6,x;" ":0:0:  turno de humano X.1}L,10 :.1}L,5:11 ,11 ;6;2;" TU TURNO " g$(9 ):co=0:a$=" Selecciona las cartas con los cursores o el joystick. Pulsa 0 o el boton del joystick por cada eleccion y ENTER cuando hayas elegido todas. " cont=1 .h$(cont)="aa"cont=cont+1:3525 0x=27:y=7*cont-7:3333 Rh=3g$(1)=cont:1:3350 :.1}L,20:3600 Ԅco=co+1:#1;1,0;a$(coco+31):a=223:22432W,(aa<30):co=a$-32 co=0 F22432W0ƾ22432W<30d$=32 :3550 22432W,0 "2:d$=:d$=""3540 ރd$="6"d$="8"ũ(7,0)=1ũ(5,0)=1.01z# =,40(:cont=cont+1-(3cont=3) d$="5"d$="7"ũ(4,0)ũ(6,0).01z# =,40(:cont=cont-1+(3cont=1):h$(cont)="aa"cont=cont-1+(3cont=1) bd$="0"ũ(3,0).1}L,20:g$(1)=cont:1:3350 :3600 hd$=13 .1}L,20:.1}L,20:g$(1)=cont:1:3350 :4000 7:0:3350 Eh$(cont)="aa"cont=cont+1-(3cont=3):3577 0y=7*cont-7:3333 :3540 ,.03{u\,40(:nc=04000 0cont=1:x=6:y=4:3333 ""3602 co=co+1:#1;1,0;a$(coco+31):a=223:22432W,(aa<30):co=a$-32 co=0 822432W0ƾ22432W<303615 "2:d$=:d$=""3605 (d$="0"ũ(3,0))g$(cont+1)"1".1}L,20:g$(cont+1)="1":1:3350 :3610+(390g$(2nc+1)+"1111111""11111111") !4g$(cont+1)"1"7:0:3350 $id$="8"d$="6"ũ(7,0)ũ(5,0).01z# =,40(:cont=cont+1-(nccont=nc) .nd$="5"d$="7"ũ(6,0)ũ(4,0).01z# =,40(:cont=cont-1+(nccont=1) Bd$=13 4000 L"g$(cont+1)="1"3680` V^y=4+(8cont>4):x=5*cont+1-(20cont>4):3333 ` 3605 ejecutar jugada humano 1:o1=3448x ?.1}L,0:11 ,7;0;" " Zg$(2)=" "nc=nc+1:c$(nc)=h$(g$(1)):h$(g$(1))="aa": p2=h$(g$(1),1) &p1=h$(g$(1),2)+1 i=2nc+1 g$(i)"1"4060 &p1=p1+1+c$(i-1,2) i p115#1;1,0;2;6;" JUGADA INVALIDADA ":1,0:3448x :2985 :2970 :3500 f$=f$+h$(g$(1)) Ph$(g$(1),2)=6sieh=sieh+1:p2=3vel=-1 p2=3oroh=oroh+1 jugada valida baza=-1 h$(g$(1))="aa" i=18 g$(i+1)"1"4130"  g$(i+1)="1"f$=f$+c$(i) Gc$(i,1)="3"oroh=oroh+1:c$(i,2)="6"vel=-1 &c$(i,2)="6"sieh=sieh+1  c$(i)="aa":nc=nc-1 "i 'nc=0esch=esch+1 ,1760:reordenacion final de la partida nc=05050 811 ,6;0;4;"Ultimas cartas "; A0;4;("mias"baza=1);("tuyas"baza=-1) .15~,10 :.15~,8:.3,6:.15~,2:.15~,6:.15~,8:.3,6 i=1nc 5058+baza f$=f$+c$(i):5060  e$=e$+c$(i) Ac$(i,1)="3"5070+baza:c$(i,2)="6"vel=baza $c$(i,2)="6"5080+baza nc=0:c$(i)="aa" i:5100 oroh=oroh+1: orom=orom+1: sieh=sieh+1: siem=siem+1: 502:2970 p1=escm:p2=esch e$>f$p1=p1+1  f$>e$p2=p2+1 orom>orohp1=p1+1 oroh>oromp2=p2+1 (siem>siehp1=p1+1 2sieh>siemp2=p2+1 <vel=1p1=p1+1 Fvel=-1p2=p2+1 PL6;0;7,7;"Puntos Spectrum:";9 ,10 ;p1 ZL15,7;0;6;"Puntos Humano:";17,10 ;p2 dMp1>p212 ,7;2;6;" GANADOR SPECTRUM ":5500| nKp2>p112 ,7;6;2;" GANADOR HUMANO ":5500| xH12 ,7;7;2;" EMPATE ... ":.3,-10 |d#1;" Pulsa una tecla para empezar":.1}L,10 :.1}L,15:.15~,22  6000p  400 pG6000p:i=115:j=62340:i:i=135# uj=62340 zj,k:j/100d,k a$=:a$"" i:6000p J25,0,6,4,15,7,15,12 ,18,16,14,14,14,12 ,12 ,9 ,12 ,6,30,7,25,0,6,4,15,7,15,12 ,18,16,14,14,14,12 ,12 ,9 ,40(,7 8,7,25,14,25,14,8,11 ,22,7,8,7,25,12 ,25,12 ,6,9 ,4,7,4,9 ,4,7,10 ,9 ,15,7,15,6,20,7 Ÿ( klmnopqrstuvwxy\]^_`abcdefghijMNOPQRSTUVWXYZ[zz{{zz{{zz{{|}~zz{{zzz{{{zzz{{{zzz{{{|}~zzz{{{>?@ABCDEFGHIJKL/0123456789:;<= !"#$%&'()*+,-.klmnopqrstuvwxy\]^_`abcdefghijMNOPQRSTUVWXYZ[zz{{zz{{zz{{|}~zz{{zzz{{{zzz{{{zzz{{{|}~zzz{{{>?@ABCDEFGHIJKL/0123456789:;<= !"#$%&'()*+,-.klmnopqrstuvwxy\]^_`abcdefghijMNOPQRSTUVWXYZ[  ##  ##  #Q#T W ##zz{{||}}~~zz{ {|#|}}~~>?@ABCDEFGHIJKL/0123456789:;<= !"#$%&'()*+,-.klmnopqrstuvwxy\]^_`abcdefghijMNOPQRSTUVWXYZ[                      >?@ABCDEFGHIJKL/0123456789:;<= !"#$%&'()*+,-.acnc$$azbcdx@y  scscunQroroieieeoneluzi4F 12161425280219002004093429350621P0033  3 D 222200112222E0321101073038241805262313150836173133103722032739SP34362937142033380319213901091806071123311635021210171505082200132425262704283032  9999999999999999%d  A Zescoba Ѣ `@@G@`@@`0`Xߘd|`pPP PPPXHHHH !HHHp0(8,68,$&Wtx8? ?&ff %55;<880А 6,8Hh88!)(<4F"$,(0` q'%HX)Mf@@ P8<`0P pPpPPppPPАPP !#aAaHHX, qA,TDD #6 >j΄>3 2Ç0y!00<쀀@@@` 6"""264<00  `  q ``pp %=4Ld< @ LD` 3 DdyE(x3TO` Ҝ!#'@@%&2 J@X(7#bM8 pH ?Xl t T\HHHXP3&<PPPXl4 8(>'%%% $$$$$$$$$$$$$$$$$$$$$$> $$$ > @`YY@?2YYY͠ ͇ ` DTDx!!`````8IKKGDࠠ 80000000""9))xxx, 0`~~` """A`@@ ? @@"A E0xx̆@@"ixp'8 HH8DTD 8Sh @VC"@`<(!? "|$$$"<!=~+##w+# x !7\6!@6!h6!6!6