|
zadach293.BAS |
|
{* Задача293 *}REM basic ' Составить программу рисования шахматного поля.SCREEN 12
clr1 = 6
clr2 = 7
For y = 20 To 370 Step 50
For x = 20 To 370 Step 50
LINE (x, y)-(x + 50, y + 50), clr1, BF
SWAP clr1, clr2
Next x
SWAP clr1, clr2
Next y
End
|