BCX Console Demonstration Program s36.bas

 DIM a$
 DIM b
 
 a$ = "Hello"
 b  = 1
 
 SELECT CASE UCASE$(a$)
 
  CASE "GoodBye"
   ?  "GoodBye"
 
  CASE "12345"
   ?  "12345"
 
  CASE "HELLO"
   ?  "It passed the Case string test!"
 
  CASE "bombed"
   ?  "bombed"
 
 END SELECT
 
 SELECT CASE b + 1
 
  CASE 4
   ?  "GoodBye"
 
  CASE 3
   ?  "12345"
 
  CASE 2
   ?  "It passed the Case numeric test!"
 
  CASE 1
   ?  "bombed"
 
 END SELECT