case $# in
0) typ=$DEFTYPE ;;
1) typ=$1 ;;
esac
FS=`nof $typ` 

case $typ in
 tab) (zex trans.ref ; cat $ENT/$typ.ent ; zex $FS)| more ;;
   *) (cat $ENT/$typ.ent ; zex $FS)| more ;;
esac
echo ' '