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