MODULE numlines; (* * text files with line numbers *) FROM InOut IMPORT Read, Done, Write, WriteString, WriteLn, WriteCard; CONST newline = 12C; VAR number: CARDINAL; ch: CHAR; first: BOOLEAN; BEGIN number := 0; first := TRUE; Read(ch); WHILE Done DO IF first THEN INC(number); WriteCard(number,4); WriteString(": "); first := FALSE END; IF ch <> newline THEN Write(ch) ELSE WriteLn; first := TRUE END; Read(ch) END END numlines.