Цвет клетки шахматной доски.

  Dim massiv(0 To 7, 0 To 7) As Boolean ' True - это чёрный
        For i As Integer = 0 To 6
        massiv(i + 1, i +1) = True ' загоняет какие клетки чёрные
        Next
        Dim dannye As String ' данные из файла
        Dim x1 As Integer, y1 As Integer, x2 As Integer, y2 As Integer ' координаты
        FileOpen(1, "in.txt", OpenMode.Input)
        dannye = LineInput(1)
        FileClose(1)
        x1 = CInt(dannye.Substring(0, 1)) ' координата x1
        y1 = CInt(dannye.Substring(1, 1)) ' координата y1
        x2 = CInt(dannye.Substring(2, 1)) '  координата x2
        y2 = CInt(dannye.Substring(3, 1)) ' координата y2
        FileOpen(1, "out.txt", OpenMode.Output)
        If massiv(x1 + 1, y1 + 1) = massiv(x2 +1 , y2 +1) Then Print(1, "YES") Else Print(1, "NO") ' если булейны  имеют одинаковое значение (оба False или оба True), то клетки одинакового цвета
        FileClose(1)
        End

        For i As Integer = 0 To 6
        massiv(i + 1, i +1) = True ' загоняет какие клетки чёрные
        Next

        For x = 0 To 7
            For y = 0 To 7
                If x Mod 2 = 0 Then
                    If y Mod 2 = 0 Then massiv(x, y) = True Else massiv(x, y) = False
                Else
                    If y Mod 2 = 0 Then massiv(x, y) = False Else massiv(x, y) = True
                End If
            Next
        Next

        For i As Integer = 0 To 7
            For j As Integer = 0 To 7
                massiv(i, j) = ((i + j) Mod 2 = 0)
            Next
        Next