date and time created 83/03/09 16:22:25 by ralph

SCCS-vsn: old/lib2648/cleara.c 4.1

diff --git a/usr/src/old/lib2648/cleara.c b/usr/src/old/lib2648/cleara.c
new file mode 100644 (file)
index 0000000..112b96a
--- /dev/null
+++ b/usr/src/old/lib2648/cleara.c
@@ -0,0 +1,10 @@
+/*     cleara.c        4.1     83/03/09        */
+
+#include "2648.h"
+
+cleara()
+{
+       sync();
+       escseq(NONE);
+       outstr("\33H\33J");
+}