const name = 'Crlf ver 1.2 - www.hjelmenet.dk/software'; var c : char; begin if boolean(pos('?',paramstr(1))) then begin writeln(name); writeln; writeln('Crlf is written for Freepascal (www.freepascal.org) and can be compiled'); writeln('into either Win95 or Linux.'); writeln; writeln('Crlf reads from standard input and writes to standard output adding carriage'); writeln('returns to all linefeeds found.'); writeln; writeln('The programme will not accept any parameters except -? printing this help.'); writeln; writeln('The programme is freeware and is supplied as is, without any warranty at all.'); writeln; writeln('Feedback is much appreciated. erik@hjelmenet.dk http://www.hjelmenet.dk'); halt(1); end; while not eof do begin read(c); if c=^J then write(^M); write(c); end; end.