usage='syntaks: tekstkon -f <tekstnavn> eller: tekstkon (-c/-s) <katalognavn>'
header='Supermax Tekstkonvertering'
clear;
case $# in
  0) /bin/echo $usage;;
  1|2) case $1 in
       -f) /voxbin/lineecho '<C2501>'$header
           if test $# -eq 2
    then filename=$2
    else
      /bin/echo '\n\n\n\n\n\n\n\n\n\nIndtast tekstnavn: \c'
      read filename
    fi;;
       -c|-s) /voxbin/lineecho '<C2501>'$header
       if test $# -eq 2
       then dname=$2
       else
         /bin/echo '\n\n\n\n\n\n\n\n\n\nIndtast katalognavn: \c'
  read dname
  if test $dname
  then :
  else
    dname=\.
  fi
       fi;;
       *)  /bin/echo $usage
     esac;;
   *)exit 2;;
esac

case $1 in
  -f) /alib/st/tkonsub $filename.k;;
  -c) for file in `ls $dname/*.k`
      do
 /alib/st/tkonsub $file
      done;;
  -s) for file in `find $dname -name '*.k' -print`
      do
 /alib/st/tkonsub $file
      done;;
esac
: 19.11.86/jes
: Dette scrip bruges til konvertering af Supermax tekstkfiler
: fra .k format til TX format.
: Scriptet kalder et andet script: "tkonsub.
: end of text.
