Imports System.IO
Imports System.Random

Module Module1

    Dim BoardSquare(8, 8) As String
    Dim PlayerIcon, AIIcon As String
    Dim Scores(4) As Integer

    Structure Cord
        Dim X As Integer
        Dim Y As Integer
    End Structure

    Sub Main()
        Call AssignArray()
        Call ShowBoard()
        Console.ReadKey()
    End Sub

    Sub StartGame()
        BoardSquare(3, 3) = "X"
        BoardSquare(4, 4) = "X"
        BoardSquare(3, 4) = "O"
        BoardSquare(4, 3) = "O"


    End Sub

    Sub ValidMove(ByVal XCord As Integer, ByVal YCord As Integer, ByVal Icon As Char)
        Dim EnemyIcon As String
        Dim Flipped As List(Of Cord)

        If BoardSquare(YCord, XCord) <> " " Or XCord > 8 Or XCord < 0 Or YCord > 8 Or _
        YCord < 0 Then
            'Error Message Invalid Move
            'Return False
        End If

        BoardSquare(YCord, XCord) = Icon

        If Icon = "X" Then
            EnemyIcon = "O"
        Else
            EnemyIcon = "X"
        End If

    End Sub

    Sub ShowBoard()
        Dim HLINE As String = "  +--+--+--+--+--+--+--+--+ "

        Console.Write("   A  B  C  D  E  F  G  H")
        Console.WriteLine()
        For i As Integer = 1 To 8
            Console.WriteLine(HLINE)
            For j As Integer = 1 To 1
                Console.Write(i.ToString() + " ")
                Console.Write("|" + BoardSquare(i, 1) + " |" + BoardSquare(i, 2) + " |" + BoardSquare(i, 3) + " |" + _
                              BoardSquare(i, 4) + " |" + BoardSquare(i, 5) + " |" + BoardSquare(i, 6) + " |" + _
                              BoardSquare(i, 7) + " |" + BoardSquare(i, 8) + " |")
            Next
            Console.WriteLine()
        Next
        Console.WriteLine(HLINE)

    End Sub

    Sub AssignArray()

        For i As Integer = 1 To 8
            For j As Integer = 1 To 8
                BoardSquare(i, j) = (" ")
            Next
        Next
    End Sub

End Module