#include 

/* sets x right of window */
setxr(w, xr)
{
        if (argc < 2)
        {
                if (argc < 1)
                {
                        w = refwindow(W0);
                }
                if (not(iswindow(w)))
                {
                        xr = w;
                        w  = refwindow(W0);
                }
                else
                {
                        xr = getxr(w);
                }
        }
        
        xr = castreal(xr);

        setx(w, getxl(w), xr);
}