1 files changed, 44 insertions, 0 deletions
diff --git a/sys/gio/gki/zzdebug.x b/sys/gio/gki/zzdebug.x
new file mode 100644
index 00000000..e56c5cc0
--- /dev/null
+++ b/sys/gio/gki/zzdebug.x
@@ -0,0 +1,44 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include <fset.h>
+include <fio.h>
+include <gki.h>
+
+task	ggcur	= t_ggcur
+
+
+# GGCUR -- Debug cursor read in inline graphics kernel.
+
+procedure t_ggcur()
+
+pointer	gp
+char	device[SZ_FNAME]
+
+real	cx, cy
+int	key, xres, yres, hardchar
+int	dd[LEN_GKIDD]
+pointer	gopen()
+
+begin
+	call clgstr ("device", device, SZ_FNAME)
+	hardchar = YES
+	xres = 0
+	yres = 0
+
+	call fseti (STDGRAPH, F_TYPE, SPOOL_FILE)
+	call fseti (STDGRAPH, F_CANCEL, OK)
+
+	call stg_open (device, dd, STDIN, STDOUT, xres, yres, hardchar)
+	call gki_inline_kernel (STDGRAPH, dd)
+
+	gp = gopen (device, NEW_FILE, STDGRAPH)
+	call ggcur (gp, cx, cy, key)
+
+	call gclose (gp)
+	call stg_close()
+
+	call printf ("cx=%f, cy=%f, key=%d\n")
+	    call pargr (cx)
+	    call pargr (cy)
+	    call pargi (key)
+end