Algorithm

                     WHILE there is more input 
                         InputChar := GetChar
                         State := Table[0, InputChar]
                         WHILE State != Blank 
                            InputChar := GetChar
                            State := Table[State, InputChar]
                         ENDWHILE
                         Retract 
                         Accept 
                         Return  token = (Class, Value)
                     ENDWHILE