258____________________________________________

LINE (26 * i + 26, 21 * j - 15)-(26 * i + 50, 21 * j + 4), 8, BF

IF kact < 4 THEN 'выбор из списка

kptr = kptr + 1: IF kptr > ptr THEN kptr = 1 ELSE

kptr = kptr - 1: IP kptr < 1 THEN kptr = ptr END IF END IF LOOP UNTIL kact = 2

ELSE 'ход компьютера GOSUB getrank 'ранжирование возможных ходов olc% = -10

FOR kz == 1 TO ptr 'выбор хода по рангу temp% = rank(kz) IF temp% > ok% THEN

olc% = tempt: kptr = kz END IF NEXT kz BEEP END IF

GOSUB chng 'выполнение хода kpir == 3 - kpir: kptr = 1 END IF LOOP SLEEP END shows core:

kfrst = 0: kscnd = 0 FOR k = I TO 64

GOSUB drsqr NEXT k

LOCATE 24, 17 PRINT USING "##&"; kfrst; " :";

PRINT kscnd;

RETUKN drsqr:

i = (k - 1) \ 8 + 1: j = (k - 1) MOD 8+1

LINE (26 * i + 26, 21 * j - 15)-(26 * i + 50, 21 * j + 4) , 8, ВР tempt = rvr(i, j) IF tempt О О THEN icol = 3 + teap%

CIRCLE (26 * i + 38, 21 * j - 6), 10, icol PAINT (26 * i + 38, 21 * j - 6), icol

IF temp% > 0 THEN kfrst = kfrst + 1 ELSE kscnd = kscnd + 1 END IF KETUKN getlst:

ptr =0:kr=3-2* kpir FOR k = 1 TO 64

i = (k - 1) \ 8 + 1: j = (k - 1) MOD 8+1 IF rvr(i, j) = 0 THEN FOR kd = 1 TO 8 GOSUB chck IF ok% = 1 THEM