#! /bin/sh
case "$1" in
  "") set ./toc ;;
  -)  ;;
  -*) echo "Usage:  $0  [tocfile]
Read table-of-contents, figure fraction of tape used." >&2; exit 1 ;;
  *) ;;
esac

# We assume filemarks take about 2.5 MB equivalent space.
#
awk '
	{ s += $5; }
END	{ t = s/1000000 + NR*2.5;
	  printf "%d MB or %.2f of 2 GB tape\n", t, t/2000;
	}
   ' $*
