while echo "Is the release tape ready()? \c"
do	read default
	case $default in
	Y|y)	break
		;;
	*)	echo "Please answer 'y' when ready. \n"
		;;
	esac
done
/menu/obj/retension.o /dev/rtp
dd if=/dev/nnrtp of=index-file
dd if=/dev/nnrtp of=xsum16 skip=2139
dd if=/dev/nnrtp of=xsum32 skip=2117
dd if=/dev/nnrtp of=boot.stp
cmp index-file testfiles/index-file
testval=$?
if [ "$testval" != 0 ]
then 
echo "wrong version of release tape"
fi
if [  -s xsum16 ]
then
	echo "bad tower 16 distribution"
fi
testval=1
if [  -s xsum32 ]
then
	echo "bad tower 32 distribution"
fi
testval=1
cmp boot.stp testfiles/boot.stp
testval=$?
if [ "$testval"  != 0 ]
then 
echo "tapes do not match"
else
rm index-file xsum16 xsum32 boot.stp
echo "good release tape"
fi
echo "please wait for message to unmount tape..."
/menu/obj/retension.o /dev/rtp
echo "you may now unmount tape."
