Sub cf(sSource As string,sDest As string)
	Dim sB 
	Dim fSourceNum,fDestNum,position
	Dim i As Integer
	Dim lFileLen As Long
	
	dacdeletedataset sDest

	
	lFileLen = FileLen(sSource)
	
	fSourceNum = FreeFile
	Open sSource For Binary Access Read As fSourceNum

	fDestNum = FreeFile
	open sDest For Binary access Write As fDestNum
	
	Dim sHeading As String
'	sHeading = "Freddy Fat Fodder" + chr(13)
'	put fDestNum,,sHeading	
'	sHeading = "Hungry brown rats" + chr(13)
'	put fDestNum,,sHeading	
	
		While lFileLen > 0
			Get fSourceNum,,sb
			put fDestNum,,sb	
			lFileLen = lFileLen - len(sb)
			If lFileLen > buffersize  Then
				sb = string(buffersize ," ")
			Else
				sb = string(lFilelen," ")
			End If
		Wend

	close fDestNum
	close fSourceNum
	' Close before reopening in another mode.

End Sub