/* skip - output "n" blank lines */
skip (n)
/******/
int n;
{
int t;
t = n;
while (t-- > 0)
fputs ("\n", dev_lst);
return (n);
} /* skip */
#define margin1 0 /* top of page to title line */
#define margin2 2 /* title line to body */
#define margin3 8 /* body to bottom of page */
#define page_size 66
char *title;
int line_of_page;
int page;
/* paginate - separate stream of buffers into pages */
paginate (buf)
/************/
char *buf;
{
if (page != 0) /* M. A. Jacksons's program inversion */
goto resume; /* technique used */
/* read */
while (buf != NULL) /* while not end of file */
{
++page;
fputs ("\f", dev_lst);
line_of_page = skip (margin1);
if (title != NULL) /* output title and page nr. */
{
fprintf (dev_lst, "%-60spage %1d",
title, page);
line_of_page += skip (margin2);
}
while (buf != NULL && line_of_page < page_size - margin3)
{
fputs (buf, dev_lst);
++line_of_page;
/* read */
return;
resume: ;
}
line_of_page = 0;
}
page = 0;
} /* paginate */
