*** dospecial.c	Tue Jan 15 16:17:59 1991
--- dospecial.c.new	Sun Oct 20 13:14:10 1991
***************
*** 620,628 ****
          } else if (strncmp(p+3, " plotfile ", 10) == 0) {
             char *sfp ;
             p += 13;
!            for (sfp = p; *sfp && *sfp != ' '; sfp++) ;
             *sfp = '\0';
!            figcopyfile (p, 0);
          } else
             nlcmdout(&p[3]);
          return;
--- 620,642 ----
          } else if (strncmp(p+3, " plotfile ", 10) == 0) {
             char *sfp ;
             p += 13;
! 	   /*
! 	    *  Fixed to allow popen input for plotfile
! 	    *  TJD 10/20/91
! 	    */
! 	   while (*p == ' ') p++;
! 	   if (*p == '"') {
! 	     p++;
! 	     for (sfp = p; *sfp && *sfp != '"'; sfp++) ;
!            } else {
! 	     for (sfp = p; *sfp && *sfp != ' '; sfp++) ;
!            }
             *sfp = '\0';
! 	   if (*p == '`') 
! 	     figcopyfile(p+1, 1);
! 	   else
! 	     figcopyfile (p, 0);
! 	   /* End TJD changes */
          } else
             nlcmdout(&p[3]);
          return;