Module Module1
    Dim iCount As Integer
    Dim iCountAll As Integer

    Dim dEmployid As Integer
    Dim sName As String
    Dim dSales As Integer


    Sub Main()
        Dim dStateid As Integer
        Dim dPrevid As Integer
        FileOpen(1, "K:\Conti\Cis 125\Data\MidwestSalesvb.dat", OpenMode.Input, , OpenShare.Shared)
        iCount = 0
        iCountAll = 0
        dStateid = LineInput(1)
        dEmployid = LineInput(1)
        sName = LineInput(1)
        dSales = LineInput(1)



        Console.WriteLine("       MidWest Sales Report")

        Call Initialization()

        dPrevid = dStateid

        Call GroupHeaderSection()

        Do While dEmployid <> 999

            If dStateid = dPrevid Then
                Call Detail()

            Else
                Call GroupFooterSection()
                Call GroupHeaderSection()

            End If

        Loop
        Call GroupFooterSection()
        Console.WriteLine("========================================")
        Console.WriteLine("========================================")
        Console.WriteLine("Grand total of all states....." & FormatCurrency(iCountAll))

        Console.ReadKey()
    End Sub

    Sub Initialization()
        Dim dStateid As Integer = LineInput(1)
        Dim dPrevid As String = String.Empty
        dStateid = System.Convert.ToString(dStateid)
        
        Select Case True
            Case dStateid = 155
                dStateid = "Illinois"
            Case Else
                If dStateid = 168 Then
                    dStateid = "Ohio"
                ElseIf dStateid = 175 Then
                Else

                    dStateid = "Indiana"
                End If

        End Select




    End Sub

    Sub GroupHeaderSection()
        Dim dStateid As Integer
        Console.WriteLine("****************************************")
        Console.WriteLine("State:" & dStateid)
        Console.WriteLine("Employee                        Sales")

    End Sub
    Sub Detail()
        Dim dStateid As Integer
        Console.WriteLine(sName & "                  " & FormatCurrency(dSales))
        iCount = iCount + dSales
        dStateid = LineInput(1)
        dEmployid = LineInput(1)
        sName = LineInput(1)
        dSales = LineInput(1)
        Call Initialization()

    End Sub
    Sub GroupFooterSection()
        Dim dPrevid As Integer
        Dim dStateid As Integer
        iCount = iCount + dSales
        iCountAll = iCountAll + iCount
        Console.WriteLine("State Total is................" & FormatCurrency(iCount))
        iCount = 0
        dPrevid = dStateid
    End Sub

End Module