home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
old
/
ckermit5a190
/
cklcvt.cm
< prev
next >
Wrap
Text File
|
2020-01-01
|
621b
|
24 lines
&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