ZXTape!Corner e e -g Corner Checkers  9000(#  8000@ ( 7000X 2 8000@ < 6000p F 30 p**Computer Move** zz=88X11 -1 a(z)=c6050 z  62008  y=-11 Qz+y>88Xz+y<11 z+2*y>88Xz+2*y<11 6070 'a(z+y)=ha(z+2*y)=e6100 Ry=-9 *(y=-11 )+9 *(y=-9 )+11 *(y=9 )+(y=100d) y06055 z  62008 a(z)=e  a(z+y)=e a(z+2*y)=c comp=comp+1  8**Non-Capture Move** Bz=1200 Lk=(*78N)+11 Va(k)=c6260t `z j 6500d t y=-11 a(k+y)=e6330 Ry=-9 *(y=-11 )+9 *(y=-9 )+11 *(y=9 )+(y=100d) y06270~ z  6500d 7k+2*y>88Xk+2*y<11 6400 a(k+2*y)=h6240` 7k-2*y<11 k-2*y>88X6400 a(k-2*y)=h6240`  a(k+y)=a(k)  a(k)=e  dg=1200 nk=(*78N)+11 xa(k)=c6600 g (0,0;"I concede the game."  a(k-11 )=ey=-11 a(k-11 )=e6400 a(k-9 )=ey=-9 a(k-9 )=e6400  6540  X**Player Move** b119,0;"Enter your move as ""3344""" la$ va$47020l 119,0;" " a=a$(12) b=a$(34)  a(b)=a(a) a(a)=e %(a-b)>11 a((a+b)/2)=e "(a-b)>11 hum=hum+1  @**Print Board** J>3,0;"Computer > ";comp;16;hum;" < Human" T%5,6;"" ^!6;" 12345678 " hz=81-1 r6;" ";z;" "; |x=18 a(10 *z+x); x  " " z !6;" 12345678 " 6;"" +comp=70,0;"I win!": ,hum=70,0;"You win.":  # #(a(100d) #2h$="111315222431334251" #<c$="888677688475665748" #FGb$="1214161821232527323436384143454752545658616365677274767881838587" #P#e$="8273645546372817263544536271" #Zz=1100d #da(z)=9 #nz #xh="H" #c="C" #b="" #e=" " #z=19 #a(h$(2))=h #a(c$(2))=c #h$=h$(3) #c$=c$(3) #z #z=132 #a(b$(2))=b #b$=b$(3) #z #z=114 #a(e$(2))=e #e$=e$(3) $z $comp=0 $ hum=0 $";5,0;"Do you want the first"'"move (y or n)?" $,u$ $1 $6u$ɯ"y"Ưu$ɯ"Y"502 % program 1 <r<> Corner Checkers  9000(# # #( a(10 ) program 2 r#(a(100d) #2h$="111315222431334251" #<c$="888677688475665748" #FGb$="1214161821232527323436384143454752545658616365677274767881838587" #P#e$="8273645546372817263544536271" #Zz=1100d #da(z)=9 #nz #xh="H" #c="C" #b="" #e=" " #z=19 #a(h$(2))=h #a(c$(2))=c #h$=h$(3) #c$=c$(3) #z #z=132 #a(b$(2))=b #b$=b$(3) #z #z=114 #a(e$(2))=e #e$=e$(3) $z $comp=0 $ hum=0 $";5,0;"Do you want the first"'"move (y or n)?" $,u$ $1 $6u$ɯ"y"Ưu$ɯ"Y"502 % program 3 r 8000@ @**Print Board** J>3,0;"Computer > ";comp;16;hum;" < Human" T%5,6;"" ^!6;" 12345678 " hz=81-1 r6;" ";z;" "; |x=18 a(10 *z+x); x  " " z !6;" 12345678 " 6;"" +comp=70,0;"I win!": ,hum=70,0;"You win.":  program 4 zrz|( 7000X 2 8000@ F 30 X**Player Move** b119,0;"Enter your move as ""3344""" la$ va$47020l 119,0;" " a=a$(12) b=a$(34)  a(b)=a(a) a(a)=e %(a-b)>11 a((a+b)/2)=e "(a-b)>11 hum=hum+1  program 5 r< 6000p p**Computer Move** zz=88X11 -1 a(z)=c6050 z  62008  y=-11 Qz+y>88Xz+y<11 z+2*y>88Xz+2*y<11 6070 'a(z+y)=ha(z+2*y)=e6100 Ry=-9 *(y=-11 )+9 *(y=-9 )+11 *(y=9 )+(y=100d) y06055 z  62008 a(z)=e  a(z+y)=e a(z+2*y)=c comp=comp+1  program 6 1r138**Non-Capture Move** Bz=1200 Lk=(*78N)+11 Va(k)=c6260t `z j 6500d t y=-11 a(k+y)=e6330 Ry=-9 *(y=-11 )+9 *(y=-9 )+11 *(y=9 )+(y=100d) y06270~ z  6500d 7k+2*y>88Xk+2*y<11 6400 a(k+2*y)=h6240` 7k-2*y<11 k-2*y>88X6400 a(k-2*y)=h6240`  a(k+y)=a(k)  a(k)=e  dg=1200 nk=(*78N)+11 xa(k)=c6600 g (0,0;"I concede the game."  a(k-11 )=ey=-11 a(k-11 )=e6400 a(k-9 )=ey=-9 a(k-9 )=e6400  6540  program 7 srsu Corner Checkers  9000(#  8000@ ( 7000X 2 8000@ < 6000p F 30 q