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.. #JfZ