/* show first few lines of translated binary file */

#define NUMRBLINES 50

_prerb(fname, dtype, offset)
{
        local s, prevf;

        if (strlen(fname) > 0)
        {
                /* read as binary and write as ASCII */
                s = readb(fname, dtype, NUMRBLINES, offset);

                if (length(s) > 0)
                {
                        prevf = getmiscpath(1, 1) + "previewb.txt";
                        writea(prevf, s, 1);
                        viewfile(prevf, _previewstr);
                        delfile(prevf);
                }
        }
}