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

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

diff --git a/usr/src/old/lib2648/kon.c b/usr/src/old/lib2648/kon.c
new file mode 100644 (file)
index 0000000..32a492c
--- /dev/null
+++ b/usr/src/old/lib2648/kon.c
@@ -0,0 +1,18 @@
+/*     kon.c   4.1     83/03/09        */
+/*
+ * Turn on keypad, so it sends codes instead of doing them in local.
+ */
+
+#include "2648.h"
+
+kon()
+{
+       escseq(NONE);
+       outstr("\33&s1A");
+}
+
+koff()
+{
+       escseq(NONE);
+       outstr("\33&s0A");
+}