6 lines
125 B
Text
6 lines
125 B
Text
|
inout:=proc(filename)
|
||
|
|
local f;
|
||
|
|
f:=FileTools[Text][ReadFile](filename);
|
||
|
|
FileTools[Text][WriteFile]("output.txt",f);
|
||
|
|
end proc;
|