Initial commit

1 files changed, 22 insertions, 0 deletions

diff --git a/sys/gio/nspp/sysint/ncgchr.x b/sys/gio/nspp/sysint/ncgchr.x
new file mode 100644
index 00000000..5cf40b22
--- /dev/null
+++ b/sys/gio/nspp/sysint/ncgchr.x
@@ -0,0 +1,22 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+# NCGCHR -- Get a single character (byte) from a packed array.  Return
+# a blank if the index is out of bounds.
+
+procedure ncgchr (ichars, len_ichars, index, char_value)
+
+int	ichars[ARB]		# packed character array
+int	len_ichars		# length of the array
+int	index			# index of char to be extracted
+int	char_value		# return value
+
+char	ch
+
+begin
+	if (index < 1 || index > len_ichars)
+	    char_value = ' '
+	else {
+	    call chrupk (ichars, index, ch, 1, 1)
+	    char_value = ch
+	}
+end