%V 0
%I bb Tue Nov 25 16:15:28 1980
a0
B=/usr/lib/style
echo " " $*
flag=
nflag=
mflag=-mm
lflag=
file=
for i
do case $i in
-f) flag=-f;shift; file=$1; shift; continue;;
-n) nflag=-n;shift; continue;;
-mm) mflag=$1; shift; continue;;
-ms) mflag=$1;shift;continue;;
-ml) lflag=$1;shift;continue;;
*) deroff $mflag $lflag $*^$B/dprog $nflag $flag $file; break;;
esac
done
.
%E
%I bb Wed Dec 17 14:45:28 1980
%C modified for UTS
c1 3
name=$0
bin=/usr/lib/style
fflag=
.
c5 6
lflag=-s
.
c8 16
ok=true

for arg
do
	if [ "$ok" ]; then
                case $arg in
                -f) shift; fflag="-f $1"; ok=""; shift;;
                -n) nflag=-n; shift;;
                -l) lflag=-l; shift;;
                -*) echo 1>&2 $name: invalid \'$arg\' option; exit 1;;
                 *) file="$file $arg"; shift;;
                esac
	else
		ok=true
	fi
.
a17
/usr/lib/ss/fonts -x $file \
	| deroff $lflag \
	| $bin/diction1 $nflag $fflag \
	| sed -e "s/\[  */ [/g" -e "s/  */ /g" -e "s/^ *//" -e "s/ *\.//"
.
%E
%I bb Wed Dec 31 13:09:57 1980
%C data file moved from /usr/lib/style to /usr/lib/diction 
c2
bin=/usr/lib/diction
.
%E
