case $# in
2) ;;
*) echo Need two arguments for $0; exit 1;;
esac
cd $F
case $OpSys in
ATT)
# watch out -- sys III didn't have archives with symbol tables
# should use Slorder, I think

# here we should wc the load.list file, break it up if necessary
# and build the archive in several steps if necessary
	chars=`wc -c $1|sed 's:/.*::'`
	if test $chars -gt 3000
	then
		split -100 $1
		for i in `ls xa*`
		do
			ar ql $2 `cat $i`
		done
		ar tsl $2 || exit 1
	else
		ar crl $2 `cat $1` || exit 1
	fi
	;;
Berkeley)
	ar crl $2 `cat $1` || exit 1
	ranlib $2 || exit 1
	;;
*)
	$A/Slorder `cat $1`|tsort >/tmp/load.list
	ar crl $2 `cat /tmp/load.list` || exit 1
	ranlib $2 >/dev/null  2>&1 || true
	;;
esac
