case $# in
  0) typ=$DEFTYPE ;;
1|2) typ=$1 ;;
esac

FS=`nof $typ` 

case $# in
  0|1) (cat $ENT/$typ.ent ; zex $FS) | lpr ;;
    2) (cat $ENT/$typ.ent ; zex $FS) | lpr $2 ;;
esac