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