LOOP UNTIL i > 0 AND 3 > 0 'выход по указанию квадрата mymouse(16) = 2 'спрятать курсор CALL absolute(mouseptrS)

GOSUB show 'показ выбора IF kcol > 9 THEN 'если неудачный выбор, то angels% = angels% - 1 'уменьшение количества "жизней" IF angels% >= О THEN

'если "жизнь" была не последняя, то LOCATE 3, 72 - 3 * angels%: PRINT "X" ;

fld(i, 3) = 9 'для страховки от повторного выбора ELSE 'иначе игра окончена FOR i=l TO 10 'показ расстановки мин FOR 3 = 1 ТО 10

GOSUB show NEXT 1 NEXT l EXIT DO END IF

ELSE 'иначе по удачному выбору DO 'автовыбор и счет неоткрытых ОК% = 1: count% = 0

'признак открытия и счетчик FOR l = 1 ТО 10 FOR з = 1 ТО 10

IF SCREEN(2 * l, 5 * з) = 63 AND fld(l, 3) < 9 THEN count% = count% + 1 FOR k = 1 TO 8

'проверяются все 8 квадратов вокруг З.Р = i + di] (k) IF ip > 0 AND ip < 11 THEN Зр = 3 + di] (k + 2) IF эр > 0 AND 3p < 11 THEN

IP SCREEN(2 * ip, 5 * эр) = 32 THEN GOSUB show OK% = 0: EXIT FOR

'выход по пустому END IF END IF END IF NEXT k END IF NEXT 3 NEXT l LOOP UNTIL OK% > 0 IP count» = 0 THEN

LOCATE 23, 1: PRINT " О";

LOCATE 22: COLOR 15, 0: PRINT "ПОЗДРАВЛЯЮ'''": EXIT DO END IF END IF LOOP COLOR 7, 0 SLEEP CLS END