***************************************************************************************
* ClipEntry subroutine for DOpusFuncs.s						      *
***************************************************************************************
ClipEntry
	Tst.l	ClipEntry_KM(a5)
	Bne.s	ClipEntry_DoIt
	RTS
ClipEntry_DoIt
;-------------------------------------------------------------------------------------;
	Lea	Buffer1(a5),a1		Buffer to write into.
	Move.l	#Buffer1Len,d7		Length of buffer.
	Move.l	ClipEntry_KM(a5),a2	Array of strings.
	Bsr	JoinArray		Join the array of strings into the buffer.

	Lea	Buffer1(a5),a0		Buffer to a0 for NullLen
	Move.l	a0,a1			Buffer to a1 for WriteToClip
	Bsr	NullLen			Length to d0 for WriteToClip
	Bra	WriteToClip		Write it to the clipboard.
;;;;;;;	RTS for us.