Приложения 247

PRINT wall$: PRINT bot$ COLOR 14

FOR 1=1 TO 10 ' очистка поля и закрытие клеток FOR з = 1 ТО 10 fld(l, 3) = О LOCATE 2 * 1, 5 * 3: PRINT "•»";

NEXT l NEXT I LOCATE 23, 1: PRINT "80";

angels% = 3 head$ = " " + CHR$(1) + " " body$ = "л" + CHR$(219) + "л" legs$ = " " + CHR$(19) + " " LOCATE 2, 65: PRINT head$ + head$ + head$ LOCATE 3, 65: PRINT body$ + body$ + body$ LOCATE 4, 65: PRINT legs$ + legs$ + legs$ RANDOMIZE TIMER

FOR L = 1 TO 20 'цикл установки мин count% = 1 + (100 - L) * RND

FOR i=l TO 10 ' перебор строк FOR з = 1 ТО 10 'перебор столбцов IF fld(x, з) < 9 THEN count% = count% - 1 IF count% = 0 THEN 33 = 1: EXIT FOR NEXT 3

IF count% = 0 THEN ll = l: EXIT FOR NEXT l

l = 11: 3 = 33: fld(l, 3) = 10

FOR k = l TO 8 'цикл счета соседей ii = i + di] (k) IF 11 > 0 AND ll < 11 THEN 33 = -S + dl3(k + 2) IF ]] > 0 AND 33 < 11 THEN

fld(ll, 33) = fidd-l, 33) + 1 END IF END IP NEXT k NEXT L DO

mymouse(16) = 1 'показать курсор

CALL absolute(mouseptrb)

inymouse(16) = 3 'читать состояние курсора

1=0: 3=0

DO

CALL absolute (mouseptri.) IF mymouse(17) > 0 THEN

'по нажатию кнопки чтение координат 3 = mymouse(18) - 8

IF 3 MOD 40 > 0 THEN 3 = ] \ 40 + 1 IF 3 > 10 THEN 3=0 i = mymouse(19)

IF l MOD 16 > 0 THEN l = l \ 16 + 1 IF l > 10 THEN 1=0 IF 1 = 0 OR 1 = 0 THEM BEEP END IF