AJEDREZ V>84X> PARA 2 JUGADORES CON SINTETIZADOR DE VOZ.  PATXI PROJECTS 1985 ?1:1:7::60000`:"":voz=9990' voz=9990' 5:5::2:6:1;12 ,9 ;" AJEDREZ ":0:v$="ajedrez":n=13:63000:30:n 9000(#:8000@ #1;1;"UN MOMENTO":v$="un momento":voz:nj=10 :t(8,8,3):e(2,2):r(4,2):l=12:c=12:e(l,c)=0:c:l nc=12:l=14:r(l,c)=((l=1)(l=2)(l=3))*2+(l=4):l:c l=18 c=18 (;(l=1)(c=1)t(l,c,3)=5:70F 2Bc=1t(l,c,3)=t(l-1,8,3):70F 8la=8 ca>8ca=8 ca<1ca=1 .005y# =,40(:2+2*(9 -la-1),1;" ";2+2*(9 -la+1),1;" ";2+2*(9 -la),1;"*";1,2+2*(ca-1);" ";1,2+2*(ca+1);" ";1,2+2*ca;"*" "0"590N y$=("uno"la=1)+("dos"la=2)+("tres"la=3)+("kuatro"la=4)+("cinko"la=5)+("seis"la=6)+("siete"la=7)+("oho"la=8) z$=("uno"ca=1)+("dos"ca=2)+("tres"ca=3)+("kuatro"ca=4)+("cinko"ca=5)+("seis"ca=6)+("siete"ca=7)+("oho"ca=8) 4v$=y$:63000:20:v$=z$:63000  0 -l=5020-5:.05|L,l:l l=8:c=1:a=419:a,1;" ";1,a;" ":a:2+2*(9 -l),1;"*";1,2+2*c;"*" =""690 ="7"l=l+1 ="6"l=l-1 ="5"c=c-1 ="8"c=c+1 l<1l=1 l>8l=8 c>8c=8 c<1c=1 .005y# =,40(:2+2*(9 -l-1),1;" ";2+2*(9 -l+1),1;" ";2+2*(9 -l),1;"*";1,2+2*(c-1);" ";1,2+2*(c+1);" ";1,2+2*c;"*" "0"690 y$=("uno"l=1)+("dos"l=2)+("tres"l=3)+("kuatro"l=4)+("cinko"l=5)+("seis"l=6)+("siete"l=7)+("oho"l=8) z$=("uno"c=1)+("dos"c=2)+("tres"c=3)+("kuatro"c=4)+("cinko"c=5)+("seis"c=6)+("siete"c=7)+("oho"c=8)  4v$=y$:63000:20:v$=z$:63000  0  v((l=la)(c=ca))(t(la,ca,2)f)(t(l,c,2)=f)(t(la,ca,1)=0)v$="te ekibokas":voz:580D L(t(la,ca,1)=1)(lla)(cca)v$="te ekibokas":voz:580D  v(t(la,ca,1)=2)((((la-l)=2)((ca-c)=1))(((ca-c)=2)((la-l)=1)))575? *9(t(la,ca,1)=3)((la-l)ɽ(ca-c))575? 4G(t(la,ca,1)=4)(lla)(cca)((l-la)ɽ(c-ca))575? >K(t(la,ca,1)=5)((l-la)1)((c-ca)1)575? H(t(la,ca,1)=6)(((ca7)(ca2)((ca-c)>1))(((ca=7)(ca=2))((ca-c)>2))((f=1)(ca>c))((f=2)(ca1)((c-ca)>1)(t(l,c,1)=0))))((l=la)(t(l,c,1)0)))575? IK1000:(t(la,ca,1)=1)(la=1)e(1,f)=1 J?(t(la,ca,1)=1)(la=8)e(2,f)=1 KFt(la,ca,1)=5e(1,f)=1:e(2,f)=1 L#t(l,c,1)5848P M9i=10 502:.1}L,i:.05|L,i-9 :i Ndf=17:15,22;"GANAN";17,24;"ROJAS":v$="ganan rojas":voz: Obf=27:15,22;"GANAN";17,24;"VERDES":v$="ganan berrdes": Px(t(l,c,1)0)(t(l,c,1)6)r(t(l,c,1),(3-f))=r(t(l,c,1),(3-f))-1 QYt(l,c,1)0i=10 5024:.1}L,i:.05|L,i-9 :i Rpt(l,c,1)=t(la,ca,1):t(l,c,2)=f:t(la,ca,1)=0:t(la,ca,2)=t(la,ca,3) Wv=1:a=la:b=ca \#870f+10 *t(a,b,1) fb$=" ":940 pb$="":940 zb$="":940 b$="":940 b$="":940 b$="":940  b$="" 7*(6-t(a,b,3))+6*(t(a,b,3)-5):4*(t(a,b,2)=2)+2*(t(a,b,2)=1):19-2*a,1+2*b;b$(12);20-2*a,1+2*b;b$(34) +v=1v=2:a=l:b=c:860\ #5000:6000p:550& S(t(la,ca,1)=6)((ca-c)>1)(ca2)(ca7)575? 5(t(la,ca,1)=6)(lla)(c=ca)575? [(t(la,ca,1)=6)(lla)(((la-l)>1)(t(l,c,1)=0))575? &t(la,ca,1)110808 p=(l=la)*(c>ca)*(ca+1)+(la=l)*(ca>c)*(c+1)+(ca=c)*(l>la)*(la+1)+(ca=c)*(la>l)*(l+1)(l=la)*(c>ca)*(c-1)+(l=la)*(ca>c)*(ca-1)+(ca=c)*(l>la)*(l-1)+(ca=c)*(la>l)*(la-1) Et((lla)*p+(l=la)*la,(cac)*p+(ca=c)*ca,1)0575? p BC(t(la,ca,1)3)(t(la,ca,1)4)1200 G p=la:m=ca L&p=p+(l>la)-(lca)-(c,60<,60<,60<,0,0,"r",252,252,252,60<,60<,60<,0,0 #"p",0,0,1,7,31,63?,1,3,"u",0,64@,128,96`,240,240,240,224 #"i",7,15,7,7,7,15,63?,0,"o",192,192,192,224,224,240,248,0 #"a",0,1,3,3,1,1,3,1,"s",0,128,192,192,128,128,192,128 #"d",1,1,3,3,3,7,31,0,"f",128,128,192,192,224,248,248,0 #"g",0,0,0,0,0,0,1,3,"h",0,0,0,0,0,0,128,192 #"j",3,1,1,1,3,7,7,0,"k",192,128,128,128,192,224,224,0 #Ȕ"l",0,1,2,4,2,1,1,15,"m",0,64@,64@,32 ,64@,128,128,240 #Ҙ"n",0,10 ,5,7,3,1,1,15,"c",0,80P,160,224,202,132,138,240 $6 '63000:0: 'W7:7:0::"AJEDREZ"1:"VOZ"62900,2636L :"":"" o' dPcA`ESTE ES UN PROGRAMA PARA JUGAR AL AJEDREZ ENTRE DOS JUGADORES. LA JUGADA A REALIZAR SE ESCOGE EN DOS PASOS. EN EL PRIMERO, MEDIANTE DOS ASTERISCOS MOVILES SE ELIGE LA FICHA A MOVER. UNA VEZ SE HA ESCOGIDO, SE PULSA~SPACE~ Y SE ELIGE LA CASILLA ENLA QUE SE VA A COLOCAR. ADELANTE, Y... QUE GANE EL MEJOR -"zvDbfYohoZtresBVle tokaalas berrdesBVOZ L N M8M\ P P P M>M\ Wq MQ ?v>ñF#^#V#Fx( >>Ͱ#F>?Ͱ#z 2   )- "        *K\~V( p͸#>N#Fx#2+26~ (4A{[8a A'_!^#fk #x!@+| RQKrzIr'?crlvzi "#N,:-b 2                   >>2+<26 ] n    Q d  ! $@I$ Tj)$@I$ Tj) ,D" ; Q(^! X/j`H   " B " &   " X,@ "   " B " &   " X,@ "   " B " &   " X,@ "   " B " &   " X,@ ",A( * !./- )#% A!5M/8H4&H.  X=5&KPEBI)3 >+aj  * $  4B ]iX(~*$'UAp0#a&+8'F >%  A34R@$z8e($8* 3`U ^(? P ( >Hn$  Q d  A( * !./- )#%                                                       A     C  "   !7%   6Q X 5{"Z!5M/H4&H.  X=5&KPEBI)3 >g  N'S  \! ^!  ^6$R R(9R *@Z#,a^P!/%%%%"   dd dd dd P P P 8 J@MGnG\GWq !v>>BB<DHpHDB@@@@@~BfZBBBBbRJFB