static struct dsc$descriptor_s *gfile;
static _fcd gfile;
static char *gfile;

gsel.pntr = gfile;

cpstr(fs->files[selfil],gfile,SUBLEN1); // added by me
				   cpstr(qboxes[QREADF].str,gfile,SUBLEN1);
                    case BCAN : XUnmapWindow(display,fs->win);
                                TogUp(&cbut[BREADF]);
                                fs->qbrfile = 0;
                                if (!fs->parse && !fs->subopt) {
                                   cpstr(qboxes[QREADF].str,gfile,SUBLEN1);
                                   *Sinct = fs->inct;
                                   return(1);
                                }

    gsel.pntr = gfile;
    dsel.pntr = gfile;

cpstr(str,gfile,SUBLEN1);

void filecall(char *str)
{
        cpstr(str,gfile,SUBLEN1);
}


parsfn()
	  gfile = str;
