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

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

diff --git a/usr/src/old/lib2648/agoto.c b/usr/src/old/lib2648/agoto.c
new file mode 100644 (file)
index 0000000..c205790
--- /dev/null
+++ b/usr/src/old/lib2648/agoto.c
@@ -0,0 +1,22 @@
+/*     agoto.c 4.1     83/03/09        */
+/*
+ * position the alphanumeric cursor to (x, y).
+ */
+
+#include "2648.h"
+
+agoto(x, y)
+int x, y;
+{
+       char mes[20];
+       sprintf(mes, "\33*dE\33&a%dr%dC", x, y);
+       outstr(mes);
+}
+
+/*
+ * lower left corner of screen.
+ */
+lowleft()
+{
+       outstr("\33F");
+}