Miscellany

Imports System.Text.RegularExpressions

Module Module1

    Sub Main()
        Console.WriteLine("#######                                   ")
        Console.WriteLine("   #      ##   #####   ####  ###### ##### ")
        Console.WriteLine("   #     #  #  #    # #    # #        #   ")
        Console.WriteLine("   #    #    # #    # #      #####    #   ")
        Console.WriteLine("   #    ###### #####  #  ### #        #   ")
        Console.WriteLine("   #    #    # #   #  #    # #        #   ")
        Console.WriteLine("   #    #    # #    #  ####  ######   #   ")

        Console.WriteLine(" #####                                     ")
        Console.WriteLine("#     # ###### ##### ##### # #    #  ####  ")
        Console.WriteLine("#       #        #     #   # ##   # #    # ")
        Console.WriteLine(" #####  #####    #     #   # # #  # #      ")
        Console.WriteLine("      # #        #     #   # #  # # #  ### ")
        Console.WriteLine("#     # #        #     #   # #   ## #    # ")
        Console.WriteLine(" #####  ######   #     #   # #    #  ####  ")
Beginning:
        Console.WriteLine("Welcome to the S.H Target Setting program. Type go to begin.")
        Dim start As String
        start = Console.ReadLine
        If start = "go" Then Console.WriteLine("Calculator starting. Please enter your total points, and then press enter.")
        If start = "go" Then
            Dim points As String = Console.ReadLine
            If Not points = Regex.IsMatch(Console.ReadLine(), "^\d+$") Then Console.WriteLine("Your amount of points must be an integer.")
            If Not points = Regex.IsMatch(Console.ReadLine(), "^\d+$") Then GoTo beginning
            If start = "go" Then Console.WriteLine("You have " & points & " points")
            Console.ReadLine()
        End If
    End Sub
End Module