TYPE
$STRING0 = STRING 0;
$STRING255 = STRING 255;
VAR
new_file: TEXT; {output file}
file_name: STRING 12;
in_string: STRING 80;
nchars: INTEGER;
line_count: INTEGER; {#lines in file}
{PROCEDURE}
FUNCTION LENGTH (x: $STRING255) :INTEGER; EXTERNAL;
BEGIN {main procedure}
READLN(file_name);
WRITELN('Create new file named ',file_name);
REWRITE(file_name, new_file);
nchars := 99; {not zero}
WHILE nchars <> 0 DO BEGIN
WRITELN(':');
READLN(in_string);
nchars := LENGTH (in_string);
IF nchars > 0 THEN BEGIN
WRITELN(new_file,in_string);
END{IF};
END{WHILE};
WRITELN(line_count,' lines in file ',file_name);
END{PROGRAM new_file}.
