DOMINO  0:0:0:7;11 ,10 ;"DOMINO":"":18,0;:4:4:1:23613=\,0:-:60<:7:"" r @ 00-000-000000-00-00000000@@00UUU@0000000000@@@00j000UUp0UU@00  00=?@?= 00000=00=000   00?000??0?= 00=<=0=<=0=<=0=<=0-?= ?-00=0=000-00-000=<=000=00=?<=0=0=0=?=0=?-0=0=0-,-0-,-0-,-0-,-00-000=0-0-0=000000=0-,-000-0=0-0,-0-0-0-0-0-00-0-000000000-000-000000-00000-00000000000000000000000000000000000000000000C0@000=000=0A0A0A0A00=00=000C00000@00A0A0@000=000UUU00-0000;00-@-0ߪ000000j000UUUUp00@p00@0UUpUU0000UUUUpUUpUUp@@@00?000?00=@=000@0???0000???   00=00=0=0=0-@-00=0@0=<=??0=<=0=0=00000=0-0=0-0-0-0@00-0=@=0-,-000-,-0-0-00000-00-0000@000-@-00000000000000000@000@000000000000A0A0B000=@=000AA0@000000000AA0A0߂00߬-00000000000000ppUU00000000=000000?00000000=-00==0=0=00=?000=0=0=0=0=0-00--=0-0-00-0000-0-0]QUU-0-0-000-0000000000Ј000000000000000ʭQP000A=000000A0A0A0000]]UI000xxxx xxxx xxxx xxxx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xxxx xx xx xx xx xxxx xxxx xx xx xxxx xxxx xx xx xxxxxx xxxx xx xx xxxxxx xx xx xxxxxx xx xx xxxxxx xxxx xx xx xxxx xx xx xx xx xx xxxxxx xx xxxxxx xx xxxxxx xx xxxxxx xx xx xx xx xx xx xx rr xx xx xx  <<8<!@!@" U23613=\,0::I="A""H":A:I,A:I:I=23760\23783\:A:I,A:I 1,1,1,1,1,1,1,255,1,1,1,25,1,1,1,255,1,97a,1,1,1,13 ,1,255,1,97a,1,25,1,13 ,1,255,1,109m,1,1,1,109m,1,255,1,109m,1,579,1,109m,1,255,1,109m,1,109m,1,109m,1,255,0,33!,0,64@,17,128,187,1,0,27,237,176,201,33!,128,187,17,0,64@,1,0,27,237,176,201 "23658j\,8:ORD=1 )I=1̺(*502):R=*2:I (*10 ) Ia$(28,2):c$(28,2):d$(4,7,2) b$=" "  3000 P23560\=80P23760\::0,2;" !TRAMPOSO! ESTO NO SE HACE ";2,5;"ESTADO DE LAS FICHAS":800 :0:23772\ Q23560\,1: Z2 PINTAR FICHAS [(Z=D$(I,W,1):T=D$(I,W,2) \90;7;A1,B1;B$(1);A2,B2;B$(1) ] d1TOMA COOR A1A2B1B2 e;I=1A1=19:A2=20:B1=11 +W:B2=B1 f:I=2A1=W+6:A2=A1:B1=29:B2=30 g9I=3A1=1:A2=2:B1=11 +w:B2=B1 h8I=4A1=W+6:A2=A1:B1=1:B2=2 i n2 PINTAR FICHAS o(Z=D$(I,W,1):T=D$(I,W,2) p=7;0;A1,B1;B$(Z+1);A2,B2;B$(T+1) q x3 FLASH FICHA ELEGIDA y)1;1;A1,B1;" ";A2,B2;" " z 4 ESPERA BORRA FICHA -S=13:.005y# =,*502:S A1,B1;" ";A2,B2;" "  5 ?QUIEN TIENE H$ ? &I=14:W=17 D$(I,W)=H$ W:I 6 X1=A1;X2=A2;B1=Y1;B2= A1=X1:A2=X2:B1=Y1:B2=Y2  7 ENTRADA DE DATOS NT=0:H$="":21,0;" ";21,1;" " 0:.05|L,502 Q$=:80P &Q$<480ůQ$>546162 QH$=H$+Q$:T=T+1:6;0;21,0+t;b$(h$(t)+1) CT=2H$=(H$(1)-480)+(H$(2)-480): 162 11 ?TENGO ESA FICHA? W=17:80P H$=D$(ORD,W)T=1: 5H$=D$(ORD,W,2)+D$(ORD,W,1)T=1: W T=0 $0,0;"DATO INCORRECTO"  12 PON 66 EN D$(ORD) D$(ORD,W)="66"  13 MIRA SI ES 66 W=17:80P :D$(ORD,W,1)="6"D$(ORD,W,2)"6"PAS=1 :D$(ORD,W,2)="6"D$(ORD,W,1)"6"PAS=1 W  14 ?PASO? SI=1 PAS=0 &DE=6190:PAS=1 &IZ=6190:PAS=1 W=17:80P -DE6DE=D$(ORD,W,1)210 -DE6DE=D$(ORD,W,2)210 -IZ6IZ=D$(ORD,W,1)210 -IZ6IZ=D$(ORD,W,2)210 W: PAS=1: 16 VER SI HE GANADO W=17 D$(ORD,W)"66" W 5000:HE GANADO 17 ?CERRADO? CIR=1 #CIR=0:T=0:S=0 W=1̱K$ K$(W)=DET=T+1 K$(W)=IZS=S+1 W $T=7S=7CER=1: S=5A=IZ:240 T=5A=DE:240  W=1̱K$-12 -K$(W)=K$(W+1)K$(W)=ACIR=1: W: 18 FLASH JUGADOR 0F1=0:F2=0:F3=0:F4=0 ORD=1F1=1 ORD=2F2=1 ORD=3F3=1 ORD=4F4=1 kF1;21,16;" ";F2;10 ,31;" ";F3;0,16;" ";F4;10 ,0;" "   19 ATTR DER ((X,Y+1)=36$Y=Y+1: ((X+1,Y)=36$X=X+1: ((X,Y-1)=36$Y=Y-1: X=X-1:  20 IZQ ((X,Y-1)=36$Y=Y-1: ((X-1,Y)=36$X=X-1: ((X,Y+1)=36$Y=Y+1: X=X+1: 21 COLO DER ?  S=1  X=X2:Y=Y2  S=3  260  X2=X:Y2=Y :7;0;X2,Y2;b$(H$(S)+1):S=S+1  282 " 22 COLO IZQ # S=2 $ X=X1:Y=Y1 % S=0 & 270 ' X1=X:Y1=Y (:7;0;X1,Y1;b$(H$(S)+1):S=S-1 ) 292$ ,23 INVERTIR H$ -;P$=H$(1):H$(1)=H$(2):H$(2)=P$: 624 POSICION CORRT H$ 7DER=0:IZQ=0 8$D$(ORD,W,1)=IZIZQ=1 9/D$(ORD,W,2)=IZIZQ=1:300, :$D$(ORD,W,1)=DEDER=1 ;/D$(ORD,W,2)=DEDER=1:300, < T VER SI TIENE H$ U80P:T=0 VW=17 WD$(ORD,W)=H$T=1: XW: ]juego cerrado? ^-s=0:d=0:t=0:ord=i:l=w _t=1̱k$ `iz=k$(t)s=s+1 ade=k$(t)d=d+1 bt:t=0 cS+D<12 dIZ=DED=87000X h)d+s=167000X:juego cerrado i d=8s=6365m j d=6s=8368p k d=6s=6372t li=ord:w=l::no cerrado m&i=14:w=17 n*d$(i,w)=iz+iz7000X:iz ahorcado o p&i=14:w=17 q'd$(i,w)=de+de7000X:ahorcado rw:i s t&i=14:w=17 ud$(i,w)=de+det=t+1 vd$(i,w)=iz+izt=t+1 ww:i x+t=27000X:2 fichas ahorcadas y z |t=0:s=0 }w=17 ~=d$(ord,w,1)="6"d$(ord,w,2)="6"s=s+1:w  w>7 8iz=d$(ord,w,1)de=d$(ord,w,1)t=1 8iz=d$(ord,w,2)de=d$(ord,w,2)t=1 w: w=17 &h$=d$(ord,w)t=1:s=0: 9h$=d$(ord,w,2)+d$(ord,w,)t=1:s=1: w:t=0:s=0 /21,0;"DATO INCORRECTO":25   ?es doble de poner? t=0:s=0 {iz=d$(ord,l,1)de=d$(ord,l,2)t=1:s=0:21,0;"NO SE DONDE COLOCARLA ?":20 Ciz=d$(ord,l,2)de=d$(ord,l,1)t=1:s=1   :legir d/i $7;21,0;"(D/I)" 0:.01z# =,35# ,q$=:Q$=68DůQ$=73I415  412 "q$="D"der=1:izq=0 "Q$="I"DER=0:IZQ=1 21,0;" ": colocar h$ en k$ (h$=d$(ord,w):der=0:izq=0 3h$(2)=izk$=h$+k$:izq=1:426 3h$(1)=dek$=k$+h$:der=1:426 >h$(1)=iz300,:k$=h$+k$:izq=1:426 3h$(2)=de300,:k$=k$+h$:der=1 d$(ord,w)="66": #poner ficha en mesa sitio elegido &de=h$(1)k$=k$+h$:434 1de=h$(2)300,:k$=k$+h$:434 &iz=h$(2)k$=h$+k$:434 &iz=h$(1)300,:k$=h$+k$ d$(ord,w)="66": ver si juego termino t=0:s=0 w=17 =d$(ord,w,1)="6"d$(ord,w,2)="6"s=s+1:w 8iz=d$(ord,w,1)de=d$(ord,w,1)t=1 8iz=d$(ord,w,2)de=d$(ord,w,2)t=1 w: VER SI PUEDO PONERLA  T=0 IZ=H$(1)T=1: IZ=H$(2)T=1: DE=H$(1)T=1: DE=H$(2)T=1:  XDEFINE SIZ-SDE YSIZ=0:SDE=0 ZH=1̱K$ [K$(H)=IZSIZ=SIZ+1 \K$(H)=DESDE=SDE+1 ]H: bGUARDA POSIBLES JUGADAS cQ$="" dW=17 eD$(ORD,W)="66"616h f(AR=D$(ORD,W,1)Q$=Q$+D$(ORD,W) g(AR=D$(ORD,W,2)Q$=Q$+D$(ORD,W) h W=7 iW lCOLOCA S$ Y R$ mP$="":Q$="" n!H=1(Q$)-12 oQ$(H)=AR625q pQ$(H)AR627s qH=(Q$)-1 rH: s3P$=Q$(H):Q$(H)=Q$(H+1):Q$(H+1)=P$: v&DER=0:IZQ=0:RET CON H$ wH$="" xH=1I1-12 y:S$(H+1)=DEH$=S$(H+1)+S$(H):IZQ=1: zH {H=1I1-12 |<S$(H+1)=S$(H)H$=S$(H)+S$(H+1):IZQ=1: }H ~+H$=S$(2)+S$(1):IZQ=1: &IZQ=0:DER=0:RET H$ DER H$="" H=1D1-12 :R$(H+1)=DEH$=R$(H)+R$(H+1):DER=1: H H=1D1-12 jR$(H+1)=R$(H)H$=R$(H)+R$(H+1):21,0;"!! ME DOBLO !!":30:DER=1: H +H$=R$(1)+R$(2):DER=1:  SOLO IZQ IZQ=1:DER=0 !H=1(S$)-12 /S$(H)=S$(H+1)H$=S$(H+1)+S$(H): H H$=S$(2)+S$(1):  SOLO DER DER=1:IZQ=0 !H=1(R$)-12 /R$(H)=R$(H+1)H$=R$(H)+R$(H+1): H H$=R$(1)+R$(2):  PRINT VARIABLES !L=W "8I=14:I*4,15;"JUGADOR N. ";I #W=17 $HJ=D$(I,W,1):K=D$(I,W,2):J=6K=6808( '{J=D$(I,W,1):K=D$(I,W,2):7;0;I*4,W;B$(J+1);(I*4)+1,W;B$(K+1) (W=7810* )W *I=420,2;"IZ=";7;0;B$(IZ+1);4;0;20,21;"DE=";7;0;B$(DE+1):I=ORD:W=L: +I , 3I=14:100d:ORD=I:250:I prog &0:4:0:4: 30;10 ,6;"ESTAS SON LAS FICHAS" i=1 z=60-1 w=6z-1 a$(i)=z+w:i=i+1 G7;0;12 ,i;b$(z+1);13 ,i;b$(w+1) w:z d10 ,6;"ESTAS SON LAS FICHAS";15,2;"PULSA UNA TECLA PARA BARAJAR":0 barajar U23613=\,0:i=1:w=(*28)+1:c$(1)=w:3036 "i=28c$(i)=w:3050 Jw=(*28)+1:12 ,w+1;" ";13 ,w+1;" " !v=1i:.01z# =,30 w=c$(v)3032 v:c$(i+1)=w i=i+1:3032 :0 i=128 z=c$(i) +c$(i)=(a$(z,1))+(a$(z,2)) i s=0 &i=14:w=17 d$(i,w)=c$(w+s) !I=1100d:110n I1100d:90Z w:s=s+7 i 4x1=10 :x2=11 :y1=15:y2=15 h$="66":140 !100d:120x:130 !150:110n:120x Is=615:4;4;s,6;" ";s,25;" ":s 4;4;6,7;" ";15,6;" ";8,16;" ";13 ,11 ;" " Y1=15:Y2=15 )7;0;x1,Y1;"";x2,Y2;"" k$=h$ Y1=14:Y2=16 "i=4i=1:4030  i=i+1  80P %ord=i:de=k$(k$):iz=k$(1) 421,0;" "  250 80P:(*200)  380| s=75000 lt=07;21,0;"PASAS":100d:21,0;" ":350^:4010 ORD14320  80P 160:500 OT=00;21,0;"DATO INCORRECTO":25:4050  390 s=1300,  80P !t=0502:4050 l=w 100d:120x  400  t=1s=0410 +t=1s=1300,:410 ""t=0420:4160@ ,$der=1430:4160@ 6izq=1432 @ 100d:80P:130 Eder=1280 Jizq=1290" T s=0 ^w=17 hd$(ord,w)="66"s=s+1 m 80P rw |s=75000  350^  4010 JUGADORES CONTRARIOS IZ=K$(1):DE=K$(K$)  380| S=75000 <T=021,0;"PASA":100d:4010 S$="":R$="" AR=IZ:610b  620l S$=Q$ AR=DE:610b  620l R$=Q$ &I1=S$:D1=R$ 0-I1=0710:K$=K$+H$:4470v :-D1=0700:K$=H$+K$:4470v D 600X N_I1+SIZ>D1+SDE640:K$=K$+H$:21,0;"TE VAS HA ENTERAR........":4470v O2D1=521,0;"NO SE CUAL PONER" P=D1=321,0;"!!ESTE JUEGO ESTA CHUPADO!!" Q=D1=621,0;"NO ME QUEDA OTRO REMEDIO..." R=D1=821,0;"TENGO TANTAS QUE NO SE....?" SID1=121,0;" !!HABER SI APRENDEIS!! ":100d X0I1+SIZB+D15,3;"ASI QUE GANA EL ORDENADOR" 0A+C=B+D15,7;"ESTAMOS EMPATADOS" 321,0;" QUIERES EL MISMO JUEGO (S/N)" 0:6000p a