set_asp(x,y)
int x,y;
{
    extern __x_aspect;
    extern __y_aspect;

    __x_aspect=x;
    __y_aspect=y;
}