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)-1); ((c:=c-1)+1); EXIT; ELSE: ((c:=c-1)+1); EXIT; END_CASE (*switch*)EXIT; (*switch*)END_WHILE