INTERFACE Token;

TYPE
  T = { LParen, RParen, Plus, Star, Assign, Id, Semi, EOF };

CONST
  Name = ARRAY T OF TEXT {
    "(", ")", "+", "*", "=", "*ID*", ";", "$"
  };

PROCEDURE Scan (input: TEXT;  VAR cursor: INTEGER;
                 VAR t: T;  VAR name: TEXT);

scan 'input' beginning at character 'cursor'. Return the new token, and its name.

END Token.