  SELECT

   SELECT <variable> CASE <body>[;] [CASE <body>[;]][...] [DEFAULT <body>] END SELECT

   Type: statement

   With this statement a variable can be examined on multiple values.
   Optionally, if none of the values match the SELECT statement may fall
   back to the DEFAULT clause. Example:

   SELECT myvar
       CASE 1
           PRINT "Value is 1"
       CASE 5
           PRINT "Value is 5"
       CASE 2*3
           PRINT "Value is ", 2*3
       DEFAULT
           PRINT "Value not found"
   END SELECT

   Contrary to most implementations, in BaCon the CASE keyword also may
   refer to expressions and variables. Also BaCon knows how to 'fall
   through' using a semicolon, in case multiple values lead to the same
   result:

   SELECT st$
       CASE "Man"
           PRINT "It's male"
       CASE "Woman"
           PRINT "It's female"
       CASE "Child";
       CASE "Animal"
           PRINT "It's it"
       DEFAULT
           PRINT "Alien detected"
   END SELECT

