IF эр > 0 AND эр < 11 THEN

IF SCREEN (2 * Ip, 5 * ]p) =63 THEN

'есть неоткрытый GOSUB show

'то его нужно открыть END IF END IP END IF NEXT k END IF NEXT 3k NEXT ik LOOP END IF END IF

После каждого благополучного выбора проверяется количество закрытых квадратов и если их осталось меньше 21, то выдается поздравительное сообщение и программа выходит из цикла игры.

count% = 0 'счет закрытых квадратов FOR lp = 1 ТО 10 FOR зр = 1 ТО 10

IF SCREEN (2 * lp, 5 * ]р) =63 THEN count% = count% + 1 NEXT ]p NEXT lp IF count% < 21 THEN

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

LOOP 'конец цикла игры COLOR 7, О END

Следующая подпрограмма используется для вывода на экран количества соседних мин Но кроме того она считает количество открытых пустых квадратов, чтобы цикл автоматического выбора квадратов мог успешно завершиться

show:

kcol = fld(lp, ]p) LOCATE 2 * lp, 5 * зр IF kcol < 9 THEN COLOR 0, 7 IF kcol > 0 THEN COLOR kcol - 1 PRINT USING "#"; kcol;

ELSE

IF kcol = 0 THEN PRINT " " cleared% = cleared% + 1

'количество открытых пустых квадратов END IF END IF END IF RETURN

Приведенный в "Приложениях" вариант игры под названием MINES . ВАЗ имеет три отличия, одно из которых существенно облегчает