TRACE(("TekEnq\n"));
TekEnq(int status,       register int x,       register int y){    register TScreen *screen = &term->screen;    Char cplot[7];    int len = 5;    int adj = (status != 0) ? 0 : 1;    cplot[0] = status;    /* Translate x and y to Tektronix code */    cplot[1] = 040 | ((x >> SHIFTHI) & FIVEBITS);    cplot[2] = 040 | ((x >> SHIFTLO) & FIVEBITS);    cplot[3] = 040 | ((y >> SHIFTHI) & FIVEBITS);    cplot[4] = 040 | ((y >> SHIFTLO) & FIVEBITS);    if (screen->gin_terminator != GIN_TERM_NONE)	cplot[len++] = '\r';    if (screen->gin_terminator == GIN_TERM_EOT)	cplot[len++] = '\004';#ifdef VMS    tt_write(cplot + adj, len - adj);#else /* VMS */    v_write(screen->respond, cplot + adj, len - adj);#endif /* VMS */}