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