20 lines
326 B
Plaintext
20 lines
326 B
Plaintext
MODULE FileIO EXPORTS Main;
|
|
|
|
IMPORT IO, Rd, Wr;
|
|
|
|
<*FATAL ANY*>
|
|
|
|
VAR
|
|
infile: Rd.T;
|
|
outfile: Wr.T;
|
|
txt: TEXT;
|
|
|
|
BEGIN
|
|
infile := IO.OpenRead("input.txt");
|
|
outfile := IO.OpenWrite("output.txt");
|
|
txt := Rd.GetText(infile, LAST(CARDINAL));
|
|
Wr.PutText(outfile, txt);
|
|
Rd.Close(infile);
|
|
Wr.Close(outfile);
|
|
END FileIO.
|