diff --git a/src/rip.c b/src/rip.c
new file mode 100644
index 000000000..bda08ca9e
--- /dev/null
+++ b/src/rip.c
@@ -0,0 +1,178 @@
+/*	SCCS Id: @(#)rip.c	3.3	2001/09/24	*/
+/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
+/* NetHack may be freely redistributed.  See license for details. */
+
+#include "hack.h"
+
+STATIC_DCL void FDECL(center, (int, char *));
+
+extern const char *killed_by_prefix[];
+
+#if defined(TTY_GRAPHICS) || defined(X11_GRAPHICS) || defined(GEM_GRAPHICS)
+# define TEXT_TOMBSTONE
+#endif
+#if defined(mac) || defined(__BEOS__) || defined(WIN32_GRAPHICS)
+# ifndef TEXT_TOMBSTONE
+#  define TEXT_TOMBSTONE
+# endif
+#endif
+
+#ifdef TEXT_TOMBSTONE
+
+#ifndef NH320_DEDICATION
+/* A normal tombstone for end of game display. */
+static const char *rip_txt[] = {
+"                       ----------",
+"                      /          \\",
+"                     /    REST    \\",
+"                    /      IN      \\",
+"                   /     PEACE      \\",
+"                  /                  \\",
+"                  |                  |", /* Name of player */
+"                  |                  |", /* Amount of $ */
+"                  |                  |", /* Type of death */
+"                  |                  |", /* . */
+"                  |                  |", /* . */
+"                  |                  |", /* . */
+"                  |       1001       |", /* Real year of death */
+"                 *|     *  *  *      | *",
+"        _________)/\\\\_//(\\/(/\\)/\\//\\/|_)_______",
+0
+};
+#define STONE_LINE_CENT 28	/* char[] element of center of stone face */
+#else	/* NH320_DEDICATION */
+/* NetHack 3.2.x displayed a dual tombstone as a tribute to Izchak. */
+static const char *rip_txt[] = {
+"              ----------                      ----------",
+"             /          \\                    /          \\",
+"            /    REST    \\                  /    This    \\",
+"           /      IN      \\                /  release of  \\",
+"          /     PEACE      \\              /   NetHack is   \\",
+"         /                  \\            /   dedicated to   \\",
+"         |                  |            |  the memory of   |",
+"         |                  |            |                  |",
+"         |                  |            |  Izchak Miller   |",
+"         |                  |            |   1935 - 1994    |",
+"         |                  |            |                  |",
+"         |                  |            |     Ascended     |",
+"         |       1001       |            |                  |",
+"      *  |     *  *  *      | *        * |      *  *  *     | *",
+" _____)/\\|\\__//(\\/(/\\)/\\//\\/|_)________)/|\\\\_/_/(\\/(/\\)/\\/\\/|_)____",
+0
+};
+#define STONE_LINE_CENT 19	/* char[] element of center of stone face */
+#endif	/* NH320_DEDICATION */
+#define STONE_LINE_LEN 16	/* # chars that fit on one line
+				 * (note 1 ' ' border)
+				 */
+#define NAME_LINE 6		/* *char[] line # for player name */
+#define GOLD_LINE 7		/* *char[] line # for amount of gold */
+#define DEATH_LINE 8		/* *char[] line # for death description */
+#define YEAR_LINE 12		/* *char[] line # for year */
+
+static char **rip;
+
+STATIC_OVL void
+center(line, text)
+int line;
+char *text;
+{
+	register char *ip,*op;
+	ip = text;
+	op = &rip[line][STONE_LINE_CENT - ((strlen(text)+1)>>1)];
+	while(*ip) *op++ = *ip++;
+}
+
+
+void
+genl_outrip(tmpwin, how)
+winid tmpwin;
+int how;
+{
+	register char **dp;
+	register char *dpx;
+	char buf[BUFSZ];
+	register int x;
+	int line;
+
+	rip = dp = (char **) alloc(sizeof(rip_txt));
+	for (x = 0; rip_txt[x]; x++) {
+		dp[x] = (char *) alloc((unsigned int)(strlen(rip_txt[x]) + 1));
+		Strcpy(dp[x], rip_txt[x]);
+	}
+	dp[x] = (char *)0;
+
+	/* Put name on stone */
+	Sprintf(buf, "%s", plname);
+	buf[STONE_LINE_LEN] = 0;
+	center(NAME_LINE, buf);
+
+	/* Put $ on stone */
+#ifndef GOLDOBJ
+	Sprintf(buf, "%ld Au", u.ugold);
+#else
+	/* FIXME: this neglects gold in containers (which will be gone by
+	   now if bones have been saved).  For the !GOLDOBJ configuration,
+	   any such gold gets added into u.ugold by done(). */
+	Sprintf(buf, "%ld Au", money_cnt(invent));
+#endif
+	buf[STONE_LINE_LEN] = 0; /* It could be a *lot* of gold :-) */
+	center(GOLD_LINE, buf);
+
+	/* Put together death description */
+	switch (killer_format) {
+		default: impossible("bad killer format?");
+		case KILLED_BY_AN:
+			Strcpy(buf, killed_by_prefix[how]);
+			Strcat(buf, an(killer));
+			break;
+		case KILLED_BY:
+			Strcpy(buf, killed_by_prefix[how]);
+			Strcat(buf, killer);
+			break;
+		case NO_KILLER_PREFIX:
+			Strcpy(buf, killer);
+			break;
+	}
+
+	/* Put death type on stone */
+	for (line=DEATH_LINE, dpx = buf; line<YEAR_LINE; line++) {
+		register int i,i0;
+		char tmpchar;
+
+		if ( (i0=strlen(dpx)) > STONE_LINE_LEN) {
+				for(i = STONE_LINE_LEN;
+				    ((i0 > STONE_LINE_LEN) && i); i--)
+					if(dpx[i] == ' ') i0 = i;
+				if(!i) i0 = STONE_LINE_LEN;
+		}
+		tmpchar = dpx[i0];
+		dpx[i0] = 0;
+		center(line, dpx);
+		if (tmpchar != ' ') {
+			dpx[i0] = tmpchar;
+			dpx= &dpx[i0];
+		} else  dpx= &dpx[i0+1];
+	}
+
+	/* Put year on stone */
+	Sprintf(buf, "%4d", getyear());
+	center(YEAR_LINE, buf);
+
+	putstr(tmpwin, 0, "");
+	for(; *dp; dp++)
+		putstr(tmpwin, 0, *dp);
+
+	putstr(tmpwin, 0, "");
+	putstr(tmpwin, 0, "");
+
+	for (x = 0; rip_txt[x]; x++) {
+		free((genericptr_t)rip[x]);
+	}
+	free((genericptr_t)rip);
+	rip = 0;
+}
+
+#endif	/* TEXT_TOMBSTONE */
+
+/*rip.c*/