COM="prob  22.12.87"

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

case $1 in
-r)  case $# in
     1) CHE=`pwd` ; AMA=`basename $CHE` ;;
     2) AMA=$2 ;; 
     esac
     echo '      '$AMA > $BTP/ref.out ; ref -m ; exit 0 ;;
esac

case $# in

0) (cat $ENT/prob.ent ; zex $FS | 4 )| page
   echo '  ' ;;

1) arg1 $1 $FS pro1 ;;

*) if numeric $1
   then 
   op-m $FS $TY $*
   else
   opt=$1 ; shift ; op$opt $FS $TY 9 2 $*
   fi ;;

esac