#! /bin/sh
# vcat -- Print a catalog of voices in the current directory
FILES=$*
A=/tmp/awkprog
C=/tmp/Contents
V=/tmp/Voices
ls -C $FILES | pr -h "DX/TX Voices from `pwd`">$C
cat <<! >$A
{	n++
	if (n==1) printf "  `date`   %-30s Page %d\n", "Voice List", ++pagenum
	if (n != 17 && n != 34 && n != 51) { print }
	if (n >= 68) { n = 0 }
}
!
vpr $FILES | awk -f $A >$V
/u/psl/bin/print -out -2 $C $V
