REVERSI R_gT**** Reversi **** (c)1982 Phipps Associates  ::0,7;1;"**** Reversi ****";0 %10 ,8;"Initialising..."  7200   7300 L-a$="Do you want to move first?":9000(# Vt=(¯a$"Y") t=t:fc=0 2000+t*1000 cg=25000 x(b(p)=t+1:7500L:7400 ,s(1)+s(2)=64@5100  1200  my move  21,0;"My move..." a=164@ p=p(a):7000X fc21004 a 8.25~,10 :21,0;"I cannot move!"  cg=cg+1: 4?.25~,10 :21,0;"I play ";c$(p);r$(p) > cg=0 H your move .a$="Your move (""x"" if stuck):":9000(# 21,0,, a$="X"3200 a$23000 6x=a$(1)-"A":x<0x>73000 6y=a$(2)-"1":y<0y>73000 .p=(y+1)*10 +x+2:7000X Ffc=021,0;"Illegal move. Try again.":3000  cg=0  cheat check &21,0;"Just checking..." _a=60<1-1:p=p(a):7000X:fca:cg=cg+1:21,0,,: M21,0;1;"CHEAT!";0;" You can play ";c$(p);r$(p) 3000  game over &20,0;"No-one can move." 21,0,, Ys(1)=s(2)21,0;"Stalemate! The scores are equal.":5200P )a$="I":s(2)>s(1)a$="You"  21,0;a$;" win." P,a$="Another game?":9000(#:¯a$="Y" Z 9999' Xcheck legal move (p) Yt=0 is my move b fc=0 lb(p) vi=18:mc=0 +xp=p+i(i):b(xp)(t)+17100 Hmc=mc+1:t(fc+mc)=xp:xp=xp+i(i):b(xp)=(t)+17050 b(xp)t+1mc=0  fc=fc+mc i   initialise "#y(p@)=((p-1)/8) $&x(p@)=(p-1)-y(p)*8 &Bc$(pX)=("A"+(p-2)-((p-1)/10 )*10 ) (-r$(pX)=("0"+((p-1)/10 )) *Ib(100d):i(8):t(30):p(64@):s$(2,4) 4 9900& >Gx=164@:p:p(p)=(y(x)+1)*10 +x(x)+2:x Rx=09 :b(x+1)=9 :b(91[+x)=9 :b(10 *x+1)=9 :b(10 *x+10 )=9 :x \Tb(45-)=1:b(46.)=2:b(557)=2:b(568)=1 fx=18:i(x):x p(s$(1)="Me :":s$(2)="You:" u 9500% z  draw board  Gx=08:96`+x*8,144:0,-64@:x Hy=08:96`,144-(y*8):64@,0:y '2,12 ;4;"ABCDEFGH" 6y=18:3+y,10 ;4;y:y display positions  s(2) y=07:x=07:z=b((y+1)*10 +x+2):zy+4,x+12 ;(143+z):s(z)=s(z)+1 x:y ez=12:z,24;2;(z+143);0;1;s$(z);0;s(z);" ":z B Lupdate board V$f=1fc:b(t(f))=t+1:f ` #( line input #2(a$+" ");a$:end=ña$ #,28,36$,20,21,37%,29,63?,64@,30,38&,22,9 ,45-,15,31,32 ,16,46.,10 ,535,59;,47/,39',40(,480,60<,546,3,557,11 ,23,24,12 ,568,4 &I-11 ,-10 ,-9 ,-1,1,9 ,10 ,11 ' d         + MB7,!ND:0&OC@ RY '>ETW"%@C*14;UV#$,/69AB+05:KL!&?DJM HOSXIN-.78 Me :You:<#pXnb%bCBnt 8@ vc V *AN