case $# in
0) sref ; exit 0 ;;
esac

case $1 in
-o) out="1" ; shift ;;
 *) out="0" ;;
esac

case $1 in
-h) emploi ref ; exit 0 ;;
-m) multiref | more ; echo ' ' ; exit 0 ;; 
-n) zex $REFER/$3.ref | fgrep $2 | awkrf1
    typ $3 
    case $out in
     0) multiref | more ;;
     1) echo " References $3 " > $BTP/ref.lst
        echo ' ' >> $BTP/ref.lst
        multiref | tee -a $BTP/ref.lst | more
        echo ' '
        case $LNG in
          fr) echo -n " Voulez-vous imprimer ce fichier (o/n) ?  ";;
          eng) echo -n " Do you want to print this file (y/n) ?  ";;
        esac 
        read rep
        case $rep in
         o) imprime -r $BTP/ref.lst ;;
         n) echo ' ' ;;
        esac
    esac
    exit 0 ;; 
-s) FS=$SRT ;;
-f) FS=$2 ; typ $3 ;;
-t) FS=`nof $2` ; typ $2 ;;
 *) sref $1 ; exit 0 ;;
esac

zex $FS | awk '{printf "%10d\n",$2} ' | sort -o $BTP/ref.out -nu +0
multiref | more