/* ntq.tc - lrb - 11/13,15/08

ntq [ /* nulls to quotes

char nf(20),nnf(20);int nfl

pl "ntq.tc - lrb - 11/15/08"
pl "nulls to quotes"

while (!nfl) [pl"";pl"file? ";nfl=gs(nf)]

strcpy(nnf,"n");strcat(nnf,nf)
char fcon(5000);int fl,wfl

if ((fl=readfile(nf,fcon,fcon+5000,1))>0) [
  int i
  while ((i=strlen(fcon))<fl) fcon(i)=34
  if ((wfl=writefile(nnf,fcon,fcon+fl-1,2))>0) [
    pl nnf;ps" written!";pl""
    ]
  else [
    pl"write failed on ";ps nnf;pl""
    ]
  ]
else [
  pl"read failed on ";ps nf
  ] 
]