TY=`basename $1`
FS=`nof $TY`

clear
(echo "            	`setit`" ;
op-d $FS $TY 1 ; ref -t $1 ; echo ' ') | more
case $LNG in
  fr) echo -n "  Donnez la liste des références à considérer:  " ;;
 eng) echo -n "  Enter the list of references:  " ;;
esac
read liste
selection $FS $1 $liste

head -20 f.tmp

case $1 in
mk) echo ' '  
    case $LNG in
      fr) echo -n " Copie sur mkk.sel (o/n)?  " ;;
     eng) echo -n " Copy on mkk.sel (y/n)?  " ;;
    esac
    read rep ; fout="mkk.sel" ;;
pos) echo ' '  
    case $LNG in
      fr) echo -n " Recopie sur adel.pos (o/n)?  " ;;
     eng) echo -n " Copy on adel.pos (y/n)?  " ;;
    esac
    read rep ; fout="adel.pos" ;;
 *) echo ' ' 
    case $LNG in
      fr) echo -n " Donnez le nom du fichier résultant:  " ;;
     eng) echo -n " Enter the output filename:  " ;;
    esac
    read fout ; rep="o" ;;
esac

case $rep in
 n) echo ' ' ; 
    case $LNG in
      fr) echo -n " Donnez le nom du fichier résultant:  " ;;
     eng) echo -n " Enter the output filename:  " ;;
    esac
    read fout ;;
esac

mv f.tmp $fout
echo ' '