my_echo()
{
        echo ' '
        echo $n "$*" $c
}

if [ "`echo -n qq`" = "-n qq" ]; then
 n=''
 c='\c'
else
 n='-n'
 c=''
fi

TY=`basename $0`
FS=`nof tab`
TR=trans.ref

case $# in

0) (zex trans.ref ; cat $ENT/tab.ent ; zex $FS )| page ;;

1) case $1 in
   -r) echo ' ' ; zex $TR ;;
   -c) zex $FS > $BTP/tab.out
       zex $TR > $BTP/trf.out
       retab ;;
   -i) (zex trans.ref ; echo ' ' ;
       echo "  No     1    2    3    4    5    6    7    8    9" ;
       echo ' ' ; zex trans.tab )| lpr ;;
   -l) while :
       do
       case $LNG in
         fr) my_echo " Selection sur quelle colonne ?  " ;;
         eng) my_echo 'Selection on which column?  ' ;;
       esac
       read col
       case $col in
         0) clear ; zex trans.ref ;;
         *) break ;;
       esac
       done
       (cat $ENT/$TY.ent ; zex $FS | awkltab $col | \
        cut -c7- | tee $BTP/tab.out )| more ;;
   -s) while :
       do
       case $LNG in
         fr) my_echo " Tri sur quelle colonne ?  " ;;
         eng) my_echo 'Sort on which column?  ' ;;
       esac
       read col
       case $col in
         0) clear ; zex trans.ref ;;
         *) break ;;
       esac
       done
       zex $FS | awktritab $col| tee $BTP/tab.tri | more ;;
   -[1-9]) n=`echo $1 | cut -c2` ; echo ' '
       zex $TR | grep " $n)" ;;
   -10|-11|-12|-13|-14) n=`echo $1 | cut -c2-3` ; echo ' '
       zex $TR | grep "$n)" ;;
    *) opt_noet $FS tab $* ;;
   esac ;;

*) case $1 in
   -f) opt_star $1 $FS $TY $2 ;;
   -k) shift ; cat $ENT/tab.ent ; zex $FS | grep "$*" ;;
   -l) (cat $ENT/$TY.ent ; zex $FS | awkltab $2 | \
        sort -n | cut -c7- | tee $BTP/tab.out )| more ;;
   -r) echo ' ' ; zex $TR | grep "$2)" ;;
   -s) zex $FS | awktritab $2| tee $BTP/tab.tri | more ;;
    *) opt_noet $FS tab $* ;;
   esac ;;

esac

echo ' '