REM Program Exmp04.bas
REM An example of how to use a CASE statement for multiple selections.
REM Also shows how to use logical operators.
CLS

READ StudentNo$, StudentName$, Grade

SELECT CASE Grade
CASE IS >= 85
        LET LetterGrade$ = "High Distinction"
CASE IS >= 75
        LET LetterGrade$ = "Distinction"
CASE IS >= 65
        LET LetterGrade$ = "Credit"
CASE IS >= 50
        LET LetterGrade$ = "Pass"
CASE ELSE
        LET LetterGrade$ = "Fail"
END SELECT

PRINT TAB(15); "Student: "; StudentNo$
PRINT TAB(24); StudentName$
PRINT TAB(24); USING "##.#%"; Grade
PRINT TAB(24); LetterGrade$

DATA "Q12345678", "John Walker", 87