typeset -Z2 mon day yr
case $1 in
	'')		_Ducmd "/bin/date '+Current date is %D%nEnter new date:'"
			read ans
			test -z "$ans" && exit 1;;
	[0-9]*[-/][0-9]*[-/]*)	ans="$1";;
	+*)		exec /bin/date "$@";;
	*)		print - 'Invalid date specification'
			exit;;
	esac
mon=${ans%%[-/]*}
ans=${ans#*[-/]}
day=${ans%[-/]*}
yr=${ans#*[-/]}
_Ducmd "/bin/date `/bin/date \"+$mon$day%H%M$yr\"`" ||
	print - "System date unchanged - only superuser can change system date"
