ZXTape!Othello ddP:0:7:1:0::0,10 ;1;" OTHELLO " n 1000 x 4000 >.5170 /21,0;2;"Spectrum to move" 3000 f1=2220 /21,0;2;"You to move " c$="B" 5000 f1=2220 140 A6000p:21,0;2;"Spectrum ";a;" You ";b $"Press ENTER to play again ";z$: 70,524,4,12 ,13 ,5,535,1,59;,60<,36$,44,,45-,37%,61=,546,11 ,43+,20,24,25,21,38&,6,19,513,31,32 ,33!,26,46.,14,18,502,30,34",35#,27,47/,15,10 ,42*,23,29,28,22,39',7,58:,63?,41),491,480,40(,62>,557,3,579,9 ,17,16,8,568,2 @x(64@):y(64@):y=18:x=18 #a:x(a+1)=x:y(a+1)=y x:y 0,0,0,3,7,15,31,31,0,0,0,192,224,240,248,248,31,31,15,7,3,0,0,0,248,248,240,224,192,0,0,0 $ 1,1,491,25,13 ,7,3,1,128,128,140,152,176,224,192,128,0,0,32 ,480,24,12 ,6,255,255,6,12 ,24,480,32 ,0,0 .?n=07:m=07:a:(n+"A")+m,a:m:n 82p$(2,2,2):a$(2,2) Bxj=12:k=12:p$(1,j,k)=(2*j+k+141):a$(j,k)=(2*j+k+145):k:j Lyb$(8,8):b$(5,5)="A":b$(4,4)="A":b$(5,4)="B":b$(4,5)="B" V  f1=0 d$="A":c$=d$d$="B" b$(y1,x1)" " (y=-11:x=-11 y2=y1+y:x2=x1+x @y2=0y2=9 x2=0x2=9 (xy)15906 "b$(y2,x2)=d$2000 ,f1 6x:y @ y3=y2:x3=x2 Ay3=y3+y:x3=x3+x:y3=0y3=9 x3=0x3=9 b$(y3,x3)=d$2020 b$(y3,x3)=" " f1=1: d$="A":d$=c$d$="B" (b$(y1,x1)=c$:x3=x1:y3=y1:4500 (y=-11:x=-11 y2=y1+y:x2=x1+x @y2=0y2=9 x2=0x2=9 (xy)26102 &f1=0:b$(y2,x2)=d$2000 f126102 :b$(y2,x2)=c$:y3=y2:x3=x2:4500:y2=y2+y:x2=x2+x b$(y2,x2)=c$26102 ( 2580 2x:y < Tc$="A":2,6;" ":k=419:k,4;" ":k >k=164@:.1}L,k:y1=y(k):x1=x(k):1500 f1k f12500 : f1=2:  fl=1 &y=18:x=18 y3=y:x3=x:4500 x:y fl=0: j=12 p=1+(b$(y3,x3)=" "):1+2*y3+j,4+2*x3;1+(b$(y3,x3)="A");7-((x3+y3)/2=((x3+y3)/2));p$(p,j) j ;fl=0k=3015-1:.008zn,k:k  s=1:r=1  5500| z$=:z$=""5030 >.1}L,20:s=s+(z$="8"s<8)-(z$="5"s>1) +r=r+(z$="6"r<8)-(z$="7"r>1) 2z$="0"x1=s:y1=r:1500:f12500 : z$="1"f1=2:  5020 %2,6;" " 'j=419:j,4;" ":j (2,4+2*s;a$(1) Bj=12:1+2*r+j,4;a$(2,j):j  za=0:b=0 &y=18:x=18 &a=a+(b$(y,x)="A"):b=b+(b$(y,x)="B") x:y