ColOthellos p€s éu ÿ\êColourthello by Graham Charlton from ZX Computing Aug/Sep'82R 5êThere were a number of errors in this listing, some I've fixed. Most notably, the com-puter's score, held in "c", was overwritten by theëloops at 1070 and 4000, so I changed the scores to be in "co" and "hu". I also changed it to finish as soon as one side has no pieces left. [JimG] ©êAlso, if you try to place a piece on a location which is already occupied by a computer piece, the program gets stuck in a loop in the sub-routine at 4000. ¯õ¬0,12 ;Ù2;"C";Ù1;"o";Ù6;"l";Ù3;"o";Ù4;"u";Ù5;"r";Ù2;"t";Ù1;"h";Ù6;"e";Ù3;"l";Ù4;"l";Ù2;"o" >éa(10 ,10 ):ëb=1Ì10 :ëc=1Ì10 ×.01z#× =,b*c/10 (8úbÉ1ÆcÉ1ÆbÉ10 ÆcÉ10 Ëña(b,c)=¯"." 2óc:ób:ñp=0:ñr=0 Fdña(5,5)=¯"x":ña(6,6)=¯"x":ña(6,5)=¯"o":ña(5,6)=¯"o" x*îÙ2;"Do you want to go first? ";q$ }û:í3000¸ ¯õ¬0,12 ;Ù2;"C";Ù1;"o";Ù6;"l";Ù3;"o";Ù4;"u";Ù5;"r";Ù2;"t";Ù1;"h";Ù6;"e";Ù3;"l";Ù4;"l";Ù2;"o" ‚ú¯q$ɯ"n"Ưq$ɯ"N"Ëì2000Ð è+õÙ2;¬10 ,16;"My move" òñs=¯"o":ñt=¯"x":ñh=0 &ëa=2Ì9 :ëb=2Ì9 $úa(a,b)ɯ"."Ëì1320( .Hñq=0:ëc=-1Ì1:ëd=-1Ì1:ñk=0:ñf=a:ñg=b júa(f+c,g+d)ÉsËì1180œ t'ñk=k+1:ñf=f+c:ñg=g+d:ì1130j œúa(f+c,g+d)ÉtËì1200° ¦ñq=q+k °ód ºóc Ä6úf=2Åf=9 Åg=2Åg=9 Ëñq=q*2 Î6úf=3Åf=8Åg=3Åg=8Ëñq=q/2 ìfú(f=2Åf=9 )Æ(g=3Åg=8)Å(f=3Åf=8)Æ(g=2Åg=9 )Ëñq=q/2 ,úq.3™™™Æq=h)Ëì1320(  ñh=q:ñm=a:ñn=b (ób 2óa 88XËì2030î  =ñm=º(r/10 )+1:ñn=r-10 *º(r/10 )+1  í4000  *í3000¸ :ì1000è ¸(õ¬5,0;:×.25,¥*5 Âñco=0:ñhu=0 ÖõÙ4;" 12345678 " à(ëb=2Ì9 :õÙ4;b-1; ôëd=2Ì9 þúa(b,d)=¯"x"ËõÙ2;"x"; úa(b,d)=¯"o"ËõÙ1;"o"; úa(b,d)=¯"."ËõÙ5;"."; úa(b,d)=¯"x"Ëñco=co+1 úa(b,d)=¯"o"Ëñhu=hu+1 ód &õÙ4;b-1 0ób :õÙ4;" 12345678 " NMõ''Ù3;"I have ";Ù2;co;Ù3;" You have ";Ù1;hu;" "' X#úhu=0Åco=0Ëì5000ˆ bþ  ëc=-1Ì1 ªëd=-1Ì1 ´ ñf=m:ñg=n Èúa(f+c,g+d)ÉsËì4080ð Òñf=f+c:ñg=g+d:ì4040È ðúa(f+c,g+d)ÉtËì4140, úña(f,g)=t:úm=fÆn=gËì4140, ñf=f-c:ñg=g-d:ì4090ú ,ód:óc:þ ˆ2õ¬21,0;:úco>huËõ"I won, ";co;" - ";hu ’ úhu>coËõ"You won, ";hu;" - ";co ¦ê Charlton 1982 r