FUNCTION func:BOOL;
(*switch*)WHILE TRUE DO
CASE value OF
 'h':
 ((c:=c+1)-1);
 ((c:=c-1)+1);
 EXIT;
 
ELSE:
 ((c:=c-1)+1);
 EXIT;

END_CASE

(*switch*)EXIT;
(*switch*)END_WHILE