+again:
+ buf = (int) fseekp / BUFSIZ;
+ if (buf >= fblocks) {
+ register Char **nfbuf =
+ (Char **) xcalloc((size_t) (fblocks + 2),
+ sizeof(Char **));
+
+ if (fbuf) {
+ (void) blkcpy(nfbuf, fbuf);
+ xfree((ptr_t) fbuf);
+ }
+ fbuf = nfbuf;
+ fbuf[fblocks] = (Char *) xcalloc(BUFSIZ, sizeof(Char));
+ fblocks++;
+ if (!intty)
+ goto again;
+ }
+ if (fseekp >= feobp) {
+ buf = (int) feobp / BUFSIZ;
+ off = (int) feobp % BUFSIZ;
+ roomleft = BUFSIZ - off;
+
+#ifdef FILEC
+ roomleft = BUFSIZ - off;
+ for (;;) {
+ if (filec && intty) {
+ c = numleft ? numleft : tenex(ttyline, BUFSIZ);
+ if (c > roomleft) {
+ /* start with fresh buffer */
+ feobp = fseekp = fblocks * BUFSIZ;
+ numleft = c;
+ goto again;
+ }
+ if (c > 0)
+ bcopy(ttyline, fbuf[buf] + off, c * sizeof(Char));
+ numleft = 0;
+ }
+ else {
+#endif
+ c = read(SHIN, tbuf, roomleft);
+ if (c > 0) {
+ int i;
+ Char *ptr = fbuf[buf] + off;