SELECT CASE ... CASE n ... ENDSELECT

SELECT CASE n

   CASE 1, 2, 3:

      statements

   CASE 4:

      statements

   CASE n:

      statements

   CASE ELSE

      statements

ENDSELECT

Implements a select case statement similar to C/C++ switch.

Example:

DIM n AS INTEGER

SELECT CASE n

  CASE 1

     PRINT "Kalle Ankas",

  CASE 2

     PRINT "Nils Hult",

  CASE 3, 4

     PRINT "Pelle och",

     PRINT "Mamma",

  CASE ELSE

     ERROR 55

ENDSELECT