foreach f (`cat list`)

if (-e $f.html) /bin/rm -f $f.html

cat head > $f.html

cat tblhead >> $f.html

end

/bin/rm -rf tblz tblist

pr -m tblt tbct tbrt tbfn > tblist

cat tblist | sed \
	-e '/Page/d' \
	-e '/^$/d' \
	-e 's/		*/ /g' \
	-e 's/   */ /g' \
	-e 's/	 *//g' \
	-e 's/^/echo "<tr><td><img src=+/' \
	-e 's/html /gif+><\/td><td><img src=+/' \
	-e 's/html /gif+><\/td><td><img src=+/' \
	-e 's/html /gif+><\/td><\/tr>" >> /' \
> tblz

csh tblz

foreach f (`cat list`)
echo "</table>" >> $f.html
echo "<p><hr width=+75%+><p>" >> $f.html
end

/bin/rm -rf mklist mkarrows

pr -m mklt mkrt mkfn > mklist

cat mklist | sed \
	-e '/Page/d' \
	-e '/^$/d' \
	-e 's/		*/ /g' \
	-e 's/  */ /g' \
	-e 's/^/echo "<a href=+/' \
	-e 's/html /html+><img src=+arl.gif+>/' \
	-e 's/gif+>/&<\/a><a href=+/' \
	-e 's/html /html+><img src=+arr.gif+><\/a>" >> /' \
> mkarrows

csh mkarrows

foreach f (`cat list`)
mv $f.html tmp
cat tmp \
	| sed -e 's/+/"/g' \
	> $f.html
/bin/rm -f tmp
cat tail >> $f.html
end

echo "Edit 01 and51 by hand"

exit(0)

