Scanner* = OBJECT
    VAR
        ch: CHAR;
        errpos: INTEGER;
        reader: System.IO.StreamReader;
        line: INTEGER;
        pos: INTEGER;

        val*: INTEGER;
        realVal*: REAL;
        str*: System.String;
        sym*: INTEGER;
        hasError*: BOOLEAN;
        EOF*: BOOLEAN;