Function Copy-Buf

Part of:

package kmrcl
( copy-buf < old > )