constraint on while loop

[thelakbe]

Hi,
i have the followin code

USER=`id|sed -n 's/^[^(]*(\([^)]*\)).*/\1/p'`
while :
        do
        tput cup 9  1 ; echo $CL
        tput cup 7  1 ; echo "Proceed with daily clean up operation (Y/N): _ \c"
        tput cup 7 46 ; read _Proceed
        ##
        ## Validate reply
        ##
        _Proceed="$(echo "$_Proceed" | tr "[:lower:]" "[:upper:]")"

        if [ "$_Proceed" != "Y" -a "$_Proceed" != "N" ] ; then
        tput cup 9 1 ; echo " ERROR: Proceed reply ${_Proceed} is invalid\c"

  Pause ; continue

                  ##If yes proceed, follow

                  if [ "$_proceed" = "Y" ]; then
echo $ENTER THE FILE NAME TO MAIL
read F
#/etc/outils_root/admin_root/send_mail_pj.ksh -s "[PHALANGER_FILES/$USER/`uname -n`]" -f $F -d $DESTINATAIRE
fi

  ## If no proceeed, exit routine

  ##

  if [ "$_Proceed" = "N" ] ; then return ; fi


  break

  done

  fi

please help me on this