TXTLEN
assert(len < TXTLEN);
char res[100], *ar[50], output[TXTLEN], *mput;
len = corout(res, output, rprog, "", TXTLEN);
len = findline(res, &mput, TXTLEN, indexdate);
strncpy(output, mput, TXTLEN);