#gawk script 
#splits the input file into smaller files, so that
#each file will be one page width using enscript -r (courier font)
#B. Sheehan and M. Nelson


BEGIN {
	limit   = 15
	namebase = ENVIRON["NAMEBASE"]
}
{
	x    = 4
	filenum = 1
	filename = sprintf("%s%02d",namebase,filenum)

	open_file(filename)
	while (x < NF) {
		sp = limit
		print_residues(filename)
		while (sp-- > 0) {
			printf("%6s ",$x) >> filename
			x++
		}
		printf("\n") >> filename
		filenum++
		filename = sprintf("%s%02d",namebase,filenum)
		open_file(filename)
	}
}


function print_residues(file)
{
	printf("%3s %4s %3s ",$1,$2,$3) >> file
}

function open_file(file)
{
 	printf("") > file
}