Imports System

​

Public Module Module1

​

    Public Sub Main()

        dim gridsize = 15

        dim carpos(999)

        dim cars = 0

        dim grids = new string(999) {}

        dim direction = ""

        for i = 1 to gridsize * gridsize

            grids(i) = " "

        next

​

        dim pos = 203

        dim dead = false

        while not dead

            grids(pos) = "O"

            console.WriteLine("")

            console.WriteLine("")

            console.WriteLine("")

            console.WriteLine("")

            Console.Clear()

            console.WriteLine(" _____________________________")

            For i = 1 To gridSize

                For j = 1 To gridSize

                    If j = 1 Then

                        Console.Write("|" & grids((i - 1) * gridSize + j) & " ")

                    ElseIf j = gridSize Then

                        Console.Write(grids((i - 1) * gridSize + j) & "|")

                    Else

                        Console.Write(grids((i - 1) * gridSize + j) & " ")

                    end if

                next

​

                console.writeline()

            next

​

​

            console.WriteLine("|_____________________________|")

            direction = console.ReadLine()

            grids(pos) = " "

            if direction = "w" then

            end if

​

            if direction = "w" then

            end if

​

            if direction = "a" then

                pos -= 1

            end if

​

            if direction = "d" then

                pos += 1

            end if

        end while

    End Sub

End Module

​