Приложения 243

ELSE 'иначе ii = i + di: 3 3 = 3 + d] IF 11 > 0 AND 11 < 9 AND 33 > 0 AND 33 < 9 THEN

'по корректной команде

DRAW "с" + STR$(POINT(34 + 26 * l, 21 * 3 + 6)) GOSUB drawghs 'стереть старый маркер i = и: з = 33: DRAW "cl4"

GOSUB drawghs 'нарисовать новый маркер ELSE 'иначе

ВЕЕР 'выдать звуковой сигнал END IF END IF ]C = О

FOR 11 = 1 ТО 8 'проверка количества ферзей из. = 34 + 26 * и FOR 33 = 1 ТО 8

333 = 21 * зз + 6

IF POINT(l.l.3-, 333) = 14 THEN 30 = 30 + 1 NEXT 33 NEXT 11

IF 3C = 8 THEN COLOR 12: PRINT "ПОЗДРАВЛЯЮ"': EXIT DO LOOP COLOR 7 SLEEP 5 CLS END

drawque: ' ill =l: 333 = 3

FOR 1=1 ТО 8 ' стирание битых фигур di = 1 - in FOR з = 1 ТО 8 d] = 1 - 333

IF di * d] * (di + d]) * (di - d]) =0 THEN GOSUB drawsqr NEXT NEXT l = ill: з = 33] DRAW "cl4": GOSUB drawghs

'рисование контура

DRAW "bm+10,+8pl4,14" 'закрашивание RETURN drawghs: 'рисование маркера

DRAW "bm" + STR$(27 + 26 * l) + "," + STR$(21 * з) DRAW "f5ul0m+5,+10m+5,-10dl0e5m-5,+10110m-5,-10" RETURN

drawsqr- 'рисование клетки шахматной доски DRAW "Ьш" + STR$(24 + 26 * l) + ", " + STR$ (21 * ] - 6) IF (l + 3) MOD 2=0 THEN DRAW "c7" ELSE DRAW "c8" FOR k = 1 TO 10

DRAW "r25dl25d" NEXT k DRAW "r25" RETURN