/* show first few lines of translated ASCII Table */

#define NUMRTLINES 50

_prewt(wins, delim, prec, hex, header, wxval)
{
        local hformat, dl, prevf, verbose;

        wins = _getwinlist(wins, _winlist(strescape("\n"), 0), 1);
        wins = wtfname_series(wins);

        if (strlen(wins) > 0)
        {
                /* check if double quote a delimiter */
                if (strlen(strfind('"', delim)) > 0)
                {
                        dl = sprintf("'%s'", delim);
                }
                else
                {
                        dl = sprintf('"%s"', delim);
                }

                prevf   = getmiscpath(1, 1) + "preview.txt";
                verbose = 0;

                if (hex)
                {
                        hformat = sprintf('"%s%d.%dx"', "%", _wtprec, _wtprec);
                        eval(sprintf("writet('%s', %s, %d, %s, %s, %d, %d, %d, %d)", prevf, wins, NUMRTLINES, dl, hformat, -1, header, verbose, wxval));
                }
                else
                {
                        eval(sprintf("writet('%s', %s, %d, %s, %d, %d, %d, %d)", prevf, wins, NUMRTLINES, dl, prec, header, verbose, wxval));
                }

                viewfile(caststring(prevf), _previewstr, 1, NUMRTLINES);
                delfile(prevf);
        }
        else
        {
                message(_previewstr, _rwterr_ndw, 8);
        }

}