View Raw SPL
#include 

/* sets x grid */
setxgrid(w, style)
{
        if (argc < 2)
        {
                if (argc < 1)
                {
                        w = refwindow(W0);
                }
                if (not(iswindow(w)))
                {
                        style = w;
                        w = refwindow(W0);
                }
                else
                {
                        style = 0;
                }
        }
        
        setgridstyle(w, 2, style);
}