Imports System

Public Module FilesMenu

    Sub main()

        Dim Choice As String

        Console.WriteLine("Input your choice (Creat/Read/Append/Quit)")

        Console.WriteLine("C for CreatFile")

        Console.WriteLine("R for ReadFile")

        Console.WriteLine("A for AppendFile")

        Console.WriteLine("Q for Quit")

        Choice = Console.ReadLine

        Select Case Choice.ToUpper

            Case "C"

                CreatFile()

            Case "R"

                ReadFile()

            Case "A"

                AppendFile()

            Case "Q"

                End

        End Select

​

        Console.ReadLine()

​

    End Sub

    Sub CreatFile()

        FileOpen(6, "TestFile.txt", OpenMode.Output)

        PrintLine(6, "what's good")

        FileClose(6)

    End Sub

    Sub ReadFile()

        FileOpen(6, "TestFile.txt", OpenMode.Input)

        Console.WriteLine(LineInput(6))

        FileClose(6)

    End Sub

    Sub AppendFile()

        FileOpen(6, "TestFile.txt", OpenMode.Append)

        PrintLine(6, "whatss up")

        FileClose(6)

​

        FileOpen(6, "TestFile.txt", OpenMode.Input)

        While Not EOF(6)

            Console.WriteLine(LineInput(6))

        End While

    End Sub

End Module