/* view a series as hex values */
viewhex(s)
{
        local fn;

        if (argc < 1) s = refseries(w0);

        if (length(s) > 0)
        {
                /* temp file location */
                fn = getmiscpath(1, 1) + "hex.txt";

                /* write as hex */
                writetable(fn, s, 1, " ", "%4.4x", -1, 1);

                /* view ascii file */
                viewfile(fn);
        }
}