function PRINT
# DOS printer/spooler
{
	typeset args
	for i in "$@"
	do case "$i" in
		-*)		print "$@" 
				return;;
		/[TtCcPp])	;;
		*)		test -r $i && args="$args $i";;
		esac
	done
	_Ducmd "$DOSPRINT $args"
}

typeset -xf PRINT
unalias PRINT
alias -x print=PRINT