TY=`basename $0`
case $1 in
-f) FS=$2 ; shift ; shift ;;
-s) FS=$SRT ; shift ;;
*)  FS=`nof $TY` ;;
esac
typ $TY

case $# in

0) arg0 $FS $TY ;;

1) arg1 $1 $FS $TY ;;

*) if numeric $1
   then 
   opt="-m"
   else
   opt=$1 ; shift
   fi
   case $opt in
   -g|-p|-i|-gx|-px|-ix) 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 ;;

esac