#include 

/* sets y top of window */
setyt(w, yt)
{
        if (argc < 2)
        {
                if (argc < 1)
                {
                        w = refwindow(W0);
                }
                if (not(iswindow(w)))
                {
                        yt = w;
                        w  = refwindow(W0);
                }
                else
                {
                        yt = getyt(w);
                }
        }
        
        yt = castreal(yt);

        sety(w, getyb(w), yt);
}