1 files changed, 33 insertions, 0 deletions
diff --git a/pkg/images/tv/iis/ids/idsgcur.x b/pkg/images/tv/iis/ids/idsgcur.x
new file mode 100644
index 00000000..d3c0a1c6
--- /dev/null
+++ b/pkg/images/tv/iis/ids/idsgcur.x
@@ -0,0 +1,33 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	"../lib/ids.h"
+
+# IDS_GETCURSOR -- Get the position of a cursor.  This is the low level
+# cursor read procedure.  Reading the image cursor is only possible when
+# the ids kernel is run interactively, i.e., when the kernel is linked
+# into the CL process, which owns the terminal.  A raw binary read is required.
+# The cursor value is returned as a GKI structure on the stream "i_in",
+# i.e., it is sent back to the process which requested it.
+
+procedure ids_getcursor (cursor)
+
+int	cursor
+
+int	cur
+int	x, y, key
+
+include	"../lib/ids.com"
+
+begin
+	cur = cursor
+	if ( cur > IDS_CSPECIAL ) {
+	    switch( cur ) {
+		case IDS_BUT_RD, IDS_BUT_WT:
+	            call iisbutton( cur, x, y, key)
+	    }
+	} else
+	    call zcursor_read (cur, x, y, key)
+
+	call gki_retcursorvalue (i_in, x, y, key, cur)
+	call flush (i_in)
+end