sda4: commit the Glaze developer hard-drive dump

Un-ignored: the dev drive is the ground truth the restoration and
emulator work constantly reference (DPL3/LIBDPL + VRENDER i860 renderer
source, BT/RP live+dev game trees, VGL_LABS pod boot, scene/audio
content). Kept in-repo for the pod-owner community.

Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>

sda4/BRIEF/MACROS/KEY.CB

@@ -0,0 +1,73 @@
+/*
+**		BRIEF -- Basic Reconfigurable Interactive Editing Facility
+**
+**		Written by Dave Nanian and Michael Strickman.
+*/
+
+/*
+**		key.cb:
+**
+**		This macro makes it easy to input the yucchy assign_to_key
+**	key descriptions.  Note that if the user answers yes to the
+**	question "Recognize that specific %c? ", the entire keycode,
+**	including the scan code, is used as a string.  This forces
+**	BRIEF to use only that specific key on the keyboard.
+*/
+
+void key ()
+{
+	int	key_value,
+			done;
+
+	string	to_insert = "\"",
+				reply;
+			
+	message ("Press the keys you want converted, Esc to end.");
+
+	while (!done)
+		{
+		while ((key_value = read_char ()) == -1);
+
+			if (key_value != key_to_int ("<Esc>"))
+				{
+				if (key_value % 256)
+					{
+					sprintf (reply, "%c", key_value % 256);
+
+					if (index ("0123456789*.-+\t\n", reply))
+						{
+						sprintf (reply, "Recognize only that specific %c? ", key_value);
+
+						if (get_parm (NULL, reply, reply, 1))
+							{
+							if (!index ("yY", reply))
+								key_value %= 256;
+							}
+						else
+							done = 2;
+						}
+					else
+						key_value %= 256;
+					}
+				if (!done)
+					{
+					sprintf (reply, "#%d", key_value);
+					to_insert += reply;
+					}
+				}
+			else
+				done = 1;
+
+			if (!done)
+				message ("Continue, or Esc to end.");
+		}
+	if (done != 2)
+		if (strlen (to_insert) > 1)
+			{
+			to_insert += "\"";
+			insert (to_insert);
+			message ("Sequence inserted.");
+			}
+		else
+			message ("Nothing to insert.");
+}