trw read bug...

[Jeff Myers]

The code is munged in readtp.c for the case when you want to read in files
from the tape without assigning a new name, or for the case when you accept
the default for a certain file.  A context diff follows (the first change is
cosmetic):

*** readtp.c.old	Wed May 22 17:13:27 1985
--- readtp.c	Wed May 22 15:36:48 1985
***************
*** 122,128
  	{
  		printf("Current File Name:  ");
  		putline(inptbuf+4, 17);
! 		printf("\n\nNew File Name:  ");
  		eread(ufname);
  	}
  	if ((fname[0] == 0) || keep)

--- 122,128 -----
  	{
  		printf("Current File Name:  ");
  		putline(inptbuf+4, 17);
! 		printf("\nNew File Name:  ");
  		eread(ufname);
  	}
  	if ((ufname[0] == 0) || keep)
***************
*** 125,131
  		printf("\n\nNew File Name:  ");
  		eread(ufname);
  	}
! 	if ((fname[0] == 0) || keep)
  		for (i=4, j=0; j<17; ++i, ++j)
  			fname[j] = isupper(inptbuf[i]) ? tolower(inptbuf[i]) : inptbuf[i];
  	if ((ofp = fopen(ufname, "w")) == NULL)

--- 125,132 -----
  		printf("\nNew File Name:  ");
  		eread(ufname);
  	}
! 	if ((ufname[0] == 0) || keep)
! 	{
  		for (i=4, j=0; j<17; ++i, ++j)
  			fname[j] = isupper(inptbuf[i]) ? tolower(inptbuf[i]) : inptbuf[i];
  		if ((ofp = fopen(fname, "w")) == NULL)
***************
*** 128,134
  	if ((fname[0] == 0) || keep)
  		for (i=4, j=0; j<17; ++i, ++j)
  			fname[j] = isupper(inptbuf[i]) ? tolower(inptbuf[i]) : inptbuf[i];
! 	if ((ofp = fopen(ufname, "w")) == NULL)
  		err(FOPERR);
  	eov = 0;
  }

--- 129,138 -----
  	{
  		for (i=4, j=0; j<17; ++i, ++j)
  			fname[j] = isupper(inptbuf[i]) ? tolower(inptbuf[i]) : inptbuf[i];
! 		if ((ofp = fopen(fname, "w")) == NULL)
! 			err(FOPERR);
! 	}
! 	else if ((ofp = fopen(ufname, "w")) == NULL)
  		err(FOPERR);
  	eov = 0;
  }