Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  recovery_text
Language: PASCAL
Code:
program Recovery;
var
  f: TextFile;
  s: string;
begin
  AssignFile(f, 'recovery.txt');
  reset(f);
  while not eof(tfIn) do begin
    readln(f, s);
    writeln(s);
  end;
  CloseFile(f);
end.
Comments: