Module Module1

    Sub Main()
        Dim answer As String




        Console.WriteLine("Welcome to the boat reservation system")
        Console.WriteLine("")
        Console.WriteLine("")
        Console.WriteLine("     1. Display Boat seat")
        Console.WriteLine("")
        Console.WriteLine("     2. Make seat reservation")
        Console.WriteLine("")
        Console.WriteLine("     3. Cancel reservation")
        Console.WriteLine("")
        Console.WriteLine("     4. Go back to main menu")
        Console.WriteLine("")
        Console.WriteLine("     5. Quit")
        Console.WriteLine("")
        Console.WriteLine("")

        Do
            Console.WriteLine("")
            Console.WriteLine("")
            Console.WriteLine("Please type in Number to select your choice (1-5):")
            answer = Console.ReadLine()


            Select Case answer


                Case "1" ' To show boat seat

                    Console.WriteLine("Boat seat")
                    Console.WriteLine("                  __________________________________________________ ")
                    Console.WriteLine("              _,-*                                                  |")
                    Console.WriteLine("           ,*~      -----)  |                                       |")
                    Console.WriteLine("        ,/^ ]            )  |                  |                    |")
                    Console.WriteLine("     _/     ]         1A )  |   ----]   ----]  |  ----]    ----]    |")
                    Console.WriteLine("    //      ]       -----)  |    2A ]    2C ]  |   3A ]     3C ]    |")
                    Console.WriteLine("  //        ]               |       ]       ]  |  ----]    ----]    |")
                    Console.WriteLine("<~/         ]       -----)  |   ----]   ----]  |                    |")
                    Console.WriteLine("` \         ]            )  |                  |           ----]    |")
                    Console.WriteLine("   \        ]         1B )  |   ----]   ----]  |            3D ]    |")
                    Console.WriteLine("    \       ]       -----)  |       ]       ]  |           ----]    |")
                    Console.WriteLine("     \      ]               |    2B ]    2D ]  |  ----]             |")
                    Console.WriteLine("       \_   ]       -----)  |   ----]   ----]  |   3B ]    ----]    |")
                    Console.WriteLine("        \\  ]            )  |                  |  ----]     3F ]    |")
                    Console.WriteLine("           \]         1C )  |                  |           ----]    |")
                    Console.WriteLine("             \      -----)                                          |")
                    Console.WriteLine("              -**___________________________________________________|")



                Case "2"



                Case 4 'To show main menu

                    Console.WriteLine("Welcome to the boat reservation system")
                    Console.WriteLine("")
                    Console.WriteLine("")
                    Console.WriteLine("     1. Display Boat seat")
                    Console.WriteLine("")
                    Console.WriteLine("     2. Make seat reservation")
                    Console.WriteLine("")
                    Console.WriteLine("     3. Cancel reservation")
                    Console.WriteLine("")
                    Console.WriteLine("     4. Go back to main menu")
                    Console.WriteLine("")
                    Console.WriteLine("     5. Quit")
                    Console.WriteLine("")
                    Console.WriteLine("")

                Case "5" 'To quit application
                    Console.Write("Thank you for using our program, Bye Bye")
                    Console.Read()
                    End

                Case Else
                    Console.WriteLine("Please input your choice 1-5, or press 4 for main menu")



            End Select


        Loop















        Console.ReadLine()

    End Sub

End Module