BCX Console Demonstration Program s81.bas

 DIM a$ : a$ = "Hello"
 
 SELECT CASE UCASE$(a$)
 
 CASE "GOODBYE"
   PRINT "GoodBye"
 
 CASE "HEY"
   PRINT "hey what?"
 
 CASE ELSE 
   PRINT a$
 
 END SELECT
 
 SELECT CASE LCASE$(a$)
 
 CASE "hello"
   PRINT "hi there!"
 
 CASE "goodbye"
   PRINT "tootaloo"
 
 END SELECT