diff --git a/sys/mac/dprintf.c b/sys/mac/dprintf.c
new file mode 100644
index 000000000..e646716cd
--- /dev/null
+++ b/sys/mac/dprintf.c
@@ -0,0 +1,47 @@
+/*	SCCS Id: @(#)dprintf.c	3.1	94/01/29		  */
+/* Copyright (c) Jon W{tte, 1993.				  */
+/* NetHack may be freely redistributed.  See license for details. */
+
+#include "hack.h"
+#include "macwin.h"
+
+static Boolean
+KeyDown (unsigned short code) {
+unsigned char keys [16];
+
+	GetKeys ((void *) keys);
+	return ((keys [code >> 3] >> (code & 7)) & 1) != 0;
+}
+
+
+void
+dprintf (char *format, ...)
+{
+char buffer [500];
+va_list list;
+int doit;
+#define DO_DEBUGSTR 1
+#define DO_PLINE 2
+
+	if (flags.debug) {
+		doit = 0;
+		if (macFlags.hasDebugger && KeyDown (0x39)) {					/* Caps Lock */
+			doit = DO_DEBUGSTR;
+		} else if (KeyDown (0x3B) && iflags.window_inited &&			/* Control */
+			(WIN_MESSAGE != -1) && theWindows [WIN_MESSAGE].its_window) {
+			doit = DO_PLINE;
+		}
+		
+		if (doit) {
+			va_start (list, format);
+			vsprintf (&buffer [1], format, list);
+			va_end (list) ;
+
+			if (doit == DO_DEBUGSTR) {
+				buffer [0] = strlen (&buffer [1]);
+				DebugStr ((uchar *) buffer);
+			} else if (doit == DO_PLINE)		
+				pline ("%s", &buffer [1]);
+		}
+	}
+}