scriptvm/examples/selectcase.txt

on init
  declare $foo := 7

  { you can also use parentheses, i.e.:  select ($foo) }
  select $foo
    case 0
      message("unary select case does not work!")
    case 6
      message("unary select case does not work!")
    case 7
      message("unary select case works.")
    case 8
      message("unary select case does not work!")
  end select

  select $foo
    case 0 to 4
      message("range select case does not work!")
    case 10 to 12
      message("range select case does not work!")
    case 5 to 9
      message("range select case works.")
  end select
end on
1	on init
2	declare $foo := 7
3
4	{ you can also use parentheses, i.e.: select ($foo) }
5	select $foo
6	case 0
7	message("unary select case does not work!")
8	case 6
9	message("unary select case does not work!")
10	case 7
11	message("unary select case works.")
12	case 8
13	message("unary select case does not work!")
14	end select
15
16	select $foo
17	case 0 to 4
18	message("range select case does not work!")
19	case 10 to 12
20	message("range select case does not work!")
21	case 5 to 9
22	message("range select case works.")
23	end select
24	end on