SELECT CASE ☆
The block succeeding the CASE-line which contains the item that agrees with the value of the expression written at the SELECT-CASE-line shall be executed.
If no CASE-item agrees, the block succeeding the CASE-ELSE-line shall be executed.
Example.
INPUT m SELECT CASE m CASE 1,3,5,7,8,10,12 LET d=31 CASE 4,6,9,11 LET d=30 CASE 2 LET d=28 CASE ELSE PRINT "?" END SELECT PRINT d END
More than one item can be written in a CASE-line punctuated by commas.
An item must consist of only constants.
An item is a constant, a constant TO a constant, or IS a comparison operator a constant.
Example.
SELECT CASE 2*x-3 CASE 0 TO 2 PRINT "y" CASE IS <0, IS >2 PRINT "n" END SELECT
The items are tested downward from the top. Once an item agrees, the rest CASE items are not tested.
If a CASE-ELSE-line is omitted, an exception of EXTYPE 10004 shall be raised when no item agrees.
Either a numeric expression or a string expression can be written in the SELECT-CASE-line.