.fp 3 CW
.CW
.nr cW \n(.f
.ft P
.nr cE \n(.f
.br
.ft 3
.cs 3 24
\(de	usage: copyto dir f\&ile ...
\(de	copy argument f\&iles to 'dir', making sure that at least
\(de	two arguments exist, that 'dir' is a directory, and that
\(de	each additional argument is a readable f\&ile
if\& test $\(de -lt 2 
then	echo \(34$0: usage: copyto directory f\&ile ...\(34
elif\& test ! -d $1 
then	echo \(34$0: $1 is not a directory\(34;
else	dir=$1; shif\&t
	f\&or eachf\&ile
	do	cp $eachf\&ile $dir
	done
f\&i
.br
.cs 3
.ft \n(cE
.ft \n(cW
.CN
