'SELECT...CASE statements
'   This command is more advanced than the IF...THEN...ELSE structures.
'   Depending on the value of the expression, the Select command will execute one of the several
'   groups of statements(or CASE). The general form of this type of statement is
'   Select Case [variable]
'       Case 1
'       [statements]
'       Case 2
'       [statements]
'       Case [N]
'       [statements]
'   End Select

   
Sub Main()

    Dim x As Byte
    Do
    Debugin "Enter a number 1 to 7 to find the nth day of a week.", x, CR   'Select each case base
                                                                            'on the input.
    Select Case x
        Case 1
            Debug "It's Sunday.", CR
        Case 2
            Debug "It's Monday.", CR
        Case 3
            Debug "It's Tuesday.", CR
        Case 4
            Debug "It's Wednesday.", CR
        Case 5
            Debug "It's Thursday.", CR
        Case 6
            Debug "It's Friday.", CR
        Case 7
            Debug "It's Saturday.", CR
    End Select
    Loop                   
End Sub