case state of
...
f1: begin {identifikátor}
if symbol in ['a'..'z', '0'..'9'] then
str := str + symbol;
else
begin
ungetchar(symbol); {návrat znaku}
if is_keyword(str) then {klíčové slovo}
TOKEN :=
get_keyword(str);
else
TOKEN :=
IDENTIFIER;
break;
end;
end; {stav f1}