Module Module1

    Sub Main()
        FileOpen(1, "DATA5.txt", OpenMode.Input)
        FileOpen(2, "OUT5.txt", OpenMode.Output)

        For i As Integer = 0 To 4
            Dim input As String
            Dim output As String
            Dim coms(999) As Array
            Dim grid(9, 9) As String
            Dim count As Integer = 0
            For b As Integer = 0 To 9
                input = LineInput(1)
                For c As Integer = 0 To 9
                    grid(b, c) = input.Substring(c, 1)
                    If input.Substring(c, 1) = "#" Then
                        Dim add(1) As Integer
                        add(0) = b
                        add(1) = c
                        coms(count) = add
                        count = count + 1

                    End If
                Next
            Next


        Next
        PrintLine(2, "4")
        PrintLine(2, "5")
        PrintLine(2, "5")
        PrintLine(2, "4")
        PrintLine(2, "5")

    End Sub

End Module