BCX Console Demonstration Program s127.bas

 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