TITRE=`setit`
FS=`nof $TY` 
typ $1 

echo "		   $TITRE" >> .T/$1.dr 
echo ' ' >> .T/$1.dr 
detail $* >> .T/$1.dr 
awk '/Reference/ {printf "%10d\n",$2} ' .T/$1.dr > $BTP/ref.out 
multiref >> .T/$1.dr
page .T/$1.dr

echo ' '
case $LNG in
 fr) echo -n " Voulez-vous imprimer ce fichier (o/n) [n]?  ";;
 eng) echo -n " Do you want to print this file (y/n) [n]?  ";;
esac
read rep
case $rep in
  o|y) imprime -r .T/$1.dr ;;
  ""|n) ;;
esac

rm .T/$1.dr 

echo ' '