◄QuickSCREEN►      ◄Details►     ◄Example►      ◄Contents►      ◄Index►
──────────────────────────────────────────────────────────────────────────────
SELECT Statement Programming Examples
 
There are two SELECT CASE programming examples.
 
Example 1
 
In the following program, the SELECT CASE statement is used to take
different actions based on the input value:
 
' Program demonstrates various forms of CASE items
     INPUT "Enter acceptable level of risk (1-10): ", Total
     SELECT CASE Total
 
        CASE IS >= 10
           PRINT "Maximum risk and potential return"
           PRINT "Choose stock investment plan"
 
        CASE  6 TO 9
           PRINT "High risk and potential return"
           PRINT "Choose corporate bonds"
 
        CASE  2 TO 5
           PRINT "Moderate risk and return"
           PRINT "Choose mutual fund"
 
        CASE 1
           PRINT "No risk, low return"
           PRINT "Choose IRA"
 
        CASE ELSE
           PRINT "RESPONSE OUT OF RANGE"
 
     END SELECT
 
Sample Output
 
Enter acceptable level of risk (1-10): 10
Maximum risk and potential return
Choose stock investment plan
 
Enter acceptable level of risk (1-10): 0
RESPONSE OUT OF RANGE
 
Example 2
 
In the following program, the SELECT CASE statement is used to take
different actions based on the ASCII value of a character.
 
' Function and control key constants
CONST ESC = 27, DOWN = 80, UP = 72, LEFT = 75, RIGHT = 77
CONST HOME = 71, ENDKEY = 79, PGDN = 81, PGUP = 73
 
DO
    ' Get a function or ASCII key
    DO
        Choice$ = INKEY$
    LOOP WHILE Choice$ = ""
 
    IF LEN(Choice$) = 1 THEN
        ' Handle ASCII keys
        SELECT CASE ASC(Choice$)
            CASE ESC
                PRINT "Escape key"
                END
            CASE IS < 32, 127
                PRINT "Control code"
            CASE 30 TO 29
                PRINT "Digit: "; Choice$
            CASE 65 TO 90
                PRINT "Uppercase letter: "; Choice$
            CASE 97 TO 122
                PRINT "Lowercase letter: "; Choice$
            CASE ELSE
                PRINT "Punctuation: "; Choice$
        END SELECT
 
    ELSE
        ' Convert 2-byte extended code to 1-byte ASCII code and handle
        Choice$ = RIGHT$(Choice$, 1)
 
        SELECT CASE Choice$
            CASE CHR$(DOWN)
                PRINT "DOWN arrow key"
            CASE CHR$(UP)
                PRINT "UP arrow key"
            CASE CHR$(PGDN)
                PRINT "PGDN key"
            CASE CHR$(PGUP)
                PRINT "PGUP key"
            CASE CHR$(HOME)
                PRINT "HOME key"
            CASE CHR$(ENDKEY)
                PRINT "END key"
            CASE CHR$(RIGHT)
                PRINT "RIGHT arrow key"
            CASE CHR$(LEFT)
                PRINT "LEFT arrow key"
            CASE ELSE
                BEEP
        END SELECT
    END IF
 
LOOP