home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / c-kermit / cklcvt.cm < prev    next >
Text File  |  2020-01-01  |  621b  |  24 lines
  1. &begin_parameters
  2.    SRC source:pathname,required
  3.    DST destination:pathname,required
  4. &end_parameters
  5. &attach_input
  6. test_system_calls
  7. s$attach_port source &SRC& -no_hold_attach -no_hold_open
  8. s$open source -io_type input
  9. s$create_file &DST& -organization fixed -record_size 4096
  10. s$attach_port dest &DST& -no_hold_attach -no_hold_open
  11. s$open dest -organization fixed -max_size 4096 -io_type output
  12. create_buffer buffer -no_display
  13. &label read_loop
  14. s$read_raw source
  15. &if (command_status) &then &goto done
  16. s$seq_write dest
  17. &goto read_loop
  18. &label done
  19. s$close source
  20. s$close dest
  21. s$detach_port source
  22. s$detach_port dest
  23. quit
  24.