BEGIN
    TEXT LINE;
    WHILE NOT LASTITEM DO
    BEGIN
        INTEGER L;
        LINE :- COPY(SYSIN.IMAGE).STRIP;
        OUTCHAR('"');
        OUTTEXT(LINE);
        OUTCHAR('"');
        OUTTEXT(" BYTE LENGTH = "); OUTINT(LINE.LENGTH, 0);
        OUTIMAGE;
        INIMAGE;
    END;
END.