COM="vsm  06.05.88"

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
   -g|-p|-i) op$opt $FS $TY 18 3 $* ;;
   *) op$opt $FS $TY $* ;;
   esac
   fi ;;

esac