module casebug
    procedure casebug ()
	declare 
	    C1 = 3
	    C2 = 6
	    Doing : integer
	    Answer : integer
	enddeclare

	select Doing from
	   case  C1..C2: Answer := 3
	endselect

    endprocedure
endmodule