extern         _rtcsv;

/* data reader menu */
_drcsv(fname = "")
{
        /* setup */
        _rtcsv = 1;

        /* gui */
        pdc(3011);
}