#include 

/* get a list of series */
_guisersel(title, dsdef, serdef, pickonly, multi, hlp, type)
{
        extern _menucleared, _serseltitle, _dsname, _sername, _serselhlp, _serselchk;
        local list;

        if (argc < 7)
        {
                if (argc < 6)
                {
                        if (argc < 5)
                        {
                                if (argc < 4)
                                {
                                        if (argc < 3)
                                        {
                                                if (argc < 2)
                                                {
                                                        if (argc < 1) title = _serstr_selser;
                                                        dsdef = "";
                                                }
                                                serdef = "";
                                        }
                                        pickonly = 1;
                                }
                                multi = 1;
                        }
                        hlp = "";
                }
                type = 0;        
        }

        _menucleared  = 1;
        _serseltitle  = title;
        _dsname       = strrep(dsdef, " ", "");
        _sername      = strrep(serdef, " ", "");
        _serselhlp    = hlp;
        _serselchk    = multi ? "k" : "";

        if (_hasds(pickonly))
        {
                if (type)
                {
                        _mf("sersel2.pan");
                }
                else
                {
                        _mf("sersel.pan");
                }
        }
        else
        {
                message(_serstr_nods, 8);
        }
        list = (not(_menucleared)) ? _sername : "";
        return(list);
}