diff --git a/sys/mac/mactopl.c b/sys/mac/mactopl.c
new file mode 100644
index 000000000..4cf845d9c
--- /dev/null
+++ b/sys/mac/mactopl.c
@@ -0,0 +1,70 @@
+/*	SCCS Id: @(#)mactopl.c	3.1	91/07/23
+/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
+/* NetHack may be freely redistributed.  See license for details. */
+
+#include "hack.h"
+#include "mactty.h"
+#include "macwin.h"
+#include "macpopup.h"
+
+char
+queued_resp(char *resp) {
+	char buf[30];
+	if (try_key_queue(buf)) {
+		if (!resp || strchr(resp, buf[0]))
+			return buf[0];
+		if (digit(buf[0]) && strchr(resp, '#')) {
+			yn_number = atoi(buf);
+			return '#';
+		}
+	}
+	return '\0';
+}
+
+
+char
+topl_yn_function(const char *query, const char *resp, char def) {
+	char buf[30];
+	char c = queued_resp((char *) resp);
+	if (!c) {
+		enter_topl_mode((char *) query);
+		topl_set_resp((char *) resp, def);
+
+		do {
+			c = readchar();
+			if (c && resp && !strchr(resp, c)) {
+				nhbell();
+				c = '\0';
+			}
+		} while (!c);
+
+		topl_set_resp("", '\0');
+		leave_topl_mode(buf);
+		if (c == '#')
+			yn_number = atoi(buf);
+	}
+	return c;
+}
+
+
+char
+mac_yn_function(query, resp, def)
+const char *query,*resp;
+char def;
+/*
+ *   Generic yes/no function. 'def' is the default (returned by space or
+ *   return; 'esc' returns 'q', or 'n', or the default, depending on
+ *   what's in the string. The 'query' string is printed before the user
+ *   is asked about the string.
+ *   If resp is NULL, any single character is accepted and returned.
+ */
+{
+#if ENABLE_MAC_POPUP
+	if (iflags.popup_dialog)
+		return popup_yn_function(query, resp, def);
+	else
+#endif
+		return topl_yn_function(query, resp, def);
+}
+
+/*topl.c*/