+ (void) strcpy(Outfile, av[2]);
+}
+
+order_unstr(tbl)
+STRFILE *tbl;
+{
+ register int i, c;
+ register int delim;
+ register long *seekpts;
+
+ seekpts = (long *) malloc(sizeof *seekpts * tbl->str_numstr); /* NOSTRICT */
+ if (seekpts == NULL) {
+ perror("malloc");
+ exit(-1);
+ /* NOTREACHED */
+ }
+ (void) fread((char *) seekpts, sizeof *seekpts, tbl->str_numstr, Inf);
+ delim = 0;
+ for (i = 0; i < tbl->str_numstr; i++, seekpts++) {
+ if (i != 0)
+ if (i == tbl->str_delims[delim]) {
+ fputs("%-\n", Outf);
+ delim++;
+ }
+ else
+ fputs("%%\n", Outf);
+ (void) fseek(Inf, *seekpts, 0);
+ while ((c = getc(Inf)) != '\0')
+ putc(c, Outf);
+ }