POLWR(p)
[Polynomial output line write.
p is the maximum number of output lines allowed on a page.
The output buffer is emptied. g is set to zero.]
safe G,g.
global G[80].
global g.
safe E[132].
safe C[132].
safe i,j.
(1) if OLINE>p then { EJECT=1; OLINE=0 };
for i=1,...,OPOS do
{ E[i]=' '; C[i]=OBUFF[i] }; for i=2,4,...,g do
for j=G[i-1],...,G[i] do { E[j]=C[j]; C[j]=' ' };
x=OPOS; for i=1,...,OPOS do OBUFF[i]=E[i];
WRITE(); OPOS=x; for i=1,...,OPOS do OBUFF[i]=C[i];
WRITE(); BLINES(1); g=0; return..