14 lines
293 B
Text
14 lines
293 B
Text
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.
|