Download this file
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
FUNCTION func:BOOL; (*switch*)WHILE TRUE DO CASE value OF 'h': c:=c+1; c:=c-1; EXIT; ELSE: c:=c-1; EXIT; END_CASE (*switch*)EXIT; (*switch*)END_WHILE