case $# in
  0) TY="ubv" ;;
  1) TY=$1 ;;
esac

FS=`nof $TY`
zeT $FS
mv .T/$FS .T/ubv.cor
FZ=".T/ubv.cor"

echo ' '
case $TY in
  ubv) tit="UBV pe" ;;
  pgh) tit="UBV pg" ;;
  ccd) tit="CCD  ";;
esac

while :
do
clear
echo ' '
case $LNG in
  fr) echo " Correction des donnees $tit" ;;
 eng) echo " Correction of $tit data" ;;
esac
echo " -----------------------------"
echo ' ' 

while :
do
echo ' ' 
case $LNG in
  fr) echo -n "      Quelle reference ?  " ;;
 eng) echo -n "      Which reference ?  " ;;
esac
read ref
case $ref in
  0) detail $1 ;;
  f) echo ' ' ; exit 0 ;;
  *) break ;;
esac
done

while :
do
echo ' '
case $LNG in
  fr) echo -n "      Quel parametre (V B U B-V U-B) ?  " ;;
 eng) echo -n "      Which parameter (V B U B-V U-B) ?  " ;;
esac
read parm
case $parm in
   0|h) $1 -y ;;
   v|V) par=1 ; break ;;
   b|B) par=2 ; break ;;
   u|U) par=3 ; break ;;
 b-v|B-V) par=4 ; break ;;
 u-b|U-B) par=5 ; break ;;
esac
done

echo ' '
echo ' '
case $LNG in
  fr) echo -n " Correction constante ou lineaire (c/l)?  " ;;
 eng) echo -n " Linear or constant correction (c/l)?  " ;;
esac
read cor ; echo ' '
case $cor in
  c) case $LNG in
       fr) echo -n "      Quelle constante ?  " ;;
      eng) echo -n "      Which constant ?  " ;;
     esac
     read cons
     awkorcte $ref $par $cons < $FZ > .T/tmp.cor 
     clear
     echo " Fichier original"
     echo ' '
     head -12 $FZ 
     echo ' '
     echo ' Fichier corrige'
     echo ' '
     head -12 .T/tmp.cor
     echo ' '
     echo -n " Juste (o/n) ?  "
     read jus
     case $jus in
       o|y) mv .T/tmp.cor $FZ ;;
         n) ;;
     esac ;;
  l) echo -n "      Pente et ordonnee:  " ; read pent ordo
     awkorlin $ref $par $pent $ordo < $FZ > .T/tmp.cor
     mv .T/tmp.cor $FZ ;;
esac

echo ' '
case $LNG in
  fr) echo -n " Voulez-vous verifier les corrections (o/n/f) ?  " ;;
 eng) echo -n " Do you want to check the corrections (o/n/f) ?  " ;;
esac
read ver
case $ver in
  o|y) Compar cor ;;
  n) ;;
  f) break ;;
esac

done 

echo ' '
case $LNG in
  fr) echo -n " Voulez-vous conserver le fichier corrige (o/n) ?  " ;;
 eng) echo -n " Do you want to keep the corrections (o/n/f) ?  " ;;
esac
read cons
case $cons in
  o) mv $FZ ubv.cor ; echo ' ' ; compress ubv.cor ;;
  n) rm $FZ ; echo ' ' ; exit 0;;
esac