***************************************************************************************
* WinCopy subroutine for DOpusFuncs.s						      *
***************************************************************************************
WinCopy
	Tst.l	WinCopy_S(a5)
	Bne.s	WinCopy_DoIt
	RTS
WinCopy_DoIt
	Sub.l	d0,d0			Abort if there isn't a source lister.
	Bsr	GetSourceHandle		Get the source lister's handle -> Source_Handle

	Moveq	#1,d0			Open new dest if one doesn't exist.
	Bsr	GetDestHandle		Get the dest lister's handle -> Dest_Handle
;-------------------------------------------------------------------------------------;
	Lea	Source_Handle(a5),a0	-.
	Lea	PathBuffer1(a5),a1	 |_ Source path
	Move.w	#PathBuffer1Len,d7	 |  to PathBuffer1
	Bsr	GetListerPath		-'

	Sub.l	d0,d0			Don't force into current path buffer.
	Lea	Dest_Handle(a5),a0	-.
	Lea	PathBuffer1(a5),a1	 |- Read old Source path -> Destination.
	Bra	ReadListerPath		-'
;;;;;;;	RTS for us.