COM="ubv  22.12.87"

TY=`basename $0`
FS=`nof $TY`
typ $TY

case $# in

0) arg0 $FS $TY ;;

1) arg1 $1 $FS $TY ;;

*) if numeric $1
   then 
   op-m $FS $TY $*
   else
   opt=$1 ; shift
   case $opt in
   -s) cp /usr/tmp/sortie.out  /usr/tmp/cp.out
       FS=/usr/tmp/cp.out ; opt=$1 ;;
   esac
   case $opt in
   -g|-p|-i) col=$1 ; shift
       case $col in
       v) pos=13 ;;
       b-v) pos=20 ;;
       u-b) pos=27 ;;
       esac
       op$opt $FS $TY $pos 5 $* ;;
   *) op$opt $FS $TY $* ;;
   esac
   fi ;;

esac