case $# in
0) TY="ubv" ;;
*) TY=$1 ;;
esac
FS=`nof $TY`
BD="del.ent"

clear

case $# in
0|1) PWD=`pwd`
   AMA=`basename $PWD`
   (cat $ENT/$TY$BD ; zex $RES/$FS | grep $AMA ) ;;
2) (cat $ENT/$TY$BD ; zex $RES/$FS | grep $2 ) ;;
3) (cat $ENT/$TY$BD ; zex $RES/$FS | grep $2 | \
    awktwokey 62 4 69 4 $3 ) ;;
esac
echo ' '