1 files changed, 21 insertions, 0 deletions
diff --git a/pkg/images/tv/iis/iism70/zseek.x b/pkg/images/tv/iis/iism70/zseek.x
new file mode 100644
index 00000000..6f3fed25
--- /dev/null
+++ b/pkg/images/tv/iis/iism70/zseek.x
@@ -0,0 +1,21 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	<mach.h>
+include	<fset.h>
+include "../lib/ids.h"
+include "iis.h"
+
+# ZSEEK -- Seek for an image frame
+
+procedure zseek (fd, x, y)
+
+int	fd				# file to write
+int	x, y				# device coordinates
+
+long	offset
+
+begin
+	offset = max (1, 1 + (x + y * IIS_XDIM) * SZ_SHORT)
+
+	call seek (fd, offset)
+end