7 lines
228 B
Text
7 lines
228 B
Text
lvars i_file = sysopen('input.txt', 0, true);
|
|
lvars o_file = syscreate('output.txt', 1, true);
|
|
lvars buff = inits(4096);
|
|
lvars i;
|
|
while (sysread(i_file, buff, length(buff)) ->> i) > 0 do
|
|
syswrite(o_file, buff, i);
|
|
endwhile;
|