ers
echo ' '
case $LNG in
  fr) echo -n " Voulez-vous changer les parametres standard (o/n)?  ";;
 eng) echo -n " Do you want to change the standard parameters (y/n)?  ";;
esac
read ps
case $ps in
n) dered ;;
o|y) echo ' '
   case $LNG in
     fr) echo -n " Donnez alpha et beta:  ";;
    eng) echo -n " Give alpha and beta:  ";;
   esac
   read alp bet
   echo ' '
   case $LNG in
     fr) echo -n " Donnez le rapport R:  ";;
    eng) echo -n " Give the value of R:  ";;
   esac
   read rr
   dered $alp $bet $rr ;;
esac

wait
head -10 tmp.drd
echo ' '
echo ' '
echo ' '
case $LNG in
  fr) echo -n " Selection sur le rougissement (n/p/i/g) ?  ";;
 eng) echo -n " Selection on reddening (n/s/i/g) ?  ";;
esac
read cho
case $cho in
n) mv tmp.drd ubv.drd ;;
p) echo ' ' 
   case $LNG in
     fr) echo -n " Donnez la limite superieure:  ";;
    eng) echo -n " Give the upper limit:  ";;
   esac
   read vls ; awkzp 34 6 $vls < tmp.drd > ubv.drd ;;
i) echo ' ' 
   case $LNG in
     fr) echo -n " Donnez les valeurs limites (inf et sup):  ";;
    eng) echo -n " Give the limiting values (low and top):  ";;
   esac
   read vli vls ; awkzi 34 6 $vli $vls < tmp.drd > ubv.drd ;;
g) echo ' ' 
   case $LNG in
     fr)  echo -n " Donnez la limite inferieure:  ";;
    eng) echo -n " Give the lower limit:  ";;
   esac
   read vli ; awkzg 34 6 $vli < tmp.drd > ubv.drd ;;
esac