AJEDREZ [F1:1:6: P,9 ,8;1;"SPECTRUM CHESS" Z212 ,10 ;1;1;"Thinking!" nn=121 xm=07:a (n+143)+m,a m:n E0,0,25,25,31,31,7,7 M0,0,152,152,248,248,224,224 E7,7,15,15,31,31,0,0 M224,224,240,240,248,248,0,0 C0,0,4,3,3,5,15,31 M0,0,128,192,224,240,240,240 D25,1,3,7,15,15,0,0 M240,240,240,240,240,240,0,0 B0,0,1,3,7,6,14,8 K0,0,128,192,224,96`,112p,16 C8,14,6,7,3,15,0,0 K16,112p,96`,224,192,240,0,0 C0,0,25,25,6,6,1,1 K0,0,152,152,96`,96`,128,128 "G15,15,15,15,15,15,0,0 ,A0,0,1,1,7,7,1,1 6M0,0,128,128,224,224,128,128 @A0,0,0,1,1,7,7,7 JK0,0,0,128,128,224,224,224 TC7,1,1,15,15,0,0,0 ^K224,128,128,240,240,0,0,0 h w=1 b$(8,8,4) 8b$(1,1)="abcd":b$(1,8)="abcd" 8b$(1,2)="efgh":b$(1,7)="efgh" &8b$(1,3)="ijkl":b$(1,6)="ijkl" 0b$(1,4)="mnoh" :b$(1,5)="pqcd" D,n=18:b$(2,n)="rstu":n N,n=18:b$(7,n)="RSTU":n Xb$(8,5)="PQCD" bb$(8,4)="MNOH" l8b$(8,3)="IJKL":b$(8,6)="IJKL" v8b$(8,2)="EFGH":b$(8,7)="EFGH" 8b$(8,1)="ABCD":b$(8,8)="ABCD" w1520 7:7:0: 8;"A B C D E F G H" ,n=18:2*n,6;n:n L9n=03:m=03:b=01 V-2+4*n+b,8+4*m;"" `/4+4*n+b,8+4*m;"" j b:m:n 1v=18:n=18:t=0 .0:0:1:m=14 b=b$(v,n,m) b=" "1580, #b>90Zb=b-32 :7 "b=b+79O ,$r=v*2+((m-1)/2) 6:s=6+2*n:(m/2)=m/2s=s+1 @ r,s;b Jm:t O"wv=2n=8v=6 Tn:v Ma$(4):"Enter your move as eg f1g2"'"If you wish to stop enter 0 ";a$ a$(1)="0"2160p n=a$(1) n<73In=n-64@:  n>96`n=n-96` v=a$(2)  n1=a$(3) *n1<73In1=n1-64@ 4n1>96`n1=n1-96` >v1=a$(4) Hv>8v<1n>8n<1v1>8v1<1n1>8n1<1"Invalid move. Try again ";a$:2030 Rb$(v1,n1)=b$(v,n) \b$(v,n)=" " ft=1:1530 k4b$(v1,n1,1)="r"v1=8b$(v1,n1)="mnoh" l4b$(v1,n1,1)="R"v1=1b$(v1,n1)="MNOH" pv=v1:n=n1:1530 z 2020 %"Do you want another game? y/n ";c$ %c$="y"c$="Y"w=0:500 0:0: "AJEDREZ"1 awabcdefghijklmnohpqcdijklefghabcdrsturstursturstu rstursturstu rstu RSTU RSTURSTURSTURSTU RSTURSTURSTUABCDEFGHIJKLMNOHPQCDIJKLEFGHABCDLtr s