#include 

/* sets or gets z axis label */
zlabel(win, argv)
{
        local s;

        if (argc == 0)
        {
                /* return z label of current window */
                return(getzlabel(W0));
        }
        
        if (argc == 1)
        {
                if (not(iswindow(win)))
                {
                        /* set z label of current window */
                        s = caststring(win);
                        setzlabel(s);
                }
                else
                {
                        /* return z label of win */
                        return(getzlabel(win));
                }
        }
        
        if (argc >= 2)
        {
                if (not(iswindow(win))) error("zlabel - Window required");
                
                /* set z label of win */
                s = caststring(getargv(1));
                setzlabel(win, s);
        }
}