clear
case $# in
0) TY='coo' ;;
1) TY=$1 ;;
esac
echo ' '
echo "    $so CALCUL DE LA PRECESSION $se"
echo ' '
echo -n "    Donnez l'equinoxe de depart:  "
read eq1
echo ' '
echo -n "    Donnez l'equinoxe d'arrivee:  "
read eq2
echo $eq1 $eq2 > $BTP/prst.out
echo ' '
echo -n "    Donnez le nom du fichier en entree:  "
read nin 
case $nin in
""|5|stdin)  echo ' '
echo  "    Entrez les donnees dans le format:"
echo ' '
more $BDA/format/form.$TY ; echo ' '
while :
do 
prec
done ;;
esac
echo ' '
echo -n "    Donnez le nom du fichier en sortie:  "
read nout
case $nout in
""|6|stdout)
cat $ENT/$TY.ent | sed 's/1950/'$eq2'/' | ind
prec < $nin | awkzcoo | ind ; echo ' ' ; exit 0 ;;
esac
echo ' '
prec < $nin | awkzcoo > $nout
echo -n "    Voulez-vous voir le fichier resultant (o/n)?  "
read rep
case $rep in
n) ;;
o) (cat $ENT/$TY.ent | sed 's/1950/'$eq2'/' ; cat $nout ) | ind | page ;;
esac
echo ' '