BEGIN {FS="|";OFS="\t"
  match(ARGV[1],/[0-9]+/,cnty)}
(/CNTYTOT/) {
  for (i=96;i<=101;i++) usstot += $i}
END {print (cnty[0], usstot) >> "uss_g04.txt"}