gdirf
while (gdirf(spooldir, file1, SPOOL)) {
extern int rdfulline(), jsize(), gdirf(), gnamef();
while (gdirf(p, gradedir, dir) == TRUE) {
while (gdirf(spooldir, file1, SPOOL) == TRUE) {
while (gdirf(spooldir, f, SPOOL) == TRUE) {
while (gdirf(subdir, g, f) == TRUE) {
while (gdirf(fp1, dirname, Spool) == TRUE) {