DIM A, B$

INPUT "Enter A Number ", A

SELECT CASE A

CASE => 1 AND <= 10
  PRINT "=> 1 And <= 10 "

CASE > 10 AND < 20
  PRINT "> 10 And < 20"

CASE 31, 32, 33
  PRINT "31, 32, 33"

CASE ELSE
  PRINT "No special case found"

END SELECT

PRINT

INPUT "Type one, two, qwerty, or other ", B$

SELECT CASE B$

CASE "one", "two"
  PRINT "one, two"

CASE "qwerty"
  PRINT "qwerty"

END SELECT

Result:

Enter A Number 13
> 10 And < 20

Type one, two, qwerty, or other qwerty
qwerty