&begin_parameters SRC source:pathname,required DST destination:pathname,required &end_parameters &attach_input test_system_calls s$attach_port source &SRC& -no_hold_attach -no_hold_open s$open source -io_type input s$create_file &DST& -organization fixed -record_size 4096 s$attach_port dest &DST& -no_hold_attach -no_hold_open s$open dest -organization fixed -max_size 4096 -io_type output create_buffer buffer -no_display &label read_loop s$read_raw source &if (command_status) &then &goto done s$seq_write dest &goto read_loop &label done s$close source s$close dest s$detach_port source s$detach_port dest quit