;@modern
; CASE: choose one branch by a value

PROC Describe(BYTE n)
  PrintB(n)
  Print(": ")
  CASE n OF
  WHEN 0 THEN
    PrintE("zero")
  WHEN 1 TO 9 THEN
    PrintE("one digit")
  WHEN 10, 100 THEN
    PrintE("ten or a hundred")
  WHEN 11 TO 99 IF n MOD 11=0 THEN
    PrintE("two digits, both the same")
  WHEN 11 TO 99 THEN
    PrintE("two digits")
  ELSE
    PrintE("a big number")
  ESAC
RETURN

PROC Main()
  Describe(0)
  Describe(7)
  Describe(10)
  Describe(33)
  Describe(42)
  Describe(100)
  Describe(200)
RETURN