diff --git a/WEGA/contrib/lcc/contrib/libcurses/clrtobot.c b/WEGA/contrib/lcc/contrib/libcurses/clrtobot.c
new file mode 100644
index 0000000..60ccacc
--- /dev/null
+++ b/WEGA/contrib/lcc/contrib/libcurses/clrtobot.c
@@ -0,0 +1,39 @@
+/*
+ * Copyright (c) 1980 Regents of the University of California.
+ * All rights reserved.  The Berkeley software License Agreement
+ * specifies the terms and conditions for redistribution.
+ */
+
+#ifndef lint
+static char sccsid[] = "@(#)clrtobot.c	5.2 (Berkeley) 10/24/85";
+#endif not lint
+
+# include	"curses.ext"
+
+/*
+ *	This routine erases everything on the window.
+ *
+ */
+wclrtobot(win)
+reg WINDOW	*win; {
+
+	reg int		y;
+	reg char	*sp, *end, *maxx;
+	reg int		startx, minx;
+
+	startx = win->_curx;
+	for (y = win->_cury; y < win->_maxy; y++) {
+		minx = _NOCHANGE;
+		end = &win->_y[y][win->_maxx];
+		for (sp = &win->_y[y][startx]; sp < end; sp++)
+			if (*sp != ' ') {
+				maxx = sp;
+				if (minx == _NOCHANGE)
+					minx = sp - win->_y[y];
+				*sp = ' ';
+			}
+		if (minx != _NOCHANGE)
+			touchline(win, y, minx, maxx - &win->_y[y][0]);
+		startx = 0;
+	}
+}