1 files changed, 16 insertions, 0 deletions
diff --git a/sys/gio/gks/gtx.f b/sys/gio/gks/gtx.f
new file mode 100644
index 00000000..c09ef7c4
--- /dev/null
+++ b/sys/gio/gks/gtx.f
@@ -0,0 +1,16 @@
+c GTX -- Text.  Unpack an f77 string and call gx_gtx to output the string.
+c
+	subroutine gtx (px, py, f77chars)
+c
+	real		px, py
+	character*(*) 	f77chars
+	integer*2     	sppchars(161)
+c
+c
+c	Unpack characters from packed input array
+c
+	call f77upk (f77chars, sppchars, min (len(f77chars), 161))
+	call gxgtx (px, py, sppchars)
+c
+c
+	end