FS=$1
TY=$2
shift
shift

case $1 in
xy) case $2 in
      -i)(cat $ENT/hpd.ent ; zex $FS | awki 15 8 $3 $4 | \
    awki 25 8 $5 $6 | tee $SRT)| more ;;
      -r) (cat $ENT/hpd.ent ; zex $FS | awki 15 8 -$3 $3 | \
    awki 25 8 -$3 $3 | tee $SRT)| more ;;
    esac ;;
 r) case $2 in
     -lt) (cat $ENT/hpd.ent ; zex $FS | awkltr $3 2>/dev/null | \
tee $SRT )| more ;;
     -gt) (cat $ENT/hpd.ent ; zex $FS | awkgtr $3 2>/dev/null | \
tee $SRT )| more ;;
      -i) (cat $ENT/hpd.ent ; zex $FS | awkir $3 $4 2>/dev/null | \
tee $SRT )| more ;;
    esac ;;
esac

awk ' { print $1 } ' $SRT | sort -nu > $BTP/liste.noet
echo ' '
case $LNG in
  fr) echo " Etoiles selectionnees:  "`grep -c '^.' $BTP/liste.noet` ;;
 eng) echo " Selected stars:  "`grep -c '^.' $BTP/liste.noet` ;;
esac
echo ' '