PROCEDURE GetLiteral;
    VAR i   : INTEGER;
        ca  : ARRAY StrLen OF CHAR;
    BEGIN
        i := 0;
        WHILE ch # '"' DO
            IF i < StrLen-1 THEN
                IF ch = '\' THEN ca[i]:=ch; INC(i); GetCh() END
            END;
            IF i < StrLen-1 THEN
                ca[i]:=ch; INC(i)
            END;
            IF ch=CHR(13) THEN Mark("String literal exceeds line") END;
            GetCh();
        END;
        ca[i] := 0X; str:=ca; str:=str.Substring(0, i); sym := Literal;
        GetCh();
    END GetLiteral;