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;
|
|||
|
|
|
|||
|
|
|