Implementace DKA 1/10
procedure get_Next_Token(var TOKEN: ....);
... {deklarace, ...}
str  := ''; {čtený řetězec}
state := S; {aktuální stav}
repeat
  symbol = getchar(); {čtení dalšího znaku}
  case state of
    s : begin {počáteční stav}
          if symbol in ['a'..'z'] then
          begin
            state := f1; {identifikátor}
            str := symbol;
          end else
10/35
id
f1
a..z
a..z,0..9
s