24 lines
768 B
Plaintext
24 lines
768 B
Plaintext
/*****************************************************/
|
||
/* This program copies one file to another using */
|
||
/* buffered I/O. */
|
||
/*****************************************************/
|
||
copy:
|
||
procedure options(main);
|
||
declare
|
||
(input_file,output_file) file;
|
||
|
||
open file (input_file) stream
|
||
environment(b(8192)) title('$1.$1');
|
||
|
||
open file (output_file) stream output
|
||
environment(b(8192)) title('$2.$2');
|
||
declare
|
||
buff character(254) varying;
|
||
|
||
do while('1'b);
|
||
read file (input_file) into (buff);
|
||
write file (output_file) from (buff);
|
||
end;
|
||
end copy;
|
||
|
||
|