RosettaCodeData/Task/String-length/Simula/string-length-1.simula

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.