zex $1 > $UTP/a$$

case $2 in
gen|prm|orb|wal|tab)
cat $ENT/$2.ent
shift
shift
for i in $*
do
 noet=`echo $i | awk ' {printf"%04d",$1} ' `
 grep $noet $UTP/a$$
 echo ' '
done ;;

*)
cat $ENT/$2.ent | ind
shift
shift
for i in $*
do
 noet=`echo $i | awk ' {printf"%04d",$1} ' `
 grep $noet $UTP/a$$ | ind
 echo ' '
done ;;
esac