main module OVERLAP1

   declare
	tag is [joe, sam, pete, loren]
	B : tag
	C : integer
   enddeclare

   select B from
	case joe:
	   C  := 0
	case joe..pete:
	  C := 2
   endselect

endmodule