Code: Select all
ReadChar(r, ch);
WHILE ~r.rider.eof DO
ReadChar(r, nch);
IF (ch = CR) & (nch = LF) THEN ReadChar(r, nch)
ELSIF ch = LF THEN ch := CR
END;
wr.WriteChar(ch);
ch := nch;
END;
Code: Select all
ReadChar(r, ch);
WHILE ~r.rider.eof DO
ReadChar(r, nch);
IF (ch = CR) & (nch = LF) THEN ReadChar(r, nch)
ELSIF ch = LF THEN ch := CR
END;
wr.WriteChar(ch);
ch := nch;
END;