Shell Programming and Scripting

cat <<!
******************************************
* Chuck Ingrid *
* Renaming Files Interactively *
******************************************
* 1. Select R or r to rename your file *
* 2. Select E or e to exit the screen *
******************************************
!
echo "Enter your option :\c"
read ans
case $ans in
        "R"|"r" )
                 while :
                 do
                 echo "enter the name of the file which you want to rename :\c"
                 read in_file
                 echo "enter the new name for the file :\c"
                 read out_file
                 mv "$in_file" "$out_file"
                 echo "do you wanna continue(Y/N) :\c"
                 read status
case $status in
        "Y"|"y" );;
        "N"|"n")exit ;;
esac
done;;
        "E"|"e" )exit;;
        *)echo "INVALID OPTION"
                exit;;
esac