# Test the case statement

type
  tenum = enum eA, eB, eC

var
  x: string
  y: Tenum = eA
  i: int

case y
of eA: write(stdout, "a\n")
of eB, eC: write(stdout, "b oder c\n")

x = readLine(stdin)
case x
of "Andreas", "Rumpf": write(stdout, "Hallo Meister!\n")
of "aa", "bb": write(stdout, "Du bist nicht mein Meister\n")
of "cc", "hash", "when": nil
of "will", "it", "finally", "be", "generated": nil
else: write(stdout, "das sollte nicht passieren!\N")

case i
of 0..5, 8, 9: nil
of 6, 7: nil
elif x == "Ha": 
  nil
elif x == "Ho":
  nil
else:
  nil