/*
	reformat documentation that uses ^L to indicate page breaks.
	pads pages out with pl lines.
*/
char	ls[BUFSIZ];
int		cl;
int		lc;
int		pc;
int		mp;
int		pl;
int		sc;
int		db;
int		wf;
{
	db = 1;
	db = 0;
	pl = 68;
	cl = 'L' - '@';
	setofn(wf = "reformat.tmp");
	if(db)	{
		mp = 10;
		sc = "XX";
		}
	else	{
		mp = 999;
		sc = " ";
		}
	while(fgetls(ls,BUFSIZ))	{
		if(ls[0] == cl)	{
			while(lc % pl)	{
				puts(sc);
				lc += 1;
				}
			pc += 1;
			print("%4d %4d\r",lc,pc);
			if(pc >= mp)	break;
			continue;
			}
		if(index(ls,cl))	{
			print("<sequence lost> %d\n",lc);
			exit(FUBAR);
			}
		puts(ls);
		lc += 1;
		}
	setofn();
	printf("output: %s lines %d pages %d\n",wf,lc,pc);
	if(db)	{
		sformat(ls,BUFSIZ,"pr -t -n %s | less",wf);
		system(ls);
		}
}