typeset -Z2 hr min
case $1 in
	'')		_Ducmd "/bin/date '+Current time is %r%nEnter new time:'"
			read ans
			test -z "$ans" && exit 1;;
	[0-9]*[:.]*)	ans="$1";;
	*)		time "$@"
			exit;;
	esac
hr=${ans%%[.:]*}
ans=${ans#*[.:]}
min=${ans%[.:]*}
_Ducmd "/bin/date `/bin/date \"+%m%d$hr$min%y\"`" ||
	print - "Sytem time unchanged - only superuser can change system time"