/* Copyright (c) 1979 Regents of the University of California */
* clear - clear the screen
char *cp
= getenv("TERM");
if (tgetent(buf
, cp
) != 1)
pc
= tgetstr("pc", &pcbp
);
clear
= tgetstr("cl", &clbp
);
tputs(clear
, tgetnum("li"), putchar
);
exit (clear
!= (char *) 0);