OPT="-f"
LST=$BTP/liste.noet

case $1 in
  -o) FOUT=$2 ; shift ; shift ;;
   *) FOUT=$SRT ;;
esac 

case $1 in
-s) awk '{print $1} ' $SRT | sort -nu > $LST ; shift ;;
-r) awk '{print $1} ' $REF | sort -nu > $LST ; shift ;;
-f) zex $2 | awkprbl1 | sort -nu > $LST ; shift ; shift ;;
-t) FS=`nof $2` ; zex $FS | awkpr1 | sort -nu > $LST ; shift ; shift ;;
-v) case $2 in
     -f) FS=$3 ; FL=`nof $4` ; shift ;;
      *) FS=`nof $2` ; FL=`nof $3`;;
    esac
    OPT="-v -f" ; zex $FL | awkprbl1 | sort -nu > $LST ; 
    shift ;;
-e) awk '{print $1} ' $UTP/$2 | sort -nu > $LST
    FS=$UTP/$3 ;;
-h) emploi aud ; exit 0 ;;
-xh) xhelp aud ; exit 0 ;;
*) ;;
esac

typ $1

case $1 in
xy) case $LNG in
      fr) my_echo "Quel fichier? [hipad.xy] " ;;
     eng) my_echo "Which file? [hipad.xy] " ;;
    esac
    read fil 
    case $fil in
      "") FS=hipad.xy ;;
       *) FS=$fil ;;
    esac ;;
 *) if test -f $ENT/$1.ent
    then
    FS=`nof $1` 
    COL=$1.ent
    else
    FS=$1
    COL=noet.ent
    fi ;;
esac

(cat $ENT/$COL ; zex $FS | fgrep $OPT $LST | tee $FOUT )| more

echo ' '