1 files changed, 44 insertions, 0 deletions
diff --git a/pkg/images/tv/iis/iism70/iisbutton.x b/pkg/images/tv/iis/iism70/iisbutton.x
new file mode 100644
index 00000000..50dfff7b
--- /dev/null
+++ b/pkg/images/tv/iis/iism70/iisbutton.x
@@ -0,0 +1,44 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include <mach.h>
+include "iis.h"
+include "../lib/ids.h"
+
+# IISBUTTON -- Read, button status
+
+procedure iisbutton (cnum, x, y, key)
+
+int	cnum			# cursor number
+int	x,y			# coordinates
+int	key			# key pressed
+
+short	status
+int	and()
+
+include "iis.com"
+
+begin
+	call iishdr (IREAD, 1, CURSOR+COMMAND, 0, 0, 0, 0)
+	call iisio (status, 1 * SZB_CHAR)
+
+	if ( cnum == IDS_BUT_WT ) {
+	    while ( and (int(status), PUSH) == 0 ) {
+		call tsleep(1)
+		call iisio (status, 1 * SZB_CHAR)
+	    }
+	}
+
+	if ( and ( int(status), PUSH) == 0 )
+	    key = 0
+	else {
+	    status = and ( int(status), 7400B) / 256
+	    switch(status) {
+		case 4:
+		    status = 3
+		
+		case 8:
+		    status = 4
+	    }
+	    key = status
+	}
+end