From fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 Mon Sep 17 00:00:00 2001
From: Joseph Hunkeler <jhunkeler@gmail.com>
Date: Wed, 8 Jul 2015 20:46:52 -0400
Subject: Initial commit

---
 pkg/images/tv/iis/src/clear.x | 48 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 48 insertions(+)
 create mode 100644 pkg/images/tv/iis/src/clear.x

(limited to 'pkg/images/tv/iis/src/clear.x')

diff --git a/pkg/images/tv/iis/src/clear.x b/pkg/images/tv/iis/src/clear.x
new file mode 100644
index 00000000..60cf69eb
--- /dev/null
+++ b/pkg/images/tv/iis/src/clear.x
@@ -0,0 +1,48 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	<ctotok.h>
+include	<ctype.h>
+include	"../lib/ids.h"
+
+# CLEAR -- clear certain frames in the display
+
+procedure clear()
+
+char	token[SZ_LINE]
+int	tok
+short	frames[IDS_MAXIMPL+1]
+
+define	nexttok	10
+
+include "cv.com"
+
+begin
+	call gargtok (tok, token, SZ_LINE)
+	call strlwr (token)
+
+	while ( (tok == TOK_IDENTIFIER) || (tok == TOK_NUMBER) ) {
+	    if (tok == TOK_IDENTIFIER) {
+		switch (token[1]) {
+		    case 'a', 'g':
+			# all colors
+			call cvclearg (short(IDS_EOD), short (IDS_EOD))
+			if (token[1] == 'g')
+			    goto nexttok
+			frames[1] = IDS_EOD
+
+		    case 'f':
+			call cv_frame (token[2], frames)
+		}
+	    } else
+		call cv_frame (token[1], frames)
+
+	    call cvcleari (frames)
+	    if (token[1] == 'a')
+		return
+
+	    # get next token
+nexttok
+	    call gargtok (tok, token, SZ_LINE)
+	    call strlwr (token)
+	}
+end
-- 
cgit