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