Bring in the 4.4 Lite games directory, modulo man page changes and segregation

of the x11 based games.  I'm not going to tag the originals with bsd_44_lite
and do this in two stages since it's just not worth it for this collection,
and I've got directory renames to deal with that way.  Bleah.
Submitted by:	jkh

178 files changed, 23045 insertions, 0 deletions

diff --git a/games/ching/Makefile b/games/ching/Makefile
new file mode 100644
index 0000000..51f850d
--- /dev/null
+++ b/games/ching/Makefile
@@ -0,0 +1,12 @@
+#	@(#)Makefile	8.1 (Berkeley) 5/31/93
+
+SUBDIR=	cno phx
+MAN6=	ching.6
+
+beforeinstall:
+	install -c -o ${BINOWN} -g ${BINGRP} -m ${BINMODE} \
+	    ${.CURDIR}/ching.sh ${DESTDIR}/usr/games/ching
+	install -c -o ${BINOWN} -g ${BINGRP} -m 444 ${.CURDIR}/hexagrams \
+	    ${.CURDIR}/macros ${DESTDIR}/usr/share/games/ching
+
+.include <bsd.prog.mk>
diff --git a/games/ching/ching.h b/games/ching/ching.h
new file mode 100644
index 0000000..2809051
--- /dev/null
+++ b/games/ching/ching.h
@@ -0,0 +1,42 @@
+/*
+ * Copyright (c) 1988, 1993
+ *	The Regents of the University of California.  All rights reserved.
+ *
+ * This code is derived from software contributed to Berkeley by
+ * Guy Harris.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the University of
+ *	California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ *
+ *	@(#)ching.h	8.1 (Berkeley) 5/31/93
+ */
+
+#define OYIN	6		/* yin (broken) moving to yang (solid) */
+#define YYANG	7		/* yang (solid) */
+#define YYIN	8		/* yin (broken) */
+#define OYANG	9		/* yang (solid) moving to yin (broken) */
diff --git a/games/ching/cno/Makefile b/games/ching/cno/Makefile
new file mode 100644
index 0000000..64e6a98
--- /dev/null
+++ b/games/ching/cno/Makefile
@@ -0,0 +1,8 @@
+#	@(#)Makefile	8.1 (Berkeley) 5/31/93
+
+PROG=	ching.cno
+BINDIR=	/usr/games
+CFLAGS+=-I${.CURDIR}/..
+NOMAN=	noman
+
+.include <bsd.prog.mk>
diff --git a/games/ching/cno/ching.cno.c b/games/ching/cno/ching.cno.c
new file mode 100644
index 0000000..ff03c85
--- /dev/null
+++ b/games/ching/cno/ching.cno.c
@@ -0,0 +1,120 @@
+/*
+ * Copyright (c) 1988, 1993
+ *	The Regents of the University of California.  All rights reserved.
+ *
+ * This code is derived from software contributed to Berkeley by
+ * Guy Harris.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the University of
+ *	California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ */
+
+#ifndef lint
+static char copyright[] =
+"@(#) Copyright (c) 1988, 1993\n\
+	The Regents of the University of California.  All rights reserved.\n";
+#endif /* not lint */
+
+#ifndef lint
+static char sccsid[] = "@(#)ching.cno.c	8.1 (Berkeley) 5/31/93";
+#endif /* not lint */
+
+/*
+ * cno - Read a question, cast a change, and output the line values to the
+ * standard output for processing by "phx".
+ */
+#include <stdio.h>
+#include "ching.h"
+
+long	now;		/* current time */
+
+unsigned seed;		/* seed for random number generator */
+unsigned getrand();
+
+char	*change();
+char	string[6+1];	/* where the actual change string is put */
+
+int	table[2][2][2] = {
+	{ { OYIN,  YYANG,}, { YYANG, YYIN,} },
+	{ { YYANG, YYIN,},  { YYIN,  OYANG,} },
+};
+
+main()
+{
+	FILE *logf;
+
+	time(&now);
+	seed = (int)now + getquest() + getgid() + getuid() + getpid();	/* randomize */
+	printf("%s\n", change());
+}
+
+/*
+ * Hash the question by adding all the characters together.
+ */
+int
+getquest()
+{
+	int result;
+	register int c;
+
+	result = 0;
+	while ((c = getchar()) != EOF)
+		result += c;
+	return(result);
+}
+
+/*
+ * Get a set of six lines making up a change.
+ */
+char *
+change()
+{
+	register int i;
+
+	for (i = 0; i < 6; i++)
+		string[i] = table[getrnum()&01][getrnum()&01][getrnum()&01] + '0';
+	string[i] = '\0';
+	return(string);
+}
+
+/*
+ * Get a number more random than what getrand() gives.
+ */
+getrnum()
+{
+	return((getrand())>>(getrand()%17));
+}
+
+/*
+ * Get a random number.
+ */
+unsigned
+getrand()
+{
+	return(seed = (seed*13077) + 6925);
+}
diff --git a/games/ching/phx/Makefile b/games/ching/phx/Makefile
new file mode 100644
index 0000000..4b2de4d
--- /dev/null
+++ b/games/ching/phx/Makefile
@@ -0,0 +1,8 @@
+#	@(#)Makefile	8.1 (Berkeley) 5/31/93
+
+PROG=	ching.phx
+CFLAGS+=-I${.CURDIR}/..
+BINDIR=	/usr/games
+NOMAN=	noman
+
+.include <bsd.prog.mk>
diff --git a/games/ching/phx/ching.phx.c b/games/ching/phx/ching.phx.c
new file mode 100644
index 0000000..c67d054
--- /dev/null
+++ b/games/ching/phx/ching.phx.c
@@ -0,0 +1,315 @@
+/*
+ * Copyright (c) 1988, 1993
+ *	The Regents of the University of California.  All rights reserved.
+ *
+ * This code is derived from software contributed to Berkeley by
+ * Guy Harris.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the University of
+ *	California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ */
+
+#ifndef lint
+static char copyright[] =
+"@(#) Copyright (c) 1988, 1993\n\
+	The Regents of the University of California.  All rights reserved.\n";
+#endif /* not lint */
+
+#ifndef lint
+static char sccsid[] = "@(#)ching.phx.c	8.1 (Berkeley) 5/31/93";
+#endif /* not lint */
+
+/*
+ * phx - Print NROFF/TROFF source of change, given the line values.
+ */
+#include <stdio.h>
+#include "ching.h"
+#include "pathnames.h"
+
+struct {
+	int	lines;		/* encoded value of lines */
+	int	trinum;		/* trigram number */
+} table[] = {
+	{ 777, 0 },		/* 1 */
+	{ 887, 1 },		/* 4 */
+	{ 878, 2 },		/* 6 */
+	{ 788, 3 },		/* 7 */
+	{ 888, 4 },		/* 8 */
+	{ 778, 5 },		/* 5 */
+	{ 787, 6 },		/* 3 */
+	{ 877, 7 },		/* 2 */
+};
+
+/*
+ * Gives hexagram number from two component trigrams.
+ */
+int	crosstab[8][8] = {
+	1,  34, 5,  26, 11, 9,  14, 43,
+	25, 51, 3,  27, 24, 42, 21, 17,
+	6,  40, 29, 4,  7,  59, 64, 47,
+	33, 62, 39, 52, 15, 53, 56, 31,
+	12, 16, 8,  23, 2,  20, 35, 45,
+	44, 32, 48, 18, 46, 57, 50, 28,
+	13, 55, 63, 22, 36, 37, 30, 49,
+	10, 54, 60, 41, 19, 61, 38, 58,
+};
+
+int	trigrams[6];
+int	moving[6];
+
+FILE	*chingf;		/* stream to read the hexagram file */
+
+char	*gets();
+
+main(argc, argv)
+int argc;
+char **argv;
+{
+	register int hexagram;		/* hexagram number */
+	register char *hexptr;		/* pointer to string of lines */
+	char hexstr[6+1];		/* buffer for reading lines in */
+	register int i;
+
+	if (argc < 2)
+		hexptr = gets(hexstr);
+	else
+		hexptr = argv[1];
+	if (hexptr == (char *)NULL || strlen(hexptr) != 6) {
+		fprintf(stderr, "What kind of a change is THAT?!?\n");
+		exit(1);
+	}
+	for (i = 0; i < 6; i++) {
+		trigrams[i] = hexptr[i] - '0';
+		if (trigrams[i] == 6 || trigrams[i] == 9)
+			moving[i] = 1;
+		else
+			moving[i] = 0;
+	}
+	if ((chingf = fopen(_PATH_HEX, "r")) == (FILE *)NULL) {
+		fprintf(stderr, "ching: can't read %s\n", _PATH_HEX);
+		exit(2);
+	}
+	phx(doahex(), 0);
+	if (changes())
+		phx(doahex(), 1);
+}
+
+/*
+ * Compute the hexagram number, given the trigrams.
+ */
+int
+doahex()
+{
+	int lower, upper;	/* encoded values of lower and upper trigrams */
+	int lnum, unum;		/* indices of upper and lower trigrams */
+	register int i;
+
+	lower = codem(0);
+	upper = codem(3);
+	for (i = 0; i < 8; i++) {
+		if (table[i].lines == lower)
+			 lnum = table[i].trinum;
+		if (table[i].lines == upper)
+			 unum = table[i].trinum;
+	}
+	return(crosstab[lnum][unum]);
+}
+
+/*
+ * Encode a trigram as a 3-digit number; the digits, from left to right,
+ * represent the lines.  7 is a solid (yang) line, 8 is a broken (yin) line.
+ */
+codem(a)
+int a;
+{
+	register int code, i;
+	int factor[3];
+
+	factor[0] = 1;
+	factor[1] = 10;
+	factor[2] = 100;
+	code = 0;
+
+	for (i = a; i < a + 3; i++) {
+		switch(trigrams[i]) {
+
+		case YYANG:
+		case OYANG:
+			code += factor[i%3]*7;
+			break;
+
+		case OYIN:
+		case YYIN:
+			code += factor[i%3]*8;
+			break;
+		}
+	}
+	return(code);
+}
+
+/*
+ * Compute the changes based on moving lines; return 1 if any lines moved,
+ * 0 if no lines moved.
+ */
+changes()
+{
+	register int cflag;
+	register int i;
+
+	cflag = 0;
+	for (i = 0; i < 6; i++) {
+		if (trigrams[i] == OYIN) {
+			trigrams[i] = YYANG;
+			cflag++;
+		} else if (trigrams[i] == OYANG) {
+			trigrams[i] = YYIN;
+			cflag++;
+		}
+	}
+	return(cflag);
+}
+
+/*
+ * Print the NROFF/TROFF source of a hexagram, given the hexagram number;
+ * if flag is 0, print the entire source; if flag is 1, ignore the meanings
+ * of the lines.
+ */
+phx(hexagram, flag)
+int hexagram;
+int flag;
+{
+	char textln[128+1];		/* buffer for text line */
+	register char *lp;		/* pointer into buffer */
+	register int thishex;		/* number of hexagram just read */
+	int lineno;			/* number of line read in */
+	int allmoving;			/* 1 if all lines are moving */
+	register int i;
+
+	/*
+	 * Search for the hexagram; it begins with a line of the form
+	 * .H <hexagram number> <other data>.
+	 */
+	rewind(chingf);
+	for (;;) {
+		if (fgets(textln, sizeof(textln), chingf) == (char *)NULL) {
+			fprintf(stderr, "ching: Hexagram %d missing\n",
+			    hexagram);
+			exit(3);
+		}
+		lp = &textln[0];
+		if (*lp++ != '.' || *lp++ != 'H')
+			continue;
+		while (*lp++ == ' ')
+			;
+		lp--;
+		thishex = atoi(lp);
+		if (thishex < 1 || thishex > 64)
+			continue;
+		if (thishex == hexagram)
+			break;
+	}
+
+	/*
+	 * Print up to the line commentary, which ends with a line of the form
+	 * .L <position> <value>
+	 */
+	fputs(textln, stdout);
+	for (;;) {
+		if (fgets(textln, sizeof(textln), chingf) == (char *)NULL) {
+			fprintf(stderr, "ching: Hexagram %d malformed\n",
+			    hexagram);
+			exit(3);
+		}
+		lp = &textln[0];
+		if (*lp++ == '.') {
+			if (*lp++ == 'L')
+				break;
+		}
+		fputs(textln, stdout);
+	}
+
+	/*
+	 * Now print the line commentaries, if this is the first hexagram.
+	 */
+	if (flag)
+		return;
+
+	/*
+	 * If a line is moving, print its commentary.
+	 * The text of the commentary ends with a line either of the form
+	 * .L <position> <value>
+	 * or of the form
+	 * .LA <value>
+	 * or of the form
+	 * .H <hexagram number> <other arguments>
+	 */
+	allmoving = 1;
+	for (i = 0; i < 6; i++) {
+		while (*lp++ == ' ')
+			;
+		lp--;
+		lineno = atoi(lp);
+		if (i + 1 != lineno) {
+			fprintf(stderr, "ching: Hexagram %d malformed\n",
+			    hexagram);
+			exit(3);
+		}
+		if (moving[i])
+			fputs(textln, stdout);
+		else
+			allmoving = 0;
+		for (;;) {
+			if (fgets(textln, sizeof(textln), chingf) == (char *)NULL)
+				break;
+			lp = &textln[0];
+			if (*lp++ == '.' && (*lp == 'L' || *lp == 'H')) {
+				lp++;
+				break;
+			}
+			if (moving[i])
+				fputs(textln, stdout);
+		}
+	}
+
+	/*
+	 * If all the lines are moving, print the commentary for that; it
+	 * ends with a line of the form
+	 * .H <hexagram number> <other arguments>
+	 */
+	if (*lp == 'A' && allmoving) {
+		fputs(textln, stdout);
+		for (;;) {
+			if (fgets(textln, sizeof(textln), chingf) == (char *)NULL)
+				break;
+			lp = &textln[0];
+			if (*lp++ == '.' || *lp++ == 'H')
+				break;
+			fputs(textln, stdout);
+		}
+	}
+}
diff --git a/games/ching/phx/pathnames.h b/games/ching/phx/pathnames.h
new file mode 100644
index 0000000..d4ed881
--- /dev/null
+++ b/games/ching/phx/pathnames.h
@@ -0,0 +1,36 @@
+/*-
+ * Copyright (c) 1990, 1993
+ *	The Regents of the University of California.  All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the University of
+ *	California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ *
+ *	@(#)pathnames.h	8.1 (Berkeley) 5/31/93
+ */
+
+#define	_PATH_HEX	"/usr/share/games/ching/hexagrams"
diff --git a/games/factor/Makefile b/games/factor/Makefile
new file mode 100644
index 0000000..0189952
--- /dev/null
+++ b/games/factor/Makefile
@@ -0,0 +1,10 @@
+#	@(#)Makefile	8.1 (Berkeley) 5/31/93
+
+PROG=	factor
+SRCS=	factor.c pr_tbl.c
+CFLAGS+=-I${.CURDIR}/../primes
+MAN6=	factor.6
+MLINKS+=factor.6 primes.6
+.PATH:	${.CURDIR}/../primes
+
+.include <bsd.prog.mk>
diff --git a/games/factor/factor.6 b/games/factor/factor.6
new file mode 100644
index 0000000..7a9ea12
--- /dev/null
+++ b/games/factor/factor.6
@@ -0,0 +1,116 @@
+.\" Copyright (c) 1989, 1993
+.\"	The Regents of the University of California.  All rights reserved.
+.\"
+.\" This code is derived from software contributed to Berkeley by
+.\" Landon Curt Noll.
+.\"
+.\" Redistribution and use in source and binary forms, with or without
+.\" modification, are permitted provided that the following conditions
+.\" are met:
+.\" 1. Redistributions of source code must retain the above copyright
+.\"    notice, this list of conditions and the following disclaimer.
+.\" 2. Redistributions in binary form must reproduce the above copyright
+.\"    notice, this list of conditions and the following disclaimer in the
+.\"    documentation and/or other materials provided with the distribution.
+.\" 3. All advertising materials mentioning features or use of this software
+.\"    must display the following acknowledgement:
+.\"	This product includes software developed by the University of
+.\"	California, Berkeley and its contributors.
+.\" 4. Neither the name of the University nor the names of its contributors
+.\"    may be used to endorse or promote products derived from this software
+.\"    without specific prior written permission.
+.\"
+.\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+.\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+.\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+.\" ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+.\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+.\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+.\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+.\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+.\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+.\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+.\" SUCH DAMAGE.
+.\"
+.\"	@(#)factor.6	8.1 (Berkeley) 5/31/93
+.\"
+.\"
+.\" By: Landon Curt Noll   chongo@toad.com,   ...!{sun,tolsoft}!hoptoad!chongo
+.\"
+.\"   chongo <for a good prime call: 391581 * 2^216193 - 1> /\oo/\
+.\"
+.TH FACTOR 6 "May 31, 1993"
+.UC 7
+.SH NAME
+factor, primes \- factor a number, generate primes
+.SH SYNOPSIS
+.B factor
+[ number ] ...
+.PP
+.B primes
+[ start [ stop ]]
+.SH DESCRIPTION
+The
+.I factor
+utility will factor integers between -2147483648 and 2147483647 inclusive.
+When a number is factored, it is printed, followed by a ``:'',
+and the list of factors on a single line.
+Factors are listed in ascending order, and are preceded by a space.
+If a factor divides a value more than once, it will be printed
+more than once.
+.PP
+When
+.I factor
+is invoked with one or more arguments,
+each argument will be factored.
+.PP
+When
+.I factor
+is invoked with no arguments,
+.I factor
+reads numbers, one per line, from standard input, until end of file or error.
+Leading white-space and empty lines are ignored.
+Numbers may be preceded by a single - or +.
+Numbers are terminated by a non-digit character (such as a newline).
+After a number is read, it is factored.
+Input lines must not be longer than 255 characters.
+.PP
+The
+.I primes
+utility prints primes in ascending order, one per line, starting at or above
+.B start
+and continuing until, but not including
+.B stop.
+The
+.B start 
+value must be at least 0 and not greater than
+.B stop.\&
+The
+.B stop
+value must not be greater than 4294967295.
+The default value of
+.B stop
+is 4294967295.
+.PP
+When the
+.I primes
+utility is invoked with no arguments,
+.B start
+is read from standard input.
+.B Stop
+is taken to be 4294967295.
+The
+.B start
+value may be preceded by a single +.
+The
+.B start
+value is terminated by a non-digit character (such as a newline).
+The input line must not be longer than 255 characters.
+.SH DIAGNOSTICS
+Out of range or invalid input results in `ouch' being 
+written to standard error.
+.SH BUGS
+.I Factor
+cannot handle the ``10 most wanted'' factor list,
+.I primes
+won't get you a world record.
diff --git a/games/factor/factor.c b/games/factor/factor.c
new file mode 100644
index 0000000..562e4b2
--- /dev/null
+++ b/games/factor/factor.c
@@ -0,0 +1,201 @@
+/*
+ * Copyright (c) 1989, 1993
+ *	The Regents of the University of California.  All rights reserved.
+ *
+ * This code is derived from software contributed to Berkeley by
+ * Landon Curt Noll.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the University of
+ *	California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ */
+
+#ifndef lint
+static char copyright[] =
+"@(#) Copyright (c) 1989, 1993\n\
+	The Regents of the University of California.  All rights reserved.\n";
+#endif /* not lint */
+
+#ifndef lint
+static char sccsid[] = "@(#)factor.c	8.3 (Berkeley) 3/30/94";
+#endif /* not lint */
+
+/*
+ * factor - factor a number into primes
+ *
+ * By: Landon Curt Noll   chongo@toad.com,   ...!{sun,tolsoft}!hoptoad!chongo
+ *
+ *   chongo <for a good prime call: 391581 * 2^216193 - 1> /\oo/\
+ *
+ * usage:
+ *	factor [number] ...
+ *
+ * The form of the output is:
+ *
+ *	number: factor1 factor1 factor2 factor3 factor3 factor3 ...
+ *
+ * where factor1 < factor2 < factor3 < ...
+ *
+ * If no args are given, the list of numbers are read from stdin.
+ */
+
+#include <err.h>
+#include <ctype.h>
+#include <errno.h>
+#include <limits.h>
+#include <stdio.h>
+#include <stdlib.h>
+
+#include "primes.h"
+
+/*
+ * prime[i] is the (i-1)th prime.
+ *
+ * We are able to sieve 2^32-1 because this byte table yields all primes 
+ * up to 65537 and 65537^2 > 2^32-1.
+ */
+extern ubig prime[];
+extern ubig *pr_limit;		/* largest prime in the prime array */
+
+void	pr_fact __P((ubig));	/* print factors of a value */
+void	usage __P((void));
+
+int
+main(argc, argv)
+	int argc;
+	char *argv[];
+{
+	ubig val;
+	int ch;
+	char *p, buf[100];		/* > max number of digits. */
+
+	while ((ch = getopt(argc, argv, "")) != EOF)
+		switch (ch) {
+		case '?':
+		default:
+			usage();
+		}
+	argc -= optind;
+	argv += optind;
+
+	/* No args supplied, read numbers from stdin. */
+	if (argc == 0)
+		for (;;) {
+			if (fgets(buf, sizeof(buf), stdin) == NULL) {
+				if (ferror(stdin))
+					err(1, "stdin");
+				exit (0);
+			}
+			for (p = buf; isblank(*p); ++p);
+			if (*p == '\n' || *p == '\0')
+				continue;
+			if (*p == '-')
+				errx(1, "negative numbers aren't permitted.");
+			errno = 0;
+			val = strtoul(buf, &p, 10);
+			if (errno)
+				err(1, "%s", buf);
+			if (*p != '\n')
+				errx(1, "%s: illegal numeric format.", buf);
+			pr_fact(val);
+		}
+	/* Factor the arguments. */
+	else
+		for (; *argv != NULL; ++argv) {
+			if (argv[0][0] == '-')
+				errx(1, "negative numbers aren't permitted.");
+			errno = 0;
+			val = strtoul(argv[0], &p, 10);
+			if (errno)
+				err(1, "%s", argv[0]);
+			if (*p != '\0')
+				errx(1, "%s: illegal numeric format.", argv[0]);
+			pr_fact(val);
+		}
+	exit(0);
+}
+
+/*
+ * pr_fact - print the factors of a number
+ *
+ * If the number is 0 or 1, then print the number and return.
+ * If the number is < 0, print -1, negate the number and continue
+ * processing.
+ *
+ * Print the factors of the number, from the lowest to the highest.
+ * A factor will be printed numtiple times if it divides the value
+ * multiple times.
+ *
+ * Factors are printed with leading tabs.
+ */
+void
+pr_fact(val)
+	ubig val;		/* Factor this value. */
+{
+	ubig *fact;		/* The factor found. */
+
+	/* Firewall - catch 0 and 1. */
+	if (val == 0)		/* Historical practice; 0 just exits. */
+		exit(0);
+	if (val == 1) {
+		(void)printf("1: 1\n");
+		return;
+	}
+
+	/* Factor value. */
+	(void)printf("%lu:", val);
+	for (fact = &prime[0]; val > 1; ++fact) {
+		/* Look for the smallest factor. */
+		do {
+			if (val % (long)*fact == 0)
+				break;
+		} while (++fact <= pr_limit);
+
+		/* Watch for primes larger than the table. */
+		if (fact > pr_limit) {
+			(void)printf(" %lu", val);
+			break;
+		}
+
+		/* Divide factor out until none are left. */
+		do {
+			(void)printf(" %lu", *fact);
+			val /= (long)*fact;
+		} while ((val % (long)*fact) == 0);
+
+		/* Let the user know we're doing something. */
+		(void)fflush(stdout);
+	}
+	(void)putchar('\n');
+}
+
+void
+usage()
+{
+	(void)fprintf(stderr, "usage: factor [value ...]\n");
+	exit (0);
+}
diff --git a/games/hack/hack.onames.h b/games/hack/hack.onames.h
new file mode 100644
index 0000000..c0fe81e
--- /dev/null
+++ b/games/hack/hack.onames.h
@@ -0,0 +1,227 @@
+#define	STRANGE_OBJECT	0
+#define	AMULET_OF_YENDOR	1
+#define	FOOD_RATION	2
+#define	TRIPE_RATION	3
+#define	PANCAKE	4
+#define	DEAD_LIZARD	5
+#define	FORTUNE_COOKIE	6
+#define	CARROT	7
+#define	TIN	8
+#define	ORANGE	9
+#define	APPLE	10
+#define	PEAR	11
+#define	MELON	12
+#define	BANANA	13
+#define	CANDY_BAR	14
+#define	EGG	15
+#define	CLOVE_OF_GARLIC	16
+#define	LUMP_OF_ROYAL_JELLY	17
+#define	DEAD_HUMAN	18
+#define	DEAD_GIANT_ANT	19
+#define	DEAD_GIANT_BAT	20
+#define	DEAD_CENTAUR	21
+#define	DEAD_DRAGON	22
+#define	DEAD_FLOATING_EYE	23
+#define	DEAD_FREEZING_SPHERE	24
+#define	DEAD_GNOME	25
+#define	DEAD_HOBGOBLIN	26
+#define	DEAD_STALKER	27
+#define	DEAD_JACKAL	28
+#define	DEAD_KOBOLD	29
+#define	DEAD_LEPRECHAUN	30
+#define	DEAD_MIMIC	31
+#define	DEAD_NYMPH	32
+#define	DEAD_ORC	33
+#define	DEAD_PURPLE_WORM	34
+#define	DEAD_QUASIT	35
+#define	DEAD_RUST_MONSTER	36
+#define	DEAD_SNAKE	37
+#define	DEAD_TROLL	38
+#define	DEAD_UMBER_HULK	39
+#define	DEAD_VAMPIRE	40
+#define	DEAD_WRAITH	41
+#define	DEAD_XORN	42
+#define	DEAD_YETI	43
+#define	DEAD_ZOMBIE	44
+#define	DEAD_ACID_BLOB	45
+#define	DEAD_GIANT_BEETLE	46
+#define	DEAD_COCKATRICE	47
+#define	DEAD_DOG	48
+#define	DEAD_ETTIN	49
+#define	DEAD_FOG_CLOUD	50
+#define	DEAD_GELATINOUS_CUBE	51
+#define	DEAD_HOMUNCULUS	52
+#define	DEAD_IMP	53
+#define	DEAD_JAGUAR	54
+#define	DEAD_KILLER_BEE	55
+#define	DEAD_LEOCROTTA	56
+#define	DEAD_MINOTAUR	57
+#define	DEAD_NURSE	58
+#define	DEAD_OWLBEAR	59
+#define	DEAD_PIERCER	60
+#define	DEAD_QUIVERING_BLOB	61
+#define	DEAD_GIANT_RAT	62
+#define	DEAD_GIANT_SCORPION	63
+#define	DEAD_TENGU	64
+#define	DEAD_UNICORN	65
+#define	DEAD_VIOLET_FUNGI	66
+#define	DEAD_LONG_WORM	67
+#define	DEAD_XAN	68
+#define	DEAD_YELLOW_LIGHT	69
+#define	DEAD_ZRUTY	70
+#define	ARROW	71
+#define	SLING_BULLET	72
+#define	CROSSBOW_BOLT	73
+#define	DART	74
+#define	ROCK	75
+#define	BOOMERANG	76
+#define	MACE	77
+#define	AXE	78
+#define	FLAIL	79
+#define	LONG_SWORD	80
+#define	TWO_HANDED_SWORD	81
+#define	DAGGER	82
+#define	WORM_TOOTH	83
+#define	CRYSKNIFE	84
+#define	SPEAR	85
+#define	BOW	86
+#define	SLING	87
+#define	CROSSBOW	88
+#define	WHISTLE	89
+#define	MAGIC_WHISTLE	90
+#define	EXPENSIVE_CAMERA	91
+#define	ICE_BOX	92
+#define	PICK_AXE	93
+#define	CAN_OPENER	94
+#define	HEAVY_IRON_BALL	95
+#define	IRON_CHAIN	96
+#define	ENORMOUS_ROCK	97
+#define	HELMET	98
+#define	PLATE_MAIL	99
+#define	SPLINT_MAIL	100
+#define	BANDED_MAIL	101
+#define	CHAIN_MAIL	102
+#define	SCALE_MAIL	103
+#define	RING_MAIL	104
+#define	STUDDED_LEATHER_ARMOR	105
+#define	LEATHER_ARMOR	106
+#define	ELVEN_CLOAK	107
+#define	SHIELD	108
+#define	PAIR_OF_GLOVES	109
+#define	POT_RESTORE_STRENGTH	110
+#define	POT_BOOZE	111
+#define	POT_INVISIBILITY	112
+#define	POT_FRUIT_JUICE	113
+#define	POT_HEALING	114
+#define	POT_PARALYSIS	115
+#define	POT_MONSTER_DETECTION	116
+#define	POT_OBJECT_DETECTION	117
+#define	POT_SICKNESS	118
+#define	POT_CONFUSION	119
+#define	POT_GAIN_STRENGTH	120
+#define	POT_SPEED	121
+#define	POT_BLINDNESS	122
+#define	POT_GAIN_LEVEL	123
+#define	POT_EXTRA_HEALING	124
+#define	POT_LEVITATION	125
+#define	SCR_MAIL	130
+#define	SCR_ENCHANT_ARMOR	131
+#define	SCR_DESTROY_ARMOR	132
+#define	SCR_CONFUSE_MONSTER	133
+#define	SCR_SCARE_MONSTER	134
+#define	SCR_BLANK_PAPER	135
+#define	SCR_REMOVE_CURSE	136
+#define	SCR_ENCHANT_WEAPON	137
+#define	SCR_DAMAGE_WEAPON	138
+#define	SCR_CREATE_MONSTER	139
+#define	SCR_TAMING	140
+#define	SCR_GENOCIDE	141
+#define	SCR_LIGHT	142
+#define	SCR_TELEPORTATION	143
+#define	SCR_GOLD_DETECTION	144
+#define	SCR_FOOD_DETECTION	145
+#define	SCR_IDENTIFY	146
+#define	SCR_MAGIC_MAPPING	147
+#define	SCR_AMNESIA	148
+#define	SCR_FIRE	149
+#define	SCR_PUNISHMENT	150
+#define	WAN_LIGHT	155
+#define	WAN_SECRET_DOOR_DETECTION	156
+#define	WAN_CREATE_MONSTER	157
+#define	WAN_WISHING	158
+#define	WAN_STRIKING	159
+#define	WAN_SLOW_MONSTER	160
+#define	WAN_SPEED_MONSTER	161
+#define	WAN_UNDEAD_TURNING	162
+#define	WAN_POLYMORPH	163
+#define	WAN_CANCELLATION	164
+#define	WAN_TELEPORTATION	165
+#define	WAN_MAKE_INVISIBLE	166
+#define	WAN_DIGGING	167
+#define	WAN_MAGIC_MISSILE	168
+#define	WAN_FIRE	169
+#define	WAN_SLEEP	170
+#define	WAN_COLD	171
+#define	WAN_DEATH	172
+#define	Adornment	u.uprops[0].p_flgs
+#define	RIN_ADORNMENT	176
+#define	Teleportation	u.uprops[1].p_flgs
+#define	RIN_TELEPORTATION	177
+#define	Regeneration	u.uprops[2].p_flgs
+#define	RIN_REGENERATION	178
+#define	Searching	u.uprops[3].p_flgs
+#define	RIN_SEARCHING	179
+#define	See_invisible	u.uprops[4].p_flgs
+#define	RIN_SEE_INVISIBLE	180
+#define	Stealth	u.uprops[5].p_flgs
+#define	RIN_STEALTH	181
+#define	Levitation	u.uprops[6].p_flgs
+#define	RIN_LEVITATION	182
+#define	Poison_resistance	u.uprops[7].p_flgs
+#define	RIN_POISON_RESISTANCE	183
+#define	Aggravate_monster	u.uprops[8].p_flgs
+#define	RIN_AGGRAVATE_MONSTER	184
+#define	Hunger	u.uprops[9].p_flgs
+#define	RIN_HUNGER	185
+#define	Fire_resistance	u.uprops[10].p_flgs
+#define	RIN_FIRE_RESISTANCE	186
+#define	Cold_resistance	u.uprops[11].p_flgs
+#define	RIN_COLD_RESISTANCE	187
+#define	Protection_from_shape_changers	u.uprops[12].p_flgs
+#define	RIN_PROTECTION_FROM_SHAPE_CHANGERS	188
+#define	Conflict	u.uprops[13].p_flgs
+#define	RIN_CONFLICT	189
+#define	Gain_strength	u.uprops[14].p_flgs
+#define	RIN_GAIN_STRENGTH	190
+#define	Increase_damage	u.uprops[15].p_flgs
+#define	RIN_INCREASE_DAMAGE	191
+#define	Protection	u.uprops[16].p_flgs
+#define	RIN_PROTECTION	192
+#define	Warning	u.uprops[17].p_flgs
+#define	RIN_WARNING	193
+#define	Teleport_control	u.uprops[18].p_flgs
+#define	RIN_TELEPORT_CONTROL	194
+#define	DIAMOND	197
+#define	RUBY	198
+#define	SAPPHIRE	199
+#define	EMERALD	200
+#define	TURQUOISE	201
+#define	AQUAMARINE	202
+#define	TOURMALINE	203
+#define	TOPAZ	204
+#define	OPAL	205
+#define	GARNET	206
+#define	AMETHYST	207
+#define	AGATE	208
+#define	ONYX	209
+#define	JASPER	210
+#define	JADE	211
+/* #define WORTHLESS_PIECE_OF_BLUE_GLASS	212 */
+/* #define WORTHLESS_PIECE_OF_RED_GLASS	213 */
+/* #define WORTHLESS_PIECE_OF_YELLOW_GLASS	214 */
+/* #define WORTHLESS_PIECE_OF_GREEN_GLASS	215 */
+
+#define	CORPSE	DEAD_HUMAN
+#define	LAST_GEM	(JADE+1)
+#define	LAST_RING	19
+#define	NROFOBJECTS	215
diff --git a/games/monop/Makefile b/games/monop/Makefile
new file mode 100644
index 0000000..a1e8f2d
--- /dev/null
+++ b/games/monop/Makefile
@@ -0,0 +1,26 @@
+#	@(#)Makefile	8.1 (Berkeley) 5/31/93
+
+PROG=	monop
+SRCS=	monop.c cards.c execute.c getinp.c houses.c jail.c misc.c morg.c \
+	print.c prop.c rent.c roll.c spec.c trade.c
+MAN6=	monop.6
+DPADD=	${LIBCOMPAT}
+LDADD=	-lcompat
+HIDEGAME=hidegame
+CLEANFILES+=initdeck cards.pck
+
+all: ${PROG} ${MAN6}
+
+monop: cards.pck
+
+cards.pck: initdeck
+	./initdeck ${.CURDIR}/cards.inp
+
+initdeck: initdeck.c
+	${CC} ${CFLAGS} -o ${.TARGET} ${.CURDIR}/initdeck.c
+
+beforeinstall:
+	install -c -o ${BINOWN} -g ${BINGRP} -m 444 cards.pck \
+	    ${DESTDIR}/usr/share/games
+
+.include <bsd.prog.mk>
diff --git a/games/monop/brd.dat b/games/monop/brd.dat
new file mode 100644
index 0000000..ff8498d
--- /dev/null
+++ b/games/monop/brd.dat
@@ -0,0 +1,78 @@
+/*-
+ * Copyright (c) 1980, 1993
+ *	The Regents of the University of California.  All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the University of
+ *	California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ *
+ *	@(#)brd.dat	5.5 (Berkeley) 5/31/93
+ */
+
+/* name (COLOR)			owner	type	desc		cost	*/
+
+{"=== GO ===",			-1,	SAFE,	0			},
+{"Mediterranean ave. (P)",	-1,	PRPTY,	&prop[0],	60	},
+{"Community Chest i",		-1,	CC,				},
+{"Baltic ave. (P)",		-1,	PRPTY,	&prop[1],	60	},
+{"Income Tax",			-1,	INC_TAX,			},
+{"Reading RR",			-1,	RR,	&rr[0],		200	},
+{"Oriental ave. (L)",		-1,	PRPTY,	&prop[2],	100	},
+{"Chance i",			-1,	CHANCE,				},
+{"Vermont ave. (L)",		-1,	PRPTY,	&prop[3],	100	},
+{"Connecticut ave. (L)",	-1,	PRPTY,	&prop[4],	120	},
+{"Just Visiting",		-1,	SAFE,	0			},
+{"St. Charles pl. (V)",		-1,	PRPTY,	&prop[5],	140	},
+{"Electric Co.",		-1,	UTIL,	&util[0],	150	},
+{"States ave. (V)",		-1,	PRPTY,	&prop[6],	140	},
+{"Virginia ave. (V)",		-1,	PRPTY,	&prop[7],	160	},
+{"Pennsylvania RR",		-1,	RR,	&rr[1],		200	},
+{"St. James pl. (O)",		-1,	PRPTY,	&prop[8],	180	},
+{"Community Chest ii",		-1,	CC,				},
+{"Tennessee ave. (O)",		-1,	PRPTY,	&prop[9],	180	},
+{"New York ave. (O)",		-1,	PRPTY,	&prop[10],	200	},
+{"Free Parking",		-1,	SAFE,	0			},
+{"Kentucky ave. (R)",		-1,	PRPTY,	&prop[11],	220	},
+{"Chance ii",			-1,	CHANCE,				},
+{"Indiana ave. (R)",		-1,	PRPTY,	&prop[12],	220	},
+{"Illinois ave. (R)",		-1,	PRPTY,	&prop[13],	240	},
+{"B&O RR",			-1,	RR,	&rr[2],		200	},
+{"Atlantic ave. (Y)",		-1,	PRPTY,	&prop[14],	260	},
+{"Ventnor ave. (Y)",		-1,	PRPTY,	&prop[15],	260	},
+{"Water Works",			-1,	UTIL,	&util[1],	150	},
+{"Marvin Gardens (Y)",		-1,	PRPTY,	&prop[16],	280	},
+{"GO TO JAIL",			-1,	GOTO_J,				},
+{"Pacific ave. (G)",		-1,	PRPTY,	&prop[17],	300	},
+{"N. Carolina ave. (G)",	-1,	PRPTY,	&prop[18],	300	},
+{"Community Chest iii",		-1,	CC,				},
+{"Pennsylvania ave. (G)",	-1,	PRPTY,	&prop[19],	320	},
+{"Short Line RR",		-1,	RR,	&rr[3],		200	},
+{"Chance iii",			-1,	CHANCE,				},
+{"Park place (D)",		-1,	PRPTY,	&prop[20],	350	},
+{"Luxury Tax",			-1,	LUX_TAX,			},
+{"Boardwalk (D)",		-1,	PRPTY,	&prop[21],	400	},
+{"JAIL",			-1,	IN_JAIL,				}
diff --git a/games/monop/cards.c b/games/monop/cards.c
new file mode 100644
index 0000000..7424820
--- /dev/null
+++ b/games/monop/cards.c
@@ -0,0 +1,208 @@
+/*
+ * Copyright (c) 1980, 1993
+ *	The Regents of the University of California.  All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the University of
+ *	California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ */
+
+#ifndef lint
+static char sccsid[] = "@(#)cards.c	8.1 (Berkeley) 5/31/93";
+#endif /* not lint */
+
+# include	"monop.ext"
+# include	"pathnames.h"
+
+/*
+ *	These routine deal with the card decks
+ */
+
+# define	GOJF	'F'	/* char for get-out-of-jail-free cards	*/
+
+# ifndef DEV
+static char	*cardfile	= _PATH_CARDS;
+# else
+static char	*cardfile	= "cards.pck";
+# endif
+
+static FILE	*deckf;
+
+/*
+ *	This routine initializes the decks from the data file,
+ * which it opens.
+ */
+init_decks() {
+
+	if ((deckf=fopen(cardfile, "r")) == NULL) {
+file_err:
+		perror(cardfile);
+		exit(1);
+	}
+	if (fread(deck, sizeof (DECK), 2, deckf) != 2)
+		goto file_err;
+	set_up(&CC_D);
+	set_up(&CH_D);
+}
+/*
+ *	This routine sets up the offset pointers for the given deck.
+ */
+set_up(dp)
+DECK	*dp; {
+
+	reg int	r1, r2;
+	int	i;
+
+	dp->offsets = (long *) calloc(sizeof (long), dp->num_cards);
+	if (fread(dp->offsets, sizeof(long), dp->num_cards, deckf) != dp->num_cards) {
+		perror(cardfile);
+		exit(1);
+	}
+	dp->last_card = 0;
+	dp->gojf_used = FALSE;
+	for (i = 0; i < dp->num_cards; i++) {
+		reg long	temp;
+
+		r1 = roll(1, dp->num_cards) - 1;
+		r2 = roll(1, dp->num_cards) - 1;
+		temp = dp->offsets[r2];
+		dp->offsets[r2] = dp->offsets[r1];
+		dp->offsets[r1] = temp;
+	}
+}
+/*
+ *	This routine draws a card from the given deck
+ */
+get_card(dp)
+DECK	*dp; {
+
+	reg char	type_maj, type_min;
+	reg int		num;
+	int		i, per_h, per_H, num_h, num_H;
+	OWN		*op;
+
+	do {
+		fseek(deckf, dp->offsets[dp->last_card], 0);
+		dp->last_card = ++(dp->last_card) % dp->num_cards;
+		type_maj = getc(deckf);
+	} while (dp->gojf_used && type_maj == GOJF);
+	type_min = getc(deckf);
+	num = getw(deckf);
+	printmes();
+	switch (type_maj) {
+	  case '+':		/* get money		*/
+		if (type_min == 'A') {
+			for (i = 0; i < num_play; i++)
+				if (i != player)
+					play[i].money -= num;
+			num = num * (num_play - 1);
+		}
+		cur_p->money += num;
+		break;
+	  case '-':		/* lose money		*/
+		if (type_min == 'A') {
+			for (i = 0; i < num_play; i++)
+				if (i != player)
+					play[i].money += num;
+			num = num * (num_play - 1);
+		}
+		cur_p->money -= num;
+		break;
+	  case 'M':		/* move somewhere	*/
+		switch (type_min) {
+		  case 'F':		/* move forward	*/
+			num -= cur_p->loc;
+			if (num < 0)
+				num += 40;
+			break;
+		  case 'J':		/* move to jail	*/
+			goto_jail();
+			return;
+		  case 'R':		/* move to railroad	*/
+			spec = TRUE;
+			num = (int)((cur_p->loc + 5)/10)*10 + 5 - cur_p->loc;
+			break;
+		  case 'U':		/* move to utility	*/
+			spec = TRUE;
+			if (cur_p->loc >= 12 && cur_p->loc < 28)
+				num = 28 - cur_p->loc;
+			else {
+				num = 12 - cur_p->loc;
+				if (num < 0)
+					num += 40;
+			}
+			break;
+		  case 'B':
+			num = -num;
+			break;
+		}
+		move(num);
+		break;
+	  case 'T':			/* tax			*/
+		if (dp == &CC_D) {
+			per_h = 40;
+			per_H = 115;
+		}
+		else {
+			per_h = 25;
+			per_H = 100;
+		}
+		num_h = num_H = 0;
+		for (op = cur_p->own_list; op; op = op->next)
+			if (op->sqr->type == PRPTY)
+				if (op->sqr->desc->houses == 5)
+					++num_H;
+				else
+					num_h += op->sqr->desc->houses;
+		num = per_h * num_h + per_H * num_H;
+		printf("You had %d Houses and %d Hotels, so that cost you $%d\n", num_h, num_H, num);
+		if (num == 0)
+			lucky("");
+		else
+			cur_p->money -= num;
+		break;
+	  case GOJF:		/* get-out-of-jail-free card	*/
+		cur_p->num_gojf++;
+		dp->gojf_used = TRUE;
+		break;
+	}
+	spec = FALSE;
+}
+/*
+ *	This routine prints out the message on the card
+ */
+printmes() {
+
+	reg char	c;
+
+	printline();
+	fflush(stdout);
+	while ((c = getc(deckf)) != '\0')
+		putchar(c);
+	printline();
+	fflush(stdout);
+}
diff --git a/games/monop/cards.inp b/games/monop/cards.inp
new file mode 100644
index 0000000..1867e87
--- /dev/null
+++ b/games/monop/cards.inp
@@ -0,0 +1,122 @@
+FF
+>> GET OUT OF JAIL FREE <<
+Keep this card until needed or sold
+%%
+++25
+Receive for Services $25.
+%%
+++200
+Bank Error in Your Favor.
+Collect $200.
+%%
+++20
+Income Tax Refund.
+Collect $20.
+%%
+--100
+Pay Hospital $100
+%%
+++100
+Life Insurance Matures.
+Collect $100
+%%
+++45
+From sale of Stock You get $45.
+%%
+TX
+You are Assessed for street repairs.
+	$40 per House
+	$115 per Hotel
+%%
+++100
+X-mas Fund Matures.
+Collect $100.
+%%
+++11
+You have won Second Prize in a Beauty Contest
+Collect $11
+%%
+MF0
+Advance to GO
+(Collect $200)
+%%
+++100
+You inherit $100
+%%
+--150
+Pay School Tax of $150.
+%%
+MJ
+		>> GO TO JAIL <<
+Go Directly to Jail. Do not pass GO  Do not collect $200.
+%%
++A50
+		>> GRAND OPERA OPENING <<
+Collect $50 from each player for opening night seats.
+%%
+--50
+Doctor's Fee:  Pay $50.
+%-
+FF
+>> GET OUT OF JAIL FREE <<
+Keep this card until needed or sold
+%%
+MR
+Advance to the nearest Railroad, and pay owner
+Twice the rental to which he is otherwise entitled.
+If Railroad is unowned you may buy it from the bank
+%%
+MU
+Advance to the nearest Utility.
+If unowned, you may buy it from the bank.
+If owned, throw dice and pay oner a total of ten times
+the amount thrown.
+%%
+MB3
+Go Back 3 Spaces
+%%
+MR
+Advance to the nearest Railroad, and pay owner
+Twice the rental to which he is otherwise entitled.
+If Railroad is unowned you may buy it from the bank
+%%
+MJ
+    >> GO DIRECTLY TO JAIL <<
+Do not pass GO, Do not Collect $200.
+%%
+MF5
+Take a Ride on the Reading.
+If you pass GO, collect $200.
+%%
+MF39
+Take a Walk on the Board Walk.
+    (Advance To Board Walk)
+%%
+MF24
+Advance to Illinos Ave.
+%%
+MF0
+Advance to Go
+%%
+MF11
+Advance to St. Charles Place.
+If you pass GO, collect $200.
+%%
+TX
+Make general repairs on all of your Property.
+For Each House pay $25.
+For Each Hotel pay $100.
+%%
+-A50
+You have been elected Chairman of the Board.
+Pay each player $50.
+%%
+--15
+Pay Poor Tax of $15
+%%
+++50
+Bank pays you Dividend of $50.
+%%
+++150
+Your Building and Loan Matures.
+Collect $150.
diff --git a/games/monop/deck.h b/games/monop/deck.h
new file mode 100644
index 0000000..604937d
--- /dev/null
+++ b/games/monop/deck.h
@@ -0,0 +1,48 @@
+/*
+ * Copyright (c) 1980, 1993
+ *	The Regents of the University of California.  All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the University of
+ *	California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ *
+ *	@(#)deck.h	8.1 (Berkeley) 5/31/93
+ */
+
+# define	bool	char
+
+# define	CC_D	deck[0]
+# define	CH_D	deck[1]
+
+struct dk_st {			/* deck description structure		*/
+	int	num_cards;		/* number of cards in deck	*/
+	int	last_card;		/* number of last card picked	*/
+	bool	gojf_used;		/* set if gojf card out of deck	*/
+	long	*offsets;		/* offests for start of cards	*/
+};
+
+typedef struct dk_st	DECK;
diff --git a/games/monop/execute.c b/games/monop/execute.c
new file mode 100644
index 0000000..f770432
--- /dev/null
+++ b/games/monop/execute.c
@@ -0,0 +1,262 @@
+/*
+ * Copyright (c) 1980, 1993
+ *	The Regents of the University of California.  All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the University of
+ *	California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ */
+
+#ifndef lint
+static char sccsid[] = "@(#)execute.c	8.1 (Berkeley) 5/31/93";
+#endif /* not lint */
+
+# include	"monop.ext"
+# include	<sys/types.h>
+# include	<sys/stat.h>
+# include	<sys/time.h>
+
+# define	SEGSIZE	8192
+
+typedef	struct stat	STAT;
+typedef	struct tm	TIME;
+
+extern char	etext[],	/* end of text space			*/
+		rub();
+
+static char	buf[257],
+		*yn_only[]	= { "yes", "no"};
+
+static bool	new_play;	/* set if move on to new player		*/
+
+/*
+ *	This routine executes the given command by index number
+ */
+execute(com_num)
+reg int	com_num; {
+
+	new_play = FALSE;	/* new_play is true if fixing	*/
+	(*func[com_num])();
+	notify();
+	force_morg();
+	if (new_play)
+		next_play();
+	else if (num_doub)
+		printf("%s rolled doubles.  Goes again\n", cur_p->name);
+}
+/*
+ *	This routine moves a piece around.
+ */
+do_move() {
+
+	reg int		r1, r2;
+	reg bool	was_jail;
+
+	new_play = was_jail = FALSE;
+	printf("roll is %d, %d\n", r1=roll(1, 6), r2=roll(1, 6));
+	if (cur_p->loc == JAIL) {
+		was_jail++;
+		if (!move_jail(r1, r2)) {
+			new_play++;
+			goto ret;
+		}
+	}
+	else {
+		if (r1 == r2 && ++num_doub == 3) {
+			printf("That's 3 doubles.  You go to jail\n");
+			goto_jail();
+			new_play++;
+			goto ret;
+		}
+		move(r1+r2);
+	}
+	if (r1 != r2 || was_jail)
+		new_play++;
+ret:
+	return;
+}
+/*
+ *	This routine moves a normal move
+ */
+move(rl)
+reg int	rl; {
+
+	reg int	old_loc;
+
+	old_loc = cur_p->loc;
+	cur_p->loc = (cur_p->loc + rl) % N_SQRS;
+	if (cur_p->loc < old_loc && rl > 0) {
+		cur_p->money += 200;
+		printf("You pass %s and get $200\n", board[0].name);
+	}
+	show_move();
+}
+/*
+ *	This routine shows the results of a move
+ */
+show_move() {
+
+	reg SQUARE	*sqp;
+
+	sqp = &board[cur_p->loc];
+	printf("That puts you on %s\n", sqp->name);
+	switch (sqp->type) {
+	  case SAFE:
+		printf("That is a safe place\n");
+		break;
+	  case CC:
+		cc(); break;
+	  case CHANCE:
+		chance(); break;
+	  case INC_TAX:
+		inc_tax(); break;
+	  case GOTO_J:
+		goto_jail(); break;
+	  case LUX_TAX:
+		lux_tax(); break;
+	  case PRPTY:
+	  case RR:
+	  case UTIL:
+		if (sqp->owner < 0) {
+			printf("That would cost $%d\n", sqp->cost);
+			if (getyn("Do you want to buy? ") == 0) {
+				buy(player, sqp);
+				cur_p->money -= sqp->cost;
+			}
+			else if (num_play > 2)
+				bid(sqp);
+		}
+		else if (sqp->owner == player)
+			printf("You own it.\n");
+		else
+			rent(sqp);
+	}
+}
+/*
+ *	This routine saves the current game for use at a later date
+ */
+save() {
+
+	reg char	*sp;
+	reg int		outf, num;
+	time_t		t;
+	int		*dat_end;
+	struct stat	sb;
+	unsgn		start, end;
+
+	printf("Which file do you wish to save it in? ");
+	sp = buf;
+	while ((*sp++=getchar()) != '\n')
+		continue;
+	*--sp = '\0';
+
+	/*
+	 * check for existing files, and confirm overwrite if needed
+	 */
+
+	if (stat(buf, &sb) > -1
+	    && getyn("File exists.  Do you wish to overwrite? ", yn_only) > 0)
+		return;
+
+	if ((outf=creat(buf, 0644)) < 0) {
+		perror(buf);
+		return;
+	}
+	printf("\"%s\" ", buf);
+	time(&t);			/* get current time		*/
+	strcpy(buf, ctime(&t));
+	for (sp = buf; *sp != '\n'; sp++)
+		continue;
+	*sp = '\0';
+# if 0
+	start = (((int) etext + (SEGSIZE-1)) / SEGSIZE ) * SEGSIZE;
+# else
+	start = 0;
+# endif
+	end = sbrk(0);
+	while (start < end) {		/* write out entire data space */
+		num = start + 16 * 1024 > end ? end - start : 16 * 1024;
+		write(outf, start, num);
+		start += num;
+	}
+	close(outf);
+	printf("[%s]\n", buf);
+}
+/*
+ *	This routine restores an old game from a file
+ */
+restore() {
+
+	reg char	*sp;
+
+	printf("Which file do you wish to restore from? ");
+	for (sp = buf; (*sp=getchar()) != '\n'; sp++)
+		continue;
+	*sp = '\0';
+	rest_f(buf);
+}
+/*
+ *	This does the actual restoring.  It returns TRUE if the
+ * backup was successful, else false.
+ */
+rest_f(file)
+reg char	*file; {
+
+	reg char	*sp;
+	reg int		inf, num;
+	char		buf[80];
+	unsgn		start, end;
+	STAT		sbuf;
+
+	if ((inf=open(file, 0)) < 0) {
+		perror(file);
+		return FALSE;
+	}
+	printf("\"%s\" ", file);
+	if (fstat(inf, &sbuf) < 0) {		/* get file stats	*/
+		perror(file);
+		exit(1);
+	}
+# if 0
+	start = (((int) etext + (SEGSIZE-1)) / SEGSIZE ) * SEGSIZE;
+# else
+	start = 0;
+# endif
+	brk(end = start + sbuf.st_size);
+	while (start < end) {		/* write out entire data space */
+		num = start + 16 * 1024 > end ? end - start : 16 * 1024;
+		read(inf, start, num);
+		start += num;
+	}
+	close(inf);
+	strcpy(buf, ctime(&sbuf.st_mtime));
+	for (sp = buf; *sp != '\n'; sp++)
+		continue;
+	*sp = '\0';
+	printf("[%s]\n", buf);
+	return TRUE;
+}
diff --git a/games/monop/getinp.c b/games/monop/getinp.c
new file mode 100644
index 0000000..3a4b9d7
--- /dev/null
+++ b/games/monop/getinp.c
@@ -0,0 +1,116 @@
+/*
+ * Copyright (c) 1980, 1993
+ *	The Regents of the University of California.  All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the University of
+ *	California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ */
+
+#ifndef lint
+static char sccsid[] = "@(#)getinp.c	8.1 (Berkeley) 5/31/93";
+#endif /* not lint */
+
+# include	<stdio.h>
+# include	<ctype.h>
+
+# define	reg	register
+
+# define	LINE	70
+
+static char	buf[257];
+
+getinp(prompt, list)
+char	*prompt, *list[]; {
+
+	reg int	i, n_match, match;
+	char	*sp;
+	int	plen;
+	static int comp();
+
+	for (;;) {
+inter:
+		printf(prompt);
+		for (sp = buf; (*sp=getchar()) != '\n'; )
+			if (*sp == -1)	/* check for interupted system call */
+				goto inter;
+			else if (sp != buf || *sp != ' ')
+				sp++;
+		if (buf[0] == '?' && buf[1] == '\n') {
+			printf("Valid inputs are: ");
+			for (i = 0, match = 18; list[i]; i++) {
+				if ((match+=(n_match=strlen(list[i]))) > LINE) {
+					printf("\n\t");
+					match = n_match + 8;
+				}
+				if (*list[i] == '\0') {
+					match += 8;
+					printf("<RETURN>");
+				}
+				else
+					printf(list[i]);
+				if (list[i+1])
+					printf(", ");
+				else
+					putchar('\n');
+				match += 2;
+			}
+			continue;
+		}
+		*sp = '\0';
+		for (sp = buf; *sp; sp++)
+			if (isupper(*sp))
+				*sp = tolower(*sp);
+		for (i = n_match = 0; list[i]; i++)
+			if (comp(list[i])) {
+				n_match++;
+				match = i;
+			}
+		if (n_match == 1)
+			return match;
+		else if (buf[0] != '\0')
+			printf("Illegal response: \"%s\".  Use '?' to get list of valid answers\n", buf);
+	}
+}
+
+static
+comp(s1)
+char	*s1; {
+
+	reg char	*sp, *tsp, c;
+
+	if (buf[0] != '\0')
+		for (sp = buf, tsp = s1; *sp; ) {
+			c = isupper(*tsp) ? tolower(*tsp) : *tsp;
+			tsp++;
+			if (c != *sp++)
+				return 0;
+		}
+	else if (*s1 != '\0')
+		return 0;
+	return 1;
+}
diff --git a/games/monop/houses.c b/games/monop/houses.c
new file mode 100644
index 0000000..5134c20
--- /dev/null
+++ b/games/monop/houses.c
@@ -0,0 +1,269 @@
+/*
+ * Copyright (c) 1980, 1993
+ *	The Regents of the University of California.  All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the University of
+ *	California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ */
+
+#ifndef lint
+static char sccsid[] = "@(#)houses.c	8.1 (Berkeley) 5/31/93";
+#endif /* not lint */
+
+# include	"monop.ext"
+
+static char	*names[N_MON+2],
+		cur_prop[80];
+
+static MON	*monops[N_MON];
+
+/*
+ *	These routines deal with buying and selling houses
+ */
+buy_houses() {
+
+	reg int num_mon;
+	reg MON	*mp;
+	reg OWN	*op;
+	bool	good,got_morg;
+	int	i,p;
+
+over:
+	num_mon = 0;
+	good = TRUE;
+	got_morg = FALSE;
+	for (op = cur_p->own_list; op && op->sqr->type != PRPTY; op = op->next)
+		continue;
+	while (op)
+		if (op->sqr->desc->monop) {
+			mp = op->sqr->desc->mon_desc;
+			names[num_mon] = (monops[num_mon]=mp)->name;
+			num_mon++;
+			got_morg = good = FALSE;
+			for (i = 0; i < mp->num_in; i++) {
+				if (op->sqr->desc->morg)
+					got_morg++;
+				if (op->sqr->desc->houses != 5)
+					good++;
+				op = op->next;
+			}
+			if (!good || got_morg)
+				--num_mon;
+		}
+		else
+			op = op->next;
+	if (num_mon == 0) {
+		if (got_morg)
+			printf("You can't build on mortgaged monopolies.\n");
+		else if (!good)
+			printf("You can't build any more.\n");
+		else
+			printf("But you don't have any monopolies!!\n");
+		return;
+	}
+	if (num_mon == 1)
+		buy_h(monops[0]);
+	else {
+		names[num_mon++] = "done";
+		names[num_mon--] = 0;
+		if ((p=getinp("Which property do you wish to buy houses for? ", names)) == num_mon)
+			return;
+		buy_h(monops[p]);
+		goto over;
+	}
+}
+
+buy_h(mnp)
+MON	*mnp; {
+
+	reg int	i;
+	reg MON	*mp;
+	reg int	price;
+	shrt	input[3],temp[3];
+	int	tot;
+	PROP	*pp;
+
+	mp = mnp;
+	price = mp->h_cost * 50;
+blew_it:
+	list_cur(mp);
+	printf("Houses will cost $%d\n", price);
+	printf("How many houses do you wish to buy for\n");
+	for (i = 0; i < mp->num_in; i++) {
+		pp = mp->sq[i]->desc;
+over:
+		if (pp->houses == 5) {
+			printf("%s (H):\n", mp->sq[i]->name);
+			input[i] = 0;
+			temp[i] = 5;
+			continue;
+		}
+		(void)sprintf(cur_prop, "%s (%d): ",
+			mp->sq[i]->name, pp->houses);
+		input[i] = get_int(cur_prop);
+		temp[i] = input[i] + pp->houses;
+		if (temp[i] > 5) {
+			printf("That's too many.  The most you can buy is %d\n",
+				5 - pp->houses);
+				goto over;
+			}
+	}
+	if (mp->num_in == 3 && (abs(temp[0] - temp[1]) > 1 ||
+	    abs(temp[0] - temp[2]) > 1 || abs(temp[1] - temp[2]) > 1)) {
+err:		printf("That makes the spread too wide.  Try again\n");
+		goto blew_it;
+	}
+	else if (mp->num_in == 2 && abs(temp[0] - temp[1]) > 1)
+		goto err;
+	for (tot = i = 0; i < mp->num_in; i++)
+		tot += input[i];
+	if (tot) {
+		printf("You asked for %d houses for $%d\n", tot, tot * price);
+		if (getyn("Is that ok? ", yn) == 0) {
+			cur_p->money -= tot * price;
+			for (tot = i = 0; i < mp->num_in; i++)
+				mp->sq[i]->desc->houses = temp[i];
+		}
+	}
+}
+
+/*
+ *	This routine sells houses.
+ */
+sell_houses() {
+
+	reg int	num_mon;
+	reg MON	*mp;
+	reg OWN	*op;
+	bool	good;
+	int	p;
+
+over:
+	num_mon = 0;
+	good = TRUE;
+	for (op = cur_p->own_list; op; op = op->next)
+		if (op->sqr->type == PRPTY && op->sqr->desc->monop) {
+			mp = op->sqr->desc->mon_desc;
+			names[num_mon] = (monops[num_mon]=mp)->name;
+			num_mon++;
+			good = 0;
+			do
+				if (!good && op->sqr->desc->houses != 0)
+					good++;
+			while (op->next && op->sqr->desc->mon_desc == mp
+			    && (op=op->next));
+			if (!good)
+				--num_mon;
+		}
+	if (num_mon == 0) {
+		printf("You don't have any houses to sell!!\n");
+		return;
+	}
+	if (num_mon == 1)
+		sell_h(monops[0]);
+	else {
+		names[num_mon++] = "done";
+		names[num_mon--] = 0;
+		if ((p=getinp("Which property do you wish to sell houses from? ", names)) == num_mon)
+			return;
+		sell_h(monops[p]);
+		notify();
+		goto over;
+	}
+}
+
+sell_h(mnp)
+MON	*mnp; {
+
+	reg int	i;
+	reg MON	*mp;
+	reg int	price;
+	shrt	input[3],temp[3];
+	int	tot;
+	PROP	*pp;
+
+	mp = mnp;
+	price = mp->h_cost * 25;
+blew_it:
+	printf("Houses will get you $%d apiece\n", price);
+	list_cur(mp);
+	printf("How many houses do you wish to sell from\n");
+	for (i = 0; i < mp->num_in; i++) {
+		pp = mp->sq[i]->desc;
+over:
+		if (pp->houses == 0) {
+			printf("%s (0):\n", mp->sq[i]->name);
+			input[i] = temp[i] = 0;
+			continue;
+		}
+		if (pp->houses < 5)
+			(void)sprintf(cur_prop,"%s (%d): ",
+				mp->sq[i]->name,pp->houses);
+		else
+			(void)sprintf(cur_prop,"%s (H): ",mp->sq[i]->name);
+		input[i] = get_int(cur_prop);
+		temp[i] = pp->houses - input[i];
+		if (temp[i] < 0) {
+			printf("That's too many.  The most you can sell is %d\n", pp->houses);
+				goto over;
+			}
+	}
+	if (mp->num_in == 3 && (abs(temp[0] - temp[1]) > 1 ||
+	    abs(temp[0] - temp[2]) > 1 || abs(temp[1] - temp[2]) > 1)) {
+err:		printf("That makes the spread too wide.  Try again\n");
+		goto blew_it;
+	}
+	else if (mp->num_in == 2 && abs(temp[0] - temp[1]) > 1)
+		goto err;
+	for (tot = i = 0; i < mp->num_in; i++)
+		tot += input[i];
+	if (tot) {
+		printf("You asked to sell %d houses for $%d\n",tot,tot * price);
+		if (getyn("Is that ok? ", yn) == 0) {
+			cur_p->money += tot * price;
+			for (tot = i = 0; i < mp->num_in; i++)
+				mp->sq[i]->desc->houses = temp[i];
+		}
+	}
+}
+
+list_cur(mp)
+reg MON	*mp; {
+
+	reg int		i;
+	reg SQUARE	*sqp;
+
+	for (i = 0; i < mp->num_in; i++) {
+		sqp = mp->sq[i];
+		if (sqp->desc->houses == 5)
+			printf("%s (H) ", sqp->name);
+		else
+			printf("%s (%d) ", sqp->name, sqp->desc->houses);
+	}
+	putchar('\n');
+}
diff --git a/games/monop/initdeck.c b/games/monop/initdeck.c
new file mode 100644
index 0000000..87b64f4
--- /dev/null
+++ b/games/monop/initdeck.c
@@ -0,0 +1,184 @@
+/*
+ * Copyright (c) 1980, 1993
+ *	The Regents of the University of California.  All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the University of
+ *	California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ */
+
+#ifndef lint
+static char copyright[] =
+"@(#) Copyright (c) 1980, 1993\n\
+	The Regents of the University of California.  All rights reserved.\n";
+#endif /* not lint */
+
+#ifndef lint
+static char sccsid[] = "@(#)initdeck.c	8.1 (Berkeley) 5/31/93";
+#endif /* not lint */
+
+# include	<stdio.h>
+# include	"deck.h"
+
+/*
+ *	This program initializes the card files for monopoly.
+ * It reads in a data file with Com. Chest cards, followed by
+ * the Chance card.  The two are seperated by a line of "%-".
+ * All other cards are seperated by lines of "%%".  In the front
+ * of the file is the data for the decks in the same order.
+ * This includes the seek pointer for the start of each card.
+ * All cards start with their execution code, followed by the
+ * string to print, terminated with a null byte.
+ */
+
+# define	TRUE	1
+# define	FALSE	0
+
+# define	bool	char
+# define	reg	register
+
+char	*infile		= "cards.inp",		/* input file		*/
+	*outfile	= "cards.pck";		/* "packed" file	*/
+
+extern long	ftell();
+extern char *calloc();
+
+DECK	deck[2];
+
+FILE	*inf, *outf;
+
+main(ac, av)
+int	ac;
+char	*av[]; {
+
+	getargs(ac, av);
+	if ((inf = fopen(infile, "r")) == NULL) {
+		perror(infile);
+		exit(1);
+	}
+	count();
+	/*
+	 * allocate space for pointers.
+	 */
+	CC_D.offsets = (long *)calloc(CC_D.num_cards + 1, sizeof (long));
+	CH_D.offsets = (long *)calloc(CH_D.num_cards + 1, sizeof (long));
+	fseek(inf, 0L, 0);
+	if ((outf = fopen(outfile, "w")) == NULL) {
+		perror(outfile);
+		exit(0);
+	}
+
+	fwrite(deck, sizeof (DECK), 2, outf);
+	fwrite(CC_D.offsets, sizeof (long), CC_D.num_cards, outf);
+	fwrite(CH_D.offsets, sizeof (long), CH_D.num_cards, outf);
+	putem();
+
+	fclose(inf);
+	fseek(outf, 0, 0L);
+	fwrite(deck, sizeof (DECK), 2, outf);
+	fwrite(CC_D.offsets, sizeof (long), CC_D.num_cards, outf);
+	fwrite(CH_D.offsets, sizeof (long), CH_D.num_cards, outf);
+	fclose(outf);
+	printf("There were %d com. chest and %d chance cards\n", CC_D.num_cards, CH_D.num_cards);
+	exit(0);
+}
+
+getargs(ac, av)
+int	ac;
+char	*av[]; {
+
+	if (ac > 1)
+		infile = av[1];
+	if (ac > 2)
+		outfile = av[2];
+}
+
+/*
+ * count the cards
+ */
+count() {
+
+	reg bool	newline;
+	reg DECK	*in_deck;
+	reg char	c;
+
+	newline = TRUE;
+	in_deck = &CC_D;
+	while ((c=getc(inf)) != EOF)
+		if (newline && c == '%') {
+			newline = FALSE;
+			in_deck->num_cards++;
+			if (getc(inf) == '-')
+				in_deck = &CH_D;
+		}
+		else
+			newline = (c == '\n');
+	in_deck->num_cards++;
+}
+/*
+ *	put strings in the file
+ */
+putem() {
+
+	reg bool	newline;
+	reg DECK	*in_deck;
+	reg char	c;
+	reg int		num;
+
+	in_deck = &CC_D;
+	CC_D.num_cards = 1;
+	CH_D.num_cards = 0;
+	CC_D.offsets[0] = ftell(outf);
+	putc(getc(inf), outf);
+	putc(getc(inf), outf);
+	for (num = 0; (c=getc(inf)) != '\n'; )
+		num = num * 10 + (c - '0');
+	putw(num, outf);
+	newline = FALSE;
+	while ((c=getc(inf)) != EOF)
+		if (newline && c == '%') {
+			putc('\0', outf);
+			newline = FALSE;
+			if (getc(inf) == '-')
+				in_deck = &CH_D;
+			while (getc(inf) != '\n')
+				continue;
+			in_deck->offsets[in_deck->num_cards++] = ftell(outf);
+			if ((c=getc(inf)) == EOF)
+				break;
+			putc(c, outf);
+			putc(c = getc(inf), outf);
+			for (num = 0; (c=getc(inf)) != EOF && c != '\n'; )
+				num = num * 10 + (c - '0');
+			putw(num, outf);
+		}
+		else {
+			putc(c, outf);
+			newline = (c == '\n');
+		}
+	putc('\0', outf);
+}
diff --git a/games/monop/jail.c b/games/monop/jail.c
new file mode 100644
index 0000000..e0334c5
--- /dev/null
+++ b/games/monop/jail.c
@@ -0,0 +1,127 @@
+/*
+ * Copyright (c) 1980, 1993
+ *	The Regents of the University of California.  All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the University of
+ *	California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ */
+
+#ifndef lint
+static char sccsid[] = "@(#)jail.c	8.1 (Berkeley) 5/31/93";
+#endif /* not lint */
+
+# include	"monop.ext"
+
+/*
+ *	This routine uses a get-out-of-jail-free card to get the
+ * player out of jail.
+ */
+card() {
+
+	if (cur_p->loc != JAIL) {
+		printf("But you're not IN Jail\n");
+		return;
+	}
+	if (cur_p->num_gojf == 0) {
+		printf("But you don't HAVE a get out of jail free card\n");
+		return;
+	}
+	ret_card(cur_p);
+	cur_p->loc = 10;			/* just visiting	*/
+	cur_p->in_jail = 0;
+}
+/*
+ *	This routine returns the players get-out-of-jail-free card
+ * to a deck.
+ */
+ret_card(plr)
+reg PLAY	*plr; {
+
+	plr->num_gojf--;
+	if (CC_D.gojf_used)
+		CC_D.gojf_used = FALSE;
+	else
+		CH_D.gojf_used = FALSE;
+}
+/*
+ *	This routine deals with paying your way out of jail.
+ */
+pay() {
+
+	if (cur_p->loc != JAIL) {
+		printf("But you're not IN Jail\n");
+		return;
+	}
+	cur_p->loc = 10;
+	cur_p->money -= 50;
+	cur_p->in_jail = 0;
+	printf("That cost you $50\n");
+}
+/*
+ *	This routine deals with a move in jail
+ */
+move_jail(r1, r2)
+reg int	r1, r2; {
+
+	if (r1 != r2) {
+		printf("Sorry, that doesn't get you out\n");
+		if (++(cur_p->in_jail) == 3) {
+			printf("It's your third turn and you didn't roll doubles.  You have to pay $50\n");
+			cur_p->money -= 50;
+moveit:
+			cur_p->loc = 10;
+			cur_p->in_jail = 0;
+			move(r1+r2);
+			r1 = r2 - 1;	/* kludge: stop new roll w/doub	*/
+			return TRUE;
+		}
+		return FALSE;
+	}
+	else {
+		printf("Double roll gets you out.\n");
+		goto moveit;
+	}
+}
+printturn() {
+
+	if (cur_p->loc != JAIL)
+		return;
+	printf("(This is your ");
+	switch (cur_p->in_jail) {
+	  case 0:
+		printf("1st");
+		break;
+	  case 1:
+		printf("2nd");
+		break;
+	  case 2:
+		printf("3rd (and final)");
+		break;
+	}
+	printf(" turn in JAIL)\n");
+}
diff --git a/games/monop/misc.c b/games/monop/misc.c
new file mode 100644
index 0000000..ed26534
--- /dev/null
+++ b/games/monop/misc.c
@@ -0,0 +1,272 @@
+/*
+ * Copyright (c) 1980, 1993
+ *	The Regents of the University of California.  All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the University of
+ *	California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ */
+
+#ifndef lint
+static char sccsid[] = "@(#)misc.c	8.1 (Berkeley) 5/31/93";
+#endif /* not lint */
+
+# include	"monop.ext"
+# include	<ctype.h>
+# include	<signal.h>
+
+/*
+ *	This routine executes a truncated set of commands until a
+ * "yes or "no" answer is gotten.
+ */
+getyn(prompt)
+reg char	*prompt; {
+
+	reg int	com;
+
+	for (;;)
+		if ((com=getinp(prompt, yn)) < 2)
+			return com;
+		else
+			(*func[com-2])();
+}
+/*
+ *	This routine tells the player if he's out of money.
+ */
+notify() {
+
+	if (cur_p->money < 0)
+		printf("That leaves you $%d in debt\n", -cur_p->money);
+	else if (cur_p->money == 0)
+		printf("that leaves you broke\n");
+	else if (fixing && !told_em && cur_p->money > 0) {
+		printf("-- You are now Solvent ---\n");
+		told_em = TRUE;
+	}
+}
+/*
+ *	This routine switches to the next player
+ */
+next_play() {
+
+	player = ++player % num_play;
+	cur_p = &play[player];
+	num_doub = 0;
+}
+/*
+ *	This routine gets an integer from the keyboard after the
+ * given prompt.
+ */
+get_int(prompt)
+reg char	*prompt; {
+
+	reg int		num;
+	reg char	*sp;
+	char		buf[257];
+
+	for (;;) {
+inter:
+		printf(prompt);
+		num = 0;
+		for (sp = buf; (*sp=getchar()) != '\n'; sp++)
+			if (*sp == -1)	/* check for interrupted system call */
+				goto inter;
+		if (sp == buf)
+			continue;
+		for (sp = buf; isspace(*sp); sp++)
+			continue;
+		for (; isdigit(*sp); sp++)
+			num = num * 10 + *sp - '0';
+		if (*sp == '\n')
+			return num;
+		else
+			printf("I can't understand that\n");
+	}
+}
+/*
+ *	This routine sets the monopoly flag from the list given.
+ */
+set_ownlist(pl)
+int	pl; {
+
+	reg int	num;		/* general counter		*/
+	reg MON	*orig;		/* remember starting monop ptr	*/
+	reg OWN	*op;		/* current owned prop		*/
+	OWN	*orig_op;		/* origianl prop before loop	*/
+
+	op = play[pl].own_list;
+#ifdef DEBUG
+	printf("op [%d] = play[pl [%d] ].own_list;\n", op, pl);
+#endif
+	while (op) {
+#ifdef DEBUG
+		printf("op->sqr->type = %d\n", op->sqr->type);
+#endif
+		switch (op->sqr->type) {
+		  case UTIL:
+#ifdef DEBUG
+			printf("  case UTIL:\n");
+#endif
+			for (num = 0; op && op->sqr->type == UTIL; op = op->next)
+				num++;
+			play[pl].num_util = num;
+#ifdef DEBUG
+			printf("play[pl].num_util = num [%d];\n", num);
+#endif
+			break;
+		  case RR:
+#ifdef DEBUG
+			printf("  case RR:\n");
+#endif
+			for (num = 0; op && op->sqr->type == RR; op = op->next) {
+#ifdef DEBUG
+				printf("iter: %d\n", num);
+				printf("op = %d, op->sqr = %d, op->sqr->type = %d\n", op, op->sqr, op->sqr->type);
+#endif
+				num++;
+			}
+			play[pl].num_rr = num;
+#ifdef DEBUG
+			printf("play[pl].num_rr = num [%d];\n", num);
+#endif
+			break;
+		  case PRPTY:
+#ifdef DEBUG
+			printf("  case PRPTY:\n");
+#endif
+			orig = op->sqr->desc->mon_desc;
+			orig_op = op;
+			num = 0;
+			while (op && op->sqr->desc->mon_desc == orig) {
+#ifdef DEBUG
+				printf("iter: %d\n", num);
+#endif
+				num++;
+#ifdef DEBUG
+				printf("op = op->next ");
+#endif
+				op = op->next;
+#ifdef DEBUG
+				printf("[%d];\n", op);
+#endif
+			}
+#ifdef DEBUG
+			printf("num = %d\n");
+#endif
+			if (orig == 0) {
+				printf("panic:  bad monopoly descriptor: orig = %d\n", orig);
+				printf("player # %d\n", pl+1);
+				printhold(pl);
+				printf("orig_op = %d\n", orig_op);
+				printf("orig_op->sqr->type = %d (PRPTY)\n", op->sqr->type);
+				printf("orig_op->next = %d\n", op->next);
+				printf("orig_op->sqr->desc = %d\n", op->sqr->desc);
+				printf("op = %d\n", op);
+				printf("op->sqr->type = %d (PRPTY)\n", op->sqr->type);
+				printf("op->next = %d\n", op->next);
+				printf("op->sqr->desc = %d\n", op->sqr->desc);
+				printf("num = %d\n", num);
+			}
+#ifdef DEBUG
+			printf("orig->num_in = %d\n", orig->num_in);
+#endif
+			if (num == orig->num_in)
+				is_monop(orig, pl);
+			else
+				isnot_monop(orig);
+			break;
+		}
+	}
+}
+/*
+ *	This routine sets things up as if it is a new monopoly
+ */
+is_monop(mp, pl)
+reg MON	*mp;
+int	pl; {
+
+	reg char	*sp;
+	reg int		i;
+
+	mp->owner = pl;
+	mp->num_own = mp->num_in;
+	for (i = 0; i < mp->num_in; i++)
+		mp->sq[i]->desc->monop = TRUE;
+	mp->name = mp->mon_n;
+}
+/*
+ *	This routine sets things up as if it is no longer a monopoly
+ */
+isnot_monop(mp)
+reg MON	*mp; {
+
+	reg char	*sp;
+	reg int		i;
+
+	mp->owner = -1;
+	for (i = 0; i < mp->num_in; i++)
+		mp->sq[i]->desc->monop = FALSE;
+	mp->name = mp->not_m;
+}
+/*
+ *	This routine gives a list of the current player's routine
+ */
+list() {
+
+	printhold(player);
+}
+/*
+ *	This routine gives a list of a given players holdings
+ */
+list_all() {
+
+	reg int	pl;
+
+	while ((pl=getinp("Whose holdings do you want to see? ", name_list)) < num_play)
+		printhold(pl);
+}
+/*
+ *	This routine gives the players a chance before it exits.
+ */
+void
+quit() {
+
+	putchar('\n');
+	if (getyn("Do you all really want to quit? ", yn) == 0)
+		exit(0);
+	signal(SIGINT, quit);
+}
+/*
+ *	This routine copies one structure to another
+ */
+cpy_st(s1, s2, size)
+reg int	*s1, *s2, size; {
+
+	size /= 2;
+	while (size--)
+		*s1++ = *s2++;
+}
diff --git a/games/monop/mon.dat b/games/monop/mon.dat
new file mode 100644
index 0000000..8d5ab4d
--- /dev/null
+++ b/games/monop/mon.dat
@@ -0,0 +1,44 @@
+/*-
+ * Copyright (c) 1980, 1993
+ *	The Regents of the University of California.  All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the University of
+ *	California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ *
+ *	@(#)mon.dat	5.4 (Berkeley) 5/31/93
+ */
+
+/* name	owner	num_in	num_own	h_cost	not_m		mon_n	    sq */
+{0,	-1,	2,	0,	1,	"Purple",	"PURPLE",   {1,3}},
+{0,	-1,	3,	0,	1,	"Lt. Blue",	"LT. BLUE", {6,8,9}},
+{0,	-1,	3,	0,	2,	"Violet",	"VIOLET",   {11,13,14}},
+{0,	-1,	3,	0,	2,	"Orange",	"ORANGE",   {16,18,19}},
+{0,	-1,	3,	0,	3,	"Red",		"RED",	    {21,23,24}},
+{0,	-1,	3,	0,	3,	"Yellow",	"YELLOW",   {26,27,29}},
+{0,	-1,	3,	0,	4,	"Green",	"GREEN",    {31,32,34}},
+{0,	-1,	2,	0,	4,	"Dk. Blue",	"DK. BLUE", {37,39}}
diff --git a/games/monop/monop.6 b/games/monop/monop.6
new file mode 100644
index 0000000..35b2e8d
--- /dev/null
+++ b/games/monop/monop.6
@@ -0,0 +1,188 @@
+.\" Copyright (c) 1980 The Regents of the University of California.
+.\" All rights reserved.
+.\"
+.\" Redistribution and use in source and binary forms, with or without
+.\" modification, are permitted provided that the following conditions
+.\" are met:
+.\" 1. Redistributions of source code must retain the above copyright
+.\"    notice, this list of conditions and the following disclaimer.
+.\" 2. Redistributions in binary form must reproduce the above copyright
+.\"    notice, this list of conditions and the following disclaimer in the
+.\"    documentation and/or other materials provided with the distribution.
+.\" 3. All advertising materials mentioning features or use of this software
+.\"    must display the following acknowledgement:
+.\"	This product includes software developed by the University of
+.\"	California, Berkeley and its contributors.
+.\" 4. Neither the name of the University nor the names of its contributors
+.\"    may be used to endorse or promote products derived from this software
+.\"    without specific prior written permission.
+.\"
+.\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+.\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+.\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+.\" ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+.\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+.\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+.\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+.\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+.\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+.\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+.\" SUCH DAMAGE.
+.\"
+.\"	@(#)monop.6	6.5 (Berkeley) 3/25/93
+.\"
+.de Sc		\" start command list macro
+.ie n .PD 0
+.el .PD 0.5
+.sp
+..
+.de Cm		\" define command macro
+.TP 10
+.ie t .BR "\\$1" :
+.el .IR "\\$1" :
+..
+.de Ec		\" end command macro
+.PD 1
+..
+.TH MONOP 6 "March 25, 1993"
+.UC 4
+.SH NAME
+monop \- Monopoly game
+.SH SYNOPSIS
+.B /usr/games/monop
+[ file ]
+.SH DESCRIPTION
+.I Monop
+is reminiscent of the Parker Brother's game Monopoly, and
+monitors a game between 1 to 9 users.
+It is assumed that the rules of Monopoly are known.
+The game follows the standard rules, with the exception that,
+if a property goes up for auction and there are only two solvent players,
+no auction is held and the property remains unowned.
+.PP
+The game, in effect, lends the player money,
+so it is possible to buy something which you cannot afford.
+However, as soon as a person goes into debt,
+he must \*(lqfix the problem\*(rq,
+.IR i.e. ,
+make himself solvent, before play can continue.
+If this is not possible, the player's property reverts to his debtee,
+either a player or the bank.
+A player can resign at any time to any person or the bank,
+which puts the property back on the board, unowned.
+.PP
+Any time that the response to a question is a
+.IR string ,
+e.g., a name, place or person, you can type `?' to get a list of valid answers.
+It is not possible to input a negative number, nor is it ever necessary.
+.Sc
+.IR "A Summary of Commands" :
+.Cm quit
+quit game: This allows you to quit the game.  It asks you if you're sure.
+.Cm print
+print board: This prints out the current board.
+The columns have the following meanings (column headings are the same for the
+.BR where ,
+.BR "own holdings" ,
+and
+.B holdings
+commands):
+.PP
+.RS 10
+.TP "\w'Name\ \ 'u"
+Name
+The first ten characters of the name of the square
+.TP
+Own
+The \fInumber\fR of the owner of the property.
+.TP
+Price
+The cost of the property (if any)
+.TP
+Mg
+This field has a `*' in it if the property is mortgaged
+.TP
+#
+If the property is a Utility or Railroad, this is the number
+of such owned by the owner.
+If the property is land, this is the number of houses on it.
+.TP
+Rent
+Current rent on the property.  If it is not owned, there is no rent.
+.RE
+.Cm where
+where players are: Tells you where all the players are.
+A `*' indicates the current player.
+.Cm "own\ holdings"
+List your own holdings,
+.IR i.e. ,
+money, get-out-of-jail-free cards, and property.
+.Cm holdings
+holdings list: Look at anyone's holdings.
+It will ask you whose holdings you wish to look at.
+When you are finished, type \*(lqdone\*(rq.
+.Cm mortgage
+mortgage property:
+Sets up a list of mortgageable property, and asks which you wish to mortgage.
+.Cm unmortgage
+unmortgage property:
+Unmortgage mortgaged property.
+.Cm buy
+buy houses:
+Sets up a list of monopolies on which you can buy houses.
+If there is more than one, it asks you which you want to buy for.
+It then asks you how many for each piece of property,
+giving the current amount in parentheses after the property name.
+If you build in an unbalanced manner
+(a disparity of more than one house within the same monopoly),
+it asks you to re-input things.
+.Cm sell
+sell houses:
+Sets up a list of monopolies from which you can sell houses.
+It operates in an analogous manner to
+.I buy.
+.Cm card
+card for jail:
+Use a get-out-of-jail-free card to get out of jail.
+If you're not in jail, or you don't have one, it tells you so.
+.Cm pay
+pay for jail:
+Pay $50 to get out of jail, from whence you are put on Just Visiting.
+Difficult to do if you're not there.
+.Cm trade
+This allows you to trade with another player.
+It asks you whom you wish to trade with,
+and then asks you what each wishes to give up.
+You can get a summary at the end, and, in all cases,
+it asks for confirmation of the trade before doing it.
+.Cm resign
+Resign to another player or the bank.
+If you resign to the bank, all property reverts to its virgin state,
+and get-out-of-jail free cards revert to the deck.
+.Cm save
+save game:
+Save the current game in a file for later play.
+You can continue play after saving,
+either by adding the file in which you saved the game after the
+.I monop
+command, or by using the
+.I restore
+command (see below).
+It will ask you which file you wish to save it in,
+and, if the file exists, confirm that you wish to overwrite it.
+.Cm restore
+restore game:
+Read in a previously saved game from a file.
+It leaves the file intact.
+.Cm roll
+Roll the dice and move forward to your new location.  
+If you simply hit the <RETURN> key instead of a command,
+it is the same as typing
+.IR roll .
+.Ec
+.SH AUTHOR
+Ken Arnold
+.SH FILES
+/usr/games/lib/cards.pck	Chance and Community Chest cards
+.SH BUGS
+No command can be given an argument instead of a response to a query.
diff --git a/games/monop/monop.c b/games/monop/monop.c
new file mode 100644
index 0000000..2b39e70
--- /dev/null
+++ b/games/monop/monop.c
@@ -0,0 +1,162 @@
+/*
+ * Copyright (c) 1980, 1993
+ *	The Regents of the University of California.  All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the University of
+ *	California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ */
+
+#ifndef lint
+static char copyright[] =
+"@(#) Copyright (c) 1980, 1993\n\
+	The Regents of the University of California.  All rights reserved.\n";
+#endif /* not lint */
+
+#ifndef lint
+static char sccsid[] = "@(#)monop.c	8.1 (Berkeley) 5/31/93";
+#endif /* not lint */
+
+# include	"monop.def"
+
+/*
+ *	This program implements a monopoly game
+ */
+main(ac, av)
+reg int		ac;
+reg char	*av[]; {
+
+
+	srand(getpid());
+	if (ac > 1) {
+		if (!rest_f(av[1]))
+			restore();
+	}
+	else {
+		getplayers();
+		init_players();
+		init_monops();
+	}
+	num_luck = sizeof lucky_mes / sizeof (char *);
+	init_decks();
+	signal(2, quit);
+	for (;;) {
+		printf("\n%s (%d) (cash $%d) on %s\n", cur_p->name, player + 1,
+			cur_p->money, board[cur_p->loc].name);
+		printturn();
+		force_morg();
+		execute(getinp("-- Command: ", comlist));
+	}
+}
+/*
+ *	This routine gets the names of the players
+ */
+getplayers() {
+
+	reg char	*sp;
+	reg int		i, j;
+	char		buf[257];
+
+blew_it:
+	for (;;) {
+		if ((num_play=get_int("How many players? ")) <= 0 ||
+		    num_play > MAX_PL)
+			printf("Sorry. Number must range from 1 to 9\n");
+		else
+			break;
+	}
+	cur_p = play = (PLAY *) calloc(num_play, sizeof (PLAY));
+	for (i = 0; i < num_play; i++) {
+over:
+		printf("Player %d's name: ", i + 1);
+		for (sp = buf; (*sp=getchar()) != '\n'; sp++)
+			continue;
+		if (sp == buf)
+			goto over;
+		*sp++ = '\0';
+		strcpy(name_list[i]=play[i].name=(char *)calloc(1,sp-buf),buf);
+		play[i].money = 1500;
+	}
+	name_list[i++] = "done";
+	name_list[i] = 0;
+	for (i = 0; i < num_play; i++)
+		for (j = i + 1; j < num_play; j++)
+			if (strcasecmp(name_list[i], name_list[j]) == 0) {
+				if (i != num_play - 1)
+					printf("Hey!!! Some of those are IDENTICAL!!  Let's try that again....\n");
+				else
+					printf("\"done\" is a reserved word.  Please try again\n");
+				for (i = 0; i < num_play; i++)
+					cfree(play[i].name);
+				cfree(play);
+				goto blew_it;
+			}
+}
+/*
+ *	This routine figures out who goes first
+ */
+init_players() {
+
+	reg int	i, rl, cur_max;
+	bool	over;
+	int	max_pl;
+
+again:
+	putchar('\n');
+	for (cur_max = i = 0; i < num_play; i++) {
+		printf("%s (%d) rolls %d\n", play[i].name, i+1, rl=roll(2, 6));
+		if (rl > cur_max) {
+			over = FALSE;
+			cur_max = rl;
+			max_pl = i;
+		}
+		else if (rl == cur_max)
+			over++;
+	}
+	if (over) {
+		printf("%d people rolled the same thing, so we'll try again\n",
+		    over + 1);
+		goto again;
+	}
+	player = max_pl;
+	cur_p = &play[max_pl];
+	printf("%s (%d) goes first\n", cur_p->name, max_pl + 1);
+}
+/*
+ *	This routine initalizes the monopoly structures.
+ */
+init_monops() {
+
+	reg MON	*mp;
+	reg int	i;
+
+	for (mp = mon; mp < &mon[N_MON]; mp++) {
+		mp->name = mp->not_m;
+		for (i = 0; i < mp->num_in; i++)
+			mp->sq[i] = &board[mp->sqnums[i]];
+	}
+}
diff --git a/games/monop/monop.def b/games/monop/monop.def
new file mode 100644
index 0000000..89e933d
--- /dev/null
+++ b/games/monop/monop.def
@@ -0,0 +1,123 @@
+/*-
+ * Copyright (c) 1980, 1993
+ *	The Regents of the University of California.  All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the University of
+ *	California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ *
+ *	@(#)monop.def	5.5 (Berkeley) 5/31/93
+ */
+
+# include	"monop.h"
+# include	"deck.h"
+
+bool	fixing,			/* set if fixing up debt		*/
+	trading,		/* set if in process of trading		*/
+	told_em,		/* set if told user he's out of debt	*/
+	spec;			/* set if moving by card to RR or UTIL	*/
+
+char	*name_list[MAX_PL+2],	/* list of players' names		*/
+	*comlist[]	= {	/* list of normal commands		*/
+	"quit",		/*  0 */	"print",	/*  1 */
+	"where",	/*  2 */	"own holdings",	/*  3 */
+	"holdings",	/*  4 */	"mortgage",	/*  5 */
+	"unmortgage",	/*  6 */	"buy houses",	/*  7 */
+	"sell houses",	/*  8 */	"card",		/*  9 */
+	"pay",		/* 10 */	"trade",	/* 11 */
+	"resign",	/* 12 */	"save",		/* 13 */
+	"restore",	/* 14 */	"roll",		/* 15 */
+	"",		/* 16 */
+	0
+	},
+	*yn[]		= {	/* list of commands for yes/no answers	*/
+	"yes",		/*  0 */	"no",		/*  1 */
+	"quit",		/*  2 */	"print",	/*  3 */
+	"where",	/*  4 */	"own holdings",	/*  5 */
+	"holdings",	/*  6 */
+	0
+	},
+	*lucky_mes[]	= {	/* "got lucky" messages			*/
+	"You lucky stiff",		"You got lucky",
+	"What a lucky person!",		"You must have a 4-leaf clover",
+	"My, my!  Aren't we lucky!",	"Luck smiles upon you",
+	"You got lucky this time",	"Lucky person!",
+	"Your karma must certainly be together",
+	"How beautifully Cosmic",	"Wow, you must be really with it"
+	/* "I want your autograph",	-- Save for later */
+	};
+
+int	player,			/* current player number		*/
+	num_play,		/* current number of players		*/
+	num_doub,		/* # of doubles current player rolled	*/
+				/* # of "got lucky" messages		*/
+	num_luck	= sizeof lucky_mes / sizeof (char *),
+				/* list of command functions		*/
+	buy_houses(), card(), do_move(), do_move(), list(), list_all(),
+	mortgage(), pay(), printboard(), quit(), resign(), restore(),
+	rub(), save(), sell_houses(), trade(),
+	unmortgage(), where(),
+	(*func[])()	= {	/* array of function calls for commands	*/
+	quit,			/* quit game		|*  0 *|	*/
+	printboard,		/* print board		|*  1 *|	*/
+	where,			/* where players are	|*  2 *|	*/
+	list,			/* own holdings		|*  3 *|	*/
+	list_all,		/* holdings list	|*  4 *|	*/
+	mortgage,		/* mortgage property	|*  5 *|	*/
+	unmortgage,		/* unmortgage property	|*  6 *|	*/
+	buy_houses,		/* buy houses		|*  7 *|	*/
+	sell_houses,		/* sell houses		|*  8 *|	*/
+	card,			/* card for jail	|*  9 *|	*/
+	pay,			/* pay for jail		|* 10 *|	*/
+	trade,			/* trade		|* 11 *|	*/
+	resign,			/* resign		|* 12 *|	*/
+	save,			/* save game		|* 13 *|	*/
+	restore,		/* restore game		|* 14 *|	*/
+	do_move,		/* roll			|* 15 *|	*/
+	do_move			/* ""			|* 16 *|	*/
+	};
+
+DECK	deck[2];		/* Chance and Community Chest		*/
+
+PLAY	*play,			/* player structure array ("calloc"ed)	*/
+	*cur_p;			/* pointer to current player's struct	*/
+
+RR_S	rr[N_RR];		/* raildroad descriptions		*/
+
+UTIL_S	util[2];		/* utility descriptions			*/
+
+MON	mon[N_MON]	= {	/* monopoly descriptions		*/
+#		include	"mon.dat"
+};
+
+PROP	prop[N_PROP]	= {	/* typical properties			*/
+#		include	"prop.dat"
+};
+
+SQUARE	board[N_SQRS+1]	= {	/* board itself (+1 for Jail)		*/
+#		include	"brd.dat"
+};
diff --git a/games/monop/monop.ext b/games/monop/monop.ext
new file mode 100644
index 0000000..a5fc616
--- /dev/null
+++ b/games/monop/monop.ext
@@ -0,0 +1,57 @@
+/*-
+ * Copyright (c) 1980, 1993
+ *	The Regents of the University of California.  All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the University of
+ *	California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ *
+ *	@(#)monop.ext	5.4 (Berkeley) 5/31/93
+ */
+
+# include	"monop.h"
+# include	"deck.h"
+
+extern bool	trading, spec, fixing, told_em;
+
+extern char	*yn[], *comlist[], *name_list[], *lucky_mes[];
+
+extern int	num_play, player, num_doub, num_luck, (*func[])();
+
+extern DECK	deck[2];
+
+extern MON	mon[];
+
+extern PLAY	*play, *cur_p;
+
+extern PROP	prop[];
+
+extern RR_S	rr[];
+
+extern SQUARE	board[];
+
+extern UTIL_S	util[];
diff --git a/games/monop/monop.h b/games/monop/monop.h
new file mode 100644
index 0000000..744732c
--- /dev/null
+++ b/games/monop/monop.h
@@ -0,0 +1,137 @@
+/*
+ * Copyright (c) 1980, 1993
+ *	The Regents of the University of California.  All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the University of
+ *	California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ *
+ *	@(#)monop.h	8.1 (Berkeley) 5/31/93
+ */
+
+# include	<stdio.h>
+
+# define	reg	register
+# define	shrt	char
+# define	bool	char
+# define	unsgn	unsigned
+
+# define	TRUE	(1)
+# define	FALSE	(0)
+
+# define	N_MON	8	/* number of monopolies			*/
+# define	N_PROP	22	/* number of normal property squares	*/
+# define	N_RR	4	/* number of railroads			*/
+# define	N_UTIL	2	/* number of utilities			*/
+# define	N_SQRS	40	/* number of squares on board		*/
+# define	MAX_PL	9	/* maximum number of players		*/
+# define	MAX_PRP	(N_PROP+N_RR+N_UTIL) /* max # ownable property	*/
+
+				/* square type numbers			*/
+# define	PRPTY	0	/* normal property			*/
+# define	RR	1	/* railroad				*/
+# define	UTIL	2	/* water works - electric co		*/
+# define	SAFE	3	/* safe spot				*/
+# define	CC	4	/* community chest			*/
+# define	CHANCE	5	/* chance (surprise!!!)			*/
+# define	INC_TAX	6	/* Income tax */
+# define	GOTO_J	7	/* Go To Jail! */
+# define	LUX_TAX	8	/* Luxury tax */
+# define	IN_JAIL	9	/* In jail */
+
+# define	JAIL	40	/* JAIL square number			*/
+
+# define	lucky(str)	printf("%s%s\n",str,lucky_mes[roll(1,num_luck)-1])
+# define	printline()	printf("------------------------------\n")
+# define	sqnum(sqp)	(sqp - board)
+# define	swap(A1,A2)	if ((A1) != (A2)) { \
+					(A1) ^= (A2); \
+					(A2) ^= (A1); \
+					(A1) ^= (A2); \
+				}
+
+struct sqr_st {			/* structure for square			*/
+	char	*name;			/* place name			*/
+	shrt	owner;			/* owner number			*/
+	shrt	type;			/* place type			*/
+	struct prp_st	*desc;		/* description struct		*/
+	int	cost;			/* cost				*/
+};
+
+typedef struct sqr_st	SQUARE;
+
+struct mon_st {			/* monopoly description structure	*/
+	char	*name;			/* monop. name (color)		*/
+	shrt	owner;			/* owner of monopoly		*/
+	shrt	num_in;			/* # in monopoly		*/
+	shrt	num_own;		/* # owned (-1: not poss. monop)*/
+	shrt	h_cost;			/* price of houses		*/
+	char	*not_m;			/* name if not monopoly		*/
+	char	*mon_n;			/* name if a monopoly		*/
+	char	sqnums[3];		/* Square numbers (used to init)*/
+	SQUARE	*sq[3];			/* list of squares in monop	*/
+};
+
+typedef struct mon_st	MON;
+
+/*
+ * This struct describes a property.  For railroads and utilities, only
+ * the "morg" member is used.
+ */
+struct prp_st {			/* property description structure	*/
+	bool	morg;			/* set if mortgaged		*/
+	bool	monop;			/* set if monopoly		*/
+	shrt	square;			/* square description		*/
+	shrt	houses;			/* number of houses		*/
+	MON	*mon_desc;		/* name of color		*/
+	int	rent[6];		/* rents			*/
+};
+
+struct own_st {			/* element in list owned things		*/
+	SQUARE	*sqr;			/* pointer to square		*/
+	struct own_st	*next;		/* next in list			*/
+};
+
+typedef struct own_st	OWN;
+
+struct plr_st {			/* player description structure		*/
+	char	*name;			/* owner name			*/
+	shrt	num_gojf;		/* # of get-out-of-jail-free's	*/
+	shrt	num_rr;			/* # of railroads owned		*/
+	shrt	num_util;		/* # of water works/elec. co.	*/
+	shrt	loc;			/* location on board		*/
+	shrt	in_jail;		/* count of turns in jail	*/
+	int	money;			/* amount of money		*/
+	OWN	*own_list;		/* start of propery list	*/
+};
+
+typedef struct plr_st	PLAY;
+typedef struct prp_st	PROP;
+typedef struct prp_st	RR_S;
+typedef struct prp_st	UTIL_S;
+
+int	cc(), chance(), lux_tax(), goto_jail(), inc_tax();
diff --git a/games/monop/morg.c b/games/monop/morg.c
new file mode 100644
index 0000000..d88fa34
--- /dev/null
+++ b/games/monop/morg.c
@@ -0,0 +1,209 @@
+/*
+ * Copyright (c) 1980, 1993
+ *	The Regents of the University of California.  All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the University of
+ *	California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ */
+
+#ifndef lint
+static char sccsid[] = "@(#)morg.c	8.1 (Berkeley) 5/31/93";
+#endif /* not lint */
+
+# include	"monop.ext"
+
+/*
+ *	These routines deal with mortgaging.
+ */
+
+static char	*names[MAX_PRP+2],
+		*morg_coms[]	= {
+			"quit",		/*  0 */
+			"print",	/*  1 */
+			"where",	/*  2 */
+			"own holdings",	/*  3 */
+			"holdings",	/*  4 */
+			"mortgage",	/*  5 */
+			"unmortgage",	/*  6 */
+			"buy",		/*  7 */
+			"sell",		/*  8 */
+			"card",		/*  9 */
+			"pay",		/* 10 */
+			"trade",	/* 11 */
+			"resign",	/* 12 */
+			"save game",	/* 13 */
+			"restore game",	/* 14 */
+			0
+		};
+
+static shrt	square[MAX_PRP+2];
+
+static int	num_good,got_houses;
+
+/*
+ *	This routine is the command level response the mortgage command.
+ * it gets the list of mortgageable property and asks which are to
+ * be mortgaged.
+ */
+mortgage() {
+
+	reg int	prop;
+
+	for (;;) {
+		if (set_mlist() == 0) {
+			if (got_houses)
+				printf("You can't mortgage property with houses on it.\n");
+			else
+				printf("You don't have any un-mortgaged property.\n");
+			return;
+		}
+		if (num_good == 1) {
+			printf("Your only mortageable property is %s\n",names[0]);
+			if (getyn("Do you want to mortgage it? ") == 0)
+				m(square[0]);
+			return;
+		}
+		prop = getinp("Which property do you want to mortgage? ",names);
+		if (prop == num_good)
+			return;
+		m(square[prop]);
+		notify(cur_p);
+	}
+}
+/*
+ *	This routine sets up the list of mortgageable property
+ */
+set_mlist() {
+
+	reg OWN	*op;
+
+	num_good = 0;
+	for (op = cur_p->own_list; op; op = op->next)
+		if (!op->sqr->desc->morg)
+			if (op->sqr->type == PRPTY && op->sqr->desc->houses)
+				got_houses++;
+			else {
+				names[num_good] = op->sqr->name;
+				square[num_good++] = sqnum(op->sqr);
+			}
+	names[num_good++] = "done";
+	names[num_good--] = 0;
+	return num_good;
+}
+/*
+ *	This routine actually mortgages the property.
+ */
+m(prop)
+reg int	prop; {
+
+	reg int	price;
+
+	price = board[prop].cost/2;
+	board[prop].desc->morg = TRUE;
+	printf("That got you $%d\n",price);
+	cur_p->money += price;
+}
+/*
+ *	This routine is the command level repsponse to the unmortgage
+ * command.  It gets the list of mortgaged property and asks which are
+ * to be unmortgaged.
+ */
+unmortgage() {
+
+	reg int	prop;
+
+	for (;;) {
+		if (set_umlist() == 0) {
+			printf("You don't have any mortgaged property.\n");
+			return;
+		}
+		if (num_good == 1) {
+			printf("Your only mortaged property is %s\n",names[0]);
+			if (getyn("Do you want to unmortgage it? ") == 0)
+				unm(square[0]);
+			return;
+		}
+		prop = getinp("Which property do you want to unmortgage? ",names);
+		if (prop == num_good)
+			return;
+		unm(square[prop]);
+	}
+}
+/*
+ *	This routine sets up the list of mortgaged property
+ */
+set_umlist() {
+
+	reg OWN	*op;
+
+	num_good = 0;
+	for (op = cur_p->own_list; op; op = op->next)
+		if (op->sqr->desc->morg) {
+			names[num_good] = op->sqr->name;
+			square[num_good++] = sqnum(op->sqr);
+		}
+	names[num_good++] = "done";
+	names[num_good--] = 0;
+	return num_good;
+}
+/*
+ *	This routine actually unmortgages the property
+ */
+unm(prop)
+reg int	prop; {
+
+	reg int	price;
+
+	price = board[prop].cost/2;
+	board[prop].desc->morg = FALSE;
+	price += price/10;
+	printf("That cost you $%d\n",price);
+	cur_p->money -= price;
+	set_umlist();
+}
+/*
+ *	This routine forces the indebted player to fix his
+ * financial woes.
+ */
+force_morg() {
+
+	told_em = fixing = TRUE;
+	while (cur_p->money <= 0)
+		fix_ex(getinp("How are you going to fix it up? ",morg_coms));
+	fixing = FALSE;
+}
+/*
+ *	This routine is a special execute for the force_morg routine
+ */
+fix_ex(com_num)
+reg int	com_num; {
+
+	told_em = FALSE;
+	(*func[com_num])();
+	notify();
+}
diff --git a/games/monop/pathnames.h b/games/monop/pathnames.h
new file mode 100644
index 0000000..60c0988
--- /dev/null
+++ b/games/monop/pathnames.h
@@ -0,0 +1,36 @@
+/*-
+ * Copyright (c) 1990, 1993
+ *	The Regents of the University of California.  All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the University of
+ *	California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ *
+ *	@(#)pathnames.h	8.1 (Berkeley) 5/31/93
+ */
+
+#define	_PATH_CARDS	"/usr/share/games/cards.pck"
diff --git a/games/monop/print.c b/games/monop/print.c
new file mode 100644
index 0000000..121f79e
--- /dev/null
+++ b/games/monop/print.c
@@ -0,0 +1,192 @@
+/*
+ * Copyright (c) 1980, 1993
+ *	The Regents of the University of California.  All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the University of
+ *	California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ */
+
+#ifndef lint
+static char sccsid[] = "@(#)print.c	8.1 (Berkeley) 5/31/93";
+#endif /* not lint */
+
+# include	"monop.ext"
+
+static char	buf[80],		/* output buffer		*/
+		*header	= "Name      Own      Price Mg # Rent";
+
+/*
+ *	This routine prints out the current board
+ */
+printboard() {
+
+	reg int	i;
+
+	printf("%s\t%s\n", header, header);
+	for (i = 0; i < N_SQRS/2; i++) {
+		printsq(i, FALSE);
+		putchar('\t');
+		printsq(i+N_SQRS/2, TRUE);
+	}
+}
+/*
+ *	This routine lists where each player is.
+ */
+where() {
+
+	reg int	i;
+	char	*bsp;
+
+	printf("%s Player\n", header);
+	for (i = 0; i < num_play; i++) {
+		printsq(play[i].loc, FALSE);
+		printf(" %s (%d)", play[i].name, i+1);
+		if (cur_p == &play[i])
+			printf(" *");
+		putchar('\n');
+	}
+}
+/*
+ *	This routine prints out an individual square
+ */
+printsq(sqn, eoln)
+int		sqn;
+reg bool	eoln; {
+
+	reg int		rnt;
+	reg PROP	*pp;
+	reg SQUARE	*sqp;
+	int		i;
+
+	sqp = &board[sqn];
+	printf("%-10.10s", sqp->name);
+	switch (sqp->type) {
+	  case SAFE:
+	  case CC:
+	  case CHANCE:
+	  case INC_TAX:
+	  case GOTO_J:
+	  case LUX_TAX:
+	  case IN_JAIL:
+spec:
+		if (!eoln)
+			printf("                        ");
+		break;
+	  case PRPTY:
+		pp = sqp->desc;
+		if (sqp->owner < 0) {
+			printf(" - %-8.8s %3d", pp->mon_desc->name, sqp->cost);
+			if (!eoln)
+				printf("         ");
+			break;
+		}
+		printf(" %d %-8.8s %3d", sqp->owner+1, pp->mon_desc->name,
+			sqp->cost);
+		printmorg(sqp);
+		if (pp->monop) {
+			if (pp->houses < 5)
+				if (pp->houses > 0)
+					printf("%d %4d", pp->houses,
+						pp->rent[pp->houses]);
+				else
+					printf("0 %4d", pp->rent[0] * 2);
+			else
+				printf("H %4d", pp->rent[5]);
+		}
+		else
+			printf("  %4d", pp->rent[0]);
+		break;
+	  case UTIL:
+		if (sqp->owner < 0) {
+			printf(" -          150");
+			if (!eoln)
+				printf("         ");
+			break;
+		}
+		printf(" %d          150", sqp->owner+1);
+		printmorg(sqp);
+		printf("%d", play[sqp->owner].num_util);
+		if (!eoln)
+			printf("    ");
+		break;
+	  case RR:
+		if (sqp->owner < 0) {
+			printf(" - Railroad 200");
+			if (!eoln)
+				printf("         ");
+			break;
+		}
+		printf(" %d Railroad 200", sqp->owner+1);
+		printmorg(sqp);
+		rnt = 25;
+		rnt <<= play[sqp->owner].num_rr - 1;
+		printf("%d %4d", play[sqp->owner].num_rr, 25 << (play[sqp->owner].num_rr - 1));
+		break;
+	}
+	if (eoln)
+		putchar('\n');
+}
+/*
+ *	This routine prints out the mortgage flag.
+ */
+printmorg(sqp)
+reg SQUARE	*sqp; {
+
+	if (sqp->desc->morg)
+		printf(" * ");
+	else
+		printf("   ");
+}
+/*
+ *	This routine lists the holdings of the player given
+ */
+printhold(pl)
+reg int	pl; {
+
+	reg OWN		*op;
+	reg PLAY	*pp;
+	char		*bsp;
+
+	pp = &play[pl];
+	printf("%s's (%d) holdings (Total worth: $%d):\n", name_list[pl], pl+1,
+		pp->money + prop_worth(pp));
+	printf("\t$%d", pp->money);
+	if (pp->num_gojf) {
+		printf(", %d get-out-of-jail-free card", pp->num_gojf);
+		if (pp->num_gojf > 1)
+			putchar('s');
+	}
+	putchar('\n');
+	if (pp->own_list) {
+		printf("\t%s\n", header);
+		for (op = pp->own_list; op; op = op->next) {
+			putchar('\t');
+			printsq(sqnum(op->sqr), TRUE);
+		}
+	}
+}
diff --git a/games/monop/prop.c b/games/monop/prop.c
new file mode 100644
index 0000000..0feb498
--- /dev/null
+++ b/games/monop/prop.c
@@ -0,0 +1,211 @@
+/*
+ * Copyright (c) 1980, 1993
+ *	The Regents of the University of California.  All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the University of
+ *	California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ */
+
+#ifndef lint
+static char sccsid[] = "@(#)prop.c	8.1 (Berkeley) 5/31/93";
+#endif /* not lint */
+
+# include	"monop.ext"
+
+extern char *calloc();
+
+/*
+ *	This routine deals with buying property, setting all the
+ * appropriate flags.
+ */
+buy(player, sqrp)
+reg int		player;
+reg SQUARE	*sqrp; {
+
+	trading = FALSE;
+	sqrp->owner = player;
+	add_list(player, &(play[player].own_list), cur_p->loc);
+}
+/*
+ *	This routine adds an item to the list.
+ */
+add_list(plr, head, op_sqr)
+int	plr;
+OWN	**head;
+int	op_sqr; {
+
+	reg int	val;
+	reg OWN	*tp, *last_tp;
+	MON	*mp;
+	OWN	*op;
+
+	op = (OWN *)calloc(1, sizeof (OWN));
+	op->sqr = &board[op_sqr];
+	val = value(op->sqr);
+	last_tp = NULL;
+	for (tp = *head; tp && value(tp->sqr) < val; tp = tp->next)
+		if (val == value(tp->sqr)) {
+			cfree(op);
+			return;
+		}
+		else
+			last_tp = tp;
+	op->next = tp;
+	if (last_tp != NULL)
+		last_tp->next = op;
+	else
+		*head = op;
+	if (!trading)
+		set_ownlist(plr);
+}
+/*
+ *	This routine deletes property from the list.
+ */
+del_list(plr, head, op_sqr)
+int	plr;
+OWN	**head;
+shrt	op_sqr; {
+
+	reg int	i;
+	reg OWN	*op, *last_op;
+
+	switch (board[op_sqr].type) {
+	  case PRPTY:
+		board[op_sqr].desc->mon_desc->num_own--;
+		break;
+	  case RR:
+		play[plr].num_rr--;
+		break;
+	  case UTIL:
+		play[plr].num_util--;
+		break;
+	}
+	last_op = NULL;
+	for (op = *head; op; op = op->next)
+		if (op->sqr == &board[op_sqr])
+			break;
+		else
+			last_op = op;
+	if (last_op == NULL)
+		*head = op->next;
+	else {
+		last_op->next = op->next;
+		cfree(op);
+	}
+}
+/*
+ *	This routine calculates the value for sorting of the
+ * given square.
+ */
+value(sqp)
+reg SQUARE	*sqp; {
+
+	reg int	sqr;
+
+	sqr = sqnum(sqp);
+	switch (sqp->type) {
+	  case SAFE:
+		return 0;
+	  default:		/* Specials, etc */
+		return 1;
+	  case UTIL:
+		if (sqr == 12)
+			return 2;
+		else
+			return 3;
+	  case RR:
+		return 4 + sqr/10;
+	  case PRPTY:
+		return 8 + (sqp->desc) - prop;
+	}
+}
+/*
+ *	This routine accepts bids for the current peice
+ * of property.
+ */
+bid() {
+
+	static bool	in[MAX_PL];
+	reg int		i, num_in, cur_max;
+	char		buf[80];
+	int		cur_bid;
+
+	printf("\nSo it goes up for auction.  Type your bid after your name\n");
+	for (i = 0; i < num_play; i++)
+		in[i] = TRUE;
+	i = -1;
+	cur_max = 0;
+	num_in = num_play;
+	while (num_in > 1 || (cur_max == 0 && num_in > 0)) {
+		i = ++i % num_play;
+		if (in[i]) {
+			do {
+				(void)sprintf(buf, "%s: ", name_list[i]);
+				cur_bid = get_int(buf);
+				if (cur_bid == 0) {
+					in[i] = FALSE;
+					if (--num_in == 0)
+						break;
+				}
+				else if (cur_bid <= cur_max) {
+					printf("You must bid higher than %d to stay in\n", cur_max);
+					printf("(bid of 0 drops you out)\n");
+				}
+			} while (cur_bid != 0 && cur_bid <= cur_max);
+			cur_max = (cur_bid ? cur_bid : cur_max);
+		}
+	}
+	if (cur_max != 0) {
+		while (!in[i])
+			i = ++i % num_play;
+		printf("It goes to %s (%d) for $%d\n",play[i].name,i+1,cur_max);
+		buy(i, &board[cur_p->loc]);
+		play[i].money -= cur_max;
+	}
+	else
+		printf("Nobody seems to want it, so we'll leave it for later\n");
+}
+/*
+ *	This routine calculates the value of the property
+ * of given player.
+ */
+prop_worth(plp)
+reg PLAY	*plp; {
+
+	reg OWN	*op;
+	reg int	worth;
+
+	worth = 0;
+	for (op = plp->own_list; op; op = op->next) {
+		if (op->sqr->type == PRPTY && op->sqr->desc->monop)
+			worth += op->sqr->desc->mon_desc->h_cost * 50 *
+			    op->sqr->desc->houses;
+		worth += op->sqr->cost;
+	}
+	return worth;
+}
diff --git a/games/monop/prop.dat b/games/monop/prop.dat
new file mode 100644
index 0000000..f9fc072
--- /dev/null
+++ b/games/monop/prop.dat
@@ -0,0 +1,58 @@
+/*-
+ * Copyright (c) 1980, 1993
+ *	The Regents of the University of California.  All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the University of
+ *	California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ *
+ *	@(#)prop.dat	5.4 (Berkeley) 5/31/93
+ */
+
+/* morg	monop	square	houses	mon_desc	rent	*/
+{0,	0,	1,	0,	&mon[0],	{ 2, 10, 30,  90, 160, 250} },
+{0,	0,	3,	0,	&mon[0],	{ 4, 20, 60, 180, 320, 450} },
+{0,	0,	6,	0,	&mon[1],	{ 6, 30, 90, 270, 400, 550} },
+{0,	0,	7,	0,	&mon[1],	{ 6, 30, 90, 270, 400, 550} },
+{0,	0,	9,	0,	&mon[1],	{ 8, 40,100, 300, 450, 600} },
+{0,	0,	11,	0,	&mon[2],	{10, 50,150, 450, 625, 750} },
+{0,	0,	13,	0,	&mon[2],	{10, 50,150, 450, 625, 750} },
+{0,	0,	14,	0,	&mon[2],	{12, 60,180, 500, 700, 900} },
+{0,	0,	16,	0,	&mon[3],	{14, 70,200, 550, 750, 950} },
+{0,	0,	17,	0,	&mon[3],	{14, 70,200, 550, 750, 950} },
+{0,	0,	19,	0,	&mon[3],	{16, 80,220, 600, 800,1000} },
+{0,	0,	21,	0,	&mon[4],	{18, 90,250, 700, 875,1050} },
+{0,	0,	23,	0,	&mon[4],	{18, 90,250, 700, 875,1050} },
+{0,	0,	24,	0,	&mon[4],	{20,100,300, 750, 925,1100} },
+{0,	0,	26,	0,	&mon[5],	{22,110,330, 800, 975,1150} },
+{0,	0,	27,	0,	&mon[5],	{22,110,330, 800, 975,1150} },
+{0,	0,	29,	0,	&mon[5],	{24,120,360, 850,1025,1200} },
+{0,	0,	31,	0,	&mon[6],	{26,130,390, 900,1100,1275} },
+{0,	0,	32,	0,	&mon[6],	{26,130,390, 900,1100,1275} },
+{0,	0,	34,	0,	&mon[6],	{28,150,450,1000,1200,1400} },
+{0,	0,	37,	0,	&mon[7],	{35,175,500,1100,1300,1500} },
+{0,	0,	39,	0,	&mon[7],	{50,200,600,1400,1700,2000} }
diff --git a/games/monop/rent.c b/games/monop/rent.c
new file mode 100644
index 0000000..4954279
--- /dev/null
+++ b/games/monop/rent.c
@@ -0,0 +1,92 @@
+/*
+ * Copyright (c) 1980, 1993
+ *	The Regents of the University of California.  All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the University of
+ *	California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ */
+
+#ifndef lint
+static char sccsid[] = "@(#)rent.c	8.1 (Berkeley) 5/31/93";
+#endif /* not lint */
+
+# include	"monop.ext"
+
+/*
+ *	This routine has the player pay rent
+ */
+rent(sqp)
+reg SQUARE	*sqp; {
+
+	reg int		rnt;
+	reg PROP	*pp;
+	PLAY		*plp;
+
+	plp = &play[sqp->owner];
+	printf("Owned by %s\n", plp->name);
+	if (sqp->desc->morg) {
+		lucky("The thing is mortgaged.  ");
+		return;
+	}
+	switch (sqp->type) {
+	  case PRPTY:
+		pp = sqp->desc;
+		if (pp->monop)
+			if (pp->houses == 0)
+				printf("rent is %d\n", rnt=pp->rent[0] * 2);
+			else if (pp->houses < 5)
+				printf("with %d houses, rent is %d\n",
+				    pp->houses, rnt=pp->rent[pp->houses]);
+			else
+				printf("with a hotel, rent is %d\n",
+				    rnt=pp->rent[pp->houses]);
+		else
+			printf("rent is %d\n", rnt = pp->rent[0]);
+		break;
+	  case RR:
+		rnt = 25;
+		rnt <<= (plp->num_rr - 1);
+		if (spec)
+			rnt <<= 1;
+		printf("rent is %d\n", rnt);
+		break;
+	  case UTIL:
+		rnt = roll(2, 6);
+		if (plp->num_util == 2 || spec) {
+			printf("rent is 10 * roll (%d) = %d\n", rnt, rnt * 10);
+			rnt *= 10;
+		}
+		else {
+			printf("rent is 4 * roll (%d) = %d\n", rnt, rnt * 4);
+			rnt *= 4;
+		}
+		break;
+	}
+	cur_p->money -= rnt;
+	plp->money += rnt;
+}
diff --git a/games/monop/roll.c b/games/monop/roll.c
new file mode 100644
index 0000000..633dfea
--- /dev/null
+++ b/games/monop/roll.c
@@ -0,0 +1,74 @@
+/*
+ * Copyright (c) 1980, 1993
+ *	The Regents of the University of California.  All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the University of
+ *	California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ */
+
+#ifndef lint
+static char sccsid[] = "@(#)roll.c	8.1 (Berkeley) 5/31/93";
+#endif /* not lint */
+
+/*
+ *	This routine rolls ndie nside-sided dice.
+ */
+
+# define	reg	register
+
+# if defined(pdp11)
+# define	MAXRAND	32767L
+
+roll(ndie, nsides)
+int	ndie, nsides; {
+
+	reg long	tot;
+	reg unsigned	n, r;
+
+	tot = 0;
+	n = ndie;
+	while (n--)
+		tot += rand();
+	return (int) ((tot * (long) nsides) / ((long) MAXRAND + 1)) + ndie;
+}
+
+# else
+
+roll(ndie, nsides)
+reg int	ndie, nsides; {
+
+	reg int		tot, r;
+	reg double	num_sides;
+
+	num_sides = nsides;
+	tot = 0;
+	while (ndie--)
+		tot += (r = rand()) * (num_sides / 017777777777) + 1;
+	return tot;
+}
+# endif
diff --git a/games/monop/spec.c b/games/monop/spec.c
new file mode 100644
index 0000000..958ce61
--- /dev/null
+++ b/games/monop/spec.c
@@ -0,0 +1,86 @@
+/*
+ * Copyright (c) 1980, 1993
+ *	The Regents of the University of California.  All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the University of
+ *	California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ */
+
+#ifndef lint
+static char sccsid[] = "@(#)spec.c	8.1 (Berkeley) 5/31/93";
+#endif /* not lint */
+
+# include	"monop.ext"
+
+static char	*perc[]	= {
+	"10%", "ten percent", "%", "$200", "200", 0
+	};
+
+inc_tax() {			/* collect income tax			*/
+
+	reg int	worth, com_num;
+
+	com_num = getinp("Do you wish to lose 10%% of your total worth or $200? ", perc);
+	worth = cur_p->money + prop_worth(cur_p);
+	printf("You were worth $%d", worth);
+	worth /= 10;
+	if (com_num > 2) {
+		if (worth < 200)
+			printf(".  Good try, but not quite.\n");
+		else if (worth > 200)
+			lucky(".\nGood guess.  ");
+		cur_p->money -= 200;
+	}
+	else {
+		printf(", so you pay $%d", worth);
+		if (worth > 200)
+			printf("  OUCH!!!!.\n");
+		else if (worth < 200)
+			lucky("\nGood guess.  ");
+		cur_p->money -= worth;
+	}
+	if (worth == 200)
+		lucky("\nIt makes no difference!  ");
+}
+goto_jail() {			/* move player to jail			*/
+
+	cur_p->loc = JAIL;
+}
+lux_tax() {			/* landing on luxury tax		*/
+
+	printf("You lose $75\n");
+	cur_p->money -= 75;
+}
+cc() {				/* draw community chest card		*/
+
+	get_card(&CC_D);
+}
+chance() {			/* draw chance card			*/
+
+	get_card(&CH_D);
+}
diff --git a/games/monop/trade.c b/games/monop/trade.c
new file mode 100644
index 0000000..4c356a8
--- /dev/null
+++ b/games/monop/trade.c
@@ -0,0 +1,306 @@
+/*
+ * Copyright (c) 1980, 1993
+ *	The Regents of the University of California.  All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the University of
+ *	California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ */
+
+#ifndef lint
+static char sccsid[] = "@(#)trade.c	8.1 (Berkeley) 5/31/93";
+#endif /* not lint */
+
+# include	"monop.ext"
+
+struct trd_st {			/* how much to give to other player	*/
+	int	trader;			/* trader number		*/
+	int	cash;			/* amount of cash 		*/
+	int	gojf;			/* # get-out-of-jail-free cards	*/
+	OWN	*prop_list;		/* property list		*/
+};
+
+typedef	struct trd_st	TRADE;
+
+static char	*list[MAX_PRP+2];
+
+static int	used[MAX_PRP];
+
+static TRADE	trades[2];
+
+trade() {
+
+	reg int	tradee, i;
+
+	trading = TRUE;
+	for (i = 0; i < 2; i++) {
+		trades[i].cash = 0;
+		trades[i].gojf = FALSE;
+		trades[i].prop_list = NULL;
+	}
+over:
+	if (num_play == 1) {
+		printf("There ain't no-one around to trade WITH!!\n");
+		return;
+	}
+	if (num_play > 2) {
+		tradee = getinp("Which player do you wish to trade with? ",
+		    name_list);
+		if (tradee == num_play)
+			return;
+		if (tradee == player) {
+			printf("You can't trade with yourself!\n");
+			goto over;
+		}
+	}
+	else
+		tradee = 1 - player;
+	get_list(0, player);
+	get_list(1, tradee);
+	if (getyn("Do you wish a summary? ") == 0)
+		summate();
+	if (getyn("Is the trade ok? ") == 0)
+		do_trade();
+}
+/*
+ *	This routine gets the list of things to be trader for the
+ * player, and puts in the structure given.
+ */
+get_list(struct_no, play_no)
+int	struct_no, play_no; {
+
+	reg int		sn, pn;
+	reg PLAY	*pp;
+	int		numin, prop, num_prp;
+	OWN		*op;
+	TRADE		*tp;
+
+	for (numin = 0; numin < MAX_PRP; numin++)
+		used[numin] = FALSE;
+	sn = struct_no, pn = play_no;
+	pp = &play[pn];
+	tp = &trades[sn];
+	tp->trader = pn;
+	printf("player %s (%d):\n", pp->name, pn+1);
+	if (pp->own_list) {
+		numin = set_list(pp->own_list);
+		for (num_prp = numin; num_prp; ) {
+			prop = getinp("Which property do you wish to trade? ",
+			    list);
+			if (prop == numin)
+				break;
+			else if (used[prop])
+				printf("You've already allocated that.\n");
+			else {
+				num_prp--;
+				used[prop] = TRUE;
+				for (op = pp->own_list; prop--; op = op->next)
+					continue;
+				add_list(pn, &(tp->prop_list), sqnum(op->sqr));
+			}
+		}
+	}
+	if (pp->money > 0) {
+		printf("You have $%d.  ", pp->money);
+		tp->cash = get_int("How much are you trading? ");
+	}
+	if (pp->num_gojf > 0) {
+once_more:
+		printf("You have %d get-out-of-jail-free cards. ",pp->num_gojf);
+		tp->gojf = get_int("How many are you trading? ");
+		if (tp->gojf > pp->num_gojf) {
+			printf("You don't have that many.  Try again.\n");
+			goto once_more;
+		}
+	}
+}
+/*
+ *	This routine sets up the list of tradable property.
+ */
+set_list(the_list)
+reg OWN	*the_list; {
+
+	reg int	i;
+	reg OWN	*op;
+
+	i = 0;
+	for (op = the_list; op; op = op->next)
+		if (!used[i])
+			list[i++] = op->sqr->name;
+	list[i++] = "done";
+	list[i--] = 0;
+	return i;
+}
+/*
+ *	This routine summates the trade.
+ */
+summate() {
+
+	reg bool	some;
+	reg int		i;
+	reg TRADE	*tp;
+	OWN	*op;
+
+	for (i = 0; i < 2; i++) {
+		tp = &trades[i];
+		some = FALSE;
+		printf("Player %s (%d) gives:\n", play[tp->trader].name,
+			tp->trader+1);
+		if (tp->cash > 0)
+			printf("\t$%d\n", tp->cash), some++;
+		if (tp->gojf > 0)
+			printf("\t%d get-out-of-jail-free card(s)\n", tp->gojf),
+			some++;
+		if (tp->prop_list) {
+			for (op = tp->prop_list; op; op = op->next)
+				putchar('\t'), printsq(sqnum(op->sqr), TRUE);
+			some++;
+		}
+		if (!some)
+			printf("\t-- Nothing --\n");
+	}
+}
+/*
+ *	This routine actually executes the trade.
+ */
+do_trade() {
+
+	move_em(&trades[0], &trades[1]);
+	move_em(&trades[1], &trades[0]);
+}
+/*
+ *	This routine does a switch from one player to another
+ */
+move_em(from, to)
+TRADE	*from, *to; {
+
+	reg PLAY	*pl_fr, *pl_to;
+	reg OWN		*op;
+
+	pl_fr = &play[from->trader];
+	pl_to = &play[to->trader];
+
+	pl_fr->money -= from->cash;
+	pl_to->money += from->cash;
+	pl_fr->num_gojf -= from->gojf;
+	pl_to->num_gojf += from->gojf;
+	for (op = from->prop_list; op; op = op->next) {
+		add_list(to->trader, &(pl_to->own_list), sqnum(op->sqr));
+		op->sqr->owner = to->trader;
+		del_list(from->trader, &(pl_fr->own_list), sqnum(op->sqr));
+	}
+	set_ownlist(to->trader);
+}
+/*
+ *	This routine lets a player resign
+ */
+resign() {
+
+	reg int	i, new_own;
+	reg OWN	*op;
+	SQUARE	*sqp;
+
+	if (cur_p->money <= 0) {
+		switch (board[cur_p->loc].type) {
+		  case UTIL:
+		  case RR:
+		  case PRPTY:
+			new_own = board[cur_p->loc].owner;
+			break;
+		  default:		/* Chance, taxes, etc */
+			new_own = num_play;
+			break;
+		}
+		if (new_own == num_play)
+			printf("You would resign to the bank\n");
+		else
+			printf("You would resign to %s\n", name_list[new_own]);
+	}
+	else if (num_play == 1) {
+		new_own = num_play;
+		printf("You would resign to the bank\n");
+	}
+	else {
+		name_list[num_play] = "bank";
+		do {
+			new_own = getinp("Who do you wish to resign to? ",
+			    name_list);
+			if (new_own == player)
+				printf("You can't resign to yourself!!\n");
+		} while (new_own == player);
+		name_list[num_play] = "done";
+	}
+	if (getyn("Do you really want to resign? ", yn) != 0)
+		return;
+	if (num_play == 1) {
+		printf("Then NOBODY wins (not even YOU!)\n");
+		exit(0);
+	}
+	if (new_own < num_play) {	/* resign to player		*/
+		printf("resigning to player\n");
+		trades[0].trader = new_own;
+		trades[0].cash = trades[0].gojf = 0;
+		trades[0].prop_list = NULL;
+		trades[1].trader = player;
+		trades[1].cash = cur_p->money > 0 ? cur_p->money : 0;
+		trades[1].gojf = cur_p->num_gojf;
+		trades[1].prop_list = cur_p->own_list;
+		do_trade();
+	}
+	else {				/* resign to bank		*/
+		printf("resigning to bank\n");
+		for (op = cur_p->own_list; op; op = op->next) {
+			sqp = op->sqr;
+			sqp->owner = -1;
+			sqp->desc->morg = FALSE;
+			if (sqp->type == PRPTY) {
+				isnot_monop(sqp->desc->mon_desc);
+				sqp->desc->houses = 0;
+			}
+		}
+		if (cur_p->num_gojf)
+			ret_card(cur_p);
+	}
+	for (i = player; i < num_play; i++) {
+		name_list[i] = name_list[i+1];
+		if (i + 1 < num_play)
+			cpy_st(&play[i], &play[i+1], sizeof (PLAY));
+	}
+	name_list[num_play--] = 0;
+	for (i = 0; i < N_SQRS; i++)
+		if (board[i].owner > player)
+			--board[i].owner;
+	player = --player < 0 ? num_play - 1 : player;
+	next_play();
+	if (num_play < 2) {
+		printf("\nThen %s WINS!!!!!\n", play[0].name);
+		printhold(0);
+		printf("That's a grand worth of $%d.\n",
+			play[0].money+prop_worth(&play[0]));
+		exit(0);
+	}
+}
diff --git a/games/number/Makefile b/games/number/Makefile
new file mode 100644
index 0000000..dd18edb
--- /dev/null
+++ b/games/number/Makefile
@@ -0,0 +1,6 @@
+#	@(#)Makefile	8.1 (Berkeley) 5/31/93
+
+PROG=	number
+MAN6=	number.6
+
+.include <bsd.prog.mk>
diff --git a/games/number/number.6 b/games/number/number.6
new file mode 100644
index 0000000..15eb700
--- /dev/null
+++ b/games/number/number.6
@@ -0,0 +1,60 @@
+.\" Copyright (c) 1989, 1993, 1994
+.\"	The Regents of the University of California.  All rights reserved.
+.\"
+.\" Redistribution and use in source and binary forms, with or without
+.\" modification, are permitted provided that the following conditions
+.\" are met:
+.\" 1. Redistributions of source code must retain the above copyright
+.\"    notice, this list of conditions and the following disclaimer.
+.\" 2. Redistributions in binary form must reproduce the above copyright
+.\"    notice, this list of conditions and the following disclaimer in the
+.\"    documentation and/or other materials provided with the distribution.
+.\" 3. All advertising materials mentioning features or use of this software
+.\"    must display the following acknowledgement:
+.\"	This product includes software developed by the University of
+.\"	California, Berkeley and its contributors.
+.\" 4. Neither the name of the University nor the names of its contributors
+.\"    may be used to endorse or promote products derived from this software
+.\"    without specific prior written permission.
+.\"
+.\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+.\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+.\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+.\" ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+.\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+.\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+.\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+.\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+.\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+.\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+.\" SUCH DAMAGE.
+.\"
+.\"	@(#)number.6	8.2 (Berkeley) 3/31/94
+.\"
+.Dd March 31, 1994
+.Dt NUMBER 6
+.Os
+.Sh NAME
+number \- convert Arabic numerals to English
+.Sh SYNOPSIS
+.Nm number
+.Op Fl l
+.Op Ar \&# ...
+.Sh DESCRIPTION
+The
+.Nm number
+utility prints the English equivalent of the number to the standard
+output, with each 10^3 magnitude displayed on a separate line.
+If no argument is specified,
+.Nm number
+reads lines from the standard input.
+.Pp
+The options are as follows:
+.Bl -tag -width Ds
+.It Fl l
+Display the number on a single line.
+.El
+.Sh BUGS
+Although
+.Nm number
+understand fractions, it doesn't understand exponents.
diff --git a/games/number/number.c b/games/number/number.c
new file mode 100644
index 0000000..13d139b
--- /dev/null
+++ b/games/number/number.c
@@ -0,0 +1,291 @@
+/*
+ * Copyright (c) 1988, 1993, 1994
+ *	The Regents of the University of California.  All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the University of
+ *	California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ */
+
+#ifndef lint
+static char copyright[] =
+"@(#) Copyright (c) 1988, 1993, 1994\n\
+	The Regents of the University of California.  All rights reserved.\n";
+#endif /* not lint */
+
+#ifndef lint
+static char sccsid[] = "@(#)number.c	8.2 (Berkeley) 3/31/94";
+#endif /* not lint */
+
+#include <sys/types.h>
+
+#include <ctype.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <err.h>
+
+#define	MAXNUM		65		/* Biggest number we handle. */
+
+static char	*name1[] = {
+	"",		"one",		"two",		"three",
+	"four",		"five",		"six",		"seven",
+	"eight",	"nine",		"ten",		"eleven",
+	"twelve",	"thirteen",	"fourteen",	"fifteen",
+	"sixteen",	"seventeen",	"eighteen",	"nineteen",
+},
+		*name2[] = {
+	"",		"ten",		"twenty",	"thirty",
+	"forty",	"fifty",	"sixty",	"seventy",
+	"eighty",	"ninety",
+},
+		*name3[] = {
+	"hundred",	"thousand",	"million",	"billion",
+	"trillion",	"quadrillion",	"quintillion",	"sextillion",
+	"septillion",	"octillion",	"nonillion",	"decillion",
+	"undecillion",	"duodecillion",	"tredecillion",	"quattuordecillion",
+	"quindecillion",		"sexdecillion",	
+	"septendecillion",		"octodecillion",
+	"novemdecillion",		"vigintillion",
+};
+
+void	convert __P((char *));
+int	number __P((char *, int));
+void	pfract __P((int));
+void	toobig __P((void));
+int	unit __P((int, char *));
+void	usage __P((void));
+
+int lflag;
+
+int
+main(argc, argv)
+	int argc;
+	char *argv[];
+{
+	int ch, first;
+	char line[256];
+
+	lflag = 0;
+	while ((ch = getopt(argc, argv, "l")) != EOF)
+		switch (ch) {
+		case 'l':
+			lflag = 1;
+			break;
+		case '?':
+		default:
+			usage();
+		}
+	argc -= optind;
+	argv += optind;
+
+	if (*argv == NULL)
+		for (first = 1;
+		    fgets(line, sizeof(line), stdin) != NULL; first = 0) {
+			if (strchr(line, '\n') == NULL)
+				errx(1, "line too long.");
+			if (!first)
+				(void)printf("...\n");
+			convert(line);
+		}
+	else
+		for (first = 1; *argv != NULL; first = 0, ++argv) {
+			if (!first)
+				(void)printf("...\n");
+			convert(*argv);
+		}
+	exit(0);
+}
+
+void
+convert(line)
+	char *line;
+{
+	register flen, len, rval;
+	register char *p, *fraction;
+
+	fraction = NULL;
+	for (p = line; *p != '\0' && *p != '\n'; ++p) {
+		if (isblank(*p)) {
+			if (p == line) {
+				++line;
+				continue;
+			}
+			goto badnum;
+		}
+		if (isdigit(*p))
+			continue;
+		switch (*p) {
+		case '.':
+			if (fraction != NULL)
+				goto badnum;
+			fraction = p + 1;
+			*p = '\0';
+			break;
+		case '-':
+			if (p == line)
+				break;
+			/* FALLTHROUGH */
+		default:
+badnum:			errx(1, "illegal number: %s", line);
+			break;
+		}
+	}
+	*p = '\0';
+
+	if ((len = strlen(line)) > MAXNUM ||
+	    fraction != NULL && (flen = strlen(fraction)) > MAXNUM)
+		errx(1, "number too large, max %d digits.", MAXNUM);
+
+	if (*line == '-') {
+		(void)printf("minus%s", lflag ? " " : "\n");
+		++line;
+	}
+
+	rval = len > 0 ? unit(len, line) : 0;
+	if (fraction != NULL && flen != 0)
+		for (p = fraction; *p != '\0'; ++p)
+			if (*p != '0') {
+				if (rval)
+					(void)printf("%sand%s",
+					    lflag ? " " : "",
+					    lflag ? " " : "\n");
+				if (unit(flen, fraction)) {
+					if (lflag)
+						(void)printf(" ");
+					pfract(flen);
+					rval = 1;
+				}
+				break;
+			}
+	if (!rval)
+		(void)printf("zero%s", lflag ? "" : ".\n");
+	if (lflag)
+		(void)printf("\n");
+}
+
+int
+unit(len, p)
+	register int len;
+	register char *p;
+{
+	register int off, rval;
+
+	rval = 0;
+	if (len > 3) {
+		if (len % 3) {
+			off = len % 3;
+			len -= off;
+			if (number(p, off)) {
+				rval = 1;
+				(void)printf(" %s%s",
+				    name3[len / 3], lflag ? " " : ".\n");
+			}
+			p += off;
+		}
+		for (; len > 3; p += 3) {
+			len -= 3;
+			if (number(p, 3)) {
+				rval = 1;
+				(void)printf(" %s%s",
+				    name3[len / 3], lflag ? " " : ".\n");
+			}
+		}
+	}
+	if (number(p, len)) {
+		if (!lflag)
+			(void)printf(".\n");
+		rval = 1;
+	}
+	return (rval);
+}
+
+int
+number(p, len)
+	register char *p;
+	int len;
+{
+	register int val, rval;
+
+	rval = 0;
+	switch (len) {
+	case 3:
+		if (*p != '0') {
+			rval = 1;
+			(void)printf("%s hundred", name1[*p - '0']);
+		}
+		++p;
+		/* FALLTHROUGH */
+	case 2:
+		val = (p[1] - '0') + (p[0] - '0') * 10;
+		if (val) {
+			if (rval)
+				(void)printf(" ");
+			if (val < 20)
+				(void)printf("%s", name1[val]);
+			else {
+				(void)printf("%s", name2[val / 10]);
+				if (val % 10)
+					(void)printf("-%s", name1[val % 10]);
+			}
+			rval = 1;
+		}
+		break;
+	case 1:
+		if (*p != '0') {
+			rval = 1;
+			(void)printf("%s", name1[*p - '0']);
+		}
+	}
+	return (rval);
+}
+
+void
+pfract(len)
+	int len;
+{
+	static char *pref[] = { "", "ten-", "hundred-" };
+
+	switch(len) {
+	case 1:
+		(void)printf("tenths.\n");
+		break;
+	case 2:
+		(void)printf("hundredths.\n");
+		break;
+	default:
+		(void)printf("%s%sths.\n", pref[len % 3], name3[len / 3]);
+		break;
+	}
+}
+
+void
+usage()
+{
+	(void)fprintf(stderr, "usage: number [# ...]\n");
+	exit(1);
+}
diff --git a/games/phantasia/COPYRIGHT b/games/phantasia/COPYRIGHT
new file mode 100644
index 0000000..71a58b3
--- /dev/null
+++ b/games/phantasia/COPYRIGHT
@@ -0,0 +1,24 @@
+This entire subtree is explicitly not copyrighted.
+The following notice applies to all files found here.  None of
+these files contain AT&T proprietary source code.
+_____________________________________________________________________________
+
+/* DISCLAIMER:
+ *
+ * This game is distributed for free as is.  It is not guaranteed to work
+ * in every conceivable environment.  It is not even guaranteed to work
+ * in ANY environment.
+ *
+ * This game is distributed without notice of copyright, therefore it
+ * may be used in any manner the recipient sees fit.  However, the
+ * author assumes no responsibility for maintaining or revising this
+ * game, in its original form, or any derivitives thereof.
+ *
+ * The author shall not be responsible for any loss, cost, or damage,
+ * including consequential damage, caused by reliance on this material.
+ *
+ * The author makes no warranties, express or implied, including warranties
+ * of merchantability or fitness for a particular purpose or use.
+ *
+ * AT&T is in no way connected with this game.
+ */
diff --git a/games/phantasia/Makefile b/games/phantasia/Makefile
new file mode 100644
index 0000000..da4264f
--- /dev/null
+++ b/games/phantasia/Makefile
@@ -0,0 +1,30 @@
+#	@(#)Makefile	8.1 (Berkeley) 5/31/93
+
+PROG=	phantasia
+SRCS=	main.c fight.c io.c interplayer.c gamesupport.c misc.c phantglobs.c
+DPADD=	${LIBM} ${LIBCURSES} ${LIBTERM} ${LIBCOMPAT}
+LDADD=	-lm -lcurses -ltermlib -lcompat
+HIDEGAME=hidegame
+MAN6=	phantasia.6
+CLEANFILES+=map setup setup.o
+
+all: setup phantasia ${MAN6}
+
+setup: phantglobs.o setup.o monsters.asc ${LIBM} 
+	${CC} phantglobs.o setup.o -o ${.TARGET} -lm
+
+beforeinstall: 
+	./setup -m ${.CURDIR}/monsters.asc
+	chown games.bin /var/games/phantasia/*
+
+# Make Phantasia map.  Change the map commands reflect your installation.
+# PLOTDEVICE is used for plotting the map.  Change as appropriate.
+
+map: map.c
+	${CC} -O ${.CURDIR}/map.c -lplot -o ${.TARGET}
+	./map | plot > /dev/tty
+
+phantasia.0: phantasia.6
+	tbl ${.CURDIR}/phantasia.6 | nroff -man > ${.TARGET}
+
+.include <bsd.prog.mk>
diff --git a/games/phantasia/OWNER b/games/phantasia/OWNER
new file mode 100644
index 0000000..28387fe
--- /dev/null
+++ b/games/phantasia/OWNER
@@ -0,0 +1,6 @@
+	Edward Estes
+	AT&T
+	5555 Touhy Ave.
+	Skokie, IL  60077
+	(312) 982-3969
+	ihnp4!ttrde!estes
diff --git a/games/phantasia/README b/games/phantasia/README
new file mode 100644
index 0000000..d56a621
--- /dev/null
+++ b/games/phantasia/README
@@ -0,0 +1,82 @@
+June 25, 1986
+
+
+This is a much modified version of Phantasia.  It is intended to fix
+all reported bug fixes, enhance the game, and speed up the game.
+
+I have to thank Chris Robertson for many ideas which have made the game
+faster, and more user-friendly.  Most of her changes/additions are
+incorporated in this latest versions, although perhaps not in the exact
+manner of her design.  I left out a few items which were not in keeping
+with the spirit of the game.  (For example, I didn't like the extra lives
+and the pausing of the game.  I think it's too easy even WITHOUT that stuff.)
+
+CHANGES:
+
+    - Wormholes have been deleted (I never liked them anyway).
+    - The source code has been greatly enhanced for speed, size, readability,
+      and maintainability.
+      fight.c should no longer cause optimizers to run out of space.
+    - A few loopholes have been tightened to make the game more enjoyable.
+      (Except for those who are in the habit of exercising those loopholes.)
+    - Chris' map is enclosed.
+    - The "charac" file is not compatible with older versions of Phantasia
+      (3.3.1 and 3.3.1+).  A 'convert' program is provided to convert your
+      old file to the new format.  See Makefile for details.
+    - Movements can be made with HJKL for WSNE, respectively.
+    - Players may examine others while playing ('x') option.
+    - Monsters are now stored in a binary data base, to speed calling
+      monsters, and to ease formatting of monster listings.
+    - Taxes are collected on all gold and gems.
+    - Dead players can be resurrected by the 'wizard'.
+    - 'setup' is smarter, although not as smart as it should be.
+    - Players can change their names and passwords
+
+PORTABILTY:
+
+    I have tried to make this as non-machine/system specific as possible.
+
+    All identifiers are unique to 7 characters or less, dual case.
+
+    The code WILL NOT fit on a 16-bit machine without separate I/D.
+
+    Stdio MUST support fopen() with mode "r+".  I think this is true
+    for all Version 7 and later.
+
+    'curses' library functions are required.
+
+    All problems/solutions with portability should be reported to me,
+    and fixes will be included in subsequent versions of this software.
+
+
+Please send me any bugs, (of which I am sure there are many), you may find,
+but PLEASE be specific.  I cannot correct a bug which is described as:
+
+    "When I choose a character type, it blows up."
+
+    (What blows up?  What exactly was printed at the terminal?
+    Which character type was chosen?  Etc. . . ?)
+
+Also, please tell me which version of UN*X you are running, and upon
+which type of hardware.
+
+I will also do my best to help anyone with problems just trying to
+get the game running.  Again, I need to know which version of UN*X
+and what type of CPU.  Also, a copy of the output from 'make'
+would be extremely useful.
+
+Any and all ideas/suggestions/additions are more than welcome.  If
+you feel strongly enough about it, write the change and send it to me,
+and I will do my best to incorporate it in the next version of Phantasia.
+Otherwise, I will give serious thought to adding it myself.
+
+Follow the directions in the Makefile CAREFULLY to set up the game.
+Read the comments at the beginning of 'main.c', if you haven't already.
+
+Enjoy.
+
+Ted Estes
+AT&T Information Systems
+Skokie, IL  60077
+
+...!ihnp4!ttrdc!ttrda!estes
diff --git a/games/phantasia/convert.c b/games/phantasia/convert.c
new file mode 100644
index 0000000..f46343f
--- /dev/null
+++ b/games/phantasia/convert.c
@@ -0,0 +1,210 @@
+/*
+ *	Convert Phantasia 3.3.1 and 3.3.1+ characs file format to 3.3.2
+ *
+ */
+
+#include "include.h"
+#include "oldplayer.h"
+
+struct oldplayer	Oldplayer;		/* old format structure */
+struct player	Newplayer;			/* new format structure */
+
+char	Oldpfile[] = DEST/characs";		/* old format file */
+char	Newpfile[] = DEST/newcharacs";		/* new format file */
+
+/************************************************************************
+/
+/ FUNCTION NAME: main()
+/
+/ FUNCTION: convert old Phantasia player file to new format
+/
+/ AUTHOR: C. Robertson, 9/1/85  E. A. Estes, 3/12/86
+/
+/ ARGUMENTS: none
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: time(), exit(), fread(), fopen(), srandom(), floor(), 
+/	random(), strcmp(), fwrite(), strcpy(), fclose(), fprintf()
+/
+/ GLOBAL INPUTS: _iob[], Oldplayer, Newplayer
+/
+/ GLOBAL OUTPUTS: Oldplayer, Newplayer
+/
+/ DESCRIPTION:
+/	Read in old player structures and write out to new file in
+/	new format.
+/	Old player file is unmodified.
+/	New file is "DEST/newcharacs".
+/	#define PHANTPLUS to convert from 3.3.1+.
+/
+/************************************************************************/
+
+main()
+{
+FILE	*oldcharac, *newcharac;		/* to open old and new files */
+
+    if ((oldcharac = fopen(Oldpfile, "r")) == NULL)
+	{
+	fprintf(stderr, "Cannot open original character file!\n");
+	exit(1);
+	}
+
+    if ((newcharac = fopen(Newpfile, "w")) == NULL)
+	{
+	fprintf(stderr, "Cannot create new character file!\n");
+	exit(1);
+	}
+
+    srandom((unsigned) time((long *) NULL));	/* prime random numbers */
+
+    while (fread((char *) &Oldplayer, sizeof(struct oldplayer), 1, oldcharac) == 1)
+	/* read and convert old structures into new */
+	{
+	Newplayer.p_experience = Oldplayer.o_experience;
+	Newplayer.p_level = (double) Oldplayer.o_level;
+	Newplayer.p_strength =  Oldplayer.o_strength;
+	Newplayer.p_sword =  Oldplayer.o_sword;
+	Newplayer.p_might =  0.0;		/* game will calculate */
+	Newplayer.p_energy =  Oldplayer.o_energy;
+	Newplayer.p_maxenergy =  Oldplayer.o_maxenergy;
+	Newplayer.p_shield =  Oldplayer.o_shield;
+	Newplayer.p_quickness = (double) Oldplayer.o_quickness;
+	Newplayer.p_quksilver = (double) Oldplayer.o_quksilver;
+	Newplayer.p_speed = 0.0;		/* game will calculate */
+	Newplayer.p_magiclvl = Oldplayer.o_magiclvl;
+	Newplayer.p_mana = Oldplayer.o_mana;
+	Newplayer.p_brains = Oldplayer.o_brains;
+	Newplayer.p_poison = Oldplayer.o_poison;
+	Newplayer.p_gold = Oldplayer.o_gold;
+	Newplayer.p_gems = Oldplayer.o_gems;
+	Newplayer.p_sin = Oldplayer.o_sin;
+	Newplayer.p_x = Oldplayer.o_x;
+	Newplayer.p_y = Oldplayer.o_y;
+	Newplayer.p_1scratch = Oldplayer.o_1scratch;
+	Newplayer.p_2scratch = Oldplayer.o_2scratch;
+
+	Newplayer.p_ring.ring_type = Oldplayer.o_ring.ring_type;
+	Newplayer.p_ring.ring_duration = Oldplayer.o_ring.ring_duration;
+	Newplayer.p_ring.ring_inuse = FALSE;
+
+	Newplayer.p_age = (long) Oldplayer.o_degenerated * N_AGE;
+
+	Newplayer.p_degenerated = Oldplayer.o_degenerated + 1;
+
+	/* convert character type into character type and special type */
+
+	if (Oldplayer.o_type < 0)
+	    /* player with crown */
+	    Oldplayer.o_type = -Oldplayer.o_type;
+
+	if (Oldplayer.o_type == 99)
+	    /* valar */
+	    {
+	    Newplayer.p_specialtype = SC_VALAR;
+	    Newplayer.p_type = (short) ROLL(C_MAGIC, C_EXPER - C_MAGIC + 1);
+	    Newplayer.p_lives = Oldplayer.o_ring.ring_duration;
+	    }
+	else if (Oldplayer.o_type == 90)
+	    /* ex-valar */
+	    {
+	    Newplayer.p_specialtype = SC_EXVALAR;
+	    Newplayer.p_type = (short) ROLL(C_MAGIC, C_EXPER - C_MAGIC + 1);
+	    Newplayer.p_lives = 0;
+	    }
+	else if (Oldplayer.o_type > 20)
+	    /* council of wise */
+	    {
+	    Newplayer.p_specialtype = SC_COUNCIL;
+	    Newplayer.p_type = Oldplayer.o_type - 20;
+	    Newplayer.p_lives = Oldplayer.o_ring.ring_duration;
+	    }
+	else if (Oldplayer.o_type > 10)
+	    /* king */
+	    {
+	    Newplayer.p_specialtype = SC_KING;
+	    Newplayer.p_type = Oldplayer.o_type - 10;
+	    Newplayer.p_lives = 0;
+	    }
+	else
+	    /* normal player */
+	    {
+	    Newplayer.p_specialtype = SC_NONE;
+	    Newplayer.p_type = Oldplayer.o_type;
+	    Newplayer.p_lives = 0;
+	    }
+
+	Newplayer.p_lives = 0;
+	Newplayer.p_crowns = Oldplayer.o_crowns;
+	Newplayer.p_charms = Oldplayer.o_charms;
+	Newplayer.p_amulets = Oldplayer.o_amulets;
+	Newplayer.p_holywater = Oldplayer.o_holywater;
+	Newplayer.p_lastused = Oldplayer.o_lastused;
+
+	/* convert status and name into status */
+
+	Newplayer.p_status = Oldplayer.o_status + S_OFF;
+	if (strcmp(Oldplayer.m_name, "<null>") == 0)
+	    /* unused recored */
+	    Newplayer.p_status = S_NOTUSED;
+	if (Oldplayer.o_quickness < 0)
+	    /* hung up player */
+	    {
+	    Newplayer.p_quickness = (double) Oldplayer.o_tampered;
+	    Oldplayer.o_tampered = T_OFF;
+	    Newplayer.p_status = S_HUNGUP;
+	    }
+
+	Newplayer.p_tampered = Oldplayer.o_tampered + T_OFF;
+	Newplayer.p_istat = I_OFF;
+
+	Newplayer.p_palantir = Oldplayer.o_palantir;
+	Newplayer.p_blessing = Oldplayer.o_blessing;
+	Newplayer.p_virgin = Oldplayer.o_virgin;
+	Newplayer.p_blindness = Oldplayer.o_blindness;
+
+	strcpy(Newplayer.p_name, Oldplayer.o_name);
+	strcpy(Newplayer.p_password, Oldplayer.o_password);
+	strcpy(Newplayer.p_login, Oldplayer.o_login);
+
+	/* write new structure */
+	fwrite((char *) &Newplayer, sizeof(Newplayer), 1, newcharac);
+	}
+
+    fclose(oldcharac);		/* close files */
+    fclose(newcharac);
+
+    exit(0);
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: drandom()
+/
+/ FUNCTION: return a random number between 0.0 < 1.0
+/
+/ AUTHOR: E. A. Estes, 2/7/86
+/
+/ ARGUMENTS: none
+/
+/ RETURN VALUE: random number
+/
+/ MODULES CALLED: random()
+/
+/ GLOBAL INPUTS: none
+/
+/ GLOBAL OUTPUTS: none
+/
+/ DESCRIPTION:
+/	Return a random number.
+/
+/************************************************************************/
+
+double
+drandom()
+{
+    if (sizeof(int) != 2)
+	return((double) (random() & 0x7fff) / 32768.0);
+    else
+	return((double) random() / 32768.0);
+}
diff --git a/games/phantasia/fight.c b/games/phantasia/fight.c
new file mode 100644
index 0000000..4038d1d
--- /dev/null
+++ b/games/phantasia/fight.c
@@ -0,0 +1,1688 @@
+/*
+ * fight.c   Phantasia monster fighting routines
+ */
+
+#include "include.h"
+
+/************************************************************************
+/
+/ FUNCTION NAME: encounter()
+/
+/ FUNCTION: monster battle routine
+/
+/ AUTHOR: E. A. Estes, 2/20/86
+/
+/ ARGUMENTS:
+/	int particular - particular monster to fight if >= 0
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: monsthits(), playerhits(), readmessage(), callmonster(), 
+/	writerecord(), pickmonster(), displaystats(), pow(), cancelmonster(), 
+/	awardtreasure(), more(), death(), wmove(), setjmp(), drandom(), printw(), 
+/	longjmp(), wrefresh(), mvprintw(), wclrtobot()
+/
+/ GLOBAL INPUTS: Curmonster, Whichmonster, LINES, Lines, Circle, Shield, 
+/	Player, *stdscr, Fileloc, Fightenv[], *Enemyname
+/
+/ GLOBAL OUTPUTS: Curmonster, Whichmonster, Lines, Shield, Player, Luckout
+/
+/ DESCRIPTION:
+/	Choose a monster and check against some special types.
+/	Arbitrate between monster and player.  Watch for either
+/	dying.
+/
+/************************************************************************/
+
+encounter(particular)
+int	particular;
+{
+bool	firsthit = Player.p_blessing;	/* set if player gets the first hit */
+int	flockcnt = 1;			/* how many time flocked */
+
+    /* let others know what we are doing */
+    Player.p_status = S_MONSTER;
+    writerecord(&Player, Fileloc);
+
+#ifdef SYS5
+    flushinp();
+#endif
+
+    Shield = 0.0;		/* no shield up yet */
+
+    if (particular >= 0)
+	/* monster is specified */
+	Whichmonster = particular;
+    else
+	/* pick random monster */
+	Whichmonster = pickmonster();
+
+    setjmp(Fightenv);		/* this is to enable changing fight state */
+
+    move(6, 0);
+    clrtobot();			/* clear bottom area of screen */
+
+    Lines = 9;
+    callmonster(Whichmonster);	/* set up monster to fight */
+
+    Luckout = FALSE;		/* haven't tried to luckout yet */
+
+    if (Curmonster.m_type == SM_MORGOTH)
+	mvprintw(4, 0, "You've encountered %s, Bane of the Council and Valar.\n",
+	    Enemyname);
+
+    if (Curmonster.m_type == SM_UNICORN)
+	{
+	if (Player.p_virgin)
+	    {
+	    printw("You just subdued %s, thanks to the virgin.\n", Enemyname);
+	    Player.p_virgin = FALSE;
+	    }
+	else
+	    {
+	    printw("You just saw %s running away!\n", Enemyname);
+	    Curmonster.m_experience = 0.0;
+	    Curmonster.m_treasuretype = 0;
+	    }
+	}
+    else
+	/* not a special monster */
+	for (;;)
+	    /* print header, and arbitrate between player and monster */
+	    {
+	    mvprintw(6, 0, "You are being attacked by %s,   EXP: %.0f   (Size: %.0f)\n",
+		Enemyname, Curmonster.m_experience, Circle);
+
+	    displaystats();
+	    mvprintw(1, 26, "%20.0f", Player.p_energy + Shield);	/* overprint energy */
+	    readmessage();
+
+	    if (Curmonster.m_type == SM_DARKLORD
+		&& Player.p_blessing
+		&& Player.p_charms > 0)
+		/* overpower Dark Lord with blessing and charm */
+		{
+		mvprintw(7, 0, "You just overpowered %s!", Enemyname);
+		Lines = 8;
+		Player.p_blessing = FALSE;
+		--Player.p_charms;
+		break;
+		}
+
+	    /* allow paralyzed monster to wake up */
+	    Curmonster.m_speed = MIN(Curmonster.m_speed + 1.0, Curmonster.m_maxspeed);
+
+	    if (drandom() * Curmonster.m_speed > drandom() * Player.p_speed
+		/* monster is faster */
+		&& Curmonster.m_type != SM_DARKLORD
+		/* not D. L. */
+		&& Curmonster.m_type != SM_SHRIEKER
+		/* not mimic */
+		&& !firsthit)
+		/* monster gets a hit */
+		monsthits();
+	    else
+		/* player gets a hit */
+		{
+		firsthit = FALSE;
+		playerhits();
+		}
+
+	    refresh();
+
+	    if (Lines > LINES - 2)
+		/* near bottom of screen - pause */
+		{
+		more(Lines);
+		move(Lines = 8, 0);
+		clrtobot();
+		}
+
+	    if (Player.p_energy <= 0.0)
+		/* player died */
+		{
+		more(Lines);
+		death(Enemyname);
+		cancelmonster();
+		break;		/* fight ends if the player is saved from death */
+		}
+
+	    if (Curmonster.m_energy <= 0.0)
+		/* monster died */
+		break;
+	    }
+
+    /* give player credit for killing monster */
+    Player.p_experience += Curmonster.m_experience;
+
+    if (drandom() < Curmonster.m_flock / 100.0)
+	/* monster flocks */
+	{
+	more(Lines);
+	++flockcnt;
+	longjmp(Fightenv, 0);
+	/*NOTREACHED*/
+	}
+    else if (Circle > 1.0
+	&& Curmonster.m_treasuretype > 0
+	&& drandom() > 0.2 + pow(0.4, (double) (flockcnt / 3 + Circle / 3.0)))
+	/* monster has treasure; this takes # of flocks and size into account */
+	{
+	more(Lines);
+	awardtreasure();
+	}
+
+    /* pause before returning */
+    getyx(stdscr, Lines, flockcnt);
+    more(Lines + 1);
+
+    Player.p_ring.ring_inuse = FALSE;	/* not using ring */
+
+    /* clean up the screen */
+    move(4, 0);
+    clrtobot();
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: pickmonster()
+/
+/ FUNCTION: choose a monster based upon where we are
+/
+/ AUTHOR: E. A. Estes, 2/20/86
+/
+/ ARGUMENTS: none
+/
+/ RETURN VALUE: monster number to call
+/
+/ MODULES CALLED: floor(), drandom()
+/
+/ GLOBAL INPUTS: Marsh, Circle, Player
+/
+/ GLOBAL OUTPUTS: none
+/
+/ DESCRIPTION:
+/	Certain monsters can be found in certain areas of the grid.
+/	We take care of rolling them here.
+/	Unfortunately, this routine assumes that the monster data
+/	base is arranged in a particular order.  If the data base
+/	is altered (to add monsters, or make them tougher), this
+/	routine may also need to be changed.
+/
+/************************************************************************/
+
+pickmonster()
+{
+    if (Player.p_specialtype == SC_VALAR)
+	/* even chance of any monster */
+	return((int) ROLL(0.0, 100.0));
+
+    if (Marsh)
+	/* water monsters */
+	return((int) ROLL(0.0, 15.0));
+
+    else if (Circle > 24)
+	/* even chance of all non-water monsters */
+	return((int) ROLL(14.0, 86.0));
+
+    else if (Circle > 15)
+	/* chance of all non-water monsters, weighted toward middle */
+	return((int) (ROLL(0.0, 50.0) + ROLL(14.0, 37.0)));
+
+    else if (Circle > 8)
+	/* not all non-water monsters, weighted toward middle */
+	return((int) (ROLL(0.0, 50.0) + ROLL(14.0, 26.0)));
+
+    else if (Circle > 3)
+	/* even chance of some tamer non-water monsters */
+	return((int) ROLL(14.0, 50.0));
+
+    else 
+	/* even chance of some of the tamest non-water monsters */
+	return((int) ROLL(14.0, 25.0));
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: playerhits()
+/
+/ FUNCTION: prompt player for action in monster battle, and process
+/
+/ AUTHOR: E. A. Estes, 12/4/85
+/
+/ ARGUMENTS: none
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: hitmonster(), throwspell(), inputoption(), cancelmonster(), 
+/	floor(), wmove(), drandom(), altercoordinates(), waddstr(), mvprintw(), 
+/	wclrtoeol(), wclrtobot()
+/
+/ GLOBAL INPUTS: Curmonster, Lines, Player, *stdscr, Luckout, *Enemyname
+/
+/ GLOBAL OUTPUTS: Curmonster, Lines, Player, Luckout
+/
+/ DESCRIPTION:
+/	Process all monster battle options.
+/
+/************************************************************************/
+
+playerhits()
+{
+double	inflict;	/* damage inflicted */
+int	ch;		/* input */
+
+    mvaddstr(7, 0, "1:Melee  2:Skirmish  3:Evade  4:Spell  5:Nick  ");
+
+    if (!Luckout)
+	/* haven't tried to luckout yet */
+	if (Curmonster.m_type == SM_MORGOTH)
+	    /* cannot luckout against Morgoth */
+	    addstr("6:Ally  ");
+	else
+	    addstr("6:Luckout  ");
+
+    if (Player.p_ring.ring_type != R_NONE)
+	/* player has a ring */
+	addstr("7:Use Ring  ");
+    else
+	clrtoeol();
+
+    ch = inputoption();
+
+    move(8, 0);
+    clrtobot();			/* clear any messages from before */
+    Lines = 9;
+    mvaddstr(4, 0, "\n\n");	/* clear status area */
+
+    switch (ch)
+	{
+	case 'T':		/* timeout; lose turn */
+	    break;
+
+	case ' ':
+	case '1':		/* melee */
+	    /* melee affects monster's energy and strength */
+	    inflict = ROLL(Player.p_might / 2.0 + 5.0, 1.3 * Player.p_might)
+		+ (Player.p_ring.ring_inuse ? Player.p_might : 0.0);
+
+	    Curmonster.m_melee += inflict;
+	    Curmonster.m_strength = Curmonster.m_o_strength
+		- Curmonster.m_melee / Curmonster.m_o_energy
+		* Curmonster.m_o_strength / 4.0;
+	    hitmonster(inflict);
+	    break;
+
+	case '2':		/* skirmish */
+	    /* skirmish affects monter's energy and speed */
+	    inflict = ROLL(Player.p_might / 3.0 + 3.0, 1.1 * Player.p_might)
+		+ (Player.p_ring.ring_inuse ? Player.p_might : 0.0);
+
+	    Curmonster.m_skirmish += inflict;
+	    Curmonster.m_maxspeed = Curmonster.m_o_speed
+		- Curmonster.m_skirmish / Curmonster.m_o_energy
+		* Curmonster.m_o_speed / 4.0;
+	    hitmonster(inflict);
+	    break;
+
+	case '3':		/* evade */
+	    /* use brains and speed to try to evade */
+	    if ((Curmonster.m_type == SM_DARKLORD
+		|| Curmonster.m_type == SM_SHRIEKER
+		/* can always run from D. L. and shrieker */
+		|| drandom() * Player.p_speed * Player.p_brains
+		    > drandom() * Curmonster.m_speed * Curmonster.m_brains)
+		&& (Curmonster.m_type != SM_MIMIC))
+		/* cannot run from mimic */
+		{
+		mvaddstr(Lines++, 0, "You got away!");
+		cancelmonster();
+		altercoordinates(0.0, 0.0, A_NEAR);
+		}
+	    else
+		mvprintw(Lines++, 0, "%s is still after you!", Enemyname);
+
+	    break;
+
+	case 'M':
+	case '4':		/* magic spell */
+	    throwspell();
+	    break;
+
+	case '5':		/* nick */
+	    /* hit 1 plus sword; give some experience */
+	    inflict = 1.0 + Player.p_sword;
+	    Player.p_experience += floor(Curmonster.m_experience / 10.0);
+	    Curmonster.m_experience *= 0.92;
+	    /* monster gets meaner */
+	    Curmonster.m_maxspeed += 2.0;
+	    Curmonster.m_speed = (Curmonster.m_speed < 0.0) ? 0.0 : Curmonster.m_speed + 2.0;
+	    if (Curmonster.m_type == SM_DARKLORD)
+		/* Dark Lord; doesn't like to be nicked */
+		{
+		mvprintw(Lines++, 0,
+		    "You hit %s %.0f times, and made him mad!", Enemyname, inflict);
+		Player.p_quickness /= 2.0;
+		altercoordinates(0.0, 0.0, A_FAR);
+		cancelmonster();
+		}
+	    else
+		hitmonster(inflict);
+	    break;
+
+	case 'B':
+	case '6':	/* luckout */
+	    if (Luckout)
+		mvaddstr(Lines++, 0, "You already tried that.");
+	    else
+		{
+		Luckout = TRUE;
+		if (Curmonster.m_type == SM_MORGOTH)
+		    /* Morgoth; ally */
+		    {
+		    if (drandom() < Player.p_sin / 100.0)
+			{
+			mvprintw(Lines++, 0, "%s accepted!", Enemyname);
+			cancelmonster();
+			}
+		    else
+			mvaddstr(Lines++, 0, "Nope, he's not interested.");
+		    }
+		else
+		    /* normal monster; use brains for success */
+		    {
+		    if ((drandom() + 0.333) * Player.p_brains
+			< (drandom() + 0.333) * Curmonster.m_brains)
+			mvprintw(Lines++, 0, "You blew it, %s.", Player.p_name);
+		    else
+			{
+			mvaddstr(Lines++, 0, "You made it!");
+			Curmonster.m_energy = 0.0;
+			}
+		    }
+		}
+	    break;
+
+	case '7':		/* use ring */
+	    if (Player.p_ring.ring_type != R_NONE)
+		{
+		mvaddstr(Lines++, 0, "Now using ring.");
+		Player.p_ring.ring_inuse = TRUE;
+		if (Player.p_ring.ring_type != R_DLREG)
+		    /* age ring */
+		    --Player.p_ring.ring_duration;
+		}
+	    break;
+	}
+
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: monsthits()
+/
+/ FUNCTION: process a monster hitting the player
+/
+/ AUTHOR: E. A. Estes, 12/4/85
+/
+/ ARGUMENTS: none
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: cancelmonster(), scramblestats(), more(), floor(), wmove(), 
+/	drandom(), altercoordinates(), longjmp(), waddstr(), mvprintw(), 
+/	getanswer()
+/
+/ GLOBAL INPUTS: Curmonster, Lines, Circle, Shield, Player, *stdscr, 
+/	Fightenv[], *Enemyname
+/
+/ GLOBAL OUTPUTS: Curmonster, Whichmonster, Lines, Shield, Player, 
+/	*Enemyname
+/
+/ DESCRIPTION:
+/	Handle all special monsters here.  If the monster is not a special
+/	one, simply roll a hit against the player.
+/
+/************************************************************************/
+
+monsthits()
+{
+double	inflict;		/* damage inflicted */
+int	ch;			/* input */
+
+    switch (Curmonster.m_type)
+	/* may be a special monster */
+	{
+	case SM_DARKLORD:
+	    /* hits just enough to kill player */
+	    inflict = (Player.p_energy + Shield) * 1.02;
+	    goto SPECIALHIT;
+
+	case SM_SHRIEKER:
+	    /* call a big monster */
+	    mvaddstr(Lines++, 0,
+		"Shrieeeek!!  You scared it, and it called one of its friends.");
+	    more(Lines);
+	    Whichmonster = (int) ROLL(70.0, 30.0);
+	    longjmp(Fightenv, 0);
+	    /*NOTREACHED*/
+
+	case SM_BALROG:
+	    /* take experience away */
+	    inflict = ROLL(10.0, Curmonster.m_strength);
+	    inflict = MIN(Player.p_experience, inflict);
+	    mvprintw(Lines++, 0, 
+		"%s took away %.0f experience points.", Enemyname, inflict);
+	    Player.p_experience -= inflict;
+	    return;
+
+	case SM_FAERIES:
+	    if (Player.p_holywater > 0)
+		/* holy water kills when monster tries to hit */
+		{
+		mvprintw(Lines++, 0, "Your holy water killed it!");
+		--Player.p_holywater;
+		Curmonster.m_energy = 0.0;
+		return;
+		}
+	    break;
+
+	case SM_NONE:
+	    /* normal hit */
+	    break;
+
+	default:
+	    if (drandom() > 0.2)
+		/* normal hit */
+		break;
+
+	    /* else special things */
+	    switch (Curmonster.m_type)
+		{
+		case SM_LEANAN:
+		    /* takes some of the player's strength */
+		    inflict = ROLL(1.0, (Circle - 1.0) / 2.0);
+		    inflict = MIN(Player.p_strength, inflict);
+		    mvprintw(Lines++, 0, "%s sapped %0.f of your strength!",
+			Enemyname, inflict);
+		    Player.p_strength -= inflict;
+		    Player.p_might -= inflict;
+		    break;
+
+		case SM_SARUMAN:
+		    if (Player.p_palantir)
+			/* take away palantir */
+			{
+			mvprintw(Lines++, 0, "Wormtongue stole your palantir!");
+			Player.p_palantir = FALSE;
+			}
+		    else if (drandom() > 0.5)
+			/* gems turn to gold */
+			{
+			mvprintw(Lines++, 0,
+			    "%s transformed your gems into gold!", Enemyname);
+			Player.p_gold += Player.p_gems;
+			Player.p_gems = 0.0;
+			}
+		    else
+			/* scramble some stats */
+			{
+			mvprintw(Lines++, 0, "%s scrambled your stats!", Enemyname);
+			scramblestats();
+			}
+		    break;
+
+		case SM_THAUMATURG:
+		    /* transport player */
+		    mvprintw(Lines++, 0, "%s transported you!", Enemyname);
+		    altercoordinates(0.0, 0.0, A_FAR);
+		    cancelmonster();
+		    break;
+
+		case SM_VORTEX:
+		    /* suck up some mana */
+		    inflict = ROLL(0, 7.5 * Circle);
+		    inflict = MIN(Player.p_mana, floor(inflict));
+		    mvprintw(Lines++, 0,
+			"%s sucked up %.0f of your mana!", Enemyname, inflict);
+		    Player.p_mana -= inflict;
+		    break;
+
+		case SM_NAZGUL:
+		    /* try to take ring if player has one */
+		    if (Player.p_ring.ring_type != R_NONE)
+			/* player has a ring */
+			{
+			mvaddstr(Lines++, 0, "Will you relinguish your ring ? ");
+			ch = getanswer("YN", FALSE);
+			if (ch == 'Y')
+			    /* take ring away */
+			    {
+			    Player.p_ring.ring_type = R_NONE;
+			    Player.p_ring.ring_inuse = FALSE;
+			    cancelmonster();
+			    break;
+			    }
+			}
+
+		    /* otherwise, take some brains */
+		    mvprintw(Lines++, 0,
+			"%s neutralized 1/5 of your brain!", Enemyname);
+		    Player.p_brains *= 0.8;
+		    break;
+
+		case SM_TIAMAT:
+		    /* take some gold and gems */
+		    mvprintw(Lines++, 0,
+			"%s took half your gold and gems and flew off.", Enemyname);
+		    Player.p_gold /= 2.0;
+		    Player.p_gems /= 2.0;
+		    cancelmonster();
+		    break;
+
+		case SM_KOBOLD:
+		    /* steal a gold piece and run */
+		    mvprintw(Lines++, 0,
+			"%s stole one gold piece and ran away.", Enemyname);
+		    Player.p_gold = MAX(0.0, Player.p_gold - 1.0);
+		    cancelmonster();
+		    break;
+
+		case SM_SHELOB:
+		    /* bite and (medium) poison */
+		    mvprintw(Lines++, 0,
+			"%s has bitten and poisoned you!", Enemyname);
+		    Player.p_poison -= 1.0;
+		    break;
+
+		case SM_LAMPREY:
+		    /*  bite and (small) poison */
+		    mvprintw(Lines++, 0, "%s bit and poisoned you!", Enemyname);
+		    Player.p_poison += 0.25;
+		    break;
+
+		case SM_BONNACON:
+		    /* fart and run */
+		    mvprintw(Lines++, 0, "%s farted and scampered off.", Enemyname);
+		    Player.p_energy /= 2.0;		/* damage from fumes */
+		    cancelmonster();
+		    break;
+
+		case SM_SMEAGOL:
+		    if (Player.p_ring.ring_type != R_NONE)
+			/* try to steal ring */
+			{
+			mvprintw(Lines++, 0,
+			    "%s tried to steal your ring, ", Enemyname);
+			if (drandom() > 0.1)
+			    addstr("but was unsuccessful.");
+			else
+			    {
+			    addstr("and ran away with it!");
+			    Player.p_ring.ring_type = R_NONE;
+			    cancelmonster();
+			    }
+			}
+		    break;
+
+		case SM_SUCCUBUS:
+		    /* inflict damage through shield */
+		    inflict = ROLL(15.0, Circle * 10.0);
+		    inflict = MIN(inflict, Player.p_energy);
+		    mvprintw(Lines++, 0, "%s sapped %.0f of your energy.",
+			Enemyname, inflict);
+		    Player.p_energy -= inflict;
+		    break;
+
+		case SM_CERBERUS:
+		    /* take all metal treasures */
+		    mvprintw(Lines++, 0,
+			"%s took all your metal treasures!", Enemyname);
+		    Player.p_crowns = 0;
+		    Player.p_sword =
+		    Player.p_shield =
+		    Player.p_gold = 0.0;
+		    cancelmonster();
+		    break;
+
+		case SM_UNGOLIANT:
+		    /* (large) poison and take a quickness */
+		    mvprintw(Lines++, 0,
+			"%s poisoned you, and took one quik.", Enemyname);
+		    Player.p_poison += 5.0;
+		    Player.p_quickness -= 1.0;
+		    break;
+
+		case SM_JABBERWOCK:
+		    /* fly away, and leave either a Jubjub bird or Bonnacon */
+		    mvprintw(Lines++, 0,
+			"%s flew away, and left you to contend with one of its friends.",
+			Enemyname);
+		    Whichmonster = 55 + (drandom() > 0.5) ? 22 : 0;
+		    longjmp(Fightenv, 0);
+		    /*NOTREACHED*/
+
+		case SM_TROLL:
+		    /* partially regenerate monster */
+		    mvprintw(Lines++, 0,
+			"%s partially regenerated his energy.!", Enemyname);
+		    Curmonster.m_energy +=
+			floor((Curmonster.m_o_energy - Curmonster.m_energy) / 2.0);
+		    Curmonster.m_strength = Curmonster.m_o_strength;
+		    Curmonster.m_melee = Curmonster.m_skirmish = 0.0;
+		    Curmonster.m_maxspeed = Curmonster.m_o_speed;
+		    break;
+
+		case SM_WRAITH:
+		    if (!Player.p_blindness)
+			/* make blind */
+			{
+			mvprintw(Lines++, 0, "%s blinded you!", Enemyname);
+			Player.p_blindness = TRUE;
+			Enemyname = "A monster";
+			}
+		    break;
+		}
+	    return;
+	}
+
+    /* fall through to here if monster inflicts a normal hit */
+    inflict = drandom() * Curmonster.m_strength + 0.5;
+SPECIALHIT:
+    mvprintw(Lines++, 0, "%s hit you %.0f times!", Enemyname, inflict);
+
+    if ((Shield -= inflict) < 0)
+	{
+	Player.p_energy += Shield;
+	Shield = 0.0;
+	}
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: cancelmonster()
+/
+/ FUNCTION: mark current monster as no longer active
+/
+/ AUTHOR: E. A. Estes, 12/4/85
+/
+/ ARGUMENTS: none
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: none
+/
+/ GLOBAL INPUTS: none
+/
+/ GLOBAL OUTPUTS: Curmonster
+/
+/ DESCRIPTION:
+/	Clear current monster's energy, experience, treasure type, and
+/	flock.  This is the same as having the monster run away.
+/
+/************************************************************************/
+
+cancelmonster()
+{
+    Curmonster.m_energy = 0.0;
+    Curmonster.m_experience = 0.0;
+    Curmonster.m_treasuretype = 0;
+    Curmonster.m_flock = 0.0;
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: hitmonster()
+/
+/ FUNCTION: inflict damage upon current monster
+/
+/ AUTHOR: E. A. Estes, 12/4/85
+/
+/ ARGUMENTS:
+/	double inflict - damage to inflict upon monster
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: monsthits(), wmove(), strcmp(), waddstr(), mvprintw()
+/
+/ GLOBAL INPUTS: Curmonster, Lines, Player, *stdscr, *Enemyname
+/
+/ GLOBAL OUTPUTS: Curmonster, Lines
+/
+/ DESCRIPTION:
+/	Hit monster specified number of times.  Handle when monster dies,
+/	and a few special monsters.
+/
+/************************************************************************/
+
+hitmonster(inflict)
+double	inflict;
+{
+    mvprintw(Lines++, 0, "You hit %s %.0f times!", Enemyname, inflict);
+    Curmonster.m_energy -= inflict;
+    if (Curmonster.m_energy > 0.0)
+	{
+	if (Curmonster.m_type == SM_DARKLORD || Curmonster.m_type == SM_SHRIEKER)
+	    /* special monster didn't die */
+	    monsthits();
+	}
+    else
+	/* monster died.  print message. */
+	{
+	if (Curmonster.m_type == SM_MORGOTH)
+	    mvaddstr(Lines++, 0, "You have defeated Morgoth, but he may return. . .");
+	else
+	    /* all other types of monsters */
+	    {
+	    mvprintw(Lines++, 0, "You killed it.  Good work, %s.", Player.p_name);
+
+	    if (Curmonster.m_type == SM_MIMIC
+		&& strcmp(Curmonster.m_name, "A Mimic") != 0
+		&& !Player.p_blindness)
+		mvaddstr(Lines++, 0, "The body slowly changes into the form of a mimic.");
+	    }
+	}
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: throwspell()
+/
+/ FUNCTION: throw a magic spell
+/
+/ AUTHOR: E. A. Estes, 12/4/85
+/
+/ ARGUMENTS: none
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: hitmonster(), cancelmonster(), sqrt(), floor(), wmove(), 
+/	drandom(), altercoordinates(), longjmp(), infloat(), waddstr(), mvprintw(), 
+/	getanswer()
+/
+/ GLOBAL INPUTS: Curmonster, Whichmonster, Nomana[], Player, *stdscr, 
+/	Fightenv[], Illspell[], *Enemyname
+/
+/ GLOBAL OUTPUTS: Curmonster, Whichmonster, Shield, Player
+/
+/ DESCRIPTION:
+/	Prompt player and process magic spells.
+/
+/************************************************************************/
+
+throwspell()
+{
+double	inflict;	/* damage inflicted */
+double	dtemp;		/* for dtemporary calculations */
+int	ch;		/* input */
+
+    mvaddstr(7, 0, "\n\n");		/* clear menu area */
+
+    if (Player.p_magiclvl >= ML_ALLORNOTHING)
+	mvaddstr(7, 0, "1:All or Nothing  ");
+    if (Player.p_magiclvl >= ML_MAGICBOLT)
+	addstr("2:Magic Bolt  ");
+    if (Player.p_magiclvl >= ML_FORCEFIELD)
+	addstr("3:Force Field  ");
+    if (Player.p_magiclvl >= ML_XFORM)
+	addstr("4:Transform  ");
+    if (Player.p_magiclvl >= ML_INCRMIGHT)
+	addstr("5:Increase Might\n");
+    if (Player.p_magiclvl >= ML_INVISIBLE)
+	mvaddstr(8, 0, "6:Invisibility  ");
+    if (Player.p_magiclvl >= ML_XPORT)
+	addstr("7:Transport  ");
+    if (Player.p_magiclvl >= ML_PARALYZE)
+	addstr("8:Paralyze  ");
+    if (Player.p_specialtype >= SC_COUNCIL)
+	addstr("9:Specify");
+    mvaddstr(4, 0, "Spell ? ");
+
+    ch = getanswer(" ", TRUE);
+
+    mvaddstr(7, 0, "\n\n");		/* clear menu area */
+
+    if (Curmonster.m_type == SM_MORGOTH && ch != '3')
+	/* can only throw force field against Morgoth */
+	ILLSPELL();
+    else
+	switch (ch)
+	    {
+	    case '1':   /* all or nothing */
+		if (drandom() < 0.25)
+		    /* success */
+		    {
+		    inflict = Curmonster.m_energy * 1.01 + 1.0;
+
+		    if (Curmonster.m_type == SM_DARKLORD)
+			/* all or nothing doesn't quite work against D. L. */
+			inflict *= 0.9;
+		    }
+		else
+		    /* failure -- monster gets stronger and quicker */
+		    {
+		    Curmonster.m_o_strength = Curmonster.m_strength *= 2.0;
+		    Curmonster.m_maxspeed *= 2.0;
+		    Curmonster.m_o_speed *= 2.0;
+
+		    /* paralyzed monsters wake up a bit */
+		    Curmonster.m_speed = MAX(1.0, Curmonster.m_speed * 2.0);
+		    }
+
+		if (Player.p_mana >= MM_ALLORNOTHING)
+		    /* take a mana if player has one */
+		    Player.p_mana -= MM_ALLORNOTHING;
+
+		hitmonster(inflict);
+		break;
+
+	    case '2':   /* magic bolt */
+		if (Player.p_magiclvl < ML_MAGICBOLT)
+		    ILLSPELL();
+		else
+		    {
+		    do
+			/* prompt for amount to expend */
+			{
+			mvaddstr(4, 0, "How much mana for bolt? ");
+			dtemp = floor(infloat());
+			}
+		    while (dtemp < 0.0 || dtemp > Player.p_mana);
+
+		    Player.p_mana -= dtemp;
+
+		    if (Curmonster.m_type == SM_DARKLORD)
+			/* magic bolts don't work against D. L. */
+			inflict = 0.0;
+		    else
+			inflict = dtemp * ROLL(15.0, sqrt(Player.p_magiclvl / 3.0 + 1.0));
+		    mvaddstr(5, 0, "Magic Bolt fired!\n");
+		    hitmonster(inflict);
+		    }
+		break;
+
+	    case '3':   /* force field */
+		if (Player.p_magiclvl < ML_FORCEFIELD)
+		    ILLSPELL();
+		else if (Player.p_mana < MM_FORCEFIELD)
+		    NOMANA();
+		else
+		    {
+		    Player.p_mana -= MM_FORCEFIELD;
+		    Shield = (Player.p_maxenergy + Player.p_shield) * 4.2 + 45.0;
+		    mvaddstr(5, 0, "Force Field up.\n");
+		    }
+		break;
+
+	    case '4':   /* transform */
+		if (Player.p_magiclvl < ML_XFORM)
+		    ILLSPELL();
+		else if (Player.p_mana < MM_XFORM)
+		    NOMANA();
+		else
+		    {
+		    Player.p_mana -= MM_XFORM;
+		    Whichmonster = (int) ROLL(0.0, 100.0);
+		    longjmp(Fightenv, 0);
+		    /*NOTREACHED*/
+		    }
+		break;
+
+	    case '5':   /* increase might */
+		if (Player.p_magiclvl < ML_INCRMIGHT)
+		    ILLSPELL();
+		else if (Player.p_mana < MM_INCRMIGHT)
+		    NOMANA();
+		else
+		    {
+		    Player.p_mana -= MM_INCRMIGHT;
+		    Player.p_might +=
+			(1.2 * (Player.p_strength + Player.p_sword)
+			+ 5.0 - Player.p_might) / 2.0;
+		    mvprintw(5, 0, "New strength:  %.0f\n", Player.p_might);
+		    }
+		break;
+
+	    case '6':   /* invisible */
+		if (Player.p_magiclvl < ML_INVISIBLE)
+		    ILLSPELL();
+		else if (Player.p_mana < MM_INVISIBLE)
+		    NOMANA();
+		else
+		    {
+		    Player.p_mana -= MM_INVISIBLE;
+		    Player.p_speed +=
+			(1.2 * (Player.p_quickness + Player.p_quksilver)
+			+ 5.0 - Player.p_speed) / 2.0;
+		    mvprintw(5, 0, "New quickness:  %.0f\n", Player.p_speed);
+		    }
+		break;
+
+	    case '7':   /* transport */
+		if (Player.p_magiclvl < ML_XPORT)
+		    ILLSPELL();
+		else if (Player.p_mana < MM_XPORT)
+		    NOMANA();
+		else
+		    {
+		    Player.p_mana -= MM_XPORT;
+		    if (Player.p_brains + Player.p_magiclvl
+			< Curmonster.m_experience / 200.0 * drandom())
+			{
+			mvaddstr(5, 0, "Transport backfired!\n");
+			altercoordinates(0.0, 0.0, A_FAR);
+			cancelmonster();
+			}
+		    else
+			{
+			mvprintw(5, 0, "%s is transported.\n", Enemyname);
+			if (drandom() < 0.3)
+			    /* monster didn't drop its treasure */
+			    Curmonster.m_treasuretype = 0;
+
+			Curmonster.m_energy = 0.0;
+			}
+		    }
+		break;
+
+	    case '8':   /* paralyze */
+		if (Player.p_magiclvl < ML_PARALYZE)
+		    ILLSPELL();
+		else if (Player.p_mana < MM_PARALYZE)
+		    NOMANA();
+		else
+		    {
+		    Player.p_mana -= MM_PARALYZE;
+		    if (Player.p_magiclvl >
+			Curmonster.m_experience / 1000.0 * drandom())
+			{
+			mvprintw(5, 0, "%s is held.\n", Enemyname);
+			Curmonster.m_speed = -2.0;
+			}
+		    else
+			mvaddstr(5, 0, "Monster unaffected.\n");
+		    }
+		break;
+
+	    case '9':   /* specify */
+		if (Player.p_specialtype < SC_COUNCIL)
+		    ILLSPELL();
+		else if (Player.p_mana < MM_SPECIFY)
+		    NOMANA();
+		else
+		    {
+		    Player.p_mana -= MM_SPECIFY;
+		    mvaddstr(5, 0, "Which monster do you want [0-99] ? ");
+		    Whichmonster = (int) infloat();
+		    Whichmonster = MAX(0, MIN(99, Whichmonster));
+		    longjmp(Fightenv, 0);
+		    /*NOTREACHED*/
+		    }
+		break;
+	    }
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: callmonster()
+/
+/ FUNCTION: read monster from file, and fill structure
+/
+/ AUTHOR: E. A. Estes, 2/25/86
+/
+/ ARGUMENTS:
+/	int which - which monster to call
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: truncstring(), fread(), fseek(), floor(), drandom(), 
+/	strcpy()
+/
+/ GLOBAL INPUTS: Curmonster, Circle, Player, *Monstfp
+/
+/ GLOBAL OUTPUTS: Curmonster, Player, *Enemyname
+/
+/ DESCRIPTION:
+/	Read specified monster from monster database and fill up
+/	current monster structure.
+/	Adjust statistics based upon current size.
+/	Handle some special monsters.
+/
+/************************************************************************/
+
+callmonster(which)
+int	which;
+{
+struct monster	Othermonster;		/* to find a name for mimics */
+
+    which = MIN(which, 99);		/* make sure within range */
+
+    /* fill structure */
+    fseek(Monstfp, (long) which * (long) SZ_MONSTERSTRUCT, 0);
+    fread((char *) &Curmonster, SZ_MONSTERSTRUCT, 1, Monstfp);
+
+    /* handle some special monsters */
+    if (Curmonster.m_type == SM_MODNAR)
+	{
+	if (Player.p_specialtype < SC_COUNCIL)
+	    /* randomize some stats */
+	    {
+	    Curmonster.m_strength *= drandom() + 0.5;
+	    Curmonster.m_brains *= drandom() + 0.5;
+	    Curmonster.m_speed *= drandom() + 0.5;
+	    Curmonster.m_energy *= drandom() + 0.5;
+	    Curmonster.m_experience *= drandom() + 0.5;
+	    Curmonster.m_treasuretype =
+		(int) ROLL(0.0, (double) Curmonster.m_treasuretype);
+	    }
+	else
+	    /* make Modnar into Morgoth */
+	    {
+	    strcpy(Curmonster.m_name, "Morgoth");
+	    Curmonster.m_strength = drandom() * (Player.p_maxenergy + Player.p_shield) / 1.4
+		+ drandom() * (Player.p_maxenergy + Player.p_shield) / 1.5;
+	    Curmonster.m_brains = Player.p_brains;
+	    Curmonster.m_energy = Player.p_might * 30.0;
+	    Curmonster.m_type = SM_MORGOTH;
+	    Curmonster.m_speed = Player.p_speed * 1.1
+		+ (Player.p_specialtype == SC_EXVALAR) ? Player.p_speed : 0.0;
+	    Curmonster.m_flock = 0.0;
+	    Curmonster.m_treasuretype = 0;
+	    Curmonster.m_experience = 0.0;
+	    }
+	}
+    else if (Curmonster.m_type == SM_MIMIC)
+	/* pick another name */
+	{
+	which = (int) ROLL(0.0, 100.0);
+	fseek(Monstfp, (long) which * (long) SZ_MONSTERSTRUCT, 0);
+	fread(&Othermonster, SZ_MONSTERSTRUCT, 1, Monstfp);
+	strcpy(Curmonster.m_name, Othermonster.m_name);
+	}
+
+    truncstring(Curmonster.m_name);
+
+    if (Curmonster.m_type != SM_MORGOTH)
+	/* adjust stats based on which circle player is in */
+	{
+	Curmonster.m_strength *= (1.0 + Circle / 2.0);
+	Curmonster.m_brains *= Circle;
+	Curmonster.m_speed += Circle * 1.e-9;
+	Curmonster.m_energy *= Circle;
+	Curmonster.m_experience *= Circle;
+	}
+
+    if (Player.p_blindness)
+	/* cannot see monster if blind */
+	Enemyname = "A monster";
+    else
+	Enemyname = Curmonster.m_name;
+
+    if (Player.p_speed <= 0.0)
+	/* make Player.p_speed positive */
+	{
+	Curmonster.m_speed += -Player.p_speed;
+	Player.p_speed = 1.0;
+	}
+
+    /* fill up the rest of the structure */
+    Curmonster.m_o_strength = Curmonster.m_strength;
+    Curmonster.m_o_speed = Curmonster.m_maxspeed = Curmonster.m_speed;
+    Curmonster.m_o_energy = Curmonster.m_energy;
+    Curmonster.m_melee = Curmonster.m_skirmish = 0.0;
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: awardtreasure()
+/
+/ FUNCTION: select a treasure
+/
+/ AUTHOR: E. A. Estes, 12/4/85
+/
+/ ARGUMENTS: none
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: pickmonster(), collecttaxes(), more(), cursedtreasure(), 
+/	floor(), wmove(), drandom(), sscanf(), printw(), altercoordinates(), 
+/	longjmp(), infloat(), waddstr(), getanswer(), getstring(), wclrtobot()
+/
+/ GLOBAL INPUTS: Somebetter[], Curmonster, Whichmonster, Circle, Player, 
+/	*stdscr, Databuf[], *Statptr, Fightenv[]
+/
+/ GLOBAL OUTPUTS: Whichmonster, Shield, Player
+/
+/ DESCRIPTION:
+/	Roll up a treasure based upon monster type and size, and
+/	certain player statistics.
+/	Handle cursed treasure.
+/
+/************************************************************************/
+
+awardtreasure()
+{
+register int	whichtreasure;		/* calculated treasure to grant */
+int	temp;				/* temporary */
+int	ch;				/* input */
+double	treasuretype;			/* monster's treasure type */
+double	gold = 0.0;			/* gold awarded */
+double	gems = 0.0;			/* gems awarded */
+double	dtemp;				/* for temporary calculations */
+
+    whichtreasure = (int) ROLL(1.0, 3.0);	/* pick a treasure */
+    treasuretype = (double) Curmonster.m_treasuretype;
+
+    move(4, 0);
+    clrtobot();
+    move(6, 0);
+
+    if (drandom() > 0.65)
+	/* gold and gems */
+	{
+	if (Curmonster.m_treasuretype > 7)
+	    /* gems */
+	    {
+	    gems = ROLL(1.0, (treasuretype - 7.0)
+		* (treasuretype - 7.0) * (Circle - 1.0) / 4.0);
+	    printw("You have discovered %.0f gems!", gems);
+	    }
+	else
+	    /* gold */
+	    {
+	    gold = ROLL(treasuretype * 10.0, treasuretype
+		* treasuretype * 10.0 * (Circle - 1.0));
+	    printw("You have found %.0f gold pieces.", gold);
+	    }
+
+	addstr("  Do you want to pick them up ? ");
+	ch = getanswer("NY", FALSE);
+	addstr("\n\n");
+
+	if (ch == 'Y')
+	    if (drandom() < treasuretype / 35.0 + 0.04)
+		/* cursed */
+		{
+		addstr("They were cursed!\n");
+		cursedtreasure();
+		}
+	    else
+		collecttaxes(gold, gems);
+
+	return;
+	}
+    else   
+	/* other treasures */
+	{
+	addstr("You have found some treasure.  Do you want to inspect it ? ");
+	ch = getanswer("NY", FALSE);
+	addstr("\n\n");
+
+	if (ch != 'Y')
+	    return;
+	else
+	    if (drandom() < 0.08 && Curmonster.m_treasuretype != 4)
+		{
+		addstr("It was cursed!\n");
+		cursedtreasure();
+		return;
+		}
+	    else
+		switch (Curmonster.m_treasuretype)
+		    {
+		    case 1:	/* treasure type 1 */
+			switch (whichtreasure)
+			    {
+			    case 1:
+				addstr("You've discovered a power booster!\n");
+				Player.p_mana += ROLL(Circle * 4.0, Circle * 30.0);
+				break;
+
+			    case 2:
+				addstr("You have encountered a druid.\n");
+				Player.p_experience +=
+				    ROLL(0.0, 2000.0 + Circle * 400.0);
+				break;
+
+			    case 3:
+				addstr("You have found a holy orb.\n");
+				Player.p_sin = MAX(0.0, Player.p_sin - 0.25);
+				break;
+			    }
+			break;
+		    /* end treasure type 1 */
+
+		    case 2:	/* treasure type 2 */
+			switch (whichtreasure)
+			    {
+			    case 1:
+				addstr("You have found an amulet.\n");
+				++Player.p_amulets;
+				break;
+
+			    case 2:
+				addstr("You've found some holy water!\n");
+				++Player.p_holywater;
+				break;
+
+			    case 3:
+				addstr("You've met a hermit!\n");
+				Player.p_sin *= 0.75;
+				Player.p_mana += 12.0 * Circle;
+				break;
+			    }
+			break;
+		    /* end treasure type 2 */
+
+		    case 3:	/* treasure type 3 */
+			switch (whichtreasure)
+			    {
+			    case 1:
+				dtemp = ROLL(7.0, 30.0 + Circle / 10.0);
+				printw("You've found a +%.0f shield!\n", dtemp);
+				if (dtemp >= Player.p_shield)
+				    Player.p_shield = dtemp;
+				else
+				    SOMEBETTER();
+				break;
+
+			    case 2:
+				addstr("You have rescued a virgin.  Will you be honorable ? ");
+				ch = getanswer("NY", FALSE);
+				addstr("\n\n");
+				if (ch == 'Y')
+				    Player.p_virgin = TRUE;
+				else
+				    {
+				    Player.p_experience += 2000.0 * Circle;
+				    ++Player.p_sin;
+				    }
+				break;
+
+			    case 3:
+				addstr("You've discovered some athelas!\n");
+				--Player.p_poison;
+				break;
+			    }
+			break;
+		    /* end treasure type 3 */
+
+		    case 4:	/* treasure type 4 */
+			addstr("You've found a scroll.  Will you read it ? ");
+			ch = getanswer("NY", FALSE);
+			addstr("\n\n");
+
+			if (ch == 'Y')
+			    switch ((int) ROLL(1, 6))
+				{
+				case 1:
+				    addstr("It throws up a shield for you next monster.\n");
+				    getyx(stdscr, whichtreasure, ch);
+				    more(whichtreasure);
+				    Shield =
+					(Player.p_maxenergy + Player.p_energy) * 5.5 + Circle * 50.0;
+				    Whichmonster = pickmonster();
+				    longjmp(Fightenv, 0);
+				    /*NOTREACHED*/
+
+				case 2:
+				    addstr("It makes you invisible for you next monster.\n");
+				    getyx(stdscr, whichtreasure, ch);
+				    more(whichtreasure);
+				    Player.p_speed = 1e6;
+				    Whichmonster = pickmonster();
+				    longjmp(Fightenv, 0);
+				    /*NOTREACHED*/
+
+				case 3:
+				    addstr("It increases your strength ten fold to fight your next monster.\n");
+				    getyx(stdscr, whichtreasure, ch);
+				    more(whichtreasure);
+				    Player.p_might *= 10.0;
+				    Whichmonster = pickmonster();
+				    longjmp(Fightenv, 0);
+				    /*NOTREACHED*/
+
+				case 4:
+				    addstr("It is a general knowledge scroll.\n");
+				    Player.p_brains += ROLL(2.0, Circle);
+				    Player.p_magiclvl += ROLL(1.0, Circle / 2.0);
+				    break;
+
+				case 5:
+				    addstr("It tells you how to pick your next monster.\n");
+				    addstr("Which monster do you want [0-99] ? ");
+				    Whichmonster = (int) infloat();
+				    Whichmonster = MIN(99, MAX(0, Whichmonster));
+				    longjmp(Fightenv, 0);
+
+				case 6:
+				    addstr("It was cursed!\n");
+				    cursedtreasure();
+				    break;
+				}
+			    break;
+		    /* end treasure type 4 */
+
+		    case 5:	/* treasure type 5 */
+			switch (whichtreasure)
+			    {
+			    case 1:
+				dtemp = ROLL(Circle / 4.0 + 5.0, Circle / 2.0 + 9.0);
+				printw("You've discovered a +%.0f dagger.\n", dtemp);
+				if (dtemp >= Player.p_sword)
+				    Player.p_sword = dtemp;
+				else
+				    SOMEBETTER();
+				break;
+
+			    case 2:
+				dtemp = ROLL(7.5 + Circle * 3.0, Circle * 2.0 + 160.0);
+				printw("You have found some +%.0f armour!\n", dtemp);
+				if (dtemp >= Player.p_shield)
+				    Player.p_shield = dtemp;
+				else
+				    SOMEBETTER();
+				break;
+
+			    case 3:
+				addstr("You've found a tablet.\n");
+				Player.p_brains += 4.5 * Circle;
+				break;
+			    }
+			break;
+		    /* end treasure type 5 */
+
+		    case 6:	/* treasure type 6 */
+			switch (whichtreasure)
+			    {
+			    case 1:
+				addstr("You've found a priest.\n");
+				Player.p_energy = Player.p_maxenergy + Player.p_shield;
+				Player.p_sin /= 2.0;
+				Player.p_mana += 24.0 * Circle;
+				Player.p_brains += Circle;
+				break;
+
+			    case 2:
+				addstr("You have come upon Robin Hood!\n");
+				Player.p_shield += Circle * 2.0;
+				Player.p_strength += Circle / 2.5 + 1.0;
+				break;
+
+			    case 3:
+				dtemp = ROLL(2.0 + Circle / 4.0, Circle / 1.2 + 10.0);
+				printw("You have found a +%.0f axe!\n", dtemp);
+				if (dtemp >= Player.p_sword)
+				    Player.p_sword = dtemp;
+				else
+				    SOMEBETTER();
+				break;
+			    }
+			break;
+		    /* end treasure type 6 */
+
+		    case 7:	/* treasure type 7 */
+			switch (whichtreasure)
+			    {
+			    case 1:
+				addstr("You've discovered a charm!\n");
+				++Player.p_charms;
+				break;
+
+			    case 2:
+				addstr("You have encountered Merlyn!\n");
+				Player.p_brains += Circle + 5.0;
+				Player.p_magiclvl += Circle / 3.0 + 5.0;
+				Player.p_mana += Circle * 10.0;
+				break;
+
+			    case 3:
+				dtemp = ROLL(5.0 + Circle / 3.0, Circle / 1.5 + 20.0);
+				printw("You have found a +%.0f war hammer!\n", dtemp);
+				if (dtemp >= Player.p_sword)
+				    Player.p_sword = dtemp;
+				else
+				    SOMEBETTER();
+				break;
+			    }
+			break;
+		    /* end treasure type 7 */
+
+		    case 8:	/* treasure type 8 */
+			switch (whichtreasure)
+			    {
+			    case 1:
+				addstr("You have found a healing potion.\n");
+				Player.p_poison = MIN(-2.0, Player.p_poison - 2.0);
+				break;
+
+			    case 2:
+				addstr("You have discovered a transporter.  Do you wish to go anywhere ? ");
+				ch = getanswer("NY", FALSE);
+				addstr("\n\n");
+				if (ch == 'Y')
+				    {
+				    double x, y;
+
+				    addstr("X Y Coordinates ? ");
+				    getstring(Databuf, SZ_DATABUF);
+				    sscanf(Databuf, "%lf %lf", &x, &y);
+				    altercoordinates(x, y, A_FORCED);
+				    }
+				break;
+
+			    case 3:
+				dtemp = ROLL(10.0 + Circle / 1.2, Circle * 3.0 + 30.0);
+				printw("You've found a +%.0f sword!\n", dtemp);
+				if (dtemp >= Player.p_sword)
+				    Player.p_sword = dtemp;
+				else
+				    SOMEBETTER();
+				break;
+			    }
+			break;
+		    /* end treasure type 8 */
+
+		    case 10:
+		    case 11:
+		    case 12:
+		    case 13:	/* treasure types 10 - 13 */
+			if (drandom() < 0.33)
+			    {
+			    if (Curmonster.m_treasuretype == 10)
+				{
+				addstr("You've found a pair of elven boots!\n");
+				Player.p_quickness += 2.0;
+				break;
+				}
+			    else if (Curmonster.m_treasuretype == 11
+				&& !Player.p_palantir)
+				{
+				addstr("You've acquired Saruman's palantir.\n");
+				Player.p_palantir = TRUE;
+				break;
+				}
+			    else if (Player.p_ring.ring_type == R_NONE
+				&& Player.p_specialtype < SC_COUNCIL
+				&& (Curmonster.m_treasuretype == 12
+				|| Curmonster.m_treasuretype == 13))
+				/* roll up a ring */
+				{
+				if (drandom() < 0.8)
+				    /* regular rings */
+				    {
+				    if (Curmonster.m_treasuretype == 12)
+					{
+					whichtreasure = R_NAZREG;
+					temp = 35;
+					}
+				    else
+					{
+					whichtreasure = R_DLREG;
+					temp = 0;
+					}
+				    }
+				else
+				    /* bad rings */
+				    {
+				    whichtreasure = R_BAD;
+				    temp = 15 + Statptr->c_ringduration + (int) ROLL(0,5);
+				    }
+
+				addstr("You've discovered a ring.  Will you pick it up ? ");
+				ch = getanswer("NY", FALSE);
+				addstr("\n\n");
+
+				if (ch == 'Y')
+				    {
+				    Player.p_ring.ring_type = whichtreasure;
+				    Player.p_ring.ring_duration = temp;
+				    }
+
+				break;
+				}
+			    }
+			/* end treasure types 10 - 13 */
+			/* fall through to treasure type 9 if no treasure from above */
+
+			case 9:	/* treasure type 9 */
+			    switch (whichtreasure)
+				{
+				case 1:
+				    if (Player.p_level <= 1000.0
+					&& Player.p_crowns <= 3
+					&& Player.p_level >= 10.0)
+					{
+					addstr("You have found a golden crown!\n");
+					++Player.p_crowns;
+					break;
+					}
+				    /* fall through otherwise */
+
+				case 2:
+				    addstr("You've been blessed!\n");
+				    Player.p_blessing = TRUE;
+				    Player.p_sin /= 3.0;
+				    Player.p_energy = Player.p_maxenergy + Player.p_shield;
+				    Player.p_mana += 100.0 * Circle;
+				    break;
+
+				case 3:
+				    dtemp = ROLL(1.0, Circle / 5.0 + 5.0);
+				    dtemp = MIN(dtemp, 99.0);
+				    printw("You have discovered some +%.0f quicksilver!\n",dtemp);
+				    if (dtemp >= Player.p_quksilver)
+					Player.p_quksilver = dtemp;
+				    else
+					SOMEBETTER();
+				    break;
+				}
+			    break;
+		    /* end treasure type 9 */
+		    }
+	}
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: cursedtreasure()
+/
+/ FUNCTION: take care of cursed treasure
+/
+/ AUTHOR: E. A. Estes, 12/4/85
+/
+/ ARGUMENTS: none
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: waddstr()
+/
+/ GLOBAL INPUTS: Player, *stdscr
+/
+/ GLOBAL OUTPUTS: Player
+/
+/ DESCRIPTION:
+/	Handle cursed treasure.  Look for amulets and charms to save
+/	the player from the curse.
+/
+/************************************************************************/
+
+cursedtreasure()
+{
+    if (Player.p_charms > 0)
+	{
+	addstr("But your charm saved you!\n");
+	--Player.p_charms;
+	}
+    else if (Player.p_amulets > 0)
+	{
+	addstr("But your amulet saved you!\n");
+	--Player.p_amulets;
+	}
+    else
+	{
+	Player.p_energy = (Player.p_maxenergy + Player.p_shield) / 10.0;
+	Player.p_poison += 0.25;
+	}
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: scramblestats()
+/
+/ FUNCTION: scramble some selected statistics
+/
+/ AUTHOR: E. A. Estes, 12/4/85
+/
+/ ARGUMENTS: none
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: floor(), drandom()
+/
+/ GLOBAL INPUTS: Player
+/
+/ GLOBAL OUTPUTS: Player
+/
+/ DESCRIPTION:
+/	Swap a few player statistics randomly.
+/
+/************************************************************************/
+
+scramblestats()
+{
+double	dbuf[6];		/* to put statistic in */
+double	dtemp1, dtemp2;		/* for swapping values */
+register int	first, second;	/* indices for swapping */
+register double  *dptr;		/* pointer for filling and emptying buf[] */
+
+    /* fill buffer */
+    dptr = &dbuf[0];
+    *dptr++ = Player.p_strength;
+    *dptr++ = Player.p_mana;
+    *dptr++ = Player.p_brains;
+    *dptr++ = Player.p_magiclvl;
+    *dptr++ = Player.p_energy;
+    *dptr = Player.p_sin;
+
+    /* pick values to swap */
+    first = (int) ROLL(0, 5);
+    second = (int) ROLL(0, 5);
+
+    /* swap values */
+    dptr = &dbuf[0];
+    dtemp1 = dptr[first];
+    /* this expression is split to prevent a compiler loop on some compilers */
+    dtemp2 = dptr[second];
+    dptr[first] = dtemp2;
+    dptr[second] = dtemp1;
+
+    /* empty buffer */
+    Player.p_strength = *dptr++;
+    Player.p_mana = *dptr++;
+    Player.p_brains = *dptr++;
+    Player.p_magiclvl = *dptr++;
+    Player.p_energy = *dptr++;
+    Player.p_sin = *dptr;
+}
diff --git a/games/phantasia/gamesupport.c b/games/phantasia/gamesupport.c
new file mode 100644
index 0000000..c7481ef7
--- /dev/null
+++ b/games/phantasia/gamesupport.c
@@ -0,0 +1,722 @@
+/*
+ * gamesupport.c - auxiliary routines for support of Phantasia
+ */
+
+#include "include.h"
+
+/************************************************************************
+/
+/ FUNCTION NAME: changestats()
+/
+/ FUNCTION: examine/change statistics for a player
+/
+/ AUTHOR: E. A. Estes, 12/4/85
+/
+/ ARGUMENTS:
+/	bool ingameflag - set if called while playing game (Wizard only)
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: freerecord(), writerecord(), descrstatus(), truncstring(), 
+/	time(), more(), wmove(), wclear(), strcmp(), printw(), strcpy(), 
+/	infloat(), waddstr(), cleanup(), findname(), userlist(), mvprintw(), 
+/	localtime(), getanswer(), descrtype(), getstring()
+/
+/ GLOBAL INPUTS: LINES, *Login, Other, Wizard, Player, *stdscr, Databuf[], 
+/	Fileloc
+/
+/ GLOBAL OUTPUTS: Echo
+/
+/ DESCRIPTION:
+/	Prompt for player name to examine/change.
+/	If the name is NULL, print a list of all players.
+/	If we are called from within the game, check for the
+/	desired name being the same as the current player's name.
+/	Only the 'Wizard' may alter players.
+/	Items are changed only if a non-zero value is specified.
+/	To change an item to 0, use 0.1; it will be truncated later.
+/
+/	Players may alter their names and passwords, if the following
+/	are true:
+/	    - current login matches the character's logins
+/	    - the password is known
+/	    - the player is not in the middle of the game (ingameflag == FALSE)
+/
+/	The last condition is imposed for two reasons:
+/	    - the game could possibly get a bit hectic if a player were
+/	      continually changing his/her name
+/	    - another player structure would be necessary to check for names
+/	      already in use
+/
+/************************************************************************/
+
+changestats(ingameflag)
+bool	ingameflag;
+{
+static char	flag[2] = /* for printing values of bools */
+	{'F', 'T'};
+register struct player	*playerp;/* pointer to structure to alter */
+register char	*prompt;	/* pointer to prompt string */
+int	c;			/* input */
+int	today;			/* day of year of today */
+int	temp;			/* temporary variable */
+long	loc;			/* location in player file */
+long	now;			/* time now */
+double	dtemp;			/* temporary variable */
+bool	*bptr;			/* pointer to bool item to change */
+double	*dptr;			/* pointer to double item to change */
+short	*sptr;			/* pointer to short item to change */
+
+    clear();
+
+    for (;;)
+	/* get name of player to examine/alter */
+	{
+	mvaddstr(5, 0, "Which character do you want to look at ? ");
+	getstring(Databuf, SZ_DATABUF);
+	truncstring(Databuf);
+
+	if (Databuf[0] == '\0')
+	    userlist(ingameflag);
+	else
+	    break;
+	}
+
+    loc = -1L;
+
+    if (!ingameflag)
+	/* use 'Player' structure */
+	playerp = &Player;
+    else if (strcmp(Databuf, Player.p_name) == 0)
+	/* alter/examine current player */
+	{
+	playerp = &Player;
+	loc = Fileloc;
+	}
+    else
+	/* use 'Other' structure */
+	playerp = &Other;
+
+    /* find player on file */
+    if (loc < 0L && (loc = findname(Databuf, playerp)) < 0L)
+	/* didn't find player */
+	{
+	clear();
+	mvaddstr(11, 0, "Not found.");
+	return;
+	}
+
+    time(&now);
+    today = localtime(&now)->tm_yday;
+
+    clear();
+
+    for (;;)
+	/* print player structure, and prompt for action */
+	{
+	mvprintw(0, 0,"A:Name         %s\n", playerp->p_name);
+
+	if (Wizard)
+	    printw("B:Password     %s\n", playerp->p_password);
+	else
+	    addstr("B:Password     XXXXXXXX\n");
+
+	printw(" :Login        %s\n", playerp->p_login);
+
+	printw("C:Experience   %.0f\n", playerp->p_experience);
+	printw("D:Level        %.0f\n", playerp->p_level);
+	printw("E:Strength     %.0f\n", playerp->p_strength);
+	printw("F:Sword        %.0f\n", playerp->p_sword);
+	printw(" :Might        %.0f\n", playerp->p_might);
+	printw("G:Energy       %.0f\n", playerp->p_energy);
+	printw("H:Max-Energy   %.0f\n", playerp->p_maxenergy);
+	printw("I:Shield       %.0f\n", playerp->p_shield);
+	printw("J:Quickness    %.0f\n", playerp->p_quickness);
+	printw("K:Quicksilver  %.0f\n", playerp->p_quksilver);
+	printw(" :Speed        %.0f\n", playerp->p_speed);
+	printw("L:Magic Level  %.0f\n", playerp->p_magiclvl);
+	printw("M:Mana         %.0f\n", playerp->p_mana);
+	printw("N:Brains       %.0f\n", playerp->p_brains);
+
+	if (Wizard || playerp->p_specialtype != SC_VALAR)
+	    mvaddstr(0, 40, descrstatus(playerp));
+
+	mvprintw(1, 40, "O:Poison       %0.3f\n", playerp->p_poison);
+	mvprintw(2, 40, "P:Gold         %.0f\n", playerp->p_gold);
+	mvprintw(3, 40, "Q:Gem          %.0f\n", playerp->p_gems);
+	mvprintw(4, 40, "R:Sin          %0.3f\n", playerp->p_sin);
+	if (Wizard)
+	    {
+	    mvprintw(5, 40, "S:X-coord      %.0f\n", playerp->p_x);
+	    mvprintw(6, 40, "T:Y-coord      %.0f\n", playerp->p_y);
+	    }
+	else
+	    {
+	    mvaddstr(5, 40, "S:X-coord      ?\n");
+	    mvaddstr(6, 40, "T:Y-coord      ?\n");
+	    }
+
+	mvprintw(7, 40, "U:Age          %ld\n", playerp->p_age);
+	mvprintw(8, 40, "V:Degenerated  %d\n", playerp->p_degenerated);
+
+	mvprintw(9, 40, "W:Type         %d (%s)\n",
+	    playerp->p_type, descrtype(playerp, FALSE) + 1);
+	mvprintw(10, 40, "X:Special Type %d\n", playerp->p_specialtype);
+	mvprintw(11, 40, "Y:Lives        %d\n", playerp->p_lives);
+	mvprintw(12, 40, "Z:Crowns       %d\n", playerp->p_crowns);
+	mvprintw(13, 40, "0:Charms       %d\n", playerp->p_charms);
+	mvprintw(14, 40, "1:Amulets      %d\n", playerp->p_amulets);
+	mvprintw(15, 40, "2:Holy Water   %d\n", playerp->p_holywater);
+
+	temp = today - playerp->p_lastused;
+	if (temp < 0)
+	    /* last year */
+	    temp += 365;
+	mvprintw(16, 40, "3:Lastused     %d  (%d)\n", playerp->p_lastused,  temp);
+
+	mvprintw(18, 8, "4:Palantir %c  5:Blessing %c  6:Virgin %c  7:Blind %c",
+	    flag[playerp->p_palantir],
+	    flag[playerp->p_blessing],
+	    flag[playerp->p_virgin],
+	    flag[playerp->p_blindness]);
+
+	if (!Wizard)
+	    mvprintw(19, 8, "8:Ring    %c",
+		flag[playerp->p_ring.ring_type != R_NONE]);
+	else
+	    mvprintw(19, 8, "8:Ring    %d  9:Duration %d",
+		playerp->p_ring.ring_type, playerp->p_ring.ring_duration);
+
+	if (!Wizard
+	    /* not wizard */
+	    && (ingameflag || strcmp(Login, playerp->p_login) != 0))
+	    /* in game or not examining own character */
+	    {
+	    if (ingameflag)
+		{
+		more(LINES - 1);
+		clear();
+		return;
+		}
+	    else
+		cleanup(TRUE);
+		/*NOTREACHED*/
+	    }
+
+	mvaddstr(20, 0, "!:Quit       ?:Delete");
+	mvaddstr(21, 0, "What would you like to change ? ");
+
+	if (Wizard)
+	    c = getanswer(" ", TRUE);
+	else
+	    /* examining own player; allow to change name and password */
+	    c = getanswer("!BA", FALSE);
+
+	switch (c)
+	    {
+	    case 'A':	/* change name */
+	    case 'B':	/* change password */
+		if (!Wizard)
+		    /* prompt for password */
+		    {
+		    mvaddstr(23, 0, "Password ? ");
+		    Echo = FALSE;
+		    getstring(Databuf, 9);
+		    Echo = TRUE;
+		    if (strcmp(Databuf, playerp->p_password) != 0)
+			continue;
+		    }
+		    
+		if (c == 'A')
+		    /* get new name */
+		    {
+		    mvaddstr(23, 0, "New name: ");
+		    getstring(Databuf, SZ_NAME);
+		    truncstring(Databuf);
+		    if (Databuf[0] != '\0')
+			if (Wizard || findname(Databuf, &Other) < 0L)
+			    strcpy(playerp->p_name, Databuf);
+		    }
+		else
+		    /* get new password */
+		    {
+		    if (!Wizard)
+			Echo = FALSE;
+
+		    do
+			/* get two copies of new password until they match */
+			{
+			/* get first copy */
+			mvaddstr(23, 0, "New password ? ");
+			getstring(Databuf, SZ_PASSWORD);
+			if (Databuf[0] == '\0')
+			    break;
+
+			/* get second copy */
+			mvaddstr(23, 0, "One more time ? ");
+			getstring(playerp->p_password, SZ_PASSWORD);
+			}
+		    while (strcmp(playerp->p_password, Databuf) != 0);
+
+		    Echo = TRUE;
+		    }
+
+		continue;
+
+	    case 'C':	/* change experience */
+		prompt = "experience";
+		dptr = &playerp->p_experience;
+		goto DALTER;
+
+	    case 'D':	/* change level */
+		prompt = "level";
+		dptr = &playerp->p_level;
+		goto DALTER;
+
+	    case 'E':	/* change strength */
+		prompt = "strength";
+		dptr = &playerp->p_strength;
+		goto DALTER;
+
+	    case 'F':	/* change swords */
+		prompt = "sword";
+		dptr = &playerp->p_sword;
+		goto DALTER;
+
+	    case 'G':	/* change energy */
+		prompt = "energy";
+		dptr = &playerp->p_energy;
+		goto DALTER;
+
+	    case 'H':	/* change maximum energy */
+		prompt = "max energy";
+		dptr = &playerp->p_maxenergy;
+		goto DALTER;
+
+	    case 'I':	/* change shields */
+		prompt = "shield";
+		dptr = &playerp->p_shield;
+		goto DALTER;
+
+	    case 'J':	/* change quickness */
+		prompt = "quickness";
+		dptr = &playerp->p_quickness;
+		goto DALTER;
+
+	    case 'K':	/* change quicksilver */
+		prompt = "quicksilver";
+		dptr = &playerp->p_quksilver;
+		goto DALTER;
+
+	    case 'L':	/* change magic */
+		prompt = "magic level";
+		dptr = &playerp->p_magiclvl;
+		goto DALTER;
+
+	    case 'M':	/* change mana */
+		prompt = "mana";
+		dptr = &playerp->p_mana;
+		goto DALTER;
+
+	    case 'N':	/* change brains */
+		prompt = "brains";
+		dptr = &playerp->p_brains;
+		goto DALTER;
+
+	    case 'O':	/* change poison */
+		prompt = "poison";
+		dptr = &playerp->p_poison;
+		goto DALTER;
+
+	    case 'P':	/* change gold */
+		prompt = "gold";
+		dptr = &playerp->p_gold;
+		goto DALTER;
+
+	    case 'Q':	/* change gems */
+		prompt = "gems";
+		dptr = &playerp->p_gems;
+		goto DALTER;
+
+	    case 'R':	/* change sin */
+		prompt = "sin";
+		dptr = &playerp->p_sin;
+		goto DALTER;
+
+	    case 'S':	/* change x coord */
+		prompt = "x";
+		dptr = &playerp->p_x;
+		goto DALTER;
+
+	    case 'T':	/* change y coord */
+		prompt = "y";
+		dptr = &playerp->p_y;
+		goto DALTER;
+
+	    case 'U':	/* change age */
+		mvprintw(23, 0, "age = %ld; age = ", playerp->p_age);
+		dtemp = infloat();
+		if (dtemp != 0.0)
+		    playerp->p_age = (long) dtemp;
+		continue;
+
+	    case 'V':	/* change degen */
+		mvprintw(23, 0, "degen = %d; degen = ", playerp->p_degenerated);
+		dtemp = infloat();
+		if (dtemp != 0.0)
+		    playerp->p_degenerated = (int) dtemp;
+		continue;
+
+	    case 'W':	/* change type */
+		prompt = "type";
+		sptr = &playerp->p_type;
+		goto SALTER;
+
+	    case 'X':	/* change special type */
+		prompt = "special type";
+		sptr = &playerp->p_specialtype;
+		goto SALTER;
+
+	    case 'Y':	/* change lives */
+		prompt = "lives";
+		sptr = &playerp->p_lives;
+		goto SALTER;
+
+	    case 'Z':	/* change crowns */
+		prompt = "crowns";
+		sptr = &playerp->p_crowns;
+		goto SALTER;
+
+	    case '0':	/* change charms */
+		prompt = "charm";
+		sptr = &playerp->p_charms;
+		goto SALTER;
+
+	    case '1':	/* change amulet */
+		prompt = "amulet";
+		sptr = &playerp->p_amulets;
+		goto SALTER;
+
+	    case '2':	/* change holy water */
+		prompt = "holy water";
+		sptr = &playerp->p_holywater;
+		goto SALTER;
+
+	    case '3':	/* change last-used */
+		prompt = "last-used";
+		sptr = &playerp->p_lastused;
+		goto SALTER;
+
+	    case '4':	/* change palantir */
+		prompt = "palantir";
+		bptr = &playerp->p_palantir;
+		goto BALTER;
+
+	    case '5':	/* change blessing */
+		prompt = "blessing";
+		bptr = &playerp->p_blessing;
+		goto BALTER;
+
+	    case '6':	/* change virgin */
+		prompt = "virgin";
+		bptr = &playerp->p_virgin;
+		goto BALTER;
+
+	    case '7':	/* change blindness */
+		prompt = "blindness";
+		bptr = &playerp->p_blindness;
+		goto BALTER;
+
+	    case '8':	/* change ring type */
+		prompt = "ring-type";
+		sptr = &playerp->p_ring.ring_type;
+		goto SALTER;
+
+	    case '9':	/* change ring duration */
+		prompt = "ring-duration";
+		sptr = &playerp->p_ring.ring_duration;
+		goto SALTER;
+
+	    case '!':	/* quit, update */
+		if (Wizard &&
+		    (!ingameflag || playerp != &Player))
+		    /* turn off status if not modifying self */
+		    {
+		    playerp->p_status = S_OFF;
+		    playerp->p_tampered = T_OFF;
+		    }
+
+		writerecord(playerp, loc);
+		clear();
+		return;
+
+	    case '?':	/* delete player */
+		if (ingameflag && playerp == &Player)
+		    /* cannot delete self */
+		    continue;
+
+		freerecord(playerp, loc);
+		clear();
+		return;
+
+	    default:
+		continue;
+	    }
+DALTER:
+	mvprintw(23, 0, "%s = %f; %s = ", prompt, *dptr, prompt);
+	dtemp = infloat();
+	if (dtemp != 0.0)
+	    *dptr = dtemp;
+	continue;
+
+SALTER:
+	mvprintw(23, 0, "%s = %d; %s = ", prompt, *sptr, prompt);
+	dtemp = infloat();
+	if (dtemp != 0.0)
+	    *sptr = (short) dtemp;
+	continue;
+
+BALTER:
+	mvprintw(23, 0, "%s = %c; %s = ", prompt, flag[*bptr], prompt);
+	c = getanswer("\nTF", TRUE);
+	if (c == 'T')
+	    *bptr = TRUE;
+	else if (c == 'F')
+	    *bptr = FALSE;
+	continue;
+	}
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: monstlist()
+/
+/ FUNCTION: print a monster listing
+/
+/ AUTHOR: E. A. Estes, 2/27/86
+/
+/ ARGUMENTS: none
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: puts(), fread(), fseek(), printf()
+/
+/ GLOBAL INPUTS: Curmonster, *Monstfp
+/
+/ GLOBAL OUTPUTS: none
+/
+/ DESCRIPTION:
+/	Read monster file, and print a monster listing on standard output.
+/
+/************************************************************************/
+
+monstlist()
+{
+register int 	count = 0;		/* count in file */
+
+    puts(" #)  Name                 Str  Brain  Quick  Energy  Exper  Treas  Type  Flock%\n");
+    fseek(Monstfp, 0L, 0);
+    while (fread((char *) &Curmonster, SZ_MONSTERSTRUCT, 1, Monstfp) == 1)
+	printf("%2d)  %-20.20s%4.0f   %4.0f     %2.0f   %5.0f  %5.0f     %2d    %2d     %3.0f\n", count++,
+	    Curmonster.m_name, Curmonster.m_strength, Curmonster.m_brains,
+	    Curmonster.m_speed, Curmonster.m_energy, Curmonster.m_experience,
+	    Curmonster.m_treasuretype, Curmonster.m_type, Curmonster.m_flock);
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: scorelist()
+/
+/ FUNCTION: print player score board
+/
+/ AUTHOR: E. A. Estes, 12/4/85
+/
+/ ARGUMENTS: none
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: fread(), fopen(), printf(), fclose()
+/
+/ GLOBAL INPUTS: 
+/
+/ GLOBAL OUTPUTS: none
+/
+/ DESCRIPTION:
+/	Read the scoreboard file and print the contents.
+/
+/************************************************************************/
+
+scorelist()
+{
+struct	scoreboard	sbuf;	/* for reading entries */
+register FILE	*fp;		/* to open the file */
+
+    if ((fp = fopen(_PATH_SCORE, "r")) != NULL)
+	{
+	while (fread((char *) &sbuf, SZ_SCORESTRUCT, 1, fp) == 1)
+	    printf("%-20s   (%-9s)  Level: %6.0f  Type: %s\n",
+		sbuf.sb_name, sbuf.sb_login, sbuf.sb_level, sbuf.sb_type);
+	fclose(fp);
+	}
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: activelist()
+/
+/ FUNCTION: print list of active players to standard output
+/
+/ AUTHOR: E. A. Estes, 3/7/86
+/
+/ ARGUMENTS: none
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: descrstatus(), fread(), fseek(), printf(), descrtype()
+/
+/ GLOBAL INPUTS: Other, *Playersfp
+/
+/ GLOBAL OUTPUTS: none
+/
+/ DESCRIPTION:
+/	Read player file, and print list of active records to standard output.
+/
+/************************************************************************/
+
+activelist()
+{
+    fseek(Playersfp, 0L, 0);
+    printf("Current characters on file are:\n\n");
+
+    while (fread((char *) &Other, SZ_PLAYERSTRUCT, 1, Playersfp) == 1)
+	if (Other.p_status != S_NOTUSED)
+	    printf("%-20s   (%-9s)  Level: %6.0f  %s  (%s)\n",
+		Other.p_name, Other.p_login, Other.p_level,
+		descrtype(&Other, FALSE), descrstatus(&Other));
+
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: purgeoldplayers()
+/
+/ FUNCTION: purge inactive players from player file
+/
+/ AUTHOR: E. A. Estes, 12/4/85
+/
+/ ARGUMENTS: none
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: freerecord(), time(), fread(), fseek(), localtime()
+/
+/ GLOBAL INPUTS: Other, *Playersfp
+/
+/ GLOBAL OUTPUTS: none
+/
+/ DESCRIPTION:
+/	Delete characters which have not been used with the last
+/	three weeks.
+/
+/************************************************************************/
+
+purgeoldplayers()
+{
+int	today;		/* day of year for today */
+int	daysold;	/* how many days since the character has been used */
+long	ltime;		/* time in seconds */
+long	loc = 0L;	/* location in file */
+
+    time(&ltime);
+    today = localtime(&ltime)->tm_yday;
+
+    for (;;)
+	{
+	fseek(Playersfp, loc, 0);
+	if (fread((char *) &Other, SZ_PLAYERSTRUCT, 1, Playersfp) != 1)
+	    break;
+
+	daysold = today - Other.p_lastused;
+	if (daysold < 0)
+	    daysold += 365;
+
+	if (daysold > N_DAYSOLD)
+	    /* player hasn't been used in a while; delete */
+	    freerecord(&Other, loc);
+
+	loc += SZ_PLAYERSTRUCT;
+	}
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: enterscore()
+/
+/ FUNCTION: enter player into scoreboard
+/
+/ AUTHOR: E. A. Estes, 12/4/85
+/
+/ ARGUMENTS: none
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: fread(), fseek(), fopen(), error(), strcmp(), fclose(), 
+/	strcpy(), fwrite(), descrtype()
+/
+/ GLOBAL INPUTS: Player
+/
+/ GLOBAL OUTPUTS: none
+/
+/ DESCRIPTION:
+/	The scoreboard keeps track of the highest character on a
+/	per-login basis.
+/	Search the scoreboard for an entry for the current login,
+/	if an entry is found, and it is lower than the current player,
+/	replace it, otherwise create an entry.
+/
+/************************************************************************/
+
+enterscore()
+{
+struct	scoreboard sbuf;		/* buffer to read in scoreboard entries */
+FILE	*fp;				/* to open scoreboard file */
+long	loc = 0L;			/* location in scoreboard file */
+bool	found = FALSE;			/* set if we found an entry for this login */
+
+    if ((fp = fopen(_PATH_SCORE, "r+")) != NULL)
+	{
+	while (fread((char *) &sbuf, SZ_SCORESTRUCT, 1, fp) == 1)
+	    if (strcmp(Player.p_login, sbuf.sb_login) == 0)
+		{
+		found = TRUE;
+		break;
+		}
+	    else
+		loc += SZ_SCORESTRUCT;
+	}
+    else
+	{
+	error(_PATH_SCORE);
+	/*NOTREACHED*/
+	}
+
+    /*
+     * At this point, 'loc' will either indicate a point beyond
+     * the end of file, or the place where the previous entry
+     * was found.
+     */
+
+    if ((!found) || Player.p_level > sbuf.sb_level)
+	/* put new entry in for this login */
+	{
+	strcpy(sbuf.sb_login, Player.p_login);
+	strcpy(sbuf.sb_name, Player.p_name);
+	sbuf.sb_level = Player.p_level;
+	strcpy(sbuf.sb_type, descrtype(&Player, TRUE));
+	}
+
+    /* update entry */
+    fseek(fp, loc, 0);
+    fwrite((char *) &sbuf, SZ_SCORESTRUCT, 1, fp);
+    fclose(fp);
+}
diff --git a/games/phantasia/include.h b/games/phantasia/include.h
new file mode 100644
index 0000000..bfaa8a7
--- /dev/null
+++ b/games/phantasia/include.h
@@ -0,0 +1,17 @@
+/*
+ * include.h - includes all important files for Phantasia
+ */
+
+#include <ctype.h>
+#include <curses.h>
+#include <math.h>
+#include <setjmp.h>
+#include <signal.h>
+#include <time.h>
+#include <errno.h>
+
+#include "macros.h"
+#include "phantdefs.h"
+#include "phantstruct.h"
+#include "phantglobs.h"
+#include "pathnames.h"
diff --git a/games/phantasia/interplayer.c b/games/phantasia/interplayer.c
new file mode 100644
index 0000000..0c923f0
--- /dev/null
+++ b/games/phantasia/interplayer.c
@@ -0,0 +1,1208 @@
+/*
+ * interplayer.c - player to player routines for Phantasia
+ */
+
+#include "include.h"
+
+/************************************************************************
+/
+/ FUNCTION NAME: checkbattle()
+/
+/ FUNCTION: check to see if current player should battle another
+/
+/ AUTHOR: E. A. Estes, 12/4/85
+/
+/ ARGUMENTS: none
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: battleplayer(), fread(), fseek()
+/
+/ GLOBAL INPUTS: Other, Users, Player, Fileloc, *Playersfp
+/
+/ GLOBAL OUTPUTS: Users
+/
+/ DESCRIPTION:
+/	Seach player file for a foe at the same coordinates as the
+/	current player.
+/	Also update user count.
+/
+/************************************************************************/
+
+checkbattle()
+{
+long	foeloc = 0L;		/* location in file of person to fight */
+
+    Users = 0;
+    fseek(Playersfp, 0L, 0);
+
+    while (fread((char *) &Other, SZ_PLAYERSTRUCT, 1, Playersfp) == 1)
+	{
+	if (Other.p_status != S_OFF
+	    && Other.p_status != S_NOTUSED
+	    && Other.p_status != S_HUNGUP
+	    && (Other.p_status != S_CLOAKED || Other.p_specialtype != SC_VALAR))
+	    /* player is on and not a cloaked valar */
+	    {
+	    ++Users;
+
+	    if (Player.p_x == Other.p_x
+		&& Player.p_y == Other.p_y
+		/* same coordinates */
+		&& foeloc != Fileloc
+		/* not self */
+		&& Player.p_status == S_PLAYING
+		&& (Other.p_status == S_PLAYING || Other.p_status == S_INBATTLE)
+		/* both are playing */
+		&& Other.p_specialtype != SC_VALAR
+		&& Player.p_specialtype != SC_VALAR)
+		/* neither is valar */
+		{
+		battleplayer(foeloc);
+		return;
+		}
+	    }
+	foeloc += SZ_PLAYERSTRUCT;
+	}
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: battleplayer()
+/
+/ FUNCTION: inter-terminal battle with another player
+/
+/ AUTHOR: E. A. Estes, 2/15/86
+/
+/ ARGUMENTS:
+/	long foeplace - location in player file of person to battle
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: readrecord(), readmessage(), writerecord(), collecttaxes(), 
+/	displaystats(), fabs(), more(), death(), sleep(), wmove(), waddch(), printw(), 
+/	myturn(), altercoordinates(), waddstr(), wrefresh(), mvprintw(), 
+/	getanswer(), wclrtoeol(), wclrtobot()
+/
+/ GLOBAL INPUTS: Foestrikes, LINES, Lines, Other, Shield, Player, *stdscr, 
+/	Fileloc, *Enemyname
+/
+/ GLOBAL OUTPUTS: Foestrikes, Lines, Shield, Player, Luckout, *Enemyname
+/
+/ DESCRIPTION:
+/	Inter-terminal battle is a very fragile and slightly klugy thing.
+/	At any time, one player is master and the other is slave.
+/	We pick who is master first by speed and level.  After that,
+/	the slave waits for the master to relinquish its turn, and
+/	the slave becomes master, and so on.
+/
+/	The items in the player structure which control the handshake are:
+/	    p_tampered:
+/		master increments this to relinquish control
+/	    p_istat:
+/		master sets this to specify particular action
+/	    p_1scratch:
+/		set to total damage inflicted so far; changes to indicate action
+/
+/************************************************************************/
+
+battleplayer(foeplace)
+long	foeplace;
+{
+double	dtemp;		/* for temporary calculations */
+double	oldhits = 0.0;	/* previous damage inflicted by foe */
+register int	loop;	/* for timing out */
+int	ch;		/* input */
+short	oldtampered;	/* old value of foe's p_tampered */
+
+    Lines = 8;
+    Luckout = FALSE;
+    mvaddstr(4, 0, "Preparing for battle!\n");
+    refresh();
+
+#ifdef SYS5
+    flushinp();
+#endif
+
+    /* set up variables, file, etc. */
+    Player.p_status = S_INBATTLE;
+    Shield = Player.p_energy;
+
+    /* if p_tampered is not 0, someone else may try to change it (king, etc.) */
+    Player.p_tampered = oldtampered = 1;
+    Player.p_1scratch = 0.0;
+    Player.p_istat = I_OFF;
+
+    readrecord(&Other, foeplace);
+    if (fabs(Player.p_level - Other.p_level) > 20.0)
+	/* see if players are greatly mismatched */
+	{
+	dtemp = (Player.p_level - Other.p_level) / MAX(Player.p_level, Other.p_level);
+	if (dtemp < -0.5)
+	    /* foe outweighs this one */
+	    Player.p_speed *= 2.0;
+	}
+
+    writerecord(&Player, Fileloc);		/* write out all our info */
+
+    if (Player.p_blindness)
+	Enemyname = "someone";
+    else
+	Enemyname = Other.p_name;
+
+    mvprintw(6, 0, "You have encountered %s   Level: %.0f\n", Enemyname, Other.p_level);
+    refresh();
+
+    for (loop = 0; Other.p_status != S_INBATTLE && loop < 30; ++loop)
+	/* wait for foe to respond */
+	{
+	readrecord(&Other, foeplace);
+	sleep(1);
+	}
+
+    if (Other.p_status != S_INBATTLE)
+	/* foe did not respond */
+	{
+	mvprintw(5, 0, "%s is not responding.\n", Enemyname);
+	goto LEAVE;
+	}
+    /* else, we are ready to battle */
+
+    move(4, 0);
+    clrtoeol();
+
+    /*
+     * determine who is first master
+     * if neither player is faster, check level
+     * if neither level is greater, battle is not allowed
+     * (this should never happen, but we have to handle it)
+     */
+    if (Player.p_speed > Other.p_speed)
+	Foestrikes = FALSE;
+    else if (Other.p_speed > Player.p_speed)
+	Foestrikes = TRUE;
+    else if (Player.p_level > Other.p_level)
+	Foestrikes = FALSE;
+    else if (Other.p_level > Player.p_level)
+	Foestrikes = TRUE;
+    else
+	/* no one is faster */
+	{
+	printw("You can't fight %s yet.", Enemyname);
+	goto LEAVE;
+	}
+
+    for (;;)
+	{
+	displaystats();
+	readmessage();
+	mvprintw(1, 26, "%20.0f", Shield);	/* overprint energy */
+
+	if (!Foestrikes)
+	    /* take action against foe */
+	    myturn();
+	else
+	    /* wait for foe to take action */
+	    {
+	    mvaddstr(4, 0, "Waiting...\n");
+	    clrtoeol();
+	    refresh();
+
+	    for (loop = 0; loop < 20; ++loop)
+		/* wait for foe to act */
+		{
+		readrecord(&Other, foeplace);
+		if (Other.p_1scratch != oldhits)
+		    /* p_1scratch changes to indicate action */
+		    break;
+		else
+		    /* wait and try again */
+		    {
+		    sleep(1);
+		    addch('.');
+		    refresh();
+		    }
+		}
+
+	    if (Other.p_1scratch == oldhits)
+		{
+		/* timeout */
+		mvaddstr(22, 0, "Timeout: waiting for response.  Do you want to wait ? ");
+		ch = getanswer("NY", FALSE);
+		move(22, 0);
+		clrtobot();
+		if (ch == 'Y')
+		    continue;
+		else
+		    break;
+		}
+	    else
+		/* foe took action */
+		{
+		switch (Other.p_istat)
+		    {
+		    case I_RAN:		/* foe ran away */
+			mvprintw(Lines++, 0, "%s ran away!", Enemyname);
+			break;
+
+		    case I_STUCK:	/* foe tried to run, but couldn't */
+			mvprintw(Lines++, 0, "%s tried to run away.", Enemyname);
+			break;
+
+		    case I_BLEWIT:	/* foe tried to luckout, but didn't */
+			mvprintw(Lines++, 0, "%s tried to luckout!", Enemyname);
+			break;
+
+		    default:
+			dtemp = Other.p_1scratch - oldhits;
+			mvprintw(Lines++, 0, "%s hit you %.0f times!", Enemyname, dtemp);
+			Shield -= dtemp;
+			break;
+		    }
+
+		oldhits = Other.p_1scratch;	/* keep track of old hits */
+
+		if (Other.p_tampered != oldtampered)
+		    /* p_tampered changes to relinquish turn */
+		    {
+		    oldtampered = Other.p_tampered;
+		    Foestrikes = FALSE;
+		    }
+		}
+	    }
+
+	/* decide what happens next */
+	refresh();
+	if (Lines > LINES - 2)
+	    {
+	    more(Lines);
+	    move(Lines = 8, 0);
+	    clrtobot();
+	    }
+
+	if (Other.p_istat == I_KILLED || Shield < 0.0)
+	    /* we died */
+	    {
+	    Shield = -2.0;		/* insure this value is negative */
+	    break;
+	    }
+
+	if (Player.p_istat == I_KILLED)
+	    /* we killed foe; award treasre */
+	    {
+	    mvprintw(Lines++, 0, "You killed %s!", Enemyname);
+	    Player.p_experience += Other.p_experience;
+	    Player.p_crowns += (Player.p_level < 1000.0) ? Other.p_crowns : 0;
+	    Player.p_amulets += Other.p_amulets;
+	    Player.p_charms += Other.p_charms;
+	    collecttaxes(Other.p_gold, Other.p_gems);
+	    Player.p_sword = MAX(Player.p_sword, Other.p_sword);
+	    Player.p_shield = MAX(Player.p_shield, Other.p_shield);
+	    Player.p_quksilver = MAX(Player.p_quksilver, Other.p_quksilver);
+	    if (Other.p_virgin && !Player.p_virgin)
+		{
+		mvaddstr(Lines++, 0, "You have rescued a virgin.  Will you be honorable ? ");
+		if ((ch = getanswer("YN", FALSE)) == 'Y')
+		    Player.p_virgin = TRUE;
+		else
+		    {
+		    ++Player.p_sin;
+		    Player.p_experience += 8000.0;
+		    }
+		}
+	    sleep(3);     		/* give other person time to die */
+	    break;
+	    }
+	else if (Player.p_istat == I_RAN || Other.p_istat == I_RAN)
+	    /* either player ran away */
+	    break;
+	}
+
+LEAVE:
+    /* clean up things and leave */
+    writerecord(&Player, Fileloc);	/* update a final time */
+    altercoordinates(0.0, 0.0, A_NEAR);	/* move away from battle site */
+    Player.p_energy = Shield;		/* set energy to actual value */
+    Player.p_tampered = T_OFF;		/* clear p_tampered */
+
+    more(Lines);			/* pause */
+
+    move(4, 0);
+    clrtobot();				/* clear bottom area of screen */
+
+    if (Player.p_energy < 0.0)
+	/* we are dead */
+	death("Interterminal battle");
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: myturn()
+/
+/ FUNCTION: process players action against foe in battle
+/
+/ AUTHOR: E. A. Estes, 2/7/86
+/
+/ ARGUMENTS: none
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: writerecord(), inputoption(), floor(), wmove(), drandom(), 
+/	waddstr(), wrefresh(), mvprintw(), wclrtoeol(), wclrtobot()
+/
+/ GLOBAL INPUTS: Lines, Other, Player, *stdscr, Fileloc, Luckout, 
+/	*Enemyname
+/
+/ GLOBAL OUTPUTS: Foestrikes, Lines, Player, Luckout
+/
+/ DESCRIPTION:
+/	Take action action against foe, and decide who is master
+/	for next iteration.
+/
+/************************************************************************/
+
+myturn()
+{
+double	dtemp;		/* for temporary calculations */
+int	ch;		/* input */
+
+    mvaddstr(7, 0, "1:Fight  2:Run Away!  3:Power Blast  ");
+    if (Luckout)
+	clrtoeol();
+    else
+	addstr("4:Luckout  ");
+
+    ch = inputoption();
+    move(Lines = 8, 0);
+    clrtobot();
+
+    switch (ch)
+	{
+	default:	/* fight */
+	    dtemp = ROLL(2.0, Player.p_might);
+HIT:		
+	    mvprintw(Lines++, 0, "You hit %s %.0f times!", Enemyname, dtemp);
+	    Player.p_sin += 0.5;
+	    Player.p_1scratch += dtemp;
+	    Player.p_istat = I_OFF;
+	    break;
+
+	case '2':	/* run away */
+	    Player.p_1scratch -= 1.0;	/* change this to indicate action */
+	    if (drandom() > 0.25)
+		{
+		mvaddstr(Lines++, 0, "You got away!");
+		Player.p_istat = I_RAN;
+		}
+	    else
+		{
+		mvprintw(Lines++, 0, "%s is still after you!", Enemyname);
+		Player.p_istat = I_STUCK;
+		}
+	    break;
+
+	case '3':	/* power blast */
+	    dtemp = MIN(Player.p_mana, Player.p_level * 5.0);
+	    Player.p_mana -= dtemp;
+	    dtemp *= (drandom() + 0.5) * Player.p_magiclvl * 0.2 + 2.0;
+	    mvprintw(Lines++, 0, "You blasted %s !", Enemyname);
+	    goto HIT;
+
+	case '4':	/* luckout */
+	    if (Luckout || drandom() > 0.1)
+		{
+		if (Luckout)
+		    mvaddstr(Lines++, 0, "You already tried that!");
+		else
+		    {
+		    mvaddstr(Lines++, 0, "Not this time . . .");
+		    Luckout = TRUE;
+		    }
+
+		Player.p_1scratch -= 1.0;
+		Player.p_istat = I_BLEWIT;
+		}
+	    else
+		{
+		mvaddstr(Lines++, 0, "You just lucked out!");
+		Player.p_1scratch = Other.p_energy * 1.1;
+		}
+	    break;
+	}
+
+    refresh();
+    Player.p_1scratch = floor(Player.p_1scratch);	/* clean up any mess */
+
+    if (Player.p_1scratch > Other.p_energy)
+	Player.p_istat = I_KILLED;
+    else if (drandom() * Player.p_speed < drandom() * Other.p_speed)
+	/* relinquish control */
+	{
+	++Player.p_tampered;
+	Foestrikes = TRUE;
+	}
+
+    writerecord(&Player, Fileloc);			/* let foe know what we did */
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: checktampered()
+/
+/ FUNCTION: check if current player has been tampered with
+/
+/ AUTHOR: E. A. Estes, 12/4/85
+/
+/ ARGUMENTS: none
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: readrecord(), fread(), fseek(), tampered(), writevoid()
+/
+/ GLOBAL INPUTS: *Energyvoidfp, Other, Player, Fileloc, Enrgyvoid
+/
+/ GLOBAL OUTPUTS: Enrgyvoid
+/
+/ DESCRIPTION:
+/	Check for energy voids, holy grail, and tampering by other
+/	players.
+/
+/************************************************************************/
+
+checktampered()
+{
+long	loc = 0L;		/* location in energy void file */
+
+    /* first check for energy voids */
+    fseek(Energyvoidfp, 0L, 0);
+    while (fread((char *) &Enrgyvoid, SZ_VOIDSTRUCT, 1, Energyvoidfp) == 1)
+	if (Enrgyvoid.ev_active
+	    && Enrgyvoid.ev_x == Player.p_x
+	    && Enrgyvoid.ev_y == Player.p_y)
+	    /* sitting on one */
+	    {
+	    if (loc > 0L)
+		/* not the holy grail; inactivate energy void */
+		{
+		Enrgyvoid.ev_active = FALSE;
+		writevoid(&Enrgyvoid, loc);
+		tampered(T_NRGVOID, 0.0, 0.0);
+		}
+	    else if (Player.p_status != S_CLOAKED)
+		/* holy grail */
+		tampered(T_GRAIL, 0.0, 0.0);
+	    break;
+	    }
+	else
+	    loc += SZ_VOIDSTRUCT;
+
+    /* now check for other things */
+    readrecord(&Other, Fileloc);
+    if (Other.p_tampered != T_OFF)
+	tampered(Other.p_tampered, Other.p_1scratch, Other.p_2scratch);
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: tampered()
+/
+/ FUNCTION: take care of tampering by other players
+/
+/ AUTHOR: E. A. Estes, 12/4/85
+/
+/ ARGUMENTS:
+/	int what - what type of tampering
+/	double arg1, arg2 - rest of tampering info
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: writerecord(), more(), fread(), death(), fseek(), sleep(), 
+/	floor(), wmove(), waddch(), drandom(), printw(), altercoordinates(), 
+/	waddstr(), wrefresh(), encounter(), writevoid()
+/
+/ GLOBAL INPUTS: Other, Player, *stdscr, Enrgyvoid, *Playersfp
+/
+/ GLOBAL OUTPUTS: Other, Player, Changed, Enrgyvoid
+/
+/ DESCRIPTION:
+/	Take care of energy voids, holy grail, decree and intervention
+/	action on current player.
+/
+/************************************************************************/
+
+tampered(what, arg1, arg2)
+int	what;
+double	arg1;
+double	arg2;
+{
+long	loc;			/* location in file of other players */
+
+    Changed = TRUE;
+    move(4,0);
+
+    Player.p_tampered = T_OFF;	/* no longer tampered with */
+
+    switch (what)
+	{
+	case T_NRGVOID:
+	    addstr("You've hit an energy void !\n");
+	    Player.p_mana /= 3.0;
+	    Player.p_energy /= 2.0;
+	    Player.p_gold = floor(Player.p_gold/1.25) + 0.1;
+	    altercoordinates(0.0, 0.0, A_NEAR);
+	    break;
+
+	case T_TRANSPORT:
+	    addstr("The king transported you !  ");
+	    if (Player.p_charms > 0)
+		{
+		addstr("But your charm saved you. . .\n");
+		--Player.p_charms;
+		}
+	    else
+		{
+		altercoordinates(0.0, 0.0, A_FAR);
+		addch('\n');
+		}
+	    break;
+
+	case T_BESTOW:
+	    printw("The king has bestowed %.0f gold pieces on you !\n", arg1);
+	    Player.p_gold += arg1;
+	    break;
+
+	case T_CURSED:
+	    addstr("You've been cursed !  ");
+	    if (Player.p_blessing)
+		{
+		addstr("But your blessing saved you. . .\n");
+		Player.p_blessing = FALSE;
+		}
+	    else
+		{
+		addch('\n');
+		Player.p_poison += 2.0;
+		Player.p_energy = 10.0;
+		Player.p_maxenergy  *= 0.95;
+		Player.p_status = S_PLAYING;	/* no longer cloaked */
+		}
+	    break;
+
+	case T_VAPORIZED:
+	    addstr("You have been vaporized!\n");
+	    more(7);
+	    death("Vaporization");
+	    break;
+
+	case T_MONSTER:
+	    addstr("The Valar zapped you with a monster!\n");
+	    more(7);
+	    encounter((int) arg1);
+	    return;
+
+	case T_BLESSED:
+	    addstr("The Valar has blessed you!\n");
+	    Player.p_energy = (Player.p_maxenergy *= 1.05) + Player.p_shield;
+	    Player.p_mana += 500.0;
+	    Player.p_strength += 0.5;
+	    Player.p_brains += 0.5;
+	    Player.p_magiclvl += 0.5;
+	    Player.p_poison = MIN(0.5, Player.p_poison);
+	    break;
+
+	case T_RELOCATE:
+	    addstr("You've been relocated. . .\n");
+	    altercoordinates(arg1, arg2, A_FORCED);
+	    break;
+
+	case T_HEAL:
+	    addstr("You've been healed!\n");
+	    Player.p_poison -=  0.25;
+	    Player.p_energy = Player.p_maxenergy + Player.p_shield;
+	    break;
+
+	case T_EXVALAR:
+	    addstr("You are no longer Valar!\n");
+	    Player.p_specialtype = SC_COUNCIL;
+	    break;
+
+	case T_GRAIL:
+	    addstr("You have found The Holy Grail!!\n");
+	    if (Player.p_specialtype < SC_COUNCIL)
+		/* must be council of wise to behold grail */
+		{
+		addstr("However, you are not experienced enough to behold it.\n");
+		Player.p_sin *= Player.p_sin;
+		Player.p_mana +=  1000;
+		}
+	    else if (Player.p_specialtype == SC_VALAR
+		|| Player.p_specialtype == SC_EXVALAR)
+		{
+		addstr("You have made it to the position of Valar once already.\n");
+		addstr("The Grail is of no more use to you now.\n");
+		}
+	    else
+		{
+		addstr("It is now time to see if you are worthy to behold it. . .\n");
+		refresh();
+		sleep(4);
+
+		if (drandom() / 2.0 < Player.p_sin)
+		    {
+		    addstr("You have failed!\n");
+		    Player.p_strength =
+		    Player.p_mana =
+		    Player.p_energy =
+		    Player.p_maxenergy =
+		    Player.p_magiclvl = 
+		    Player.p_brains =
+		    Player.p_experience =
+		    Player.p_quickness = 1.0;
+
+		    altercoordinates(1.0, 1.0, A_FORCED);
+		    Player.p_level = 0.0;
+		    }
+		else
+		    {
+		    addstr("You made to position of Valar!\n");
+		    Player.p_specialtype = SC_VALAR;
+		    Player.p_lives = 5;
+		    fseek(Playersfp, 0L, 0);
+		    loc = 0L;
+		    while (fread((char *) &Other, SZ_PLAYERSTRUCT, 1, Playersfp) == 1)
+			/* search for existing valar */
+			if (Other.p_specialtype == SC_VALAR
+			    && Other.p_status != S_NOTUSED)
+			    /* found old valar */
+			    {
+			    Other.p_tampered = T_EXVALAR;
+			    writerecord(&Other, loc);
+			    break;
+			    }
+			else
+			    loc += SZ_PLAYERSTRUCT;
+		    }
+		}
+
+	    /* move grail to new location */
+	    Enrgyvoid.ev_active = TRUE;
+	    Enrgyvoid.ev_x = ROLL(-1.0e6, 2.0e6);
+	    Enrgyvoid.ev_y = ROLL(-1.0e6, 2.0e6);
+	    writevoid(&Enrgyvoid, 0L);
+	    break;
+	}
+    refresh();
+    sleep(2);
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: userlist()
+/
+/ FUNCTION: print list of players and locations
+/
+/ AUTHOR: E. A. Estes, 2/28/86
+/
+/ ARGUMENTS:
+/	bool ingameflag - set if called while playing
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: descrstatus(), descrlocation(), more(), fread(), fseek(), 
+/	floor(), wmove(), printw(), waddstr(), distance(), wrefresh(), 
+/	descrtype(), wclrtobot()
+/
+/ GLOBAL INPUTS: LINES, Other, Circle, Wizard, Player, *stdscr, *Playersfp
+/
+/ GLOBAL OUTPUTS: none
+/
+/ DESCRIPTION:
+/	We can only see the coordinate of those closer to the origin
+/	from us.
+/	Kings and council of the wise can see and can be seen by everyone.
+/	Palantirs are good for seeing everyone; and the valar can use
+/	one to see through a 'cloak' spell.
+/	The valar has no coordinates, and is completely invisible if
+/	cloaked.
+/
+/************************************************************************/
+
+userlist(ingameflag)
+bool	ingameflag;
+{
+register int	numusers = 0;	/* number of users on file */
+
+    if (ingameflag && Player.p_blindness)
+	{
+	mvaddstr(8, 0, "You cannot see anyone.\n");
+	return;
+	}
+
+    fseek(Playersfp, 0L, 0);
+    mvaddstr(8, 0,
+	"Name                         X         Y    Lvl Type Login    Status\n");
+
+    while (fread((char *) &Other, SZ_PLAYERSTRUCT, 1, Playersfp) == 1)
+	{
+	if (Other.p_status == S_NOTUSED
+	    /* record is unused */
+	    || (Other.p_specialtype == SC_VALAR && Other.p_status == S_CLOAKED))
+	    /* cloaked valar */
+	    {
+	    if (!Wizard)
+		/* wizard can see everything on file */
+		continue;
+	    }
+
+	    ++numusers;
+
+	    if (ingameflag &&
+		/* must be playing for the rest of these conditions */
+		(Player.p_specialtype >= SC_KING
+		/* kings and higher can see others */
+		|| Other.p_specialtype >= SC_KING
+		/* kings and higher can be seen by others */
+		|| Circle >= CIRCLE(Other.p_x, Other.p_y)
+		/* those nearer the origin can be seen */
+		|| Player.p_palantir)
+		/* palantir enables one to see others */
+		&& (Other.p_status != S_CLOAKED 
+		    || (Player.p_specialtype == SC_VALAR && Player.p_palantir))
+		/* not cloaked; valar can see through cloak with a palantir */
+		&& Other.p_specialtype != SC_VALAR)
+		/* not a valar */
+		/* coordinates should be printed */
+		printw("%-20s  %8.0f  %8.0f ",
+		    Other.p_name, Other.p_x, Other.p_y);
+	    else
+		/* cannot see player's coordinates */
+		printw("%-20s %19.19s ",
+		    Other.p_name, descrlocation(&Other, TRUE));
+	
+	printw("%6.0f %s  %-9.9s%s\n", Other.p_level, descrtype(&Other, TRUE),
+	    Other.p_login, descrstatus(&Other));
+
+	if ((numusers % (LINES - 10)) == 0)
+	    {
+	    more(LINES - 1);
+	    move(9, 0);
+	    clrtobot();
+	    }
+	}
+
+    printw("Total players on file = %d\n", numusers);
+    refresh();
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: throneroom()
+/
+/ FUNCTION: king stuff upon entering throne
+/
+/ AUTHOR: E. A. Estes, 12/16/85
+/
+/ ARGUMENTS: none
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: writerecord(), fread(), fseek(), fopen(), wmove(), fclose(), 
+/	fwrite(), altercoordinates(), waddstr(), fprintf()
+/
+/ GLOBAL INPUTS: *Energyvoidfp, Other, Player, *stdscr,
+/	Enrgyvoid, *Playersfp
+/
+/ GLOBAL OUTPUTS: Other, Player, Changed
+/
+/ DESCRIPTION:
+/	If player is not already king, make him/her so if the old king
+/	is not playing.
+/	Clear energy voids with new king.
+/	Print 'decree' prompt.
+/
+/************************************************************************/
+
+throneroom()
+{
+FILE	*fp;			/* to clear energy voids */
+long	loc = 0L;		/* location of old king in player file */
+
+    if (Player.p_specialtype < SC_KING)
+	/* not already king -- assumes crown */
+	{
+	fseek(Playersfp, 0L, 0);
+	while (fread((char *) &Other, SZ_PLAYERSTRUCT, 1, Playersfp) == 1)
+	    if (Other.p_specialtype == SC_KING && Other.p_status != S_NOTUSED)
+		/* found old king */
+		{
+		if (Other.p_status != S_OFF)
+		    /* old king is playing */
+		    {
+		    mvaddstr( 4, 0, "The king is playing, so you cannot steal his throne\n");
+		    altercoordinates(0.0, 0.0, A_NEAR);
+		    move(6, 0);
+		    return;
+		    }
+		else
+		    /* old king is not playing - remove him/her */
+		    {
+		    Other.p_specialtype = SC_NONE;
+		    if (Other.p_crowns)
+			--Other.p_crowns;
+		    writerecord(&Other, loc);
+		    break;
+		    }
+		}
+	    else
+		loc += SZ_PLAYERSTRUCT;
+
+	/* make player new king */
+	Changed = TRUE;
+	Player.p_specialtype = SC_KING;
+	mvaddstr(4, 0, "You have become king!\n");
+
+	/* let everyone else know */
+	fp = fopen(_PATH_MESS, "w");
+	fprintf(fp, "All hail the new king!");
+	fclose(fp);
+
+	/* clear all energy voids; retain location of holy grail */
+	fseek(Energyvoidfp, 0L, 0);
+	fread((char *) &Enrgyvoid, SZ_VOIDSTRUCT, 1, Energyvoidfp);
+	fp = fopen(_PATH_VOID, "w");
+	fwrite((char *) &Enrgyvoid, SZ_VOIDSTRUCT, 1, fp);
+	fclose(fp);
+	}
+
+    mvaddstr(6, 0, "0:Decree  ");
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: dotampered()
+/
+/ FUNCTION: king and valar special options
+/
+/ AUTHOR: E. A. Estes, 2/28/86
+/
+/ ARGUMENTS: none
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: writerecord(), truncstring(), fread(), fseek(), fopen(), 
+/	floor(), wmove(), drandom(), fclose(), fwrite(), sscanf(), strcmp(), 
+/	infloat(), waddstr(), findname(), distance(), userlist(), mvprintw(), 
+/	allocvoid(), getanswer(), getstring(), wclrtoeol(), writevoid()
+/
+/ GLOBAL INPUTS: *Energyvoidfp, Other, Illcmd[], Wizard, Player, *stdscr, 
+/	Databuf[], Enrgyvoid
+/
+/ GLOBAL OUTPUTS: Other, Player, Enrgyvoid
+/
+/ DESCRIPTION:
+/	Tamper with other players.  Handle king/valar specific options.
+/
+/************************************************************************/
+
+dotampered()
+{
+short	tamper;			/* value for tampering with other players */
+char	*option;			/* pointer to option description */
+double	temp1 = 0.0, temp2 = 0.0;	/* other tampering values */
+int	ch;				/* input */
+long	loc;				/* location in energy void file */
+FILE	*fp;				/* for opening gold file */
+
+    move(6, 0);
+    clrtoeol();
+    if (Player.p_specialtype < SC_COUNCIL && !Wizard)
+	/* king options */
+	{
+	addstr("1:Transport  2:Curse  3:Energy Void  4:Bestow  5:Collect Taxes  ");
+
+	ch = getanswer(" ", TRUE);
+	move(6, 0);
+	clrtoeol();
+	move(4, 0);
+	switch (ch)
+	    {
+	    case '1':	/* transport someone */
+		tamper = T_TRANSPORT;
+		option = "transport";
+		break;
+
+	    case '2':	/* curse another */
+		tamper = T_CURSED;
+		option = "curse";
+		break;
+
+	    case '3':	/* create energy void */
+		if ((loc = allocvoid()) > 20L * SZ_VOIDSTRUCT)
+		    /* can only have 20 void active at once */
+		    mvaddstr(5, 0, "Sorry, void creation limit reached.\n");
+		else
+		    {
+		    addstr("Enter the X Y coordinates of void ? ");
+		    getstring(Databuf, SZ_DATABUF);
+		    sscanf(Databuf, "%lf %lf", &temp1, &temp2);
+		    Enrgyvoid.ev_x = floor(temp1);
+		    Enrgyvoid.ev_y = floor(temp2);
+		    Enrgyvoid.ev_active = TRUE;
+		    writevoid(&Enrgyvoid, loc);
+		    mvaddstr(5, 0, "It is done.\n");
+		    }
+		return;
+
+	    case '4':	/* bestow gold to subject */
+		tamper = T_BESTOW;
+		addstr("How much gold to bestow ? ");
+		temp1 = infloat();
+		if (temp1 > Player.p_gold || temp1 < 0)
+		    {
+		    mvaddstr(5, 0, "You don't have that !\n");
+		    return;
+		    }
+
+		/* adjust gold after we are sure it will be given to someone */
+		option = "give gold to";
+		break;
+
+	    case '5':	/* collect accumulated taxes */
+		if ((fp = fopen(_PATH_GOLD, "r+")) != NULL)
+		    /* collect taxes */
+		    {
+		    fread((char *) &temp1, sizeof(double), 1, fp);
+		    fseek(fp, 0L, 0);
+		    /* clear out value */
+		    temp2 = 0.0;
+		    fwrite((char *) &temp2, sizeof(double), 1, fp);
+		    fclose(fp);
+		    }
+
+		mvprintw(4, 0, "You have collected %.0f in gold.\n", temp1);
+		Player.p_gold += floor(temp1);
+		return;
+
+	    default:
+		return;
+	    }
+	/* end of king options */
+	}
+    else
+	/* council of wise, valar, wizard options */
+	{
+	addstr("1:Heal  ");
+	if (Player.p_palantir || Wizard)
+	    addstr("2:Seek Grail  ");
+	if (Player.p_specialtype == SC_VALAR || Wizard)
+	    addstr("3:Throw Monster  4:Relocate  5:Bless  ");
+	if (Wizard)
+	    addstr("6:Vaporize  ");
+
+	ch = getanswer(" ", TRUE);
+	if (!Wizard)
+	    {
+	    if (ch > '2' && Player.p_specialtype != SC_VALAR)
+		{
+		ILLCMD();
+		return;
+		}
+
+	    if (Player.p_mana < MM_INTERVENE)
+		{
+		mvaddstr(5, 0, "No mana left.\n");
+		return;
+		}
+	    else
+		Player.p_mana -= MM_INTERVENE;
+	    }
+
+	switch (ch)
+	    {
+	    case '1':	/* heal another */
+		tamper = T_HEAL;
+		option = "heal";
+		break;
+
+	    case '2':	/* seek grail */
+		if (Player.p_palantir)
+		    /* need a palantir to seek */
+		    {
+		    fseek(Energyvoidfp, 0L, 0);
+		    fread((char *) &Enrgyvoid, SZ_VOIDSTRUCT, 1, Energyvoidfp);
+		    temp1 = distance(Player.p_x, Enrgyvoid.ev_x, Player.p_y, Enrgyvoid.ev_y);
+		    temp1 += ROLL(-temp1 / 10.0, temp1 / 5.0);	/* add some error */
+		    mvprintw(5, 0, "The palantir says the Grail is about %.0f away.\n", temp1);
+		    }
+		else
+		    /* no palantir */
+		    mvaddstr(5, 0, "You need a palantir to seek the Grail.\n");
+		return;
+
+	    case '3':	/* lob monster at someone */
+		mvaddstr(4, 0, "Which monster [0-99] ? ");
+		temp1 = infloat();
+		temp1 = MAX(0.0, MIN(99.0, temp1));
+		tamper = T_MONSTER;
+		option = "throw a monster at";
+		break;
+
+	    case '4':	/* move another player */
+		mvaddstr(4, 0, "New X Y coordinates ? ");
+		getstring(Databuf, SZ_DATABUF);
+		sscanf(Databuf, "%lf %lf", &temp1, &temp2);
+		tamper = T_RELOCATE;
+		option = "relocate";
+		break;
+
+	    case '5':	/* bless a player */
+		tamper = T_BLESSED;
+		option = "bless";
+		break;
+
+	    case '6':	/* kill off a player */
+		if (Wizard)
+		    {
+		    tamper = T_VAPORIZED;
+		    option = "vaporize";
+		    break;
+		    }
+		else
+		    return;
+
+	    default:
+		return;
+	    }
+
+	/* adjust age after we are sure intervention will be done */
+	/* end of valar, etc. options */
+	}
+
+    for (;;)
+	/* prompt for player to affect */
+	{
+	mvprintw(4, 0, "Who do you want to %s ? ", option);
+	getstring(Databuf, SZ_DATABUF);
+	truncstring(Databuf);
+
+	if (Databuf[0] == '\0')
+	    userlist(TRUE);
+	else
+	    break;
+	}
+
+    if (strcmp(Player.p_name, Databuf) != 0)
+	/* name other than self */
+	{
+	if ((loc = findname(Databuf, &Other)) >= 0L)
+	    {
+	    if (Other.p_tampered != T_OFF)
+		{
+		mvaddstr(5, 0, "That person has something pending already.\n");
+		return;
+		}
+	    else
+		{
+		if (tamper == T_RELOCATE
+		    && CIRCLE(temp1, temp2) < CIRCLE(Other.p_x, Other.p_y)
+		    && !Wizard)
+		    mvaddstr(5, 0, "Cannot move someone closer to the Lord's Chamber.\n");
+		else
+		    {
+		    if (tamper == T_BESTOW) Player.p_gold -= floor(temp1);
+		    if (!Wizard && (tamper == T_HEAL || tamper == T_MONSTER ||
+			tamper == T_RELOCATE || tamper == T_BLESSED))
+	    			Player.p_age += N_AGE;	/* age penalty */
+		    Other.p_tampered = tamper;
+		    Other.p_1scratch = floor(temp1);
+		    Other.p_2scratch = floor(temp2);
+		    writerecord(&Other, loc);
+		    mvaddstr(5, 0, "It is done.\n");
+		    }
+		return;
+		}
+	    }
+	else
+	    /* player not found */
+	    mvaddstr(5, 0, "There is no one by that name.\n");
+	}
+    else
+	/* self */
+	mvaddstr(5, 0, "You may not do it to yourself!\n");
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: writevoid()
+/
+/ FUNCTION: update energy void entry in energy void file
+/
+/ AUTHOR: E. A. Estes, 12/4/85
+/
+/ ARGUMENTS:
+/	struct energyvoid *vp - pointer to structure to write to file
+/	long loc - location in file to update
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: fseek(), fwrite(), fflush()
+/
+/ GLOBAL INPUTS: *Energyvoidfp
+/
+/ GLOBAL OUTPUTS: none
+/
+/ DESCRIPTION:
+/	Write out energy void structure at specified location.
+/
+/************************************************************************/
+
+writevoid(vp, loc)
+register struct energyvoid	*vp;
+long	loc;
+{
+
+    fseek(Energyvoidfp, loc, 0);
+    fwrite((char *) vp, SZ_VOIDSTRUCT, 1, Energyvoidfp);
+    fflush(Energyvoidfp);
+    fseek(Energyvoidfp, 0L, 0);
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: allocvoid()
+/
+/ FUNCTION: allocate space for a new energy void
+/
+/ AUTHOR: E. A. Estes, 12/4/85
+/
+/ ARGUMENTS: none
+/
+/ RETURN VALUE: location of new energy void space
+/
+/ MODULES CALLED: fread(), fseek()
+/
+/ GLOBAL INPUTS: *Energyvoidfp, Enrgyvoid
+/
+/ GLOBAL OUTPUTS: none
+/
+/ DESCRIPTION:
+/	Search energy void file for an inactive entry and return its
+/	location.
+/	If no inactive ones are found, return one more than last location.
+/
+/************************************************************************/
+
+long
+allocvoid()
+{
+long	loc = 0L;		/* location of new energy void */
+
+    fseek(Energyvoidfp, 0L, 0);
+    while (fread((char *) &Enrgyvoid, SZ_VOIDSTRUCT, 1, Energyvoidfp) == 1)
+	if (Enrgyvoid.ev_active)
+	    loc += SZ_VOIDSTRUCT;
+	else
+	    break;
+
+    return(loc);
+}
diff --git a/games/phantasia/io.c b/games/phantasia/io.c
new file mode 100644
index 0000000..addf1c9
--- /dev/null
+++ b/games/phantasia/io.c
@@ -0,0 +1,436 @@
+/*
+ * io.c - input/output routines for Phantasia
+ */
+
+#include "include.h"
+
+/************************************************************************
+/
+/ FUNCTION NAME: getstring()
+/
+/ FUNCTION: read a string from operator
+/
+/ AUTHOR: E. A. Estes, 12/4/85
+/
+/ ARGUMENTS:
+/	char *cp - pointer to buffer area to fill
+/	int mx - maximum number of characters to put in buffer
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: wmove(), _filbuf(), clearok(), waddstr(), wrefresh(), 
+/	wclrtoeol()
+/
+/ GLOBAL INPUTS: Echo, _iob[], Wizard, *stdscr
+/
+/ GLOBAL OUTPUTS: _iob[]
+/
+/ DESCRIPTION:
+/	Read a string from the keyboard.
+/	This routine is specially designed to:
+/
+/	    - strip non-printing characters (unless Wizard)
+/	    - echo, if desired
+/	    - redraw the screen if CH_REDRAW is entered
+/	    - read in only 'mx - 1' characters or less characters
+/	    - nul-terminate string, and throw away newline
+/
+/	'mx' is assumed to be at least 2.
+/
+/************************************************************************/
+
+getstring(cp, mx)
+register char	*cp;
+register int	mx;
+{
+register char	*inptr;		/* pointer into string for next string */
+int	x, y;			/* original x, y coordinates on screen */
+int	ch;			/* input */
+
+    getyx(stdscr, y, x);	/* get coordinates on screen */
+    inptr = cp;
+    *inptr = '\0';		/* clear string to start */
+    --mx;			/* reserve room in string for nul terminator */
+
+    do
+	/* get characters and process */
+	{
+	if (Echo)
+	    mvaddstr(y, x, cp);	/* print string on screen */
+	clrtoeol();		/* clear any data after string */
+	refresh();		/* update screen */
+
+	ch = getchar();		/* get character */
+
+	switch (ch)
+	    {
+	    case CH_ERASE:	/* back up one character */
+		if (inptr > cp)
+		    --inptr;
+		break;
+
+	    case CH_KILL:	/* back up to original location */
+		inptr = cp;
+		break;
+
+	    case CH_NEWLINE:	/* terminate string */
+		break;
+
+	    case CH_REDRAW:	/* redraw screen */
+		clearok(stdscr, TRUE);
+		continue;
+
+	    default:		/* put data in string */
+		if (ch >= ' ' || Wizard)
+		    /* printing char; put in string */
+		    *inptr++ = ch;
+	    }
+
+	*inptr = '\0';		/* terminate string */
+	}
+    while (ch != CH_NEWLINE && inptr < cp + mx);
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: more()
+/
+/ FUNCTION: pause and prompt player
+/
+/ AUTHOR: E. A. Estes, 12/4/85
+/
+/ ARGUMENTS:
+/	int where - line on screen on which to pause
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: wmove(), waddstr(), getanswer()
+/
+/ GLOBAL INPUTS: *stdscr
+/
+/ GLOBAL OUTPUTS: none
+/
+/ DESCRIPTION:
+/	Print a message, and wait for a space character.
+/
+/************************************************************************/
+
+more(where)
+int	where;
+{
+    mvaddstr(where, 0, "-- more --");
+    getanswer(" ", FALSE);
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: infloat()
+/
+/ FUNCTION: input a floating point number from operator
+/
+/ AUTHOR: E. A. Estes, 12/4/85
+/
+/ ARGUMENTS: none
+/
+/ RETURN VALUE: floating point number from operator
+/
+/ MODULES CALLED: sscanf(), getstring()
+/
+/ GLOBAL INPUTS: Databuf[]
+/
+/ GLOBAL OUTPUTS: none
+/
+/ DESCRIPTION:
+/	Read a string from player, and scan for a floating point
+/	number.
+/	If no valid number is found, return 0.0.
+/
+/************************************************************************/
+
+double
+infloat()
+{
+double	result;		/* return value */
+
+    getstring(Databuf, SZ_DATABUF);
+    if (sscanf(Databuf, "%lf", &result) < 1)
+	/* no valid number entered */
+	result = 0.0;
+
+    return(result);
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: inputoption()
+/
+/ FUNCTION: input an option value from player
+/
+/ AUTHOR: E. A. Estes, 12/4/85
+/
+/ ARGUMENTS: none
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: floor(), drandom(), getanswer()
+/
+/ GLOBAL INPUTS: Player
+/
+/ GLOBAL OUTPUTS: Player
+/
+/ DESCRIPTION:
+/	Age increases with every move.
+/	Refresh screen, and get a single character option from player.
+/	Return a random value if player's ring has gone bad.
+/
+/************************************************************************/
+
+inputoption()
+{
+    ++Player.p_age;		/* increase age */
+
+    if (Player.p_ring.ring_type != R_SPOILED)
+	/* ring ok */
+	return(getanswer("T ", TRUE));
+    else
+	/* bad ring */
+	{
+	getanswer(" ", TRUE);
+	return((int) ROLL(0.0, 5.0) + '0');
+	}
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: interrupt()
+/
+/ FUNCTION: handle interrupt from operator
+/
+/ AUTHOR: E. A. Estes, 12/4/85
+/
+/ ARGUMENTS: none
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: fork(), exit(), wait(), death(), alarm(), execl(), wmove(), 
+/	getgid(), signal(), getenv(), wclear(), setuid(), getuid(), setgid(), 
+/	crmode(), clearok(), waddstr(), cleanup(), wrefresh(), leavegame(), 
+/	getanswer()
+/
+/ GLOBAL INPUTS: Player, *stdscr
+/
+/ GLOBAL OUTPUTS: none
+/
+/ DESCRIPTION:
+/	Allow player to quit upon hitting the interrupt key.
+/	If the player wants to quit while in battle, he/she automatically
+/	dies.
+/
+/************************************************************************/
+
+interrupt()
+{
+char	line[81];		/* a place to store data already on screen */
+register int	loop;		/* counter */
+int	x, y;			/* coordinates on screen */
+int	ch;			/* input */
+unsigned	savealarm;	/* to save alarm value */
+
+#ifdef SYS3
+    signal(SIGINT, SIG_IGN);
+#endif
+#ifdef SYS5
+    signal(SIGINT, SIG_IGN);
+#endif
+
+    savealarm = alarm(0);		/* turn off any alarms */
+
+    getyx(stdscr, y, x);		/* save cursor location */
+
+    for (loop = 0; loop < 80; ++loop)	/* save line on screen */
+	{
+	move(4, loop);
+	line[loop] = inch();
+	}
+    line[80] = '\0';			/* nul terminate */
+
+    if (Player.p_status == S_INBATTLE || Player.p_status == S_MONSTER)
+	/* in midst of fighting */
+	{
+	mvaddstr(4, 0, "Quitting now will automatically kill your character.  Still want to ? ");
+	ch = getanswer("NY", FALSE);
+	if (ch == 'Y')
+	    death("Bailing out");
+	    /*NOTREACHED*/
+	}
+    else
+	{
+	mvaddstr(4, 0, "Do you really want to quit ? ");
+	ch = getanswer("NY", FALSE);
+	if (ch == 'Y')
+	    leavegame();
+	    /*NOTREACHED*/
+	}
+
+    mvaddstr(4, 0, line); 		/* restore data on screen */
+    move(y, x);				/* restore cursor */
+    refresh();
+
+#ifdef SYS3
+    signal(SIGINT, interrupt);
+#endif
+#ifdef SYS5
+    signal(SIGINT, interrupt);
+#endif
+
+    alarm(savealarm);			/* restore alarm */
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: getanswer()
+/
+/ FUNCTION: get an answer from operator
+/
+/ AUTHOR: E. A. Estes, 12/4/85
+/
+/ ARGUMENTS:
+/	char *choices - string of (upper case) valid choices
+/	bool def - set if default answer
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: alarm(), wmove(), waddch(), signal(), setjmp(), strchr(), 
+/	_filbuf(), clearok(), toupper(), wrefresh(), mvprintw(), wclrtoeol()
+/
+/ GLOBAL INPUTS: catchalarm(), Echo, _iob[], _ctype[], *stdscr, Timeout, 
+/	Timeoenv[]
+/
+/ GLOBAL OUTPUTS: _iob[]
+/
+/ DESCRIPTION:
+/	Get a single character answer from operator.
+/	Timeout waiting for response.  If we timeout, or the
+/	answer in not in the list of valid choices, print choices,
+/	and wait again, otherwise return the first character in ths
+/	list of choices.
+/	Give up after 3 tries.
+/
+/************************************************************************/
+
+getanswer(choices, def)
+char	*choices;
+bool	def;
+{
+int	ch;			/* input */
+int	loop;			/* counter */
+int	oldx, oldy;		/* original coordinates on screen */
+
+    getyx(stdscr, oldy, oldx);
+    alarm(0);				/* make sure alarm is off */
+
+    for (loop = 3; loop; --loop)
+	/* try for 3 times */
+	{
+	if (setjmp(Timeoenv) != 0)
+	    /* timed out waiting for response */
+	    {
+	    if (def || loop <= 1)
+		/* return default answer */
+		break;
+	    else
+		/* prompt, and try again */
+		goto YELL;
+	    }
+	else
+	    /* wait for response */
+	    {
+	    clrtoeol();
+	    refresh();
+#ifdef BSD41
+	    sigset(SIGALRM, catchalarm);
+#else
+	    signal(SIGALRM, catchalarm);
+#endif
+	    /* set timeout */
+	    if (Timeout)
+		alarm(7);		/* short */
+	    else
+		alarm(600);		/* long */
+
+	    ch = getchar();
+
+	    alarm(0);			/* turn off timeout */
+
+	    if (ch < 0)
+		/* caught some signal */
+		{
+		++loop;
+		continue;
+		}
+	    else if (ch == CH_REDRAW)
+		/* redraw screen */
+		{
+		clearok(stdscr, TRUE);	/* force clear screen */
+		++loop;			/* don't count this input */
+		continue;
+		}
+	    else if (Echo)
+		{
+		addch(ch);		/* echo character */
+		refresh();
+		}
+
+	    if (islower(ch))
+		/* convert to upper case */
+		ch = toupper(ch);
+
+	    if (def || strchr(choices, ch) != NULL)
+		/* valid choice */
+		return(ch);
+	    else if (!def && loop > 1)
+		/* bad choice; prompt, and try again */
+		{
+YELL:		mvprintw(oldy + 1, 0, "Please choose one of : [%s]\n", choices);
+		move(oldy, oldx);
+		clrtoeol();
+		continue;
+		}
+	    else
+		/* return default answer */
+		break;
+	    }
+	}
+
+    return(*choices);
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: catchalarm()
+/
+/ FUNCTION: catch timer when waiting for input
+/
+/ AUTHOR: E. A. Estes, 12/4/85
+/
+/ ARGUMENTS: none
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: longjmp()
+/
+/ GLOBAL INPUTS: Timeoenv[]
+/
+/ GLOBAL OUTPUTS: none
+/
+/ DESCRIPTION:
+/	Come here when the alarm expires while waiting for input.
+/	Simply longjmp() into getanswer().
+/
+/************************************************************************/
+
+void
+catchalarm()
+{
+    longjmp(Timeoenv, 1);
+}
diff --git a/games/phantasia/macros.h b/games/phantasia/macros.h
new file mode 100644
index 0000000..e232742
--- /dev/null
+++ b/games/phantasia/macros.h
@@ -0,0 +1,16 @@
+/*
+ * macros.h - macro definitions for Phantasia
+ */
+
+#define ROLL(BASE,INTERVAL)	floor((BASE) + (INTERVAL) * drandom())
+#define SGN(X)		((X) < 0 ? -1 : 1)
+#define CIRCLE(X, Y)	floor(distance(X, 0.0, Y, 0.0) / 125.0 + 1)
+#define MAX(A, B)	((A) > (B) ? (A) : (B))
+#define MIN(A, B)	((A) < (B) ? (A) : (B))
+#define ILLCMD()	mvaddstr(5, 0, Illcmd)
+#define MAXMOVE()	(Player.p_level * 1.5 + 1)
+#define ILLMOVE()	mvaddstr(5, 0, Illmove)
+#define ILLSPELL()	mvaddstr(5, 0, Illspell)
+#define NOMANA()	mvaddstr(5, 0, Nomana)
+#define SOMEBETTER()	addstr(Somebetter)
+#define NOBETTER()	mvaddstr(17, 0, Nobetter)
diff --git a/games/phantasia/main.c b/games/phantasia/main.c
new file mode 100644
index 0000000..89d56e8
--- /dev/null
+++ b/games/phantasia/main.c
@@ -0,0 +1,1288 @@
+/*
+ * Phantasia 3.3.2 -- Interterminal fantasy game
+ *
+ * Edward A. Estes
+ * AT&T, March 12, 1986
+ */
+
+/* DISCLAIMER:
+ *
+ * This game is distributed for free as is.  It is not guaranteed to work
+ * in every conceivable environment.  It is not even guaranteed to work
+ * in ANY environment.
+ *
+ * This game is distributed without notice of copyright, therefore it
+ * may be used in any manner the recipient sees fit.  However, the
+ * author assumes no responsibility for maintaining or revising this
+ * game, in its original form, or any derivitives thereof.
+ *
+ * The author shall not be responsible for any loss, cost, or damage,
+ * including consequential damage, caused by reliance on this material.
+ *
+ * The author makes no warranties, express or implied, including warranties
+ * of merchantability or fitness for a particular purpose or use.
+ *
+ * AT&T is in no way connected with this game.
+ */
+
+#include <sys/types.h>
+#include <pwd.h>
+
+/*
+ * The program allocates as much file space as it needs to store characters,
+ * so the possibility exists for the character file to grow without bound.
+ * The file is purged upon normal entry to try to avoid that problem.
+ * A similar problem exists for energy voids.  To alleviate the problem here,
+ * the void file is cleared with every new king, and a limit is placed
+ * on the size of the energy void file.
+ */
+
+/*
+ * Put one line of text into the file 'motd' for announcements, etc.
+ */
+
+/*
+ * The scoreboard file is updated when someone dies, and keeps track
+ * of the highest character to date for that login.
+ * Being purged from the character file does not cause the scoreboard
+ * to be updated.
+ */
+
+/*
+ * All source files are set up for 'vi' with shiftwidth=4, tabstop=8. 
+ */
+
+/**/
+
+/*
+ * main.c	Main routines for Phantasia
+ */
+
+#include "include.h"
+
+/***************************************************************************
+/ FUNCTION NAME: main()
+/
+/ FUNCTION: initialize state, and call main process
+/
+/ AUTHOR: E. A. Estes, 12/4/85
+/
+/ ARGUMENTS:
+/	int	argc - argument count
+/	char	**argv - argument vector
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: monstlist(), checkenemy(), activelist(), 
+/	throneroom(), checkbattle(), readmessage(), changestats(), writerecord(), 
+/	tradingpost(), adjuststats(), recallplayer(), displaystats(), checktampered(), 
+/	fabs(), rollnewplayer(), time(), exit(), sqrt(), floor(), wmove(), 
+/	signal(), strcat(), purgeoldplayers(), getuid(), isatty(), wclear(), 
+/	strcpy(), system(), altercoordinates(), cleanup(), waddstr(), procmain(), 
+/	playinit(), leavegame(), localtime(), getanswer(), neatstuff(), initialstate(), 
+/	scorelist(), titlelist()
+/
+/ GLOBAL INPUTS: *Login, Throne, Wizard, Player, *stdscr, Changed, Databuf[], 
+/	Fileloc, Stattable[]
+/
+/ GLOBAL OUTPUTS: Wizard, Player, Changed, Fileloc, Timeout, *Statptr
+/
+/ DESCRIPTION:
+/	Process arguments, initialize program, and loop forever processing
+/	player input.
+/
+/***************************************************************************/
+
+main(argc, argv)
+int	argc;
+char	**argv;
+{
+bool	noheader = FALSE;	/* set if don't want header */
+bool	headeronly = FALSE;	/* set if only want header */
+bool	examine = FALSE;	/* set if examine a character */
+long	seconds;		/* for time of day */
+double	dtemp;			/* for temporary calculations */
+
+    initialstate();		/* init globals */
+
+    /* process arguments */
+    while (--argc && (*++argv)[0] == '-')
+	switch ((*argv)[1])
+	    {
+	    case 's':	/* short */
+		noheader = TRUE;
+		break;
+
+	    case 'H':	/* Header */
+		headeronly = TRUE;
+		break;
+
+	    case 'a':	/* all users */
+		activelist();
+		cleanup(TRUE);
+		/*NOTREACHED*/
+
+	    case 'p':	/* purge old players */
+		purgeoldplayers();
+		cleanup(TRUE);
+		/*NOTREACHED*/
+
+	    case 'S':	/* set 'Wizard' */
+		Wizard = !getuid();
+		break;
+
+	    case 'x':	/* examine */
+		examine = TRUE;
+		break;
+
+	    case 'm':	/* monsters */
+		monstlist();
+		cleanup(TRUE);
+		/*NOTREACHED*/
+
+	    case 'b':	/* scoreboard */
+		scorelist();
+		cleanup(TRUE);
+		/*NOTREACHED*/
+		}
+
+    if (!isatty(0))		/* don't let non-tty's play */
+	cleanup(TRUE);
+	/*NOTREACHED*/
+
+    playinit();			/* set up to catch signals, init curses */
+
+    if (examine)
+	{
+	changestats(FALSE);
+	cleanup(TRUE);
+	/*NOTREACHED*/
+	}
+
+    if (!noheader)
+	{
+	titlelist();
+	purgeoldplayers();    /* clean up old characters */
+	}
+
+    if (headeronly)
+	cleanup(TRUE);
+	/*NOTREACHED*/
+
+    do
+	/* get the player structure filled */
+	{
+	Fileloc = -1L;
+
+	mvaddstr(22, 17, "Do you have a character to run [Q = Quit] ? ");
+
+	switch (getanswer("NYQ", FALSE))
+	    {
+	    case 'Y':
+		Fileloc = recallplayer();
+		break;
+
+	    case 'Q':
+		cleanup(TRUE);
+		/*NOTREACHED*/
+
+	    default:
+		Fileloc = rollnewplayer();
+		break;
+	    }
+	clear();
+	}
+    while (Fileloc < 0L);
+
+    if (Player.p_level > 5.0)
+	/* low level players have long timeout */
+	Timeout = TRUE;
+
+    /* update some important player statistics */
+    strcpy(Player.p_login, Login);
+    time(&seconds);
+    Player.p_lastused = localtime(&seconds)->tm_yday;
+    Player.p_status = S_PLAYING;
+    writerecord(&Player, Fileloc);
+
+    Statptr = &Stattable[Player.p_type];	/* initialize pointer */
+
+    /* catch interrupts */
+#ifdef	BSD41
+    sigset(SIGINT, interrupt);
+#endif
+#ifdef	BSD42
+    signal(SIGINT, interrupt);
+#endif
+#ifdef	SYS3
+    signal(SIGINT, interrupt);
+#endif
+#ifdef	SYS5
+    signal(SIGINT, interrupt);
+#endif
+
+    altercoordinates(Player.p_x, Player.p_y, A_FORCED);	/* set some flags */
+
+    clear();
+
+    for (;;)
+	/* loop forever, processing input */
+	{
+
+	adjuststats();		/* cleanup stats */
+
+	if (Throne && Player.p_crowns == 0 && Player.p_specialtype != SC_KING)
+	    /* not allowed on throne -- move */
+	    {
+	    mvaddstr(5,0,"You're not allowed in the Lord's Chamber without a crown.\n");
+	    altercoordinates(0.0, 0.0, A_NEAR);
+	    }
+
+	checktampered();	/* check for energy voids, etc. */
+
+	if (Player.p_status != S_CLOAKED
+	    /* not cloaked */
+	    && (dtemp = fabs(Player.p_x)) == fabs(Player.p_y)
+	    /* |x| = |y| */
+	    && !Throne)
+	    /* not on throne */
+	    {
+	    dtemp = sqrt(dtemp / 100.0);
+	    if (floor(dtemp) == dtemp)
+		/* |x| / 100 == n*n; at a trading post */
+		{
+		tradingpost();
+		clear();
+		}
+	    }
+
+	checkbattle();		/* check for player to player battle */
+	neatstuff();		/* gurus, medics, etc. */
+
+	if (Player.p_status == S_CLOAKED)
+	    /* costs 3 mana per turn to be cloaked */
+	    if (Player.p_mana > 3.0)
+		Player.p_mana -= 3.0;
+	    else
+		/* ran out of mana, uncloak */
+		{
+		Player.p_status = S_PLAYING;
+		Changed = TRUE;
+		}
+
+	if (Player.p_status != S_PLAYING && Player.p_status != S_CLOAKED)
+	    /* change status back to S_PLAYING */
+	    {
+	    Player.p_status = S_PLAYING;
+	    Changed = TRUE;
+	    }
+
+	if (Changed)
+	    /* update file only if important stuff has changed */
+	    {
+	    writerecord(&Player, Fileloc);
+	    Changed = FALSE;
+	    continue;
+	    }
+
+	readmessage();			/* read message, if any */
+
+	displaystats();			/* print statistics */
+
+	move(6, 0);
+
+	if (Throne)
+	    /* maybe make king, print prompt, etc. */
+	    throneroom();
+
+	/* print status line */
+	addstr("1:Move  2:Players  3:Talk  4:Stats  5:Quit  ");
+	if (Player.p_level >= MEL_CLOAK && Player.p_magiclvl >= ML_CLOAK)
+	    addstr("6:Cloak  ");
+	if (Player.p_level >= MEL_TELEPORT && Player.p_magiclvl >= ML_TELEPORT)
+	    addstr("7:Teleport  ");
+	if (Player.p_specialtype >= SC_COUNCIL || Wizard)
+	    addstr("8:Intervene  ");
+
+	procmain();			/* process input */
+	}
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: initialstate()
+/
+/ FUNCTION: initialize some important global variable
+/
+/ AUTHOR: E. A. Estes, 12/4/85
+/
+/ ARGUMENTS: none
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: time(), fopen(), srandom(), error(), getuid(), getlogin(), 
+/	getpwuid()
+/
+/ GLOBAL INPUTS: 
+/
+/ GLOBAL OUTPUTS: *Energyvoidfp, Echo, Marsh, *Login, Users, Beyond, 
+/	Throne, Wizard, Changed, Okcount, Timeout, Windows, *Monstfp, *Messagefp, 
+/	*Playersfp
+/
+/ DESCRIPTION:
+/	Set global flags, and open files which remain open.
+/
+/************************************************************************/
+
+initialstate()
+{
+    Beyond = FALSE;
+    Marsh = FALSE;
+    Throne = FALSE;
+    Changed = FALSE;
+    Wizard = FALSE;
+    Timeout = FALSE;
+    Users = 0;
+    Windows = FALSE;
+    Echo = TRUE;
+
+    /* setup login name */
+    if ((Login = getlogin()) == NULL)
+	Login = getpwuid(getuid())->pw_name;
+    
+    /* open some files */
+    if ((Playersfp = fopen(_PATH_PEOPLE, "r+")) == NULL)
+	error(_PATH_PEOPLE);
+	/*NOTREACHED*/
+
+    if ((Monstfp = fopen(_PATH_MONST, "r+")) == NULL)
+	error(_PATH_MONST);
+	/*NOTREACHED*/
+
+    if ((Messagefp = fopen(_PATH_MESS, "r")) == NULL)
+	error(_PATH_MESS);
+	/*NOTREACHED*/
+
+    if ((Energyvoidfp = fopen(_PATH_VOID, "r+")) == NULL)
+	error(_PATH_VOID);
+	/*NOTREACHED*/
+
+    srandom((unsigned) time((long *) NULL));	/* prime random numbers */
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: rollnewplayer()
+/
+/ FUNCTION: roll up a new character
+/
+/ AUTHOR: E. A. Estes, 12/4/85
+/
+/ ARGUMENTS: none
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: initplayer(), allocrecord(), truncstring(), fabs(), wmove(), 
+/	wclear(), sscanf(), strcmp(), genchar(), waddstr(), findname(), mvprintw(), 
+/	getanswer(), getstring()
+/
+/ GLOBAL INPUTS: Other, Wizard, Player, *stdscr, Databuf[]
+/
+/ GLOBAL OUTPUTS: Echo
+/
+/ DESCRIPTION:
+/	Prompt player, and roll up new character.
+/
+/************************************************************************/
+
+long
+rollnewplayer()
+{
+int	chartype;	/* character type */
+int	ch;		/* input */
+
+    initplayer(&Player);		/* initialize player structure */
+
+    clear();
+    mvaddstr(4, 21, "Which type of character do you want:");
+    mvaddstr(8, 4, "1:Magic User  2:Fighter  3:Elf  4:Dwarf  5:Halfling  6:Experimento  ");
+    if (Wizard) {
+	addstr("7:Super  ? ");
+	chartype = getanswer("1234567", FALSE);
+	}
+    else {
+	addstr("?  ");
+	chartype = getanswer("123456", FALSE);
+	}
+
+    do
+	{
+	genchar(chartype);		/* roll up a character */
+
+	/* print out results */
+	mvprintw(12, 14,
+	    "Strength    :  %2.0f  Quickness:  %2.0f  Mana       :  %2.0f\n",
+	    Player.p_strength, Player.p_quickness, Player.p_mana);
+	mvprintw(13, 14,
+	    "Energy Level:  %2.0f  Brains   :  %2.0f  Magic Level:  %2.0f\n",
+	    Player.p_energy, Player.p_brains, Player.p_magiclvl);
+
+	if (Player.p_type == C_EXPER || Player.p_type == C_SUPER)
+	    break;
+
+	mvaddstr(14, 14, "Type '1' to keep >");
+	ch = getanswer(" ", TRUE);
+	}
+    while (ch != '1');
+
+    if (Player.p_type == C_EXPER || Player.p_type == C_SUPER)
+	/* get coordinates for experimento */
+	for (;;)
+	    {
+	    mvaddstr(16, 0, "Enter the X Y coordinates of your experimento ? ");
+	    getstring(Databuf, SZ_DATABUF);
+	    sscanf(Databuf, "%lf %lf", &Player.p_x, &Player.p_y);
+
+	    if (fabs(Player.p_x) > D_EXPER || fabs(Player.p_y) > D_EXPER)
+		mvaddstr(17, 0, "Invalid coordinates.  Try again.\n");
+	    else
+		break;
+	    }
+
+    for (;;)
+	/* name the new character */
+	{
+	mvprintw(18, 0,
+	    "Give your character a name [up to %d characters] ?  ", SZ_NAME - 1);
+	getstring(Player.p_name, SZ_NAME);
+	truncstring(Player.p_name);		/* remove trailing blanks */
+
+	if (Player.p_name[0] == '\0')
+	    /* no null names */
+	    mvaddstr(19, 0, "Invalid name.");
+	else if (findname(Player.p_name, &Other) >= 0L)
+	    /* cannot have duplicate names */
+	    mvaddstr(19, 0, "Name already in use.");
+	else
+	    /* name is acceptable */
+	    break;
+
+	addstr("  Pick another.\n");
+	}
+
+    /* get a password for character */
+    Echo = FALSE;
+
+    do
+	{
+	mvaddstr(20, 0, "Give your character a password [up to 8 characters] ? ");
+	getstring(Player.p_password, SZ_PASSWORD);
+	mvaddstr(21, 0, "One more time to verify ? ");
+	getstring(Databuf, SZ_PASSWORD);
+	}
+    while (strcmp(Player.p_password, Databuf) != 0);
+
+    Echo = TRUE;
+
+    return(allocrecord());
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: procmain()
+/
+/ FUNCTION: process input from player
+/
+/ AUTHOR: E. A. Estes, 12/4/85
+/
+/ ARGUMENTS: none
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: dotampered(), changestats(), inputoption(), allstatslist(), 
+/	fopen(), wmove(), drandom(), sscanf(), fclose(), altercoordinates(), 
+/	waddstr(), fprintf(), distance(), userlist(), leavegame(), encounter(), 
+/	getstring(), wclrtobot()
+/
+/ GLOBAL INPUTS: Circle, Illcmd[], Throne, Wizard, Player, *stdscr, 
+/	Databuf[], Illmove[]
+/
+/ GLOBAL OUTPUTS: Player, Changed
+/
+/ DESCRIPTION:
+/	Process main menu options.
+/
+/************************************************************************/
+
+procmain()
+{
+int	ch;			/* input */
+double	x;			/* desired new x coordinate */
+double	y;			/* desired new y coordinate */
+double	temp;			/* for temporary calculations */
+FILE	*fp;			/* for opening files */
+register int	loop;		/* a loop counter */
+bool	hasmoved = FALSE;	/* set if player has moved */
+
+    ch = inputoption();
+    mvaddstr(4, 0, "\n\n");		/* clear status area */
+
+    move(7, 0);
+    clrtobot();			/* clear data on bottom area of screen */
+
+    if (Player.p_specialtype == SC_VALAR && (ch == '1' || ch == '7'))
+	/* valar cannot move */
+	ch = ' ';
+
+    switch (ch)
+	{
+	case 'K':		/* move up/north */
+	case 'N':
+	    x = Player.p_x;
+	    y = Player.p_y + MAXMOVE();
+	    hasmoved = TRUE;
+	    break;
+
+	case 'J':		/* move down/south */
+	case 'S':
+	    x = Player.p_x;
+	    y = Player.p_y - MAXMOVE();
+	    hasmoved = TRUE;
+	    break;
+
+	case 'L':		/* move right/east */
+	case 'E':
+	    x = Player.p_x + MAXMOVE();
+	    y = Player.p_y;
+	    hasmoved = TRUE;
+	    break;
+
+	case 'H':		/* move left/west */
+	case 'W':
+	    x = Player.p_x - MAXMOVE();
+	    y = Player.p_y;
+	    hasmoved = TRUE;
+	    break;
+
+	default:    /* rest */
+	    Player.p_energy += (Player.p_maxenergy + Player.p_shield) / 15.0
+		+ Player.p_level / 3.0 + 2.0;
+	    Player.p_energy =
+		MIN(Player.p_energy, Player.p_maxenergy + Player.p_shield);
+
+	    if (Player.p_status != S_CLOAKED)
+		/* cannot find mana if cloaked */
+		{
+		Player.p_mana += (Circle + Player.p_level) / 4.0;
+
+		if (drandom() < 0.2 && Player.p_status == S_PLAYING && !Throne)
+		    /* wandering monster */
+		    encounter(-1);
+		}
+	    break;
+
+	case 'X':		/* change/examine a character */
+	    changestats(TRUE);
+	    break;
+
+	case '1':		/* move */
+	    for (loop = 3; loop; --loop)
+		{
+		mvaddstr(4, 0, "X Y Coordinates ? ");
+		getstring(Databuf, SZ_DATABUF);
+
+		if (sscanf(Databuf, "%lf %lf", &x, &y) != 2)
+		    mvaddstr(5, 0, "Try again\n");
+		else if (distance(Player.p_x, x, Player.p_y, y) > MAXMOVE())
+		    ILLMOVE();
+		else
+		    {
+		    hasmoved = TRUE;
+		    break;
+		    }
+		}
+	    break;
+
+	case '2':		/* players */
+	    userlist(TRUE);
+	    break;
+
+	case '3':		/* message */
+	    mvaddstr(4, 0, "Message ? ");
+	    getstring(Databuf, SZ_DATABUF);
+	    /* we open the file for writing to erase any data which is already there */
+	    fp = fopen(_PATH_MESS, "w");
+	    if (Databuf[0] != '\0')
+		fprintf(fp, "%s: %s", Player.p_name, Databuf);
+	    fclose(fp);
+	    break;
+
+	case '4':		/* stats */
+	    allstatslist();
+	    break;
+
+	case '5':		/* good-bye */
+	    leavegame();
+	    /*NOTREACHED*/
+
+	case '6':		/* cloak */
+	    if (Player.p_level < MEL_CLOAK || Player.p_magiclvl < ML_CLOAK)
+		ILLCMD();
+	    else if (Player.p_status == S_CLOAKED)
+		Player.p_status = S_PLAYING;
+	    else if (Player.p_mana < MM_CLOAK)
+		mvaddstr(5, 0, "No mana left.\n");
+	    else
+		{
+		Changed = TRUE;
+		Player.p_mana -= MM_CLOAK;
+		Player.p_status = S_CLOAKED;
+		}
+	    break;
+
+	case '7':	/* teleport */
+	    /*
+	     * conditions for teleport
+	     *	- 20 per (level plus magic level)
+	     *	- OR council of the wise or valar or ex-valar
+	     *	- OR transport from throne
+	     * transports from throne cost no mana
+	     */
+	    if (Player.p_level < MEL_TELEPORT || Player.p_magiclvl < ML_TELEPORT)
+		ILLCMD();
+	    else 
+		for (loop = 3; loop; --loop)
+		    {
+		    mvaddstr(4, 0, "X Y Coordinates ? ");
+		    getstring(Databuf, SZ_DATABUF);
+
+		    if (sscanf(Databuf, "%lf %lf", &x, &y) == 2)
+			{
+			temp = distance(Player.p_x, x, Player.p_y, y);
+			if (!Throne
+			    /* can transport anywhere from throne */
+			    && Player.p_specialtype <= SC_COUNCIL
+			    /* council, valar can transport anywhere */
+			    && temp > (Player.p_level + Player.p_magiclvl) * 20.0)
+			    /* can only move 20 per exp. level + mag. level */
+			    ILLMOVE();
+			else
+			    {
+			    temp = (temp / 75.0 + 1.0) * 20.0;	/* mana used */
+
+			    if (!Throne && temp > Player.p_mana)
+				mvaddstr(5, 0, "Not enough power for that distance.\n");
+			    else
+				{
+				if (!Throne)
+				    Player.p_mana -= temp;
+				hasmoved = TRUE;
+				break;
+				}
+			    }
+			}
+		    }
+	    break;
+
+	case 'C':
+	case '9':		/* monster */
+	    if (Throne)
+		/* no monsters while on throne */
+		mvaddstr(5, 0, "No monsters in the chamber!\n");
+	    else if (Player.p_specialtype != SC_VALAR)
+		/* the valar cannot call monsters */
+		{
+		Player.p_sin += 1e-6;
+		encounter(-1);
+		}
+	    break;
+
+	case '0':		/* decree */
+	    if (Wizard || Player.p_specialtype == SC_KING && Throne)
+		/* kings must be on throne to decree */
+		dotampered();
+	    else
+		ILLCMD();
+	    break;
+
+	case '8':		/* intervention */
+	    if (Wizard || Player.p_specialtype >= SC_COUNCIL)
+		dotampered();
+	    else
+		ILLCMD();
+	    break;
+	}
+
+    if (hasmoved)
+	/* player has moved -- alter coordinates, and do random monster */
+	{
+	altercoordinates(x, y, A_SPECIFIC);
+
+	if (drandom() < 0.2 && Player.p_status == S_PLAYING && !Throne)
+	    encounter(-1);
+	}
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: titlelist()
+/
+/ FUNCTION: print title page
+/
+/ AUTHOR: E. A. Estes, 12/4/85
+/
+/ ARGUMENTS: none
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: fread(), fseek(), fopen(), fgets(), wmove(), strcpy(), 
+/	fclose(), strlen(), waddstr(), sprintf(), wrefresh()
+/
+/ GLOBAL INPUTS: Lines, Other, *stdscr, Databuf[], *Playersfp
+/
+/ GLOBAL OUTPUTS: Lines
+/
+/ DESCRIPTION:
+/	Print important information about game, players, etc.
+/
+/************************************************************************/
+
+titlelist()
+{
+register FILE	*fp;		/* used for opening various files */
+bool	councilfound = FALSE;	/* set if we find a member of the council */
+bool	kingfound = FALSE;	/* set if we find a king */
+double	hiexp, nxtexp;		/* used for finding the two highest players */
+double	hilvl, nxtlvl;		/* used for finding the two highest players */
+char	hiname[21], nxtname[21];/* used for finding the two highest players */
+
+    mvaddstr(0, 14, "W e l c o m e   t o   P h a n t a s i a (vers. 3.3.2)!");
+
+    /* print message of the day */
+    if ((fp = fopen(_PATH_MOTD, "r")) != NULL
+	&& fgets(Databuf, SZ_DATABUF, fp) != NULL)
+	{
+	mvaddstr(2, 40 - strlen(Databuf) / 2, Databuf);
+	fclose(fp);
+	}
+
+    /* search for king */
+    fseek(Playersfp, 0L, 0);
+    while (fread((char *) &Other, SZ_PLAYERSTRUCT, 1, Playersfp) == 1)
+	if (Other.p_specialtype == SC_KING && Other.p_status != S_NOTUSED)
+	    /* found the king */
+	    {
+	    sprintf(Databuf, "The present ruler is %s  Level:%.0f",
+		Other.p_name, Other.p_level);
+	    mvaddstr(4, 40 - strlen(Databuf) / 2, Databuf);
+	    kingfound = TRUE;
+	    break;
+	    }
+
+    if (!kingfound)
+	mvaddstr(4, 24, "There is no ruler at this time.");
+
+    /* search for valar */
+    fseek(Playersfp, 0L, 0);
+    while (fread((char *) &Other, SZ_PLAYERSTRUCT, 1, Playersfp) == 1)
+	if (Other.p_specialtype == SC_VALAR && Other.p_status != S_NOTUSED)
+	    /* found the valar */
+	    {
+	    sprintf(Databuf, "The Valar is %s   Login:  %s", Other.p_name, Other.p_login);
+	    mvaddstr(6, 40 - strlen(Databuf) / 2 , Databuf);
+	    break;
+	    }
+
+    /* search for council of the wise */
+    fseek(Playersfp, 0L, 0);
+    Lines = 10;
+    while (fread((char *) &Other, SZ_PLAYERSTRUCT, 1, Playersfp) == 1)
+	if (Other.p_specialtype == SC_COUNCIL && Other.p_status != S_NOTUSED)
+	    /* found a member of the council */
+	    {
+	    if (!councilfound)
+		{
+		mvaddstr(8, 30, "Council of the Wise:");
+		councilfound = TRUE;
+		}
+
+	    /* This assumes a finite (<=5) number of C.O.W.: */
+	    sprintf(Databuf, "%s   Login:  %s", Other.p_name, Other.p_login);
+	    mvaddstr(Lines++, 40 - strlen(Databuf) / 2, Databuf);
+	    }
+
+    /* search for the two highest players */
+    nxtname[0] = hiname[0] = '\0';
+    hiexp = 0.0;
+    nxtlvl = hilvl = 0;
+
+    fseek(Playersfp, 0L, 0);
+    while (fread((char *) &Other, SZ_PLAYERSTRUCT, 1, Playersfp) == 1)
+	if (Other.p_experience > hiexp && Other.p_specialtype <= SC_KING && Other.p_status != S_NOTUSED)
+	    /* highest found so far */
+	    {
+	    nxtexp = hiexp;
+	    hiexp = Other.p_experience;
+	    nxtlvl = hilvl;
+	    hilvl = Other.p_level;
+	    strcpy(nxtname, hiname);
+	    strcpy(hiname, Other.p_name);
+	    }
+	else if (Other.p_experience > nxtexp
+	    && Other.p_specialtype <= SC_KING
+	    && Other.p_status != S_NOTUSED)
+	    /* next highest found so far */
+	    {
+	    nxtexp = Other.p_experience;
+	    nxtlvl = Other.p_level;
+	    strcpy(nxtname, Other.p_name);
+	    }
+
+    mvaddstr(15, 28, "Highest characters are:");
+    sprintf(Databuf, "%s  Level:%.0f   and   %s  Level:%.0f",
+	hiname, hilvl, nxtname, nxtlvl);
+    mvaddstr(17, 40 - strlen(Databuf) / 2, Databuf);
+
+    /* print last to die */
+    if ((fp = fopen(_PATH_LASTDEAD,"r")) != NULL
+	&& fgets(Databuf, SZ_DATABUF, fp) != NULL)
+	{
+	mvaddstr(19, 25, "The last character to die was:");
+	mvaddstr(20, 40 - strlen(Databuf) / 2,Databuf);
+	fclose(fp);
+	}
+
+    refresh();
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: recallplayer()
+/
+/ FUNCTION: find a character on file
+/
+/ AUTHOR: E. A. Estes, 12/4/85
+/
+/ ARGUMENTS: none
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: writerecord(), truncstring(), more(), death(), wmove(), 
+/	wclear(), strcmp(), printw(), cleanup(), waddstr(), findname(), mvprintw(), 
+/	getanswer(), getstring()
+/
+/ GLOBAL INPUTS: Player, *stdscr, Databuf[]
+/
+/ GLOBAL OUTPUTS: Echo, Player
+/
+/ DESCRIPTION:
+/	Search for a character of a certain name, and check password.
+/
+/************************************************************************/
+
+long
+recallplayer()
+{
+long	loc = 0L;		/* location in player file */
+register int	loop;		/* loop counter */
+int	ch;			/* input */
+
+    clear();
+    mvprintw(10, 0, "What was your character's name ? ");
+    getstring(Databuf, SZ_NAME);
+    truncstring(Databuf);
+
+    if ((loc = findname(Databuf, &Player)) >= 0L)
+	/* found character */
+	{
+	Echo = FALSE;
+
+	for (loop = 0; loop < 2; ++loop)
+	    {
+	    /* prompt for password */
+	    mvaddstr(11, 0, "Password ? ");
+	    getstring(Databuf, SZ_PASSWORD);
+	    if (strcmp(Databuf, Player.p_password) == 0)
+		/* password good */
+		{
+		Echo = TRUE;
+
+		if (Player.p_status != S_OFF)
+		    /* player did not exit normally last time */
+		    {
+		    clear();
+		    addstr("Your character did not exit normally last time.\n");
+		    addstr("If you think you have good cause to have your character saved,\n");
+		    printw("you may quit and mail your reason to 'root'.\n");
+		    addstr("Otherwise, continuing spells certain death.\n");
+		    addstr("Do you want to quit ? ");
+		    ch = getanswer("YN", FALSE);
+		    if (ch == 'Y')
+			{
+			Player.p_status = S_HUNGUP;
+			writerecord(&Player, loc);
+			cleanup(TRUE);
+			/*NOTREACHED*/
+			}
+		    death("Stupidity");
+		    /*NOTREACHED*/
+		    }
+		return(loc);
+		}
+	    else
+		mvaddstr(12, 0, "No good.\n");
+	    }
+
+	Echo = TRUE;
+	}
+    else
+	mvaddstr(11, 0, "Not found.\n");
+
+    more(13);
+    return(-1L);
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: neatstuff()
+/
+/ FUNCTION: do random stuff
+/
+/ AUTHOR: E. A. Estes, 3/3/86
+/
+/ ARGUMENTS: none
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: collecttaxes(), floor(), wmove(), drandom(), infloat(), 
+/	waddstr(), mvprintw(), getanswer()
+/
+/ GLOBAL INPUTS: Player, *stdscr, *Statptr
+/
+/ GLOBAL OUTPUTS: Player
+/
+/ DESCRIPTION:
+/	Handle gurus, medics, etc.
+/
+/************************************************************************/
+
+neatstuff()
+{
+double	temp;	/* for temporary calculations */
+int	ch;	/* input */
+
+    switch ((int) ROLL(0.0, 100.0))
+	{
+	case 1:
+	case 2:
+	    if (Player.p_poison > 0.0)
+		{
+		mvaddstr(4, 0, "You've found a medic!  How much will you offer to be cured ? ");
+		temp = floor(infloat());
+		if (temp < 0.0 || temp > Player.p_gold)
+		    /* negative gold, or more than available */
+		    {
+		    mvaddstr(6, 0, "He was not amused, and made you worse.\n");
+		    Player.p_poison += 1.0;
+		    }
+		else if (drandom() / 2.0 > (temp + 1.0) / MAX(Player.p_gold, 1))
+		    /* medic wants 1/2 of available gold */
+		    mvaddstr(5, 0, "Sorry, he wasn't interested.\n");
+		else
+		    {
+		    mvaddstr(5, 0, "He accepted.");
+		    Player.p_poison = MAX(0.0, Player.p_poison - 1.0);
+		    Player.p_gold -= temp;
+		    }
+		}
+	    break;
+
+	case 3:
+	    mvaddstr(4, 0, "You've been caught raping and pillaging!\n");
+	    Player.p_experience += 4000.0;
+	    Player.p_sin += 0.5;
+	    break;
+
+	case 4:
+	    temp = ROLL(10.0, 75.0);
+	    mvprintw(4, 0, "You've found %.0f gold pieces, want them ? ", temp);
+	    ch = getanswer("NY", FALSE);
+
+	    if (ch == 'Y')
+		collecttaxes(temp, 0.0);
+	    break;
+
+	case 5:
+	    if (Player.p_sin > 1.0)
+		{
+		mvaddstr(4, 0, "You've found a Holy Orb!\n");
+		Player.p_sin -= 0.25;
+		}
+	    break;
+
+	case 6:
+	    if (Player.p_poison < 1.0)
+		{
+		mvaddstr(4, 0, "You've been hit with a plague!\n");
+		Player.p_poison += 1.0;
+		}
+	    break;
+
+	case 7:
+	    mvaddstr(4, 0, "You've found some holy water.\n");
+	    ++Player.p_holywater;
+	    break;
+
+	case 8:
+	    mvaddstr(4, 0, "You've met a Guru. . .");
+	    if (drandom() * Player.p_sin > 1.0)
+		addstr("You disgusted him with your sins!\n");
+	    else if (Player.p_poison > 0.0)
+		{
+		addstr("He looked kindly upon you, and cured you.\n");
+		Player.p_poison = 0.0;
+		}
+	    else
+		{
+		addstr("He rewarded you for your virtue.\n");
+		Player.p_mana += 50.0;
+		Player.p_shield += 2.0;
+		}
+	    break;
+
+	case 9:
+	    mvaddstr(4, 0, "You've found an amulet.\n");
+	    ++Player.p_amulets;
+	    break;
+
+	case 10:
+	    if (Player.p_blindness)
+		{
+		mvaddstr(4, 0, "You've regained your sight!\n");
+		Player.p_blindness = FALSE;
+		}
+	    break;
+
+	default:	/* deal with poison */
+	    if (Player.p_poison > 0.0)
+		{
+		temp = Player.p_poison * Statptr->c_weakness
+		    * Player.p_maxenergy / 600.0;
+		if (Player.p_energy > Player.p_maxenergy / 10.0
+		    && temp + 5.0 < Player.p_energy)
+		    Player.p_energy -= temp;
+		}
+	    break;
+	}
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: genchar()
+/
+/ FUNCTION: generate a random character
+/
+/ AUTHOR: E. A. Estes, 12/4/85
+/
+/ ARGUMENTS:
+/	int type - ASCII value of character type to generate
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: floor(), drandom()
+/
+/ GLOBAL INPUTS: Wizard, Player, Stattable[]
+/
+/ GLOBAL OUTPUTS: Player
+/
+/ DESCRIPTION:
+/	Use the lookup table for rolling stats.
+/
+/************************************************************************/
+
+genchar(type)
+int	type;
+{
+register int	subscript;		/* used for subscripting into Stattable */
+register struct charstats	*statptr;/* for pointing into Stattable */
+
+    subscript = type - '1';
+
+    if (subscript < C_MAGIC || subscript > C_EXPER)
+	if (subscript != C_SUPER || !Wizard)
+	    /* fighter is default */
+	    subscript = C_FIGHTER;
+    
+    statptr = &Stattable[subscript];
+
+    Player.p_quickness =
+	ROLL(statptr->c_quickness.base, statptr->c_quickness.interval);
+    Player.p_strength =
+	ROLL(statptr->c_strength.base, statptr->c_strength.interval);
+    Player.p_mana =
+	ROLL(statptr->c_mana.base, statptr->c_mana.interval);
+    Player.p_maxenergy =
+    Player.p_energy =
+	ROLL(statptr->c_energy.base, statptr->c_energy.interval);
+    Player.p_brains =
+	ROLL(statptr->c_brains.base, statptr->c_brains.interval);
+    Player.p_magiclvl =
+	ROLL(statptr->c_magiclvl.base, statptr->c_magiclvl.interval);
+
+    Player.p_type = subscript;
+
+    if (Player.p_type == C_HALFLING)
+	/* give halfling some experience */
+	Player.p_experience = ROLL(600.0, 200.0);
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: playinit()
+/
+/ FUNCTION: initialize for playing game
+/
+/ AUTHOR: E. A. Estes, 12/4/85
+/
+/ ARGUMENTS: none
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: signal(), wclear(), noecho(), crmode(), initscr(), 
+/	wrefresh()
+/
+/ GLOBAL INPUTS: *stdscr, ill_sig()
+/
+/ GLOBAL OUTPUTS: Windows
+/
+/ DESCRIPTION:
+/	Catch a bunch of signals, and turn on curses stuff.
+/
+/************************************************************************/
+
+playinit()
+{
+    /* catch/ingnore signals */
+
+#ifdef	BSD41
+    sigignore(SIGQUIT);
+    sigignore(SIGALRM);
+    sigignore(SIGTERM);
+    sigignore(SIGTSTP);
+    sigignore(SIGTTIN);
+    sigignore(SIGTTOU);
+    sighold(SIGINT);
+    sigset(SIGHUP, ill_sig);
+    sigset(SIGTRAP, ill_sig);
+    sigset(SIGIOT, ill_sig);
+    sigset(SIGEMT, ill_sig);
+    sigset(SIGFPE, ill_sig);
+    sigset(SIGBUS, ill_sig);
+    sigset(SIGSEGV, ill_sig);
+    sigset(SIGSYS, ill_sig);
+    sigset(SIGPIPE, ill_sig);
+#endif
+#ifdef	BSD42
+    signal(SIGQUIT, ill_sig);
+    signal(SIGALRM, SIG_IGN);
+    signal(SIGTERM, SIG_IGN);
+    signal(SIGTSTP, SIG_IGN);
+    signal(SIGTTIN, SIG_IGN);
+    signal(SIGTTOU, SIG_IGN);
+    signal(SIGINT, ill_sig);
+    signal(SIGHUP, SIG_DFL);
+    signal(SIGTRAP, ill_sig);
+    signal(SIGIOT, ill_sig);
+    signal(SIGEMT, ill_sig);
+    signal(SIGFPE, ill_sig);
+    signal(SIGBUS, ill_sig);
+    signal(SIGSEGV, ill_sig);
+    signal(SIGSYS, ill_sig);
+    signal(SIGPIPE, ill_sig);
+#endif
+#ifdef	SYS3
+    signal(SIGINT, SIG_IGN);
+    signal(SIGQUIT, SIG_IGN);
+    signal(SIGTERM, SIG_IGN);
+    signal(SIGALRM, SIG_IGN);
+    signal(SIGHUP, ill_sig);
+    signal(SIGTRAP, ill_sig);
+    signal(SIGIOT, ill_sig);
+    signal(SIGEMT, ill_sig);
+    signal(SIGFPE, ill_sig);
+    signal(SIGBUS, ill_sig);
+    signal(SIGSEGV, ill_sig);
+    signal(SIGSYS, ill_sig);
+    signal(SIGPIPE, ill_sig);
+#endif
+#ifdef	SYS5
+    signal(SIGINT, SIG_IGN);
+    signal(SIGQUIT, SIG_IGN);
+    signal(SIGTERM, SIG_IGN);
+    signal(SIGALRM, SIG_IGN);
+    signal(SIGHUP, ill_sig);
+    signal(SIGTRAP, ill_sig);
+    signal(SIGIOT, ill_sig);
+    signal(SIGEMT, ill_sig);
+    signal(SIGFPE, ill_sig);
+    signal(SIGBUS, ill_sig);
+    signal(SIGSEGV, ill_sig);
+    signal(SIGSYS, ill_sig);
+    signal(SIGPIPE, ill_sig);
+#endif
+
+    initscr();		/* turn on curses */
+    noecho();		/* do not echo input */
+    crmode();		/* do not process erase, kill */
+    clear();
+    refresh();
+    Windows = TRUE;	/* mark the state */
+}
+
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: cleanup()
+/
+/ FUNCTION: close some files, and maybe exit
+/
+/ AUTHOR: E. A. Estes, 12/4/85
+/
+/ ARGUMENTS:
+/	bool doexit - exit flag
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: exit(), wmove(), fclose(), endwin(), nocrmode(), wrefresh()
+/
+/ GLOBAL INPUTS: *Energyvoidfp, LINES, *stdscr, Windows, *Monstfp, 
+/	*Messagefp, *Playersfp
+/
+/ GLOBAL OUTPUTS: none
+/
+/ DESCRIPTION:
+/	Close all open files.  If we are "in curses" terminate curses.
+/	If 'doexit' is set, exit, otherwise return.
+/
+/************************************************************************/
+
+cleanup(doexit)
+bool	doexit;
+{
+    if (Windows)
+	{
+	move(LINES - 2, 0);
+	refresh();
+	nocrmode();
+	endwin();
+	}
+
+    fclose(Playersfp);
+    fclose(Monstfp);
+    fclose(Messagefp);
+    fclose(Energyvoidfp);
+
+    if (doexit)
+	exit(0);
+	/*NOTREACHED*/
+}
diff --git a/games/phantasia/map.c b/games/phantasia/map.c
new file mode 100644
index 0000000..be035df
--- /dev/null
+++ b/games/phantasia/map.c
@@ -0,0 +1,160 @@
+#define	minusminus	plusplus
+#define	minusplus	plusminus
+
+main()
+{
+    /* Set up */
+
+    openpl();
+    space(-1400, -1000, 1200, 1200);
+
+    /* Big box */
+
+    move(-1400, -1000);
+    cont(-1400, 1000);
+    cont(600, 1000);
+    cont(600, -1000);
+    cont(-1400, -1000);
+
+    /* Grid -- horizontal lines every 200 */
+
+    linemod("dotted");
+    line(600, -800, -1400, -800);
+    line(-1400, -600, 600, -600);
+    line(600, -400, -1400, -400);
+    line(-1400, -200, 600, -200);
+    linemod("solid");
+    line(600, 0, -1400, 0);
+    linemod("dotted");
+    line(-1400, 200, 600, 200);
+    line(600, 400, -1400, 400);
+    line(-1400, 600, 600, 600);
+    line(600, 800, -1400, 800);
+
+    /* Grid -- vertical lines every 200 */
+
+    line(-1200, 1000, -1200, -1000);
+    line(-1000, 1000, -1000, -1000);
+    line(-800, 1000, -800, -1000);
+    line(-600, 1000, -600, -1000);
+    linemod("solid");
+    line(-400, 1000, -400, -1000);
+    linemod("dotted");
+    line(-200, 1000, -200, -1000);
+    line(0, 1000, 0, -1000);
+    line(200, 1000, 200, -1000);
+    line(400, 1000, 400, -1000);
+
+    /* Circles radius +250 on "center" */
+
+    linemod("solid");
+    circle(-400, 0, 250);
+    circle(-400, 0, 500);
+    circle(-400, 0, 750);
+    circle(-400, 0, 1000);
+
+    /* A few labels */
+
+    move(-670, 1075);
+    label("- THE PHANTASIA UNIVERSE -");
+    line(-630, 1045, -115, 1045);
+    move(-360, 80);
+    label("Lorien");
+    move(-385, -100);
+    label("Ithilien");
+    move(-560, 80);
+    label("Rohan");
+    move(-580, -100);
+    label("Anorien");
+    plusplus("Rovanion", -250, 320);
+    plusplus("The Iron Hills", -100, 560);
+    plusplus("Rhun", 250, 570);
+    minusplus("Dunland", -700, 160);
+    minusplus("Eriador", -920, 300);
+    minusplus("The Northern Waste", -1240, 320);
+    minusminus("Gondor", -720, -180);
+    minusminus("South Gondor", -940, -270);
+    minusminus("Far Harad", -1100, -500);
+    plusminus("Mordor", -180, -300);
+    plusminus("Khand", 0, -500);
+    plusminus("Near Harad", 40, -780);
+    move(340, 900);
+    label("The Moors");
+    move(300, 840);
+    label("Adventurous");
+    move(340, -840);
+    label("The Moors");
+    move(300, -900);
+    label("Adventurous");
+    move(-1340, 900);
+    label("The Moors");
+    move(-1340, 840);
+    label("Adventurous");
+    move(-1340, -840);
+    label("The Moors");
+    move(-1340, -900);
+    label("Adventurous");
+    move(700, 1000);
+    label("OUTER CIRCLES:");
+    line(690, 970, 1000, 970);
+    move(700, 900);
+    label("> 9:  The Outer Waste");
+    move(700, 800);
+    label("> 20: The Dead Marshes");
+    move(700, 700);
+    label("> 35: Kennaquhair");
+    move(700, 600);
+    label("> 55: Morannon");
+    move(700, 300);
+    label("(0,0): The Lord's Chamber");
+
+    move(700, -400);
+    label("Grid squares are 100 x 100");
+    move(700, -800);
+    label("Created by Ted Estes");
+    move(700, -860);
+    label("Plotted by Chris Robertson");
+    move(700, -920);
+    label(" c  1985");
+    circle(723, -923, 20);
+
+    /* Close down */
+
+    move(-1380, 1180);
+    closepl();
+    exit(0);
+}
+
+plusplus(s, x, y)	/* draw strings in plus plus quadrant */
+char	*s;
+int	x, y;
+{
+char	s1[2];
+
+    while (*s)
+	{
+	move(x, y);
+	s1[0] = *s++;
+	s1[1] = '\0';
+	label(s1);
+	x += 25;
+	y -= 30;
+	}
+}
+
+plusminus(s, x, y)	/* draw strings in plus minus quadrant */
+char	*s;
+int	x, y;
+{
+char	s1[2];
+
+    while (*s)
+	{
+	move(x, y);
+	s1[0] = *s++;
+	s1[1] = '\0';
+	label(s1);
+	x += 25;
+	y += 30;
+	}
+}
diff --git a/games/phantasia/misc.c b/games/phantasia/misc.c
new file mode 100644
index 0000000..42c039d
--- /dev/null
+++ b/games/phantasia/misc.c
@@ -0,0 +1,1703 @@
+/*
+ * misc.c  Phantasia miscellaneous support routines
+ */
+
+#include "include.h"
+
+
+/************************************************************************
+/
+/ FUNCTION NAME: movelevel()
+/
+/ FUNCTION: move player to new level
+/
+/ AUTHOR: E. A. Estes, 12/4/85
+/
+/ ARGUMENTS: none
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: death(), floor(), wmove(), drandom(), waddstr(), explevel()
+/
+/ GLOBAL INPUTS: Player, *stdscr, *Statptr, Stattable[]
+/
+/ GLOBAL OUTPUTS: Player, Changed
+/
+/ DESCRIPTION:
+/	Use lookup table to increment important statistics when
+/	progressing to new experience level.
+/	Players are rested to maximum as a bonus for making a new
+/	level.
+/	Check for council of wise, and being too big to be king.
+/
+/************************************************************************/
+
+movelevel()
+{
+register struct charstats	*statptr;	/* for pointing into Stattable */
+double	new;			/* new level */
+double	inc;			/* increment between new and old levels */
+
+    Changed = TRUE;
+
+    if (Player.p_type == C_EXPER)
+	/* roll a type to use for increment */
+	statptr = &Stattable[(int) ROLL(C_MAGIC, C_HALFLING - C_MAGIC + 1)];
+    else
+	statptr = Statptr;
+
+    new = explevel(Player.p_experience);
+    inc = new - Player.p_level;
+    Player.p_level = new;
+
+    /* add increments to statistics */
+    Player.p_strength += statptr->c_strength.increase * inc;
+    Player.p_mana += statptr->c_mana.increase * inc;
+    Player.p_brains += statptr->c_brains.increase * inc;
+    Player.p_magiclvl += statptr->c_magiclvl.increase * inc;
+    Player.p_maxenergy += statptr->c_energy.increase * inc;
+
+    /* rest to maximum upon reaching new level */
+    Player.p_energy = Player.p_maxenergy + Player.p_shield;
+
+    if (Player.p_crowns > 0 && Player.p_level >= 1000.0)
+	/* no longer able to be king -- turn crowns into cash */
+	{
+	Player.p_gold += ((double) Player.p_crowns) * 5000.0;
+	Player.p_crowns = 0;
+	}
+
+    if (Player.p_level >= 3000.0 && Player.p_specialtype < SC_COUNCIL)
+	/* make a member of the council */
+	{
+	mvaddstr(6, 0, "You have made it to the Council of the Wise.\n");
+	addstr("Good Luck on your search for the Holy Grail.\n");
+
+	Player.p_specialtype = SC_COUNCIL;
+
+	/* no rings for council and above */
+	Player.p_ring.ring_type = R_NONE;
+	Player.p_ring.ring_duration = 0;
+
+	Player.p_lives = 3;		/* three extra lives */
+	}
+
+    if (Player.p_level > 9999.0 && Player.p_specialtype != SC_VALAR)
+	death("Old age");
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: descrlocation()
+/
+/ FUNCTION: return a formatted description of location
+/
+/ AUTHOR: E. A. Estes, 12/4/85
+/
+/ ARGUMENTS:
+/	struct player playerp - pointer to player structure
+/	bool shortflag - set if short form is desired
+/
+/ RETURN VALUE: pointer to string containing result
+/
+/ MODULES CALLED: fabs(), floor(), sprintf(), distance()
+/
+/ GLOBAL INPUTS: Databuf[]
+/
+/ GLOBAL OUTPUTS: none
+/
+/ DESCRIPTION:
+/	Look at coordinates and return an appropriately formatted
+/	string.
+/
+/************************************************************************/
+
+char	*
+descrlocation(playerp, shortflag)
+struct player	*playerp;
+bool	shortflag;
+{
+double	circle;			/* corresponding circle for coordinates */
+register int	quadrant;	/* quandrant of grid */
+register char	*label;		/* pointer to place name */
+static char	*nametable[4][4] =   /* names of places */
+	{
+	"Anorien",	"Ithilien",	"Rohan",	"Lorien",
+	"Gondor",	"Mordor",	"Dunland",	"Rovanion",
+	"South Gondor", "Khand",	"Eriador",	"The Iron Hills",
+	"Far Harad",	"Near Harad",	"The Northern Waste", "Rhun"
+	};
+
+    if (playerp->p_specialtype == SC_VALAR)
+	return(" is in Valhala");
+    else if ((circle = CIRCLE(playerp->p_x, playerp->p_y)) >= 1000.0)
+	{
+	if (MAX(fabs(playerp->p_x), fabs(playerp->p_y)) > D_BEYOND)
+	    label = "The Point of No Return";
+	else
+	    label = "The Ashen Mountains";
+	}
+    else if (circle >= 55)
+	label = "Morannon";
+    else if (circle >= 35)
+	label = "Kennaquahair";
+    else if (circle >= 20)
+	label = "The Dead Marshes";
+    else if (circle >= 9)
+	label = "The Outer Waste";
+    else if (circle >= 5)
+	label = "The Moors Adventurous";
+    else
+	{
+	if (playerp->p_x == 0.0 && playerp->p_y == 0.0)
+	    label = "The Lord's Chamber";
+	else
+	    {
+	    /* this expression is split to prevent compiler loop with some compilers */
+	    quadrant = ((playerp->p_x > 0.0) ? 1 : 0);
+	    quadrant += ((playerp->p_y >= 0.0) ? 2 : 0);
+	    label = nametable[((int) circle) - 1][quadrant];
+	    }
+	}
+
+    if (shortflag)
+	sprintf(Databuf, "%.29s", label);
+    else
+	sprintf(Databuf, " is in %s  (%.0f,%.0f)", label, playerp->p_x, playerp->p_y);
+
+    return(Databuf);
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: tradingpost()
+/
+/ FUNCTION: do trading post stuff
+/
+/ AUTHOR: E. A. Estes, 12/4/85
+/
+/ ARGUMENTS: none
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: writerecord(), adjuststats(), fabs(), more(), sqrt(), 
+/	sleep(), floor(), wmove(), drandom(), wclear(), printw(), 
+/	altercoordinates(), infloat(), waddstr(), wrefresh(), mvprintw(), getanswer(), 
+/	wclrtoeol(), wclrtobot()
+/
+/ GLOBAL INPUTS: Menu[], Circle, Player, *stdscr, Fileloc, Nobetter[]
+/
+/ GLOBAL OUTPUTS: Player
+/
+/ DESCRIPTION:
+/	Different trading posts have different items.
+/	Merchants cannot be cheated, but they can be dishonest
+/	themselves.
+/
+/	Shields, swords, and quicksilver are not cumulative.  This is
+/	one major area of complaint, but there are two reasons for this:
+/		1) It becomes MUCH too easy to make very large versions
+/		   of these items.
+/		2) In the real world, one cannot simply weld two swords
+/		   together to make a bigger one.
+/
+/	At one time, it was possible to sell old weapons at half the purchase
+/	price.  This resulted in huge amounts of gold floating around,
+/	and the game lost much of its challenge.
+/
+/	Also, purchasing gems defeats the whole purpose of gold.  Gold
+/	is small change for lower level players.  They really shouldn't
+/	be able to accumulate more than enough gold for a small sword or
+/	a few books.  Higher level players shouldn't even bother to pick
+/	up gold, except maybe to buy mana once in a while.
+/
+/************************************************************************/
+
+tradingpost()
+{
+double	numitems;	/* number of items to purchase */
+double	cost;		/* cost of purchase */
+double	blessingcost;	/* cost of blessing */
+int	ch;		/* input */
+register int	size;	/* size of the trading post */
+register int	loop;	/* loop counter */
+int	cheat = 0;	/* number of times player has tried to cheat */
+bool	dishonest = FALSE;/* set when merchant is dishonest */
+
+    Player.p_status = S_TRADING;
+    writerecord(&Player, Fileloc);
+
+    clear();
+    addstr("You are at a trading post. All purchases must be made with gold.");
+
+    size = sqrt(fabs(Player.p_x / 100)) + 1;
+    size = MIN(7, size);
+
+    /* set up cost of blessing */
+    blessingcost = 1000.0 * (Player.p_level + 5.0);
+
+    /* print Menu */
+    move(7, 0);
+    for (loop = 0; loop < size; ++loop)
+	/* print Menu */
+	{
+	if (loop == 6)
+	    cost = blessingcost;
+	else
+	    cost = Menu[loop].cost;
+	printw("(%d) %-12s: %6.0f\n", loop + 1, Menu[loop].item, cost);
+	}
+
+    mvprintw(5, 0, "L:Leave  P:Purchase  S:Sell Gems ? ");
+
+    for (;;)
+	{
+	adjuststats();	/* truncate any bad values */
+
+	/* print some important statistics */
+	mvprintw(1, 0, "Gold:   %9.0f  Gems:  %9.0f  Level:   %6.0f  Charms: %6d\n",
+	    Player.p_gold, Player.p_gems, Player.p_level, Player.p_charms);
+	printw("Shield: %9.0f  Sword: %9.0f  Quicksilver:%3.0f  Blessed: %s\n",
+	    Player.p_shield, Player.p_sword, Player.p_quksilver,
+	    (Player.p_blessing ? " True" : "False"));
+	printw("Brains: %9.0f  Mana:  %9.0f", Player.p_brains, Player.p_mana);
+
+	move(5, 36);
+	ch = getanswer("LPS", FALSE);
+	move(15, 0);
+	clrtobot();
+	switch(ch)
+	    {
+	    case 'L':		/* leave */
+	    case '\n':
+		altercoordinates(0.0, 0.0, A_NEAR);
+		return;
+
+	    case 'P':		/* make purchase */
+		mvaddstr(15, 0, "What what would you like to buy ? ");
+		ch = getanswer(" 1234567", FALSE);
+		move(15, 0);
+		clrtoeol();
+
+		if (ch - '0' > size)
+		    addstr("Sorry, this merchant doesn't have that.");
+		else
+		    switch (ch)
+			{
+			case '1':
+			    printw("Mana is one per %.0f gold piece.  How many do you want (%.0f max) ? ",
+				Menu[0].cost, floor(Player.p_gold / Menu[0].cost));
+			    cost = (numitems = floor(infloat())) * Menu[0].cost;
+
+			    if (cost > Player.p_gold || numitems < 0)
+				++cheat;
+			    else
+				{
+				cheat = 0;
+				Player.p_gold -= cost;
+				if (drandom() < 0.02)
+				    dishonest = TRUE;
+				else
+				    Player.p_mana += numitems;
+				}
+			    break;
+
+			case '2':
+			    printw("Shields are %.0f per +1.  How many do you want (%.0f max) ? ",
+				Menu[1].cost, floor(Player.p_gold / Menu[1].cost));
+			    cost = (numitems = floor(infloat())) * Menu[1].cost;
+
+			    if (numitems == 0.0)
+				break;
+			    else if (cost > Player.p_gold || numitems < 0)
+				++cheat;
+			    else if (numitems < Player.p_shield)
+				NOBETTER();
+			    else
+				{
+				cheat = 0;
+				Player.p_gold -= cost;
+				if (drandom() < 0.02)
+				    dishonest = TRUE;
+				else
+				    Player.p_shield = numitems;
+				}
+			    break;
+
+			case '3':
+			    printw("A book costs %.0f gp.  How many do you want (%.0f max) ? ",
+				Menu[2].cost, floor(Player.p_gold / Menu[2].cost));
+			    cost = (numitems = floor(infloat())) * Menu[2].cost;
+
+			    if (cost > Player.p_gold || numitems < 0)
+				++cheat;
+			    else
+				{
+				cheat = 0;
+				Player.p_gold -= cost;
+				if (drandom() < 0.02)
+				    dishonest = TRUE;
+				else if (drandom() * numitems > Player.p_level / 10.0
+				    && numitems != 1)
+				    {
+				    printw("\nYou blew your mind!\n");
+				    Player.p_brains /= 5;
+				    }
+				else
+				    {
+				    Player.p_brains += floor(numitems) * ROLL(20, 8);
+				    }
+				}
+			    break;
+
+			case '4':
+			    printw("Swords are %.0f gp per +1.  How many + do you want (%.0f max) ? ",
+				Menu[3].cost, floor(Player.p_gold / Menu[3].cost));
+			    cost = (numitems = floor(infloat())) * Menu[3].cost;
+
+			    if (numitems == 0.0)
+				break;
+			    else if (cost > Player.p_gold || numitems < 0)
+				++cheat;
+			    else if (numitems < Player.p_sword)
+				NOBETTER();
+			    else
+				{
+				cheat = 0;
+				Player.p_gold -= cost;
+				if (drandom() < 0.02)
+				    dishonest = TRUE;
+				else
+				    Player.p_sword = numitems;
+				}
+			    break;
+
+			case '5':
+			    printw("A charm costs %.0f gp.  How many do you want (%.0f max) ? ",
+				Menu[4].cost, floor(Player.p_gold / Menu[4].cost));
+			    cost = (numitems = floor(infloat())) * Menu[4].cost;
+
+			    if (cost > Player.p_gold || numitems < 0)
+				++cheat;
+			    else
+				{
+				cheat = 0;
+				Player.p_gold -= cost;
+				if (drandom() < 0.02)
+				    dishonest = TRUE;
+				else
+				    Player.p_charms += numitems;
+				}
+			    break;
+
+			case '6':
+			    printw("Quicksilver is %.0f gp per +1.  How many + do you want (%.0f max) ? ",
+				Menu[5].cost, floor(Player.p_gold / Menu[5].cost));
+			    cost = (numitems = floor(infloat())) * Menu[5].cost;
+
+			    if (numitems == 0.0)
+				break;
+			    else if (cost > Player.p_gold || numitems < 0)
+				++cheat;
+			    else if (numitems < Player.p_quksilver)
+				NOBETTER();
+			    else
+				{
+				cheat = 0;
+				Player.p_gold -= cost;
+				if (drandom() < 0.02)
+				    dishonest = TRUE;
+				else
+				    Player.p_quksilver = numitems;
+				}
+			    break;
+
+			case '7':
+			    if (Player.p_blessing)
+				{
+				addstr("You already have a blessing.");
+				break;
+				}
+
+			    printw("A blessing requires a %.0f gp donation.  Still want one ? ", blessingcost);
+			    ch = getanswer("NY", FALSE);
+
+			    if (ch == 'Y')
+				if (Player.p_gold < blessingcost)
+				    ++cheat;
+				else
+				    {
+				    cheat = 0;
+				    Player.p_gold -= blessingcost;
+				    if (drandom() < 0.02)
+					dishonest = TRUE;
+				    else
+					Player.p_blessing = TRUE;
+				    }
+			    break;
+			}
+	    break;
+
+	    case 'S':		/* sell gems */
+		mvprintw(15, 0, "A gem is worth %.0f gp.  How many do you want to sell (%.0f max) ? ",
+		    (double) N_GEMVALUE, Player.p_gems);
+		numitems = floor(infloat());
+
+		if (numitems > Player.p_gems || numitems < 0)
+		    ++cheat;
+		else
+		    {
+		    cheat = 0;
+		    Player.p_gems -= numitems;
+		    Player.p_gold += numitems * N_GEMVALUE;
+		    }
+	    }
+
+	if (cheat == 1)
+	    mvaddstr(17, 0, "Come on, merchants aren't stupid.  Stop cheating.\n");
+	else if (cheat == 2)
+	    {
+	    mvaddstr(17, 0, "You had your chance.  This merchant happens to be\n");
+	    printw("a %.0f level magic user, and you made %s mad!\n",
+		ROLL(Circle * 20.0, 40.0), (drandom() < 0.5) ? "him" : "her");
+	    altercoordinates(0.0, 0.0, A_FAR);
+	    Player.p_energy /= 2.0;
+	    ++Player.p_sin;
+	    more(23);
+	    return;
+	    }
+	else if (dishonest)
+	    {
+	    mvaddstr(17, 0, "The merchant stole your money!");
+	    refresh();
+	    altercoordinates(Player.p_x - Player.p_x / 10.0,
+		Player.p_y - Player.p_y / 10.0, A_SPECIFIC);
+	    sleep(2);
+	    return;
+	    }
+	}
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: displaystats()
+/
+/ FUNCTION: print out important player statistics
+/
+/ AUTHOR: E. A. Estes, 12/4/85
+/
+/ ARGUMENTS: none
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: descrstatus(), descrlocation(), mvprintw()
+/
+/ GLOBAL INPUTS: Users, Player
+/
+/ GLOBAL OUTPUTS: none
+/
+/ DESCRIPTION:
+/	Important player statistics are printed on the screen.
+/
+/************************************************************************/
+
+displaystats()
+{
+    mvprintw(0, 0, "%s%s\n", Player.p_name, descrlocation(&Player, FALSE));
+    mvprintw(1, 0, "Level :%7.0f   Energy  :%9.0f(%9.0f)  Mana :%9.0f  Users:%3d\n",
+	Player.p_level, Player.p_energy, Player.p_maxenergy + Player.p_shield,
+	Player.p_mana, Users);
+    mvprintw(2, 0, "Quick :%3.0f(%3.0f)  Strength:%9.0f(%9.0f)  Gold :%9.0f  %s\n",
+	Player.p_speed, Player.p_quickness + Player.p_quksilver, Player.p_might,
+	Player.p_strength + Player.p_sword, Player.p_gold, descrstatus(&Player));
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: allstatslist()
+/
+/ FUNCTION: show player items
+/
+/ AUTHOR: E. A. Estes, 12/4/85
+/
+/ ARGUMENTS: none
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: mvprintw(), descrtype()
+/
+/ GLOBAL INPUTS: Player
+/
+/ GLOBAL OUTPUTS: none
+/
+/ DESCRIPTION:
+/	Print out some player statistics of lesser importance.
+/
+/************************************************************************/
+
+allstatslist()
+{
+static	char	*flags[] =	/* to print value of some bools */
+	    {
+	    "False", 
+	    " True"
+	    };
+
+    mvprintw( 8,  0, "Type: %s\n",  descrtype(&Player,  FALSE));
+
+    mvprintw(10,  0, "Experience: %9.0f", Player.p_experience);
+    mvprintw(11,  0, "Brains    : %9.0f", Player.p_brains);
+    mvprintw(12,  0, "Magic Lvl : %9.0f", Player.p_magiclvl);
+    mvprintw(13,  0, "Sin       : %9.5f", Player.p_sin);
+    mvprintw(14,  0, "Poison    : %9.5f", Player.p_poison);
+    mvprintw(15,  0, "Gems      : %9.0f", Player.p_gems);
+    mvprintw(16,  0, "Age       : %9d", Player.p_age);
+    mvprintw(10, 40, "Holy Water: %9d", Player.p_holywater);
+    mvprintw(11, 40, "Amulets   : %9d", Player.p_amulets);
+    mvprintw(12, 40, "Charms    : %9d", Player.p_charms);
+    mvprintw(13, 40, "Crowns    : %9d", Player.p_crowns);
+    mvprintw(14, 40, "Shield    : %9.0f", Player.p_shield);
+    mvprintw(15, 40, "Sword     : %9.0f", Player.p_sword);
+    mvprintw(16, 40, "Quickslver: %9.0f", Player.p_quksilver);
+
+    mvprintw(18,  0, "Blessing: %s   Ring: %s   Virgin: %s   Palantir: %s", 
+	flags[Player.p_blessing], flags[Player.p_ring.ring_type != R_NONE], 
+	flags[Player.p_virgin], flags[Player.p_palantir]);
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: descrtype()
+/
+/ FUNCTION: return a string specifying player type
+/
+/ AUTHOR: E. A. Estes, 12/4/85
+/
+/ ARGUMENTS:
+/	struct player playerp - pointer to structure for player
+/	bool shortflag - set if short form is desired
+/
+/ RETURN VALUE: pointer to string describing player type
+/
+/ MODULES CALLED: strcpy()
+/
+/ GLOBAL INPUTS: Databuf[]
+/
+/ GLOBAL OUTPUTS: Databuf[]
+/
+/ DESCRIPTION:
+/	Return a string describing the player type.
+/	King, council, valar, supercedes other types.
+/	The first character of the string is '*' if the player
+/	has a crown.
+/	If 'shortflag' is TRUE, return a 3 character string.
+/
+/************************************************************************/
+
+char	*
+descrtype(playerp, shortflag)
+struct player *playerp;
+bool	shortflag;
+{
+register int type;	/* for caluculating result subscript */
+static char	*results[] =	/* description table */
+			{
+			" Magic User", " MU",
+			" Fighter", " F ",
+			" Elf", " E ",
+			" Dwarf", " D ",
+			" Halfling", " H ",
+			" Experimento", " EX",
+			" Super", " S ",
+			" King", " K ",
+			" Council of Wise", " CW",
+			" Ex-Valar", " EV",
+			" Valar", " V ",
+			" ? ", " ? "
+			};
+
+    type = playerp->p_type;
+
+    switch (playerp->p_specialtype)
+	{
+	case SC_NONE:
+	    type = playerp->p_type;
+	    break;
+
+	case SC_KING:
+	    type = 7;
+	    break;
+
+	case SC_COUNCIL:
+	    type = 8;
+	    break;
+
+	case SC_EXVALAR:
+	    type = 9;
+	    break;
+
+	case SC_VALAR:
+	    type = 10;
+	    break;
+	}
+
+    type *= 2;		/* calculate offset */
+
+    if (type > 20)
+	/* error */
+	type = 22;
+
+    if (shortflag)
+	/* use short descriptions */
+	++type;
+
+    if (playerp->p_crowns > 0)
+	{
+	strcpy(Databuf, results[type]);
+	Databuf[0] = '*';
+	return(Databuf);
+	}
+    else
+	return(results[type]);
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: findname()
+/
+/ FUNCTION: find location in player file of given name
+/
+/ AUTHOR: E. A. Estes, 12/4/85
+/
+/ ARGUMENTS:
+/	char *name - name of character to look for
+/	struct player *playerp - pointer of structure to fill
+/
+/ RETURN VALUE: location of player if found, -1 otherwise
+/
+/ MODULES CALLED: fread(), fseek(), strcmp()
+/
+/ GLOBAL INPUTS: Wizard, *Playersfp
+/
+/ GLOBAL OUTPUTS: none
+/
+/ DESCRIPTION:
+/	Search the player file for the player of the given name.
+/	If player is found, fill structure with player data.
+/
+/************************************************************************/
+
+long
+findname(name, playerp)
+register char	*name;
+register struct player *playerp;
+{
+long	loc = 0;			/* location in the file */
+
+    fseek(Playersfp, 0L, 0);
+    while (fread((char *) playerp, SZ_PLAYERSTRUCT, 1, Playersfp) == 1)
+	{
+	if (strcmp(playerp->p_name, name) == 0)
+	    {
+	    if (playerp->p_status != S_NOTUSED || Wizard)
+		/* found it */
+		return(loc);
+	    }
+	loc += SZ_PLAYERSTRUCT;
+	}
+
+    return(-1);
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: allocrecord()
+/
+/ FUNCTION: find space in the player file for a new character
+/
+/ AUTHOR: E. A. Estes, 12/4/85
+/
+/ ARGUMENTS: none
+/
+/ RETURN VALUE: location of free space in file
+/
+/ MODULES CALLED: initplayer(), writerecord(), fread(), fseek()
+/
+/ GLOBAL INPUTS: Other, *Playersfp
+/
+/ GLOBAL OUTPUTS: Player
+/
+/ DESCRIPTION:
+/	Search the player file for an unused entry.  If none are found,
+/	make one at the end of the file.
+/
+/************************************************************************/
+
+long
+allocrecord()
+{
+long	loc = 0L;		/* location in file */
+
+    fseek(Playersfp, 0L, 0);
+    while (fread((char *) &Other, SZ_PLAYERSTRUCT, 1, Playersfp) == 1)
+	{
+	if (Other.p_status == S_NOTUSED)
+	    /* found an empty record */
+	    return(loc);
+	else
+	    loc += SZ_PLAYERSTRUCT;
+	}
+
+    /* make a new record */
+    initplayer(&Other);
+    Player.p_status = S_OFF;
+    writerecord(&Other, loc);
+
+    return(loc);
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: freerecord()
+/
+/ FUNCTION: free up a record on the player file
+/
+/ AUTHOR: E. A. Estes, 2/7/86
+/
+/ ARGUMENTS:
+/	struct player playerp - pointer to structure to free
+/	long loc - location in file to free
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: writerecord()
+/
+/ GLOBAL INPUTS: none
+/
+/ GLOBAL OUTPUTS: none
+/
+/ DESCRIPTION:
+/	Mark structure as not used, and update player file.
+/
+/************************************************************************/
+
+freerecord(playerp, loc)
+struct player	*playerp;
+long	loc;
+{
+    playerp->p_name[0] = CH_MARKDELETE;
+    playerp->p_status = S_NOTUSED;
+    writerecord(playerp, loc);
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: leavegame()
+/
+/ FUNCTION: leave game
+/
+/ AUTHOR: E. A. Estes, 12/4/85
+/
+/ ARGUMENTS: none
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: freerecord(), writerecord(), cleanup()
+/
+/ GLOBAL INPUTS: Player, Fileloc
+/
+/ GLOBAL OUTPUTS: Player
+/
+/ DESCRIPTION:
+/	Mark player as inactive, and cleanup.
+/	Do not save players below level 1.
+/
+/************************************************************************/
+
+leavegame()
+{
+
+    if (Player.p_level < 1.0)
+	/* delete character */
+	freerecord(&Player, Fileloc);
+    else
+	{
+	Player.p_status = S_OFF;
+	writerecord(&Player, Fileloc);
+	}
+
+    cleanup(TRUE);
+    /*NOTREACHED*/
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: death()
+/
+/ FUNCTION: death routine
+/
+/ AUTHOR: E. A. Estes, 12/4/85
+/
+/ ARGUMENTS:
+/	char *how - pointer to string describing cause of death
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: freerecord(), enterscore(), more(), exit(), fread(), 
+/	fseek(), execl(), fopen(), floor(), wmove(), drandom(), wclear(), strcmp(), 
+/	fwrite(), fflush(), printw(), strcpy(), fclose(), waddstr(), cleanup(), 
+/	fprintf(), wrefresh(), getanswer(), descrtype()
+/
+/ GLOBAL INPUTS: Curmonster, Wizard, Player, *stdscr, Fileloc, *Monstfp
+/
+/ GLOBAL OUTPUTS: Player
+/
+/ DESCRIPTION:
+/	Kill off current player.
+/	Handle rings, and multiple lives.
+/	Print an appropriate message.
+/	Update scoreboard, lastdead, and let other players know about
+/	the demise of their comrade.
+/
+/************************************************************************/
+
+death(how)
+char	*how;
+{
+FILE	*fp;		/* for updating various files */
+int	ch;		/* input */
+static	char	*deathmesg[] =
+	/* add more messages here, if desired */
+	{
+	"You have been wounded beyond repair.  ",
+	"You have been disemboweled.  ",
+	"You've been mashed, mauled, and spit upon.  (You're dead.)\n",
+	"You died!  ",
+	"You're a complete failure -- you've died!!\n",
+	"You have been dealt a fatal blow!  "
+	};
+
+    clear();
+
+    if (strcmp(how, "Stupidity") != 0)
+	{
+	if (Player.p_level > 9999.0)
+	    /* old age */
+	    addstr("Characters must be retired upon reaching level 10000.  Sorry.");
+	else if (Player.p_lives > 0)
+	    /* extra lives */
+	    {
+	    addstr("You should be more cautious.  You've been killed.\n");
+	    printw("You only have %d more chance(s).\n", --Player.p_lives);
+	    more(3);
+	    Player.p_energy = Player.p_maxenergy;
+	    return;
+	    }
+	else if (Player.p_specialtype == SC_VALAR)
+	    {
+	    addstr("You had your chances, but Valar aren't totally\n");
+	    addstr("immortal.  You are now left to wither and die . . .\n");
+	    more(3);
+	    Player.p_brains = Player.p_level / 25.0;
+	    Player.p_energy = Player.p_maxenergy /= 5.0;
+	    Player.p_quksilver = Player.p_sword = 0.0;
+	    Player.p_specialtype = SC_COUNCIL;
+	    return;
+	    }
+	else if (Player.p_ring.ring_inuse &&
+	    (Player.p_ring.ring_type == R_DLREG || Player.p_ring.ring_type == R_NAZREG))
+	    /* good ring in use - saved from death */
+	    {
+	    mvaddstr(4, 0, "Your ring saved you from death!\n");
+	    refresh();
+	    Player.p_ring.ring_type = R_NONE;
+	    Player.p_energy = Player.p_maxenergy / 12.0 + 1.0;
+	    if (Player.p_crowns > 0)
+		--Player.p_crowns;
+	    return;
+	    }
+	else if (Player.p_ring.ring_type == R_BAD
+	    || Player.p_ring.ring_type == R_SPOILED)
+	    /* bad ring in possession; name idiot after player */
+	    {
+	    mvaddstr(4, 0,
+		"Your ring has taken control of you and turned you into a monster!\n");
+	    fseek(Monstfp, 13L * SZ_MONSTERSTRUCT, 0);
+	    fread((char *) &Curmonster, SZ_MONSTERSTRUCT, 1, Monstfp);
+	    strcpy(Curmonster.m_name, Player.p_name);
+	    fseek(Monstfp, 13L * SZ_MONSTERSTRUCT, 0);
+	    fwrite((char *) &Curmonster, SZ_MONSTERSTRUCT, 1, Monstfp);
+	    fflush(Monstfp);
+	    }
+	}
+
+    enterscore();		/* update score board */
+
+    /* put info in last dead file */
+    fp = fopen(_PATH_LASTDEAD, "w");
+    fprintf(fp,"%s (%s, run by %s, level %.0f, killed by %s)",
+	Player.p_name, descrtype(&Player, TRUE),
+	Player.p_login, Player.p_level, how);
+    fclose(fp);
+
+    /* let other players know */
+    fp = fopen(_PATH_MESS, "w");
+    fprintf(fp, "%s was killed by %s.", Player.p_name, how);
+    fclose(fp);
+
+    freerecord(&Player, Fileloc);
+
+    clear();
+    move(10, 0);
+    addstr(deathmesg[(int) ROLL(0.0, (double) sizeof(deathmesg) / sizeof(char *))]);
+    addstr("Care to give it another try ? ");
+    ch = getanswer("NY", FALSE);
+
+    if (ch == 'Y')
+	{
+	cleanup(FALSE);
+	execl(_PATH_GAMEPROG, "phantasia", "-s",
+	    (Wizard ? "-S": (char *) NULL), 0);
+	exit(0);
+	/*NOTREACHED*/
+	}
+
+    cleanup(TRUE);
+    /*NOTREACHED*/
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: writerecord()
+/
+/ FUNCTION: update structure in player file
+/
+/ AUTHOR: E. A. Estes, 12/4/85
+/
+/ ARGUMENTS:
+/	struct player *playerp - pointer to structure to write out
+/	long place - location in file to updata
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: fseek(), fwrite(), fflush()
+/
+/ GLOBAL INPUTS: *Playersfp
+/
+/ GLOBAL OUTPUTS: none
+/
+/ DESCRIPTION:
+/	Update location in player file with given structure.
+/
+/************************************************************************/
+
+writerecord(playerp, place)
+register struct player	*playerp;
+long	place;
+{
+    fseek(Playersfp, place, 0);
+    fwrite((char *) playerp, SZ_PLAYERSTRUCT, 1, Playersfp);
+    fflush(Playersfp);
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: explevel()
+/
+/ FUNCTION: calculate level based upon experience
+/
+/ AUTHOR: E. A. Estes, 12/4/85
+/
+/ ARGUMENTS:
+/	double experience - experience to calculate experience level from
+/
+/ RETURN VALUE: experience level
+/
+/ MODULES CALLED: pow(), floor()
+/
+/ GLOBAL INPUTS: none
+/
+/ GLOBAL OUTPUTS: none
+/
+/ DESCRIPTION: 
+/	Experience level is a geometric progression.  This has been finely
+/	tuned over the years, and probably should not be changed.
+/
+/************************************************************************/
+
+double
+explevel(experience)
+double	experience;
+{
+    if (experience < 1.1e7)
+	return(floor(pow((experience / 1000.0), 0.4875)));
+    else
+	return(floor(pow((experience / 1250.0), 0.4865)));
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: truncstring()
+/
+/ FUNCTION: truncate trailing blanks off a string
+/
+/ AUTHOR: E. A. Estes, 12/4/85
+/
+/ ARGUMENTS: 
+/	char *string - pointer to null terminated string
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: strlen()
+/
+/ GLOBAL INPUTS: none
+/
+/ GLOBAL OUTPUTS: none
+/
+/ DESCRIPTION: 
+/	Put nul characters in place of spaces at the end of the string.
+/
+/************************************************************************/
+
+truncstring(string)
+register char	*string;
+{
+register int	length;		/* length of string */
+
+    length = strlen(string);
+    while (string[--length] == ' ')
+	string[length] = '\0';
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: altercoordinates()
+/
+/ FUNCTION: Alter x, y coordinates and set/check location flags
+/
+/ AUTHOR: E. A. Estes, 12/16/85
+/
+/ ARGUMENTS: 
+/	double xnew, ynew - new x, y coordinates
+/	int operation - operation to perform with coordinates
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: fabs(), floor(), drandom(), distance()
+/
+/ GLOBAL INPUTS: Circle, Beyond, Player
+/
+/ GLOBAL OUTPUTS: Marsh, Circle, Beyond, Throne, Player, Changed
+/
+/ DESCRIPTION: 
+/	This module is called whenever the player's coordinates are altered.
+/	If the player is beyond the point of no return, he/she is forced
+/	to stay there.
+/
+/************************************************************************/
+
+altercoordinates(xnew, ynew, operation)
+double	xnew;
+double	ynew;
+int	operation;
+{
+    switch (operation)
+	{
+	case A_FORCED:	/* move with no checks */
+	    break;
+
+	case A_NEAR:	/* pick random coordinates near */
+	    xnew = Player.p_x + ROLL(1.0, 5.0);
+	    ynew = Player.p_y - ROLL(1.0, 5.0);
+	    /* fall through for check */
+
+	case A_SPECIFIC:	/* just move player */
+	    if (Beyond && fabs(xnew) < D_BEYOND && fabs(ynew) < D_BEYOND)
+		/*
+		 * cannot move back from point of no return
+		 * pick the largest coordinate to remain unchanged
+		 */
+		{
+		if (fabs(xnew) > fabs(ynew))
+		    xnew = SGN(Player.p_x) * MAX(fabs(Player.p_x), D_BEYOND);
+		else
+		    ynew = SGN(Player.p_y) * MAX(fabs(Player.p_y), D_BEYOND);
+		}
+	    break;
+
+	case A_FAR:	/* pick random coordinates far */
+	    xnew = Player.p_x + SGN(Player.p_x) * ROLL(50 * Circle, 250 * Circle);
+	    ynew = Player.p_y + SGN(Player.p_y) * ROLL(50 * Circle, 250 * Circle);
+	    break;
+	}
+    
+    /* now set location flags and adjust coordinates */
+    Circle = CIRCLE(Player.p_x = floor(xnew), Player.p_y = floor(ynew));
+
+    /* set up flags based upon location */
+    Throne = Marsh = Beyond = FALSE;
+
+    if (Player.p_x == 0.0 && Player.p_y == 0.0)
+	Throne = TRUE;
+    else if (Circle < 35 && Circle >= 20)
+	Marsh = TRUE;
+    else if (MAX(fabs(Player.p_x), fabs(Player.p_y)) >= D_BEYOND)
+	Beyond = TRUE;
+
+    Changed = TRUE;
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: readrecord()
+/
+/ FUNCTION: read a player structure from file
+/
+/ AUTHOR: E. A. Estes, 12/4/85
+/
+/ ARGUMENTS:
+/	struct player *playerp - pointer to structure to fill
+/	int loc - location of record to read
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: fread(), fseek()
+/
+/ GLOBAL INPUTS: *Playersfp
+/
+/ GLOBAL OUTPUTS: none
+/
+/ DESCRIPTION:
+/	Read structure information from player file.
+/
+/************************************************************************/
+
+readrecord(playerp, loc)
+register struct player	*playerp;
+long	loc;
+{
+    fseek(Playersfp, loc, 0);
+    fread((char *) playerp, SZ_PLAYERSTRUCT, 1, Playersfp);
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: adjuststats()
+/
+/ FUNCTION: adjust player statistics
+/
+/ AUTHOR: E. A. Estes, 12/4/85
+/
+/ ARGUMENTS: none
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: death(), floor(), drandom(), explevel(), movelevel()
+/
+/ GLOBAL INPUTS: Player, *Statptr
+/
+/ GLOBAL OUTPUTS: Circle, Player, Timeout
+/
+/ DESCRIPTION:
+/	Handle adjustment and maximums on various player characteristics.
+/
+/************************************************************************/
+
+adjuststats()
+{
+double	dtemp;				/* for temporary calculations */
+
+    if (explevel(Player.p_experience) > Player.p_level)
+	/* move one or more levels */
+	{
+	movelevel();
+	if (Player.p_level > 5.0)
+	    Timeout = TRUE;
+	}
+
+    if (Player.p_specialtype == SC_VALAR)
+	/* valar */
+	Circle = Player.p_level / 5.0;
+
+    /* calculate effective quickness */
+    dtemp = ((Player.p_gold + Player.p_gems / 2.0) - 1000.0) / Statptr->c_goldtote
+	- Player.p_level;;
+    dtemp = MAX(0.0, dtemp);		/* gold slows player down */
+    Player.p_speed = Player.p_quickness + Player.p_quksilver - dtemp;
+
+    /* calculate effective strength */
+    if (Player.p_poison > 0.0)
+	/* poison makes player weaker */
+	{
+	dtemp = 1.0 - Player.p_poison * Statptr->c_weakness / 800.0;
+	dtemp = MAX(0.1, dtemp);
+	}
+    else
+	dtemp = 1.0;
+    Player.p_might = dtemp *  Player.p_strength + Player.p_sword;
+
+    /* insure that important things are within limits */
+    Player.p_quksilver = MIN(99.0, Player.p_quksilver);
+    Player.p_mana = MIN(Player.p_mana,
+	Player.p_level * Statptr->c_maxmana + 1000.0);
+    Player.p_brains = MIN(Player.p_brains,
+	Player.p_level * Statptr->c_maxbrains + 200.0);
+    Player.p_charms = MIN(Player.p_charms, Player.p_level + 10.0);
+
+    /*
+     * some implementations have problems with floating point compare
+     * we work around it with this stuff
+     */
+    Player.p_gold = floor(Player.p_gold) + 0.1;
+    Player.p_gems = floor(Player.p_gems) + 0.1;
+    Player.p_mana = floor(Player.p_mana) + 0.1;
+
+    if (Player.p_ring.ring_type != R_NONE)
+	/* do ring things */
+	{
+	/* rest to max */
+	Player.p_energy = Player.p_maxenergy + Player.p_shield;
+
+        if (Player.p_ring.ring_duration <= 0)
+	    /* clean up expired rings */
+	    switch (Player.p_ring.ring_type)
+		{
+		case R_BAD:	/* ring drives player crazy */
+		    Player.p_ring.ring_type = R_SPOILED;
+		    Player.p_ring.ring_duration = (short) ROLL(10.0, 25.0);
+		    break;
+
+		case R_NAZREG:	/* ring disappears */
+		    Player.p_ring.ring_type = R_NONE;
+		    break;
+
+		case R_SPOILED:	/* ring kills player */
+		    death("A cursed ring");
+		    break;
+
+		case R_DLREG:	/* this ring doesn't expire */
+		    Player.p_ring.ring_duration = 0;
+		    break;
+		}
+	}
+
+    if (Player.p_age / N_AGE > Player.p_degenerated)
+	/* age player slightly */
+	{
+	++Player.p_degenerated;
+	if (Player.p_quickness > 23.0)
+	    Player.p_quickness *= 0.99;
+	Player.p_strength *= 0.97;
+	Player.p_brains *= 0.95;
+	Player.p_magiclvl *= 0.97;
+	Player.p_maxenergy *= 0.95;
+	Player.p_quksilver *= 0.95;
+	Player.p_sword *= 0.93;
+	Player.p_shield *= 0.93;
+	}
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: initplayer()
+/
+/ FUNCTION: initialize a character
+/
+/ AUTHOR: E. A. Estes, 12/4/85
+/
+/ ARGUMENTS:
+/	struct player *playerp - pointer to structure to init
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: floor(), drandom()
+/
+/ GLOBAL INPUTS: none
+/
+/ GLOBAL OUTPUTS: none
+/
+/ DESCRIPTION:
+/	Put a bunch of default values in the given structure.
+/
+/************************************************************************/
+
+initplayer(playerp)
+register struct  player   *playerp;
+{
+    playerp->p_experience =
+    playerp->p_level =
+    playerp->p_strength =
+    playerp->p_sword =
+    playerp->p_might =
+    playerp->p_energy =
+    playerp->p_maxenergy =
+    playerp->p_shield =
+    playerp->p_quickness =
+    playerp->p_quksilver =
+    playerp->p_speed =
+    playerp->p_magiclvl =
+    playerp->p_mana =
+    playerp->p_brains =
+    playerp->p_poison =
+    playerp->p_gems =
+    playerp->p_sin =
+    playerp->p_1scratch =
+    playerp->p_2scratch = 0.0;
+
+    playerp->p_gold = ROLL(50.0, 75.0) + 0.1;	/* give some gold */
+
+    playerp->p_x = ROLL(-125.0, 251.0);
+    playerp->p_y = ROLL(-125.0, 251.0);		/* give random x, y */
+
+    /* clear ring */
+    playerp->p_ring.ring_type = R_NONE;
+    playerp->p_ring.ring_duration = 0;
+    playerp->p_ring.ring_inuse = FALSE;
+
+    playerp->p_age = 0L;
+
+    playerp->p_degenerated = 1;			/* don't degenerate initially */
+
+    playerp->p_type = C_FIGHTER;		/* default */
+    playerp->p_specialtype = SC_NONE;
+    playerp->p_lives =
+    playerp->p_crowns = 
+    playerp->p_charms =
+    playerp->p_amulets =
+    playerp->p_holywater =
+    playerp->p_lastused = 0;
+    playerp->p_status = S_NOTUSED;
+    playerp->p_tampered = T_OFF;
+    playerp->p_istat = I_OFF;
+
+    playerp->p_palantir =
+    playerp->p_blessing =
+    playerp->p_virgin =
+    playerp->p_blindness = FALSE;
+
+    playerp->p_name[0] =
+    playerp->p_password[0] =
+    playerp->p_login[0] = '\0';
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: readmessage()
+/
+/ FUNCTION: read message from other players
+/
+/ AUTHOR: E. A. Estes, 12/4/85
+/
+/ ARGUMENTS: none
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: fseek(), fgets(), wmove(), waddstr(), wclrtoeol()
+/
+/ GLOBAL INPUTS: *stdscr, Databuf[], *Messagefp
+/
+/ GLOBAL OUTPUTS: none
+/
+/ DESCRIPTION:
+/	If there is a message from other players, print it.
+/
+/************************************************************************/
+
+readmessage()
+{
+    move(3, 0);
+    clrtoeol();
+    fseek(Messagefp, 0L, 0);
+    if (fgets(Databuf, SZ_DATABUF, Messagefp) != NULL)
+	addstr(Databuf);
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: error()
+/
+/ FUNCTION: process evironment error
+/
+/ AUTHOR: E. A. Estes, 12/4/85
+/
+/ ARGUMENTS:
+/	char *whichfile - pointer to name of file which caused error
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: wclear(), cleanup()
+/
+/ GLOBAL INPUTS: errno, *stdscr, printw(), printf(), Windows
+/
+/ GLOBAL OUTPUTS: none
+/
+/ DESCRIPTION:
+/	Print message about offending file, and exit.
+/
+/************************************************************************/
+
+error(whichfile)
+	char	*whichfile;
+{
+	int	(*funcp) __P((const char *, ...));
+
+    if (Windows)
+	{
+	funcp = printw;
+	clear();
+	}
+    else
+	funcp = printf;
+
+    (*funcp)("An unrecoverable error has occurred reading %s.  (errno = %d)\n", whichfile, errno);
+    (*funcp)("Please run 'setup' to determine the problem.\n");
+    cleanup(TRUE);
+    /*NOTREACHED*/
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: distance()
+/
+/ FUNCTION: calculate distance between two points
+/
+/ AUTHOR: E. A. Estes, 12/4/85
+/
+/ ARGUMENTS: 
+/	double x1, y1 - x, y coordinates of first point
+/	double x2, y2 - x, y coordinates of second point
+/
+/ RETURN VALUE: distance between the two points
+/
+/ MODULES CALLED: sqrt()
+/
+/ GLOBAL INPUTS: none
+/
+/ GLOBAL OUTPUTS: none
+/
+/ DESCRIPTION:
+/	This function is provided because someone's hypot() library function
+/	fails if x1 == x2 && y1 == y2.
+/
+/************************************************************************/
+
+double
+distance(x1, x2, y1, y2)
+double	x1, x2, y1, y2;
+{
+double	deltax, deltay;
+
+    deltax = x1 - x2;
+    deltay = y1 - y2;
+    return(sqrt(deltax * deltax + deltay * deltay));
+}
+
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: ill_sig()
+/
+/ FUNCTION: exit upon trapping an illegal signal
+/
+/ AUTHOR: E. A. Estes, 12/4/85
+/
+/ ARGUMENTS:
+/	int whichsig - signal which occured to cause jump to here
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: wclear(), printw(), cleanup()
+/
+/ GLOBAL INPUTS: *stdscr
+/
+/ GLOBAL OUTPUTS: none
+/
+/ DESCRIPTION:
+/	When an illegal signal is caught, print a message, and cleanup.
+/
+/************************************************************************/
+
+ill_sig(whichsig)
+int whichsig;
+{
+    clear();
+    if (!(whichsig == SIGINT || whichsig == SIGQUIT))
+	printw("Error: caught signal # %d.\n", whichsig);
+    cleanup(TRUE);
+    /*NOTREACHED*/
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: descrstatus()
+/
+/ FUNCTION: return a string describing the player status
+/
+/ AUTHOR: E. A. Estes, 3/3/86
+/
+/ ARGUMENTS:
+/	struct player playerp - pointer to player structure to describe
+/
+/ RETURN VALUE: string describing player's status
+/
+/ MODULES CALLED: none
+/
+/ GLOBAL INPUTS: none
+/
+/ GLOBAL OUTPUTS: none
+/
+/ DESCRIPTION:
+/	Return verbal description of player status.
+/	If player status is S_PLAYING, check for low energy and blindness.
+/
+/************************************************************************/
+
+char	*
+descrstatus(playerp)
+register struct player	*playerp;
+{
+    switch (playerp->p_status)
+	{
+	case S_PLAYING:
+	    if (playerp->p_energy < 0.2 * (playerp->p_maxenergy + playerp->p_shield))
+		return("Low Energy");
+	    else if (playerp->p_blindness)
+		return("Blind");
+	    else
+		return("In game");
+
+	case S_CLOAKED:
+	    return("Cloaked");
+
+	case S_INBATTLE:
+	    return("In Battle");
+
+	case S_MONSTER:
+	    return("Encounter");
+
+	case S_TRADING:
+	    return("Trading");
+
+	case S_OFF:
+	    return("Off");
+
+	case S_HUNGUP:
+	    return("Hung up");
+
+	default:
+	    return("");
+	}
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: drandom()
+/
+/ FUNCTION: return a random floating point number from 0.0 < 1.0
+/
+/ AUTHOR: E. A. Estes, 2/7/86
+/
+/ ARGUMENTS: none
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: random()
+/
+/ GLOBAL INPUTS: none
+/
+/ GLOBAL OUTPUTS: none
+/
+/ DESCRIPTION:
+/	Convert random integer from library routine into a floating
+/	point number, and divide by the largest possible random number.
+/	We mask large integers with 32767 to handle sites that return
+/	31 bit random integers.
+/
+/************************************************************************/
+
+double
+drandom()
+{
+    if (sizeof(int) != 2)
+	/* use only low bits */
+	return((double) (random() & 0x7fff) / 32768.0);
+    else
+	return((double) random() / 32768.0);
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: collecttaxes()
+/
+/ FUNCTION: collect taxes from current player
+/
+/ AUTHOR: E. A. Estes, 2/7/86
+/
+/ ARGUMENTS:
+/	double gold - amount of gold to tax
+/	double gems - amount of gems to tax
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: fread(), fseek(), fopen(), floor(), fwrite(), fclose()
+/
+/ GLOBAL INPUTS: Player
+/
+/ GLOBAL OUTPUTS: Player
+/
+/ DESCRIPTION:
+/	Pay taxes on gold and gems.  If the player does not have enough
+/	gold to pay taxes on the added gems, convert some gems to gold.
+/	Add taxes to tax data base; add remaining gold and gems to
+/	player's cache.
+/
+/************************************************************************/
+
+collecttaxes(gold, gems)
+double	gold;
+double	gems;
+{
+FILE	*fp;		/* to update Goldfile */
+double	dtemp;		/* for temporary calculations */
+double	taxes;		/* tax liability */
+
+    /* add to cache */
+    Player.p_gold += gold;
+    Player.p_gems += gems;
+
+    /* calculate tax liability */
+    taxes = N_TAXAMOUNT / 100.0 * (N_GEMVALUE * gems + gold);
+
+    if (Player.p_gold < taxes)
+	/* not enough gold to pay taxes, must convert some gems to gold */
+	{
+	dtemp = floor(taxes / N_GEMVALUE + 1.0); /* number of gems to convert */
+
+	if (Player.p_gems >= dtemp)
+	    /* player has enough to convert */
+	    {
+	    Player.p_gems -= dtemp;
+	    Player.p_gold += dtemp * N_GEMVALUE;
+	    }
+	else
+	    /* take everything; this should never happen */
+	    {
+	    Player.p_gold += Player.p_gems * N_GEMVALUE;
+	    Player.p_gems = 0.0;
+	    taxes = Player.p_gold;
+	    }
+	}
+
+    Player.p_gold -= taxes;
+
+    if ((fp = fopen(_PATH_GOLD, "r+")) != NULL)
+	/* update taxes */
+	{
+	dtemp = 0.0;
+	fread((char *) &dtemp, sizeof(double), 1, fp);
+	dtemp += floor(taxes);
+	fseek(fp, 0L, 0);
+	fwrite((char *) &dtemp, sizeof(double), 1, fp);
+	fclose(fp);
+	}
+}
diff --git a/games/phantasia/monsters.asc b/games/phantasia/monsters.asc
new file mode 100644
index 0000000..3d426a9
--- /dev/null
+++ b/games/phantasia/monsters.asc
@@ -0,0 +1,100 @@
+A Water Leaper          12      14      16      24      59      0       0       62
+A Leech                 4       19      29      30      66      0       0       73
+An  Urisk               13      30      15      46      127     1       0       3
+Shellycoat              28      21      18      63      226     2       0       0
+A Naiad                 21      62      27      58      378     2       0       11
+A Nixie                 22      58      28      108     604     3       0       6
+A Glaistig              21      106     25      127     1002    3       0       0
+A Mermaid               18      116     22      108     809     3       0       0
+A Merman                24      115     23      109     808     4       0       0
+A Siren                 22      128     31      89      915     4       0       24
+A Lamprey               14      67      33      156     1562    4       15      37
+A Kopoacinth            26      36      26      206     2006    5       0       20
+A Kelpie                61      25      24      223     4025    5       0       0
+An Aspidchelone         114     104     19      898     10041   7       0       2
+An Idiot                13      14      16      28      49      0       0       0
+Some Green Slime        1       5       45      100     57      0       0       26
+A Pixie                 11      29      23      26      64      0       0       32
+A Serpent               10      18      25      25      79      0       0       10
+A Cluricaun             12      27      20      30      81      0       14      5
+An Imp                  22      30      14      40      92      0       0       1
+A Centipede             3       8       18      15      33      0       0       61
+A Beetle                2       11      21      26      44      0       0       48
+A Fir Darrig            18      22      17      35      107     0       14      1
+Modnar                  15      23      20      40      101     7       2       12
+A Gnome                 7       45      26      23      111     0       0       21
+A Sprite                9       37      25      31      132     1       0       43
+A Mimic                 11      55      29      47      213     1       3       2
+A Kobold                13      10      14      21      121     1       12      68
+A Spider                6       11      28      28      124     1       0       57
+An Uldra                14      37      21      32      93      1       0       6
+A Gnoll                 20      25      15      40      166     1       0       61
+A Bogie                 23      28      19      57      189     1       0       57
+A Fachan                9       40      15      45      139     1       14      10
+A Moron                 3       1       10      10      28      0       0       100
+An Orc                  25      13      16      26      141     1       0       92
+A Ghillie Dhu           12      16      13      28      104     2       14      2
+A Bogle                 19      15      16      35      157     2       14      15
+A Shrieker              2       62      27      9       213     2       16      0
+A Carrion Crawler       12      20      20      65      142     2       0       42
+A Trow                  15      17      23      51      136     2       0       36
+A Warg                  20      10      17      45      152     2       0       88
+A Stirge                2       6       35      25      153     2       0       95
+A Crebain               5       11      31      31      82      2       0       81
+A Killmoulis            30      19      8       75      175     3       14      22
+A Hob-goblin            35      20      15      72      246     3       0       18
+A Unicorn               27      57      27      57      627     3       1       0
+A Fenoderee             16      6       21      65      222     3       0       42
+An Ogre                 42      14      16      115     409     3       0       19
+A Dodo                  62      12      11      76      563     3       0       3
+A Hydra                 14      27      33      99      599     3       0       27
+A Hamadryad             23      47      26      62      426     3       0       12
+A Bwca                  21      17      19      55      387     3       14      1
+An Owlbear              35      16      18      100     623     4       0       22
+Black Annis             37      52      15      65      786     4       0       2
+A Jello Blob            100     25      7       264     1257    4       0       13
+A Jubjub Bird           45      23      12      114     1191    4       0       0
+A Wichtlein             13      40      25      61      800     4       0       8
+A Cocodrill             39      28      24      206     1438    4       0       38
+A Troll                 75      12      20      185     1013    4       24      29
+A Bonnacon              89      26      9       255     1661    4       17      14
+A Gargoyle              22      21      29      200     1753    5       0       7
+A Chaladrius            8       49      37      172     1929    5       0       20
+A Gwyllion              27      73      20      65      1888    5       0       4
+A Cinomulgus            23      2       10      199     263     5       0       18
+A Peridexion            26      32      24      98      1300    5       0       2
+Smeagol                 41      33      27      373     2487    5       18      0
+A Wraith                52      102     22      200     3112    5       25      13
+A Snotgurgle            143     19      26      525     4752    6       0       3
+A Phooka                42      63      21      300     4125    5       0       12
+A Vortex                101     30      31      500     6992    6       9       4
+Shelob                  147     64      28      628     5003    7       13      0
+A Thaumaturgist         35      200     23      400     7628    6       7       0
+Smaug                   251     76      26      1022    9877    7       0       0
+A Cold-drake            301     102     24      1222    10888   7       0       0
+A Red Dragon            342     141     23      1299    11649   8       0       0
+Scatha the Worm         406     208     20      1790    11999   8       0       0
+Tiamat                  506     381     29      2000    13001   9       11      0
+A Bandersnatch          105     98      22      450     7981    6       0       3
+A Harpy                 103     49      24      263     7582    6       0       2
+A Tigris                182     38      17      809     7777    6       0       3
+A Gryphon               201     45      19      813     8888    7       0       1
+A Coblynau              205     46      18      585     8333    6       0       2
+A Chimaera              173     109     28      947     12006   7       0       0
+A Jack-in-Irons         222     36      12      1000    9119    7       0       0
+Saruman                 55      373     17      1500    17101   11      6       0
+A Balrog                500     100     25      705     8103    7       8       0
+Argus                   201     87      14      1500    10010   8       0       0
+A Titan                 302     1483    12      1625    11011   8       0       0
+Cacus                   256     43      19      1750    12012   8       0       0
+Begion                  403     154     10      1875    13013   8       0       0
+Grendel                 197     262     23      2000    14014   8       0       0
+A Nazgul                250     251     26      1011    9988    12      10      9
+A Succubus              186     1049    27      2007    19984   9       19      0
+Red Cap                 143     50      35      1965    23456   9       0       0
+A Nuckelavee            300     75      20      2185    11111   8       0       0
+Cerberus                236     96      29      2600    25862   9       20      0
+A Jabberwock            185     136     25      2265    23256   9       22      0
+Ungoliant               399     2398    37      2784    27849   10      21      0
+Leanan-Sidhe            486     5432    46      3000    30004   9       5       0
+The Dark Lord           9999    9999    31      19999   30005   13      4       0
diff --git a/games/phantasia/oldplayer.h b/games/phantasia/oldplayer.h
new file mode 100644
index 0000000..ce8661c
--- /dev/null
+++ b/games/phantasia/oldplayer.h
@@ -0,0 +1,54 @@
+/*
+ * oldplayer.h - old player structure
+ */
+
+struct	oldplayer	    	/* player statistics */
+    {
+    char	o_name[21];	/* name */
+    char	o_password[9];	/* password */
+    char	o_login[10];	/* login */
+    double	o_x;	    	/* x coord */
+    double	o_y;	    	/* y coord */
+    double	o_experience;	/* experience */
+    int		o_level;    	/* level */
+    short	o_quickness;	/* quickness */
+    double	o_strength;	/* strength */
+    double	o_sin;		/* sin */
+    double	o_mana;		/* mana */
+    double	o_gold;		/* gold */
+    double	o_energy;	/* energy */
+    double	o_maxenergy;	/* maximum energy */
+    double	o_magiclvl;	/* magic level */
+    double	o_brains;	/* brains */
+    short	o_crowns;	/* crowns */
+    struct
+	{
+	short	ring_type;	/* type of ring */
+	short	ring_duration;	/* duration of ring */
+	}	o_ring;	    	/* ring stuff */
+    bool	o_palantir;	/* palantir */
+    double	o_poison;	/* poison */
+    short	o_holywater;   	/* holy water */
+    short	o_amulets;	/* amulets */
+    bool	o_blessing;	/* blessing */
+    short	o_charms;	/* charms */
+    double	o_gems;		/* gems */
+    short	o_quksilver;	/* quicksilver */
+    double	o_sword;	/* sword */
+    double	o_shield;	/* shield */
+    short	o_type;		/* character type */
+    bool	o_virgin;	/* virgin */
+    short	o_lastused;	/* day of year last used */
+    short	o_status;	/* playing, cloaked, etc. */
+    short	o_tampered;	/* decree'd, etc. flag */
+    double	o_1scratch,
+		o_2scratch;	/* variables used for decree, player battle */
+    bool	o_blindness;	/* blindness */
+    int		o_notused;   	/* not used */
+    long	o_age;		/* age in seconds */
+    short	o_degenerated;	/* age/2500 last degenerated */
+    short	o_istat;	/* used for inter-terminal battle */
+#ifdef PHANTPLUS
+    short	o_lives;
+#endif
+    };
diff --git a/games/phantasia/pathnames.h b/games/phantasia/pathnames.h
new file mode 100644
index 0000000..9e4d46b
--- /dev/null
+++ b/games/phantasia/pathnames.h
@@ -0,0 +1,44 @@
+/*-
+ * Copyright (c) 1989, 1993
+ *	The Regents of the University of California.  All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the University of
+ *	California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ *
+ *	@(#)pathnames.h	8.2 (Berkeley) 4/2/94
+ */
+
+#define	_PATH_GAMEPROG	"/usr/games/phantasia"
+#define	_PATH_GOLD	"/var/games/phantasia/gold"
+#define	_PATH_LASTDEAD	"/var/games/phantasia/lastdead"
+#define	_PATH_MESS	"/var/games/phantasia/mess"
+#define	_PATH_MONST	"/var/games/phantasia/monsters"
+#define	_PATH_MOTD	"/var/games/phantasia/motd"
+#define	_PATH_PEOPLE	"/var/games/phantasia/characs"
+#define	_PATH_SCORE	"/var/games/phantasia/scoreboard"
+#define	_PATH_VOID	"/var/games/phantasia/void"
diff --git a/games/phantasia/phantasia.6 b/games/phantasia/phantasia.6
new file mode 100644
index 0000000..a7cb7f1
--- /dev/null
+++ b/games/phantasia/phantasia.6
@@ -0,0 +1,1220 @@
+.de sh
+.br
+.ne 5
+.PP
+\fB\\$1\fR
+.PP
+..
+.TH PHANTASIA 6 "April 19, 1994"
+.UC 4
+.SH NAME
+phantasia \- an interterminal fantasy game
+.SH SYNOPSIS
+phantasia [ \-HSabmpsx ]
+.SH DESCRIPTION
+.I Phantasia
+is a role playing game
+which allows players to roll up characters of various types to fight
+monsters and other players.
+Progression of characters is based upon gaining experience from fighting
+monsters (and other players).
+.PP
+Most of the game is menu driven and self-explanatory (more or less).
+The screen is cursor updated, so be sure to set up the
+.B TERM
+variable in your environment.
+.PP
+The options provide for a variety of functions to support the game.
+They are:
+.PP
+.TP .5i
+.B \-s
+Invokes 
+.I phantasia
+without header information.
+.TP .5i
+.B \-m
+Get a monster listing.
+.TP .5i
+.B \-a
+Get a listing of all character names on file.
+.TP .5i
+.B \-x
+Examine/change a particular character on file.
+.TP .5i
+.B \-H
+Print header only.
+.TP .5i
+.B \-p
+Purge old characters.
+.TP .5i
+.B \-b
+Show scoreboard of top characters per login.
+.TP .5i
+.B \-S
+Turn on wizard options, if allowed, if running as ``root''.
+.PP
+The characters are saved on a common file, in order to make the game
+interactive between players.  The characters are given a password
+in order to retrieve them later.  Only characters above
+.B level
+zero are saved.  Characters unused for awhile will be purged.
+Characters are only placed on the scoreboard when they die.
+.SH AUTHOR
+Edward Estes, AT&T Information Systems, Skokie, IL
+.SH PARTICULARS
+.sh "Normal Play"
+A number of the player's more important statistics are almost always
+displayed on the screen, with maximums (where applicable) in
+parentheses.
+.PP
+The character is placed randomly near the center of a cartesian
+system.
+Most commands are selected with a single letter or digit.
+For example, one may move by hitting 'W', 'S', 'N', or 'E',
+(lower case may also be used, at no time is the game case dependent).
+One may also use 'H', 'J', 'K', 'L',
+for movement, similar to
+.IR vi (1).
+To move to a specific (x, y) coordinate, use the
+.B move
+('1') command.	The distance a character can move is calculated by
+1 plus 1.5 per
+.B level.
+Moving in a compass direction will move the player the maximum
+allowed distance in that direction.
+.PP
+A player may see who else is playing by using the
+.B players
+('2') option.  One may see the coordinates of those who are the same
+distance or closer to the origin as he/she.
+.B Kings,
+and
+.B council of the wise
+can see and can be seen by everyone.  A
+.B palantir
+removes these restrictions.
+.PP
+One can talk to other players with the
+.B talk
+('3') option.  In general, this is a line or so of text.  To remove a current
+message, just type <return> when prompted for a message.
+.PP
+The
+.B stats
+('4') option shows additional characteristics of a player.
+.PP
+One may leave the game either with the
+.B quit
+('5') option.
+.PP
+One may rest by default.  Resting lets one regain maximum
+.B energy level,
+and also lets one find
+.B mana
+(more is found for larger levels and further distances from the origin).
+.PP
+One may call a monster by hitting '9' or 'C'.
+.PP
+Use 'X' to examine other players.
+.PP
+One may quit or execute a sub-shell by hitting interrupt.
+Quitting during battle results in death for obvious reasons.
+.PP
+Several other options become available as the player progresses in
+.B level
+and
+.B magic,
+or to other stations in the game (
+.B valar, council of the wise, king
+).
+These are described elsewhere.
+In general, a control-L will force the redrawing of the screen.
+.PP
+Other things which may happen are more or less self-explanatory.
+.sh "Fighting Monsters"
+A player has several options while fighting monsters.  They are as follows:
+.TP 1.5i
+.B melee
+Inflicts damage on the monster, based upon
+.B strength.
+Also decreases the monster's
+.B strength
+some.
+.TP 1.5i
+.B skirmish
+Inflicts a little less damage than
+.B melee,
+but decreases the monster's
+.B quickness
+instead.
+.TP 1.5i
+.B evade
+Attempt to run away.  Success is based upon both the player's and
+the monster's
+.B brains
+and
+.B quickness.
+.TP 1.5i
+.B spell
+Several options for throwing spells (described elsewhere).
+.TP 1.5i
+.B nick
+Hits the monster one plus the player's
+.B sword,
+and gives the player 10% of the monster's
+.B experience.
+Decreases the monster's
+.B experience
+an amount proportional to the amount granted.
+This also increases the monster's quickness.
+Paralyzed monsters wake up very fast when nicked.
+.TP 1.5i
+.B luckout
+This is essentially a battle of wits with the monster.	Success is based
+upon the player's and the monster's
+.B brains.
+The player gets credit for slaying the monster if he/she succeeds.
+Otherwise, nothing happens, and the chance to
+.B luckout
+is lost.
+.sh "Character Statistics"
+.TP 1.5i
+.B strength
+determines how much damage a character can inflict.
+.TP 1.5i
+.B quickness
+determines how many chances a character gets to make decisions while
+fighting.
+.TP 1.5i
+.B energy level
+specifies how much damage a character may endure before dying.
+.TP 1.5i
+.B magic level
+determines which spells a character may throw, and how effective those
+spells will be.
+.TP 1.5i
+.B brains
+basically, the character's intelligence; used for various fighting options
+and spells.
+.TP 1.5i
+.B mana
+used as a power source for throwing spells.
+.TP 1.5i
+.B experience
+gained by fighting monsters and other characters.
+.TP 1.5i
+.B level
+indicative of how much experience a character has accumulated; progresses
+geometrically as
+.B experience
+increases.
+.TP 1.5i
+.B poison
+sickness which degrades a character's performance (affects
+.B energy level
+and
+.B strength
+).
+.TP 1.5i
+.B sin
+accumulated as a character does certain nasty things; used only rarely
+in normal play of the game.
+.TP 1.5i
+.B age
+of player; roughly equivalent to number of turns.
+As
+.B age
+increases, many personal statistics degenerate.
+.sh "Character Types"
+Character statistics are rolled randomly from the above list, according
+to character type.  The types are as follows:
+.TP 1.5i
+.B magic user
+strong in
+.B magic level
+and
+.B brains
+, weak in other areas.	Must rely on wits and magic to survive.
+.TP 1.5i
+.B fighter
+good in
+.B strength
+and
+.B energy level
+, fairly good in other areas.  This adds up to a well-equipped fighter.
+.TP 1.5i
+.B elf
+very high
+.B quickness
+and above average
+.B magic level
+are
+.B elves
+selling points.
+.TP 1.5i
+.B dwarf
+very high
+.B strength
+and
+.B energy level
+, but with a tendency to be rather slow and not too bright.
+.TP 1.5i
+.B halfling
+rather quick and smart, with high
+.B energy level
+, but poor in
+.B magic
+and
+.B strength.
+Born with some
+.B experience.
+.TP 1.5i
+.B experimento
+very mediocre in all areas.  However, the
+.B experimento
+may be placed almost anywhere within the playing grid.
+.PP
+The possible ranges for starting statistics are summarized in
+the following table.
+.PP
+.TS
+l c c c c c c
+l c c c c c c.
+Type	Strength	Quick	Mana	Energy	Brains	Magic
+_
+Mag. User	10-15	30-35	50-100	30-45	60-85	5-9
+Fighter	40-55	30-35	30-50	45-70	25-45	3-6
+Elf	35-45	32-38	45-90	30-50	40-65	4-7
+Dwarf	50-70	25-30	25-45	60-100	20-40	2-5
+Halfling	20-25	34	25-45	55-90	40-75	1-4
+Experimento	25	27	100	35	25	2
+.TE
+.PP
+Not only are the starting characteristics different for the different
+character types, the characteristics progress at different rates for the
+different types as the character goes up in
+.B level.  Experimentoes'
+characteristics progress randomly as one of the other types.
+The progression as characters increase in
+.B level
+is summarized in the following table.
+.PP
+.TS
+l c c c c c
+l n n n n n.
+Type	Strength	Mana	Energy	Brains	Magic
+_
+Mag. User	2.0	75	20	6	2.75
+Fighter	3.0	40	30	3.0	1.5
+Elf	2.5	65	25	4.0	2.0
+Dwarf	5	30	35	2.5	1
+Halfling	2.0	30	30	4.5	1
+.TE
+.PP
+The character type also determines how much gold a player may
+carry, how long until
+.B rings
+can overcome the player, and how much
+.B poison
+the player can withstand.
+.sh "Spells"
+During the course of the game, the player may exercise his/her
+magic powers.  These cases are described below.
+.TP 1.5i
+.B cloak
+.I magic level necessary:
+20 (plus level 7)
+.br
+.I mana used:
+35 plus 3 per rest period
+.br
+Used during normal play.  Prevents monsters from finding the character,
+as well as hiding the player from other players.  His/her coordinates
+show up as '?' in the
+.B players
+option.  Players cannot collect
+.B mana,
+find trading posts, or discover the
+.B grail
+while cloaked.	Calling a monster uncloaks, as well as choosing
+this option while cloaked.
+.br
+.TP 1.5i
+.B teleport
+.I magic level necessary:
+40 (plus level 12)
+.br
+.I mana used:
+30 per 75 moved
+.br
+Used during normal play.  Allows the player too move with much more freedom
+than with the
+.B move
+option, at the price of expending mana.  The maximum distance possible
+to move is based upon
+.B level
+and
+.B magic level.
+.TP 1.5i
+.B power blast
+.I magic level necessary:
+none
+.br
+.I mana used:
+5 times
+.B level
+.br
+Used during inter-terminal battle.  Damage is based upon
+.B magic level
+and
+.B strength.
+Hits much harder than a normal hit.
+.TP 1.5i
+.B all or nothing
+.I magic level necessary:
+none
+.br
+.I mana used:
+1
+.br
+Used while combating monsters.
+Has a 25% chance of working.  If it works it hits the monster just enough
+to kill it.  If it fails, it doesn't hit the monster, and doubles the
+monster's
+.B quickness
+and
+.B strength.
+Paralyzed monsters wake up much quicker as a result of this spell.
+.TP 1.5i
+.B magic bolt
+.I magic level necessary:
+5
+.br
+.I mana used:
+variable
+.br
+Used while combating monsters.  Hits the monster based upon the amount
+of
+.B mana
+expended and
+.B magic level.
+Guaranteed to hit at least 10 per
+.B mana.
+.TP 1.5i
+.B force field
+.I magic level necessary:
+15
+.br
+.I mana used:
+30
+.br
+Used during monster combat.  Throws up a shield to protect from damage.
+The shield is added to actual energy level, and is a fixed number, based
+upon maximum energy.  Normally, damage occurs first to the shield, and
+then to the players actual
+.B energy level.
+.TP 1.5i
+.B transform
+.I magic level necessary:
+25
+.br
+.I mana used:
+50
+.br
+Used during monster combat.  Transforms the monster randomly into one
+of the 100 monsters from the monster file.
+.TP 1.5i
+.B increase might
+.I magic level necessary:
+35
+.br
+.I mana used:
+75
+.br
+Used during combat with monsters.  Increases strength up to a maximum.
+.TP 1.5i
+.B invisibility
+.I magic level necessary:
+45
+.br
+.I mana used:
+90
+.br
+Used while fighting monsters.  Makes it harder for the monster to hit,
+by temporarily increasing the player's
+.B quickness.
+This spell may be thrown several times, but a maximum level will be reached.
+.TP 1.5i
+.B transport
+.I magic level necessary:
+60
+.br
+.I mana used:
+125
+.br
+Used during monster combat.  Transports the monster away from the
+player.  Success is base upon player's
+.B magic
+and
+.B brains,
+and the monster's
+.B experience.
+If it fails the player is transported instead.	60% of the time, the monster
+will drop any treasure it was carrying.
+.TP 1.5i
+.B paralyze
+.I magic level necessary:
+75
+.br
+.I mana used:
+150
+.br
+Used during monster combat.  "Freezes" the monster by putting its
+.B quickness
+slightly negative.  The monster will slowly wake up.  Success is based
+upon player's
+.B magic
+and the monster's
+.B experience.
+If it fails, nothing happens.
+.TP 1.5i
+.B specify
+.I magic level necessary:
+none
+.br
+.I mana used:
+1000
+.br
+Used during monster combat only by
+.B valar
+or
+.B council of the wise.
+Allows the player to pick which monster to fight.
+.sh "Monsters"
+Monsters get bigger as one moves farther from the origin (0,0).  Rings of
+distance 125 from the origin determine the size.  A monster's
+.B experience, energy level,
+and
+.B brains
+are multiplied by the size.
+.B Strength
+is increase 50% per size over one, and
+.B quickness
+remains the same, regardless of size.
+.PP
+Also, nastier monsters are found as one progress farther out
+from the origin.  Monsters also may flock.  The percent chance of that
+happening is designated as
+.B flock%
+in the monster listing.  Monsters outside the first ring
+may carry treasure, as determined by their treasure type.
+Flocking monsters, and bigger monsters increase the chances of treasure.
+.PP
+Certain monsters have special abilities; they are as follows:
+.TP 1.5i
+.B Unicorn
+can only be subdued if the player is in possession of a
+.B virgin.
+.TP 1.5i
+.B Modnar
+has random characteristics, including treasure type.
+.TP 1.5i
+.B Mimic
+will pick another name from the list of monsters in order to
+confuse.
+.TP 1.5i
+.B Dark Lord
+very nasty person.  Does not like to be hit (especially nicked),
+and many spells do not work well (or at all) against him.
+One can always
+.B evade
+from the
+.B Dark Lord.
+.TP 1.5i
+.B Leanan-Sidhe
+also a very nasty person.  She will permanently sap
+.B strength
+from someone.
+.TP 1.5i
+.B Saruman
+wanders around with
+.B Wormtongue
+, who can steal a
+.B palantir.
+Also,
+.B Saruman
+may turn a player's gems into gold pieces,
+or scramble her/his stats.
+.TP 1.5i
+.B Thaumaturgist
+can transport a player.
+.TP 1.5i
+.B Balrog
+inflicts damage by taking away
+.B experience
+, not
+.B energy.
+.TP 1.5i
+.B Vortex
+may take some
+.B mana.
+.TP 1.5i
+.B Nazgul
+may try to steal a
+.B ring
+or neutralize part of one's
+.B brains.
+.TP 1.5i
+.B Tiamat
+may take half a player's
+.B gold
+and
+.B gems
+and escape.
+.TP 1.5i
+.B Kobold
+may get nasty and steal one gold piece and run away.
+.TP 1.5i
+.B Shelob
+may bite, inflicting the equivalent of one
+.B poison.
+.TP 1.5i
+.B Assorted Faeries
+These are killed if attacking someone carrying
+.B holy water.
+These are
+.B Cluricaun, Fir Darrig, Fachan,
+.B Ghille Dhu, Bogle, Killmoulis,
+and
+.B Bwca.
+.TP 1.5i
+.B Lamprey
+may bite, inflicting 1/2 of a
+.B poison.
+.TP 1.5i
+.B Shrieker
+will call one of its (much bigger) buddies if picked upon.
+.TP 1.5i
+.B Bonnacon
+will become bored with battle, fart, and run off.
+.TP 1.5i
+.B Smeagol
+will try to steal a
+.B ring
+from a player, if given the chance.
+.TP 1.5i
+.B Succubus
+may inflict damage through a
+.B force field.
+This subtracts from
+.B energy level
+instead of any shield the player may have thrown up.
+This is a very easy way to die.
+.TP 1.5i
+.B Cerberus
+loves metal and will steal all the metal treasures from
+a player if able.
+.TP 1.5i
+.B Ungoliant
+can bite and poison.  This inflicts five
+.B poisons
+, and also takes one from the player's
+.B quickness.
+.TP 1.5i
+.B Jabberwock
+may tire of battle, and leave after calling one of his friends
+(
+.B Jubjub Bird
+or
+.B Bandersnatch
+).
+.TP 1.5i
+.B Morgoth
+actually
+.B Modnar
+, but reserved for
+.B council of the wise, valar,
+and
+.B ex-valar.
+Fights with
+.B Morgoth
+end when either he or the player dies.	His characteristics
+are calculated based upon the player's.  The player is given
+the chance to ally with him.  No magic, except
+.B force field
+works when battling
+.B Morgoth.
+.TP 1.5i
+.B Troll
+may regenerate its
+.B energy
+and
+.B strength
+while in battle.
+.TP 1.5i
+.B Wraith
+may make a player blind.
+.sh "Treasures"
+The various treasure types are as follows:
+.TP 1.5i
+.B Type zero
+.I none
+.TP 1.5i
+.B Type one
+.I power booster
+\- adds mana.
+.br
+.I druid
+\- adds experience.
+.br
+.I holy orb
+\- subtracts 0.25 sin.
+.TP 1.5i
+.B Type two
+.I amulet
+\- protects from cursed treasure.
+.br
+.I holy water
+\- kills
+.B assorted faeries.
+.br
+.I hermit
+\- reduces sin by 25% and adds some mana.
+.TP 1.5i
+.B Type three
+.I shield
+\- adds to maximum
+.B energy level
+.br
+.I virgin
+\- used to subdue a
+.B unicorn
+, or to give much
+.B experience
+(and some
+.B sin
+).
+.br
+.I athelas
+\- subtracts one
+.B poison.
+.TP 1.5i
+.B Type four (scrolls)
+.I shield
+\- throws a bigger than normal
+.B force field.
+.br
+.I invisible
+\- temporarily puts the finder's
+.B quickness
+to one million.
+.br
+.I ten fold strength
+\- multiplies finder's strength by ten.
+.br
+.I pick monster
+\- allows finder to pick next monster to battle.
+.br
+.I general knowledge
+\- adds to finder's
+.B brains
+and
+.B magic level.
+.PP
+All the scrolls except
+.B general knowledge
+automatically call a monster.  These preserve any
+spells that were already in effect, but are only in
+effect while in battle.
+.TP 1.5i
+.B Type five
+.I dagger
+\- adds to
+.B strength.
+.br
+.I armour
+\- same as a
+.B shield,
+but bigger.
+.br
+.I tablet
+\- adds brains.
+.TP 1.5i
+.B Type six
+.I priest
+\- rests to maximum; adds 
+.B mana, brains;
+and halves
+.B sin.
+.br
+.I Robin Hood
+\- increases
+.B shield
+and adds permanently to
+.B strength.
+.br
+.I axe
+\- like
+.B dagger,
+but bigger.
+.TP 1.5i
+.B Type seven
+.I charm
+\- protects from cursed treasure (used before
+.B amulet
+); used in conjunction with
+.B blessing
+to battle
+.B Dark Lord.
+.br
+.I Merlyn
+\- adds
+.B brains, magic,
+and
+.B mana.
+.br
+.I war hammer
+\- like an
+.B axe,
+but bigger.
+.TP 1.5i
+.B Type eight
+.I healing potion
+\- sets
+.B poison
+to -2, or subtracts two from
+.B poison,
+whichever is better.
+.br
+.I transporter
+\- allows finder to move anywhere.
+.br
+.I sword
+\- like a
+.B war hammer
+, but bigger.
+.TP 1.5i
+.B Type nine
+.I golden crown
+\- allows the player to become
+.B king,
+by going to (0,0).
+.br
+.I blessing
+\- cuts
+.B sin
+to 1/3, adds
+.B mana,
+rests to max., kills
+.B Dark Lord
+with a
+.B charm,
+and gives bearer first hit on all monsters.
+.br
+.I quicksilver
+\- adds to 
+.B quickness.
+.TP 1.5i
+.B Type ten
+.I elven boots
+\- adds permanently to
+.B quickness.
+.TP 1.5i
+.B Type eleven
+.I palantir
+\- allows one to see all the other players; used by
+.B council of the wise
+to seek the
+.B grail.
+.TP 1.5i
+.B Type twelve/thirteen
+.I ring
+\- allows one to hit much harder in battle, etc.
+.PP
+Any treasure type 10-13 monsters may instead carry a type nine treasure.
+.PP
+A monster may also be carrying
+.B gold
+or
+.B gems.
+These are used at
+.B trading posts
+to buy things.	A
+.B gem
+is worth 1000 gold pieces.  Too much
+.B gold
+will slow a player down.  One may carry 1000 plus 200 per
+.B level
+of
+.B gold.
+A
+.B gem
+weighs one half a gold piece.
+Monsters of treasure type 7 or higher may carry
+.B gems.
+.PP
+The chance of a cursed treasure is based upon treasure type.
+The more valuable treasures have a greater chance of being cursed.
+A cursed treasure knocks
+.B energy level
+very low, and adds 0.25
+.B poison.
+.sh "Rings"
+.B Rings
+are only carried by
+.B nazguls
+and
+.B Dark Lord.
+They come in four different flavors.
+All
+.B rings
+rest the player to maximum and cause him/her to hit much harder
+in battle with monsters (assuming one has chosen to use the
+.B ring
+for battle.)
+.PP
+Two types of
+.B rings
+are cursed and come either from
+.B nazguls
+or
+.B Dark Lord.
+After a few times of using these types, the player falls
+under the control of the
+.B ring,
+and strange, random things will occur.
+Eventually, the player dies, and gives his/her name to a monster
+on the file.
+Dying before the
+.B ring
+is used up also renames the monster.
+.PP
+The two remaining types of
+.B rings
+are much more benign.
+The one from a
+.B nazgul
+is good for a limited number of battle rounds, and will save
+the player from death if it was being used when he/she died.
+The one from
+.B Dark Lord
+is the same, except that it never is used up.
+.B rings
+disappear after saving someone from death.
+In general, cursed
+.B rings
+occur much more often than normal ones.
+It is usually not a good idea to pick one up.
+The only way to get rid of a
+.B ring
+is to have a monster steal it.
+.sh "King"
+A player may become
+.B king by finding a
+.I crown
+and going to (0,0).  Players must have a
+.B level
+in the range of 10 to 1000 to be able to find a
+.I crown.
+When a player with one or more
+.I crowns
+reaches
+.B level
+1000, the
+.I crowns
+are converted to
+.I gold.
+.PP
+Once a player is king, he/she may do certain things while in 
+the Lord's Chamber (0,0).  These are exercised with the
+.B decree
+('0') option.
+.TP 1.5i
+.I transport
+This is done to another player.  It randomly moves the affected
+player about.  A
+.B charm
+protects from transports.
+.TP 1.5i
+.I curse
+This is done to another player.  It is analogous to cursed treasure,
+but worse.  It inflicts two
+.B poison,
+knocks
+.B energy level
+very low, and degrades the maximum energy.  It also
+removes a
+.B cloak.
+A
+.B blessing
+protects from king's curses.
+.TP 1.5i
+.I energy void
+The king may put a number of these scattered about
+his/her kingdom as he/she pleases.
+If a player hits one, he/she loses
+.B mana, energy,
+and
+.B gold.
+The energy void disappears after being hit.
+.TP 1.5i
+.I bestow
+This is also done to another player.  The king may
+wish to reward one or more loyal subjects by sharing his/her
+riches (
+.B gold
+).  Or it is a convenient way to dispose of some unwanted
+deadweight.
+.TP 1.5i
+.I collect taxes
+Everyone pays 7% tax on all
+.B gold
+and
+.B gems
+acquired, regardless of the existence of a
+.B king.
+The king collects the accrued taxes with this option.
+.PP
+The
+.B king
+may also 
+.B teleport
+anywhere for free by using the origin as a starting place.
+.sh "Council of the Wise, Valar"
+A player automatically becomes a member of the
+.B council of the wise
+upon reaching level 3000.  Members of the council cannot have
+.B rings.
+Members of the council have a few extra options which they can exercise.
+These are exercised
+.B intervene
+('8') option.
+All
+.B intervene
+options cost 1000 mana.
+One
+.B intervene
+option is to
+.I heal
+another player.  This is just a quick way for that player to be rested
+to maximum and lose a little
+.B poison.
+The main purpose in life for members of the council is to seek the
+.B Holy Grail.
+This is done with a
+.B palantir
+under the
+.I seek grail
+option.  The distance cited by the seek is accurate within 10%, in order
+not to make it too easy to find the grail.
+A player must have infinitesimally small
+.B sin,
+or else it's all over upon finding the grail.
+In order to help members of the council on their quest, they
+may
+.I teleport
+with greater ease.
+.PP
+Upon finding the grail, the player advances to position of
+.B valar.
+He/she may then exercise more and niftier options under
+.I intervention.
+These include all of the council members' options plus the
+ability to move other players about, bless them, and throw monsters at
+them.
+A
+.BR valar 's
+blessing has the same effect as the treasure
+.I blessing,
+except that the affected player does not get his/her
+.I blessing
+flag set.
+All
+.I intervention
+options which affect other players age the player
+who uses them.
+.B Valars
+are essentially immortal, but are actually given five lives.
+If these are used up, the player is left to die, and becomes an
+.B ex-valar.
+A 
+.B valar
+cannot
+.I move, teleport,
+or call monsters.
+(An exception to this is if the
+.I valar
+finds a
+.I transporter.
+This is to allow him/her to dispose of excess
+.I gold.
+Any monsters which a
+.B valar
+encounters are based upon his/her size.
+Only one valar may exist at a time.
+The current valar is replaced when another player finds the grail.
+The valar is then bumped back to the council of the wise.
+.sh "Wizard"
+The
+.I wizard
+is usually the owner of the game, and the one who maintains
+the associated files.
+The
+.I wizard
+is granted special powers within the game, if it is invoked
+with the '\-S' option.
+Otherwise, the
+.I wizard
+plays no different from other players.
+The
+.I wizard
+abilities are outlined below.
+.TP
+.I change players
+When examining a player, (game invoked with '-x', or use 'X' from within game),
+the
+.I wizard
+may also change the player.
+.TP
+.I intervention
+The
+.I wizard
+may do all the
+.I intervention
+options.  One extra option,
+.I vaporize,
+is added to kill any offensive players.
+.TP
+.I super character type
+An extra character type is added.  This character starts with the
+maximum possible in all statistics, selected from the other character types.
+A
+.B super
+character's statistics also progress at the maximum possible rate, selected
+from the other character types.
+.sh "Special Places"
+Certain regions of the playing grid have different names.
+In general, this is only to give the player some idea of
+his/her present location.  Some special places do exist.
+.TP 1.5i
+.I Trading Posts
+These are located at |x| == |y| == n*n*100 for n = 1, 2...1000.
+Trading posts farther out have more things for sale.
+Be careful about cheating the merchants there, as they have short
+tempers.
+Merchants are dishonest about 5% of the time.
+.TP 1.5i
+.I Lord's Chamber
+This is located at (0,0).  Only players with
+.B crowns
+may enter.
+.TP 1.5i
+.I Point of No Return
+This is located beyond 1.2e+6 in any direction.
+The only way to return from here is a
+.B transporter
+or to have a
+.B valar
+relocate the player.
+.TP 1.5i
+.I Dead Marshes
+This is a band located fairly distant from the origin.	The first
+fourteen monsters (water monsters) can normally only be found here.
+.TP 1.5i
+.I Valhala
+This place is where the
+.B valar
+resides.  It is associated with no particular coordinate on the
+playing grid.
+.TP 1.5i
+.sh "Miscellaneous"
+Once a player reaches
+.B level
+5, the game will start to time out waiting for input.
+This is to try to keep the game a bit faster paced.
+.PP
+A
+.I guru
+will never be disgusted with your
+.B sins
+if they are less than one.
+.PP
+A
+.I medic
+wants half of a player's
+.B gold
+to be happy.  Offering more than one has, or a negative amount
+will anger the
+.I medic,
+who will make the player worse (add one
+.B poison
+).
+.PP
+The
+.B Holy Grail
+does little for those who are not ready to behold it.
+Whenever anyone finds it, it moves.
+It is always located within 1e+6 in any compass direction of the origin.
+.PP
+There is a maximum amount of
+.B mana
+and
+.B charms
+a player may posses, based upon
+.B level.
+.I Quicksilver
+is always limited to to a maximum of 99.
+.PP
+.I Books
+bought at a
+.B trading post
+increase 
+.B brains,
+based upon the number bought.
+It is unwise, however to buy more than 1/10 of one's
+.B level
+in books at a time.
+.PP
+Players over level 10000 are automatically retired.
+.PP
+A
+.I blindness
+goes away in random time.
+.PP
+Players with
+.I crowns
+are identified with a '*' before their character type.
+.sh "Inter-terminal Battle"
+When two player's coordinates correspond, they may engage in battle.
+In general, the player with the highest
+.B quickness
+gets the first hit.
+If the two players are severely mis-matched, the stronger player
+is drastically handicapped for the battle.
+In order to protect from being stuck in an infinite loop,
+the player waiting for response may time out.  Options for battle are:
+.TP 1.5i
+.I fight
+Inflicts damage upon other person.
+.TP 1.5i
+.I run away
+Escape from battle.  Has a 75% chance of working.
+.TP 1.5i
+.I power blast
+Battle spell.
+.TP 1.5i
+.I luckout
+One-time chance to try to win against the foe.	Has a 10% chance of working.
+.PP
+Sometimes waits for the other player may be excessive, because
+he/she may be battling a monster.  Upon slaying a player in battle
+the winner gets the other's
+.B experience
+and treasures.
+.B Rings
+do not work for inter-terminal battle.
+.SH BUGS
+All screen formats assume at least 24 lines by at least 80 columns.
+No provisions are made for when any of the data items get too big
+for the allotted space on the screen.
diff --git a/games/phantasia/phantdefs.h b/games/phantasia/phantdefs.h
new file mode 100644
index 0000000..9e597e5
--- /dev/null
+++ b/games/phantasia/phantdefs.h
@@ -0,0 +1,139 @@
+/*
+ * phantdefs.h - important constants for Phantasia
+ */
+
+/* ring constants */
+#define R_NONE		0		/* no ring */
+#define R_NAZREG	1		/* regular Nazgul ring (expires) */
+#define R_DLREG		2		/* regular Dark Lord ring (does not expire) */
+#define R_BAD		3		/* bad ring */
+#define R_SPOILED 	4		/* ring which has gone bad */
+
+/* status constants */
+#define	S_NOTUSED	0		/* record not in use */
+#define S_OFF		1		/* not playing */
+#define S_PLAYING	2		/* playing - nothing else */
+#define S_CLOAKED	3		/* playing - cloaked */
+#define S_INBATTLE	4		/* playing - in battle */
+#define S_MONSTER	5		/* playing - fighting monster */
+#define	S_TRADING	6		/* playing - at a trading post */
+#define	S_HUNGUP	7		/* error occured with character */
+
+/* tampered constants */
+#define T_OFF		0		/* nothing */
+#define T_NRGVOID	1		/* hit an energy void */
+#define T_GRAIL		2		/* landed on the holy grail */
+#define T_TRANSPORT	3		/* transported by king */
+#define T_BESTOW	4		/* gold bestowed by king */
+#define T_CURSED	5		/* cursed by king */
+#define T_MONSTER	6		/* monster lobbed by valar */
+#define T_BLESSED	7		/* blessed by valar */
+#define T_RELOCATE	8		/* moved by valar */
+#define T_HEAL		9		/* healed by valar */
+#define T_VAPORIZED	10		/* vaporized by wizard */
+#define T_EXVALAR	11		/* no longer valar */
+
+/* inter-terminal battle status constants */
+#define	I_OFF		0		/* nothing */
+#define	I_RAN		1		/* ran away */
+#define	I_STUCK		2		/* tried to run unsuccessfully */
+#define	I_BLEWIT	3		/* tried to luckout unsuccessfully */
+#define	I_KILLED	4		/* killed foe */
+
+/* constants for altering coordinates */
+#define	A_SPECIFIC	0		/* coordinates specified */
+#define	A_FORCED	1		/* coordinates specified, ignore Beyond */
+#define A_NEAR		2		/* coordinates not specified, move near */
+#define A_FAR		3		/* coordinates not specified, move far */
+
+/* constants for character types */
+#define C_MAGIC		0		/* magic user */
+#define C_FIGHTER	1		/* fighter */
+#define C_ELF		2		/* elf */
+#define C_DWARF		3		/* dwarf */
+#define C_HALFLING	4		/* halfling */
+#define C_EXPER		5		/* experimento */
+#define C_SUPER		6		/* super being */
+
+/* constants for special character types */
+#define SC_NONE		0		/* not a special character */
+#define	SC_KING		1		/* king */
+#define SC_COUNCIL	2		/* council of the wise */
+#define SC_VALAR	3		/* valar */
+#define SC_EXVALAR	4		/* ex-valar */
+
+/* special monster constants */
+#define	SM_NONE		0		/* nothing special */
+#define	SM_UNICORN	1		/* unicorn */
+#define	SM_MODNAR	2		/* Modnar */
+#define	SM_MIMIC	3		/* mimic */
+#define	SM_DARKLORD	4		/* Dark Lord */
+#define	SM_LEANAN	5		/* Leanan-Sidhe */
+#define	SM_SARUMAN	6		/* Saruman */
+#define	SM_THAUMATURG	7		/* thaumaturgist */
+#define	SM_BALROG	8		/* balrog */
+#define	SM_VORTEX	9		/* vortex */
+#define SM_NAZGUL	10		/* nazgul */
+#define	SM_TIAMAT	11		/* Tiamat */
+#define	SM_KOBOLD	12		/* kobold */
+#define	SM_SHELOB	13		/* Shelob */
+#define	SM_FAERIES	14		/* assorted faeries */
+#define	SM_LAMPREY	15		/* lamprey */
+#define	SM_SHRIEKER	16		/* shrieker */
+#define	SM_BONNACON	17		/* bonnacon */
+#define	SM_SMEAGOL	18		/* Smeagol */
+#define	SM_SUCCUBUS	19		/* succubus */
+#define	SM_CERBERUS	20		/* Cerberus */
+#define	SM_UNGOLIANT	21		/* Ungoliant */
+#define	SM_JABBERWOCK	22		/* jabberwock */
+#define	SM_MORGOTH	23		/* Morgoth */
+#define	SM_TROLL	24		/* troll */
+#define	SM_WRAITH	25		/* wraith */
+
+/* constants for spells */
+#define	ML_ALLORNOTHING	0.0		/* magic level for 'all or nothing' */
+#define MM_ALLORNOTHING	1.0		/* mana used for 'all or nothing' */
+#define	ML_MAGICBOLT	5.0		/* magic level for 'magic bolt' */
+#define	ML_FORCEFIELD	15.0		/* magic level for 'force field' */
+#define	MM_FORCEFIELD	30.0		/* mana used for 'force field' */
+#define	ML_XFORM	25.0		/* magic level for 'transform' */
+#define	MM_XFORM	50.0		/* mana used for 'transform' */
+#define	ML_INCRMIGHT	35.0		/* magic level for 'increase might' */
+#define	MM_INCRMIGHT	75.0		/* mana used for 'increase might' */
+#define	ML_INVISIBLE	45.0		/* magic level for 'invisibility' */
+#define	MM_INVISIBLE	90.0		/* mana used for 'invisibility' */
+#define	ML_XPORT	60.0		/* magic level for 'transport' */
+#define	MM_XPORT	125.0		/* mana used for 'transport' */
+#define	ML_PARALYZE	75.0		/* magic level for 'paralyze' */
+#define	MM_PARALYZE	150.0		/* mana used for 'paralyze' */
+#define	MM_SPECIFY	1000.0		/* mana used for 'specify' */
+#define ML_CLOAK	20.0		/* magic level for 'cloak' */
+#define	MEL_CLOAK	7.0		/* experience level for 'cloak' */
+#define	MM_CLOAK	35.0		/* mana used for 'cloak' */
+#define	ML_TELEPORT	40.0		/* magic level for 'teleport' */
+#define	MEL_TELEPORT	12.0		/* experience level for 'teleport' */
+#define	MM_INTERVENE	1000.0		/* mana used to 'intervene' */
+
+/* some miscellaneous constants */
+#define SZ_DATABUF	100		/* size of input buffer */
+#define	SZ_PLAYERSTRUCT	sizeof(struct player) /* size of player structure */
+#define	SZ_VOIDSTRUCT	sizeof(struct energyvoid) /* size of energy void struct */
+#define	SZ_SCORESTRUCT	sizeof(struct scoreboard) /* size of score board entry */
+#define	SZ_MONSTERSTRUCT sizeof(struct monster) /* size of monster structure */
+#define	SZ_NAME		21		/* size of player name (incl. trailing nul) */
+#define	SZ_PASSWORD	9		/* size of password (incl. trailing nul) */
+#define	SZ_LOGIN	9		/* size of login (incl. trailing nul) */
+
+#define N_DAYSOLD	21		/* number of days old for purge */
+#define N_AGE		500		/* age to degenerate ratio */
+#define	N_GEMVALUE	(1000.0)	/* number of gold pieces to gem ratio */
+#define	N_TAXAMOUNT	(7.0)		/* tax percent */
+
+#define	D_BEYOND	(1.1e6)		/* distance to beyond point of no return */
+#define D_EXPER		(2000.0)	/* distance experimentos are allowed */
+
+#define	CH_MARKDELETE	'\001'		/* used to alter name of deleted players */
+#define	CH_KILL		'\030'		/* kill character (ctrl-X) */
+#define	CH_ERASE	'\010'		/* erase character (ctrl-H) */
+#define	CH_NEWLINE	'\n'		/* newline */
+#define	CH_REDRAW	'\014'		/* redraw screen character (ctrl-L) */
diff --git a/games/phantasia/phantglobs.c b/games/phantasia/phantglobs.c
new file mode 100644
index 0000000..65ab630
--- /dev/null
+++ b/games/phantasia/phantglobs.c
@@ -0,0 +1,113 @@
+/*
+ * phantglobs.c - globals for Phantasia
+ */
+
+#include "include.h"
+
+double	Circle;		/* which circle player is in			*/
+double	Shield;		/* force field thrown up in monster battle	*/
+
+bool	Beyond;		/* set if player is beyond point of no return	*/
+bool	Marsh;		/* set if player is in dead marshes		*/
+bool	Throne;		/* set if player is on throne			*/
+bool	Changed;	/* set if important player stats have changed	*/
+bool	Wizard;		/* set if player is the 'wizard' of the game	*/
+bool	Timeout;	/* set if short timeout waiting for input	*/
+bool	Windows;	/* set if we are set up for curses stuff	*/
+bool	Luckout;	/* set if we have tried to luck out in fight	*/
+bool	Foestrikes;	/* set if foe gets a chance to hit in battleplayer()	*/
+bool	Echo;		/* set if echo input to terminal		*/
+
+int	Users;		/* number of users currently playing		*/
+int	Whichmonster;	/* which monster we are fighting		*/
+int	Lines;		/* line on screen counter for fight routines	*/
+
+jmp_buf Fightenv;	/* used to jump into fight routine		*/
+jmp_buf Timeoenv;	/* used for timing out waiting for input	*/
+
+long	Fileloc;	/* location in file of player statistics	*/
+
+char	*Login;		/* pointer to login of player			*/
+char	*Enemyname;	/* pointer name of monster/player we are battling*/
+
+struct	player	Player;	/* stats for player				*/
+struct	player	Other;	/* stats for another player			*/
+
+struct	monster	Curmonster;/* stats for current monster			*/
+
+struct	energyvoid Enrgyvoid;/* energy void buffer			*/
+
+struct	charstats *Statptr;/* pointer into Stattable[]			*/
+
+/* lookup table for character type dependent statistics */
+struct	charstats Stattable[7] =
+	{
+	/* MAGIC USER */
+	/* max brains, max mana, weakness, gold tote, ring duration */
+	15.0, 200.0, 18.0, 175.0, 10,
+	/* quickness strength     mana         energy       brains       magic lvl */
+	30, 6, 0.0,  10, 6, 2.0,  50,51,75.0,  30,16,20.0,  60,26, 6.0,	 5, 5,2.75,
+
+	/* FIGHTER */
+	/* max brains, max mana, weakness, gold tote, ring duration */
+	10.0, 110.0, 15.0, 220.0, 20,
+	/* quickness strength     mana         energy       brains       magic lvl */
+	30, 6, 0.0,  40,16, 3.0,  30,21,40.0,  45,26,30.0,  25,21, 3.0,	 3, 4, 1.5,
+
+	/* ELF */
+	/* max brains, max mana, weakness, gold tote, ring duration */
+	12.0, 150.0, 17.0, 190.0, 13,
+	/* quickness strength     mana         energy       brains       magic lvl */
+	32, 7, 0.0,  35,11, 2.5,  45,46,65.0,  30,21,25.0,  40,26, 4.0,	 4, 4, 2.0,
+
+	/* DWARF */
+	/* max brains, max mana, weakness, gold tote, ring duration */
+	7.0, 80.0, 13.0, 255.0,  25,
+	/* quickness strength     mana         energy       brains       magic lvl */
+	25, 6, 0.0,  50,21, 5.0,  25,21,30.0,  60,41,35.0,  20,21, 2.5,	 2, 4, 1.0,
+
+	/* HALFLING */
+	/* max brains, max mana, weakness, gold tote, ring duration */
+	11.0, 80.0, 10.0, 125.0, 40,
+	/* quickness strength     mana         energy       brains       magic lvl */
+	34, 0, 0.0,  20, 6, 2.0,  25,21,30.0,  55,36,30.0,  40,36, 4.5,	 1, 4, 1.0,
+
+	/* EXPERIMENTO */
+	/* max brains, max mana, weakness, gold tote, ring duration */
+	9.0, 90.0, 16.0, 160.0, 20,
+	/* quickness strength     mana         energy       brains       magic lvl */
+	27, 0, 0.0,  25, 0, 0.0,  100,0, 0.0,  35, 0, 0.0,  25, 0, 0.0,	 2, 0, 0.0,
+
+	/* SUPER */
+	/* max brains, max mana, weakness, gold tote, ring duration */
+	15.0, 200.0, 10.0, 225.0, 40,
+	/* quickness strength     mana         energy       brains       magic lvl */
+	38, 0, 0.0,  65, 0, 5.0,  100,0,75.0,  80, 0,35.0,  85, 0, 6.0,	 9, 0,2.75
+	};
+
+/* menu of items for purchase */
+struct menuitem	Menu[] =
+    {
+    "Mana", 1,
+    "Shield", 5,
+    "Book", 200,
+    "Sword", 500,
+    "Charm", 1000,
+    "Quicksilver", 2500,
+    "Blessing", 1000,
+    };
+
+FILE	*Playersfp;	/* pointer to open player file			*/
+FILE	*Monstfp;	/* pointer to open monster file			*/
+FILE	*Messagefp;	/* pointer to open message file			*/
+FILE	*Energyvoidfp;	/* pointer to open energy void file		*/
+
+char	Databuf[SZ_DATABUF];	/* a place to read data into		*/
+
+/* some canned strings for messages */
+char	Illcmd[] = "Illegal command.\n";
+char	Illmove[] = "Too far.\n";
+char	Illspell[] = "Illegal spell.\n";
+char	Nomana[] = "Not enought mana for that spell.\n";
+char	Somebetter[] = "But you already have something better.\n";
+char	Nobetter[] = "That's no better than what you already have.\n";
diff --git a/games/phantasia/phantglobs.h b/games/phantasia/phantglobs.h
new file mode 100644
index 0000000..4a10cc9
--- /dev/null
+++ b/games/phantasia/phantglobs.h
@@ -0,0 +1,86 @@
+/*
+ * phantglobs.h - global declarations for Phantasia
+ */
+
+extern	double	Circle;		/* which circle player is in			*/
+extern	double	Shield;		/* force field thrown up in monster battle	*/
+
+extern	bool	Beyond;		/* set if player is beyond point of no return	*/
+extern	bool	Marsh;		/* set if player is in dead marshes		*/
+extern	bool	Throne;		/* set if player is on throne			*/
+extern	bool	Changed;	/* set if important player stats have changed	*/
+extern	bool	Wizard;		/* set if player is the 'wizard' of the game	*/
+extern	bool	Timeout;	/* set if short timeout waiting for input	*/
+extern	bool	Windows;	/* set if we are set up for curses stuff	*/
+extern	bool	Luckout;	/* set if we have tried to luck out in fight	*/
+extern	bool	Foestrikes;	/* set if foe gets a chance to hit in battleplayer()*/
+extern	bool	Echo;		/* set if echo input to terminal		*/
+
+extern	int	Users;		/* number of users currently playing		*/
+extern	int	Whichmonster;	/* which monster we are fighting		*/
+extern	int	Lines;		/* line on screen counter for fight routines	*/
+
+extern	jmp_buf Fightenv;	/* used to jump into fight routine		*/
+extern	jmp_buf Timeoenv;	/* used for timing out waiting for input	*/
+
+extern	long	Fileloc;	/* location in file of player statistics	*/
+
+extern	char	*Login;		/* pointer to login of current player		*/
+extern	char	*Enemyname;	/* pointer name of monster/player we are battling*/
+
+extern	struct player	Player;	/* stats for player				*/
+extern	struct player	Other;	/* stats for another player			*/
+
+extern	struct monster	Curmonster;/* stats for current monster			*/
+
+extern	struct energyvoid Enrgyvoid;/* energy void buffer			*/
+
+extern	struct charstats Stattable[];/* used for rolling and changing player stats*/
+
+extern	struct charstats *Statptr;/* pointer into Stattable[]			*/
+
+extern	struct menuitem	Menu[];	/* menu of items for purchase			*/
+
+extern	FILE	*Playersfp;	/* pointer to open player file			*/
+extern	FILE	*Monstfp;	/* pointer to open monster file			*/
+extern	FILE	*Messagefp;	/* pointer to open message file			*/
+extern	FILE	*Energyvoidfp;	/* pointer to open energy void file		*/
+
+extern	char	Databuf[];	/* a place to read data into			*/
+
+/* some canned strings for messages */
+extern	char	Illcmd[];
+extern	char	Illmove[];
+extern	char	Illspell[];
+extern	char	Nomana[];
+extern	char	Somebetter[];
+extern	char	Nobetter[];
+
+/* library functions and system calls */
+extern	long	time();
+extern	char	*getlogin();
+extern	char	*getpass();
+extern	char	*strchr();
+extern	char	*strcat();
+extern	char	*strcpy();
+extern	char	*strncpy();
+extern	char	*getenv();
+struct	passwd	*getpwuid();
+extern	char	*fgets();
+
+/* functions which we need to know about */
+extern	int	interrupt();
+extern	int	ill_sig();
+extern	void	catchalarm();
+extern	long	recallplayer();
+extern	long	findname();
+extern	long	allocrecord();
+extern	long	rollnewplayer();
+extern	long	allocvoid();
+extern	double	drandom();
+extern	double	distance();
+extern	double	infloat();
+extern	double	explevel();
+extern	char	*descrlocation();
+extern	char	*descrtype();
+extern	char	*descrstatus();
diff --git a/games/phantasia/phantstruct.h b/games/phantasia/phantstruct.h
new file mode 100644
index 0000000..05c6da5
--- /dev/null
+++ b/games/phantasia/phantstruct.h
@@ -0,0 +1,124 @@
+/*
+ * phantstruct.h - structure definitions for Phantasia
+ */
+
+struct	player	    	/* player statistics */
+    {
+    double	p_experience;	/* experience */
+    double	p_level;    	/* level */
+    double	p_strength;	/* strength */
+    double	p_sword;	/* sword */
+    double	p_might;	/* effect strength */
+    double	p_energy;	/* energy */
+    double	p_maxenergy;	/* maximum energy */
+    double	p_shield;	/* shield */
+    double	p_quickness;	/* quickness */
+    double	p_quksilver;	/* quicksilver */
+    double	p_speed;	/* effective quickness */
+    double	p_magiclvl;	/* magic level */
+    double	p_mana;		/* mana */
+    double	p_brains;	/* brains */
+    double	p_poison;	/* poison */
+    double	p_gold;		/* gold */
+    double	p_gems;		/* gems */
+    double	p_sin;		/* sin */
+    double	p_x;	    	/* x coord */
+    double	p_y;	    	/* y coord */
+    double	p_1scratch,
+		p_2scratch;	/* variables used for decree, player battle */
+
+    struct
+	{
+	short	ring_type;	/* type of ring */
+	short	ring_duration;	/* duration of ring */
+	bool	ring_inuse;	/* ring in use flag */
+	}	p_ring;	    	/* ring stuff */
+
+    long	p_age;		/* age of player */
+
+    int		p_degenerated;	/* age/3000 last degenerated */
+
+    short	p_type;		/* character type */
+    short	p_specialtype;	/* special character type */
+    short	p_lives;	/* multiple lives for council, valar */
+    short	p_crowns;	/* crowns */
+    short	p_charms;	/* charms */
+    short	p_amulets;	/* amulets */
+    short	p_holywater;   	/* holy water */
+    short	p_lastused;	/* day of year last used */
+    short	p_status;	/* playing, cloaked, etc. */
+    short	p_tampered;	/* decree'd, etc. flag */
+    short	p_istat;	/* used for inter-terminal battle */
+
+    bool	p_palantir;	/* palantir */
+    bool	p_blessing;	/* blessing */
+    bool	p_virgin;	/* virgin */
+    bool	p_blindness;	/* blindness */
+
+    char	p_name[SZ_NAME];	/* name */
+    char	p_password[SZ_PASSWORD];/* password */
+    char	p_login[SZ_LOGIN];	/* login */
+    };
+
+struct	monster	    	/* monster stats */
+    {
+    double	m_strength;	/* strength */
+    double	m_brains;	/* brains */
+    double	m_speed;	/* speed */
+    double	m_energy;	/* energy */
+    double	m_experience;	/* experience */
+    double	m_flock;    	/* % chance of flocking */
+
+    double	m_o_strength;	/* original strength */
+    double	m_o_speed;	/* original speed */
+    double	m_maxspeed;	/* maximum speed */
+    double	m_o_energy;	/* original energy */
+    double	m_melee;	/* melee damage */
+    double	m_skirmish;	/* skirmish damage */
+
+    int		m_treasuretype;	/* treasure type */
+    int		m_type;	    	/* special type */
+
+    char	m_name[26];	/* name */
+    };
+
+struct	energyvoid     	/* energy void */
+    {
+    double	ev_x;		/* x coordinate */
+    double	ev_y;		/* y coordinate */
+    bool	ev_active;	/* active or not */
+    };
+
+struct	scoreboard			/* scoreboard entry */
+    {
+    double	sb_level;		/* level of player */
+    char	sb_type[4];		/* character type of player */
+    char	sb_name[SZ_NAME];	/* name of player */
+    char	sb_login[SZ_LOGIN];	/* login of player */
+    };
+
+struct	charstats			/* character type statistics */
+    {
+    double	c_maxbrains;		/* max brains per level */
+    double	c_maxmana;		/* max mana per level */
+    double	c_weakness;		/* how strongly poison affects player */
+    double	c_goldtote;		/* how much gold char can carry */
+    int		c_ringduration;		/* bad ring duration */
+    struct
+	{
+	double	base;		/* base for roll */
+	double	interval;	/* interval for roll */
+	double	increase;	/* increment per level */
+	} c_quickness,		/* quickness */
+	  c_strength,		/* strength */
+	  c_mana,		/* mana */
+	  c_energy,		/* energy level */
+	  c_brains,		/* brains */
+	  c_magiclvl;		/* magic level */
+    };
+
+struct menuitem				/* menu item for purchase */
+    {
+    char	*item;		/* menu item name */
+    double	cost;		/* cost of item */
+    };
diff --git a/games/phantasia/setup.c b/games/phantasia/setup.c
new file mode 100644
index 0000000..f916727
--- /dev/null
+++ b/games/phantasia/setup.c
@@ -0,0 +1,261 @@
+/*
+ * setup.c - set up all files for Phantasia
+ */
+#include "include.h"
+#include <sys/types.h>
+#include <sys/stat.h>
+#include <stdlib.h>
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: main()
+/
+/ FUNCTION: setup files for Phantasia 3.3.2
+/
+/ AUTHOR: E. A. Estes, 12/4/85
+/
+/ ARGUMENTS: none
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: time(), exit(), stat(), Error(), creat(), close(), fopen(), 
+/	fgets(), floor(), srandom(), umask(), drandom(), strcpy(), getuid(), 
+/	unlink(), fwrite(), fclose(), sscanf(), printf(), strlen(), fprintf()
+/
+/ GLOBAL INPUTS: Curmonster, _iob[], Databuf[], *Monstfp, Enrgyvoid
+/
+/ GLOBAL OUTPUTS: Curmonster, Databuf[], *Monstfp, Enrgyvoid
+/
+/ DESCRIPTION: 
+/
+/	This program tries to verify the parameters specified in
+/	the Makefile.
+/
+/	Create all necessary files.  Note that nothing needs to be
+/	put in these files.
+/	Also, the monster binary data base is created here.
+/
+/************************************************************************/
+
+static char *files[] = {		/* all files to create */
+	_PATH_MONST,
+	_PATH_PEOPLE,
+	_PATH_MESS,
+	_PATH_LASTDEAD,
+	_PATH_MOTD,
+	_PATH_GOLD,
+	_PATH_VOID,
+	_PATH_SCORE,
+	NULL,
+};
+
+char *monsterfile="monsters.asc";
+
+int
+main(argc, argv)
+	int argc;
+	char *argv[];
+{
+	register char	**filename;	/* for pointing to file names */
+	register int	fd;		/* file descriptor */
+	FILE	*fp;			/* for opening files */
+	struct stat	fbuf;		/* for getting files statistics */
+	int ch;
+
+	while ((ch = getopt(argc, argv, "m:")) != EOF)
+		switch(ch) {
+		case 'm':
+			monsterfile = optarg;
+			break;
+		case '?':
+		default:
+			break;
+		}
+	argc -= optind;
+	argv += optind;
+
+    srandom((unsigned) time((long *) NULL));	/* prime random numbers */
+
+    umask(0117);		/* only owner can read/write created files */
+
+    /* try to create data files */
+    filename = &files[0];
+    while (*filename != NULL)
+	/* create each file */
+	{
+	if (stat(*filename, &fbuf) == 0)
+	    /* file exists; remove it */
+	    {
+	    if (!strcmp(*filename, _PATH_PEOPLE))
+		/* do not reset character file if it already exists */
+		{
+		++filename;
+		continue;
+		}
+
+	    if (unlink(*filename) < 0)
+		Error("Cannot unlink %s.\n", *filename);
+		/*NOTREACHED*/
+	    }
+
+	if ((fd = creat(*filename, 0660)) < 0)
+	    Error("Cannot create %s.\n", *filename);
+	    /*NOTREACHED*/
+
+	close(fd);			/* close newly created file */
+
+	++filename;			/* process next file */
+	}
+
+    /* put holy grail info into energy void file */
+    Enrgyvoid.ev_active = TRUE;
+    Enrgyvoid.ev_x = ROLL(-1.0e6, 2.0e6);
+    Enrgyvoid.ev_y = ROLL(-1.0e6, 2.0e6);
+    if ((fp = fopen(_PATH_VOID, "w")) == NULL)
+	Error("Cannot update %s.\n", _PATH_VOID);
+    else
+	{
+	fwrite(&Enrgyvoid, SZ_VOIDSTRUCT, 1, fp);
+	fclose(fp);
+	}
+
+    /* create binary monster data base */
+    if ((Monstfp = fopen(_PATH_MONST, "w")) == NULL)
+	Error("Cannot update %s.\n", _PATH_MONST);
+    else
+	{
+	if ((fp = fopen(monsterfile, "r")) == NULL)
+	    {
+	    fclose(Monstfp);
+	    Error("cannot open %s to create monster database.\n", "monsters.asc");
+	    }
+	else
+	    {
+	    Curmonster.m_o_strength =
+	    Curmonster.m_o_speed =
+	    Curmonster.m_maxspeed =
+	    Curmonster.m_o_energy =
+	    Curmonster.m_melee =
+	    Curmonster.m_skirmish = 0.0;
+
+	    while (fgets(Databuf, SZ_DATABUF, fp) != NULL)
+		/* read in text file, convert to binary */
+		{
+		sscanf(&Databuf[24], "%lf%lf%lf%lf%lf%d%d%lf",
+		    &Curmonster.m_strength, &Curmonster.m_brains,
+		    &Curmonster.m_speed, &Curmonster.m_energy,
+		    &Curmonster.m_experience, &Curmonster.m_treasuretype,
+		    &Curmonster.m_type, &Curmonster.m_flock);
+		Databuf[24] = '\0';
+		strcpy(Curmonster.m_name, Databuf);
+		fwrite((char *) &Curmonster, SZ_MONSTERSTRUCT, 1, Monstfp);
+		}
+	    fclose(fp);
+	    fclose(Monstfp);
+	    }
+	}
+
+#ifdef MAKE_INSTALLS_THIS_AND_DOESNT_WANT_TO_HEAR_ABOUT_IT
+    /* write to motd file */
+    printf("One line 'motd' ? ");
+    if (fgets(Databuf, SZ_DATABUF, stdin) == NULL)
+	Databuf[0] = '\0';
+    if ((fp = fopen(_PATH_MOTD, "w")) == NULL)
+	Error("Cannot update %s.\n", _PATH_MOTD);
+    else
+	{
+	fwrite(Databuf, sizeof(char), strlen(Databuf), fp);
+	fclose(fp);
+	}
+
+    /* report compile-time options */
+    printf("Compiled options:\n\n");
+    printf("Phantasia destination directory:  %s\n", _PATH_PHANTDIR);
+    printf("Wizard: root UID: 0\n");
+
+#ifdef BSD41
+    printf("Compiled for BSD 4.1\n");
+#endif
+
+#ifdef BSD42
+    printf("Compiled for BSD 4.2\n");
+#endif
+
+#ifdef SYS3
+    printf("Compiled for System III\n");
+#endif
+
+#ifdef SYS5
+    printf("Compiled for System V\n");
+#endif
+#endif
+
+    exit(0);
+    /*NOTREACHED*/
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: Error()
+/
+/ FUNCTION: print an error message, and exit
+/
+/ AUTHOR: E. A. Estes, 12/4/85
+/
+/ ARGUMENTS:
+/	char *str - format string for printf()
+/	char *file - file which caused error
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: exit(), perror(), fprintf()
+/
+/ GLOBAL INPUTS: _iob[]
+/
+/ GLOBAL OUTPUTS: none
+/
+/ DESCRIPTION:
+/	Print an error message, then exit.
+/
+/************************************************************************/
+
+Error(str, file)
+char	*str, *file;
+{
+    fprintf(stderr, "Error: ");
+    fprintf(stderr, str, file);
+    perror(file);
+    exit(1);
+    /*NOTREACHED*/
+}
+/**/
+/************************************************************************
+/
+/ FUNCTION NAME: drandom()
+/
+/ FUNCTION: return a random number
+/
+/ AUTHOR: E. A. Estes, 2/7/86
+/
+/ ARGUMENTS: none
+/
+/ RETURN VALUE: none
+/
+/ MODULES CALLED: random()
+/
+/ GLOBAL INPUTS: none
+/
+/ GLOBAL OUTPUTS: none
+/
+/ DESCRIPTION: 
+/
+/************************************************************************/
+
+double
+drandom()
+{
+    if (sizeof(int) != 2)
+	return((double) (random() & 0x7fff) / 32768.0);
+    else
+	return((double) random() / 32768.0);
+}
diff --git a/games/pig/Makefile b/games/pig/Makefile
new file mode 100644
index 0000000..f1ab583
--- /dev/null
+++ b/games/pig/Makefile
@@ -0,0 +1,6 @@
+#	@(#)Makefile	8.1 (Berkeley) 5/31/93
+
+PROG=	pig
+MAN6=	pig.6
+
+.include <bsd.prog.mk>
diff --git a/games/pig/pig.6 b/games/pig/pig.6
new file mode 100644
index 0000000..bd1d5a7
--- /dev/null
+++ b/games/pig/pig.6
@@ -0,0 +1,48 @@
+.\" Copyright (c) 1992 The Regents of the University of California.
+.\" All rights reserved.
+.\"
+.\" Redistribution and use in source and binary forms, with or without
+.\" modification, are permitted provided that the following conditions
+.\" are met:
+.\" 1. Redistributions of source code must retain the above copyright
+.\"    notice, this list of conditions and the following disclaimer.
+.\" 2. Redistributions in binary form must reproduce the above copyright
+.\"    notice, this list of conditions and the following disclaimer in the
+.\"    documentation and/or other materials provided with the distribution.
+.\" 3. All advertising materials mentioning features or use of this software
+.\"    must display the following acknowledgement:
+.\"	This product includes software developed by the University of
+.\"	California, Berkeley and its contributors.
+.\" 4. Neither the name of the University nor the names of its contributors
+.\"    may be used to endorse or promote products derived from this software
+.\"    without specific prior written permission.
+.\"
+.\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+.\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+.\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+.\" ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+.\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+.\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+.\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+.\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+.\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+.\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+.\" SUCH DAMAGE.
+.\"
+.\"	@(#)pig.6	8.1 (Berkeley) 6/10/93
+.\"
+.Dd "June 10, 1993"
+.Dt PIG 6
+.Os
+.Sh NAME
+.Nm pig
+.Nd eformatray inputway asway Igpay Atinlay
+.Sh SYNOPSIS
+.Nm pig
+.Sh DESCRIPTION
+Ethay
+.Nm igpay
+utilityway eadsray ethay andardstay inputway andway iteswray itway
+outway otay andardstay outputway inway Igpay Atinlay.
+.Pp
+Usefulway orfay eneratinggay onthlymay eportsray.
diff --git a/games/pig/pig.c b/games/pig/pig.c
new file mode 100644
index 0000000..3fbd514
--- /dev/null
+++ b/games/pig/pig.c
@@ -0,0 +1,126 @@
+/*-
+ * Copyright (c) 1992, 1993
+ *	The Regents of the University of California.  All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the University of
+ *	California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ */
+
+#ifndef lint
+static char copyright[] =
+"@(#) Copyright (c) 1992, 1993\n\
+	The Regents of the University of California.  All rights reserved.\n";
+#endif /* not lint */
+
+#ifndef lint
+static char sccsid[] = "@(#)pig.c	8.1 (Berkeley) 5/31/93";
+#endif /* not lint */
+
+#include <sys/types.h>
+
+#include <ctype.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+
+void pigout __P((char *, int));
+void usage __P((void));
+
+int
+main(argc, argv)
+	int argc;
+	char *argv[];
+{
+	register int len;
+	int ch;
+	char buf[1024];
+
+	while ((ch = getopt(argc, argv, "")) != EOF)
+		switch(ch) {
+		case '?':
+		default:
+			usage();
+		}
+	argc -= optind;
+	argv += optind;
+
+	for (len = 0; (ch = getchar()) != EOF;) {
+		if (isalpha(ch)) {
+			if (len >= sizeof(buf)) {
+				(void)fprintf(stderr, "pig: ate too much!\n");
+				exit(1);
+			}
+			buf[len++] = ch;
+			continue;
+		}
+		if (len != 0) {
+			pigout(buf, len);
+			len = 0;
+		}
+		(void)putchar(ch);
+	}
+	exit(0);
+}
+
+void
+pigout(buf, len)
+	char *buf;
+	int len;
+{
+	register int ch, start;
+	int olen;
+
+	/*
+	 * If the word starts with a vowel, append "way".  Don't treat 'y'
+	 * as a vowel if it appears first.
+	 */
+	if (index("aeiouAEIOU", buf[0]) != NULL) {
+		(void)printf("%.*sway", len, buf);
+		return;
+	}
+
+	/*
+	 * Copy leading consonants to the end of the word.  The unit "qu"
+	 * isn't treated as a vowel.
+	 */
+	for (start = 0, olen = len;
+	    !index("aeiouyAEIOUY", buf[start]) && start < olen;) {
+		ch = buf[len++] = buf[start++];
+		if ((ch == 'q' || ch == 'Q') && start < olen &&
+		    (buf[start] == 'u' || buf[start] == 'U'))
+			buf[len++] = buf[start++];
+	}
+	(void)printf("%.*say", olen, buf + start);
+}
+
+void
+usage()
+{
+	(void)fprintf(stderr, "usage: pig\n");
+	exit(1);
+}
diff --git a/games/primes/Makefile b/games/primes/Makefile
new file mode 100644
index 0000000..edf216f
--- /dev/null
+++ b/games/primes/Makefile
@@ -0,0 +1,9 @@
+#	@(#)Makefile	8.1 (Berkeley) 5/31/93
+
+PROG=	primes
+SRCS=	pattern.c pr_tbl.c primes.c
+NOMAN=	noman
+DPADD=	${LIBM}
+LDADD=	-lm
+
+.include <bsd.prog.mk>
diff --git a/games/primes/pattern.c b/games/primes/pattern.c
new file mode 100644
index 0000000..5d65dab
--- /dev/null
+++ b/games/primes/pattern.c
@@ -0,0 +1,440 @@
+/*
+ * Copyright (c) 1989, 1993
+ *	The Regents of the University of California.  All rights reserved.
+ *
+ * This code is derived from software contributed to Berkeley by
+ * Landon Curt Noll.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the University of
+ *	California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ */
+
+#ifndef lint
+static char sccsid[] = "@(#)pattern.c	8.1 (Berkeley) 5/31/93";
+#endif /* not lint */
+
+/*
+ * pattern - the Eratosthenes sieve on odd numbers for 3,5,7,11 and 13
+ *
+ * By: Landon Curt Noll                             chongo@toad.com
+ *
+ *   chongo <for a good prime call: 391581 * 2^216193 - 1> /\oo/\
+ *
+ * To avoid excessive sieves for small factors, we use the table below to 
+ * setup our sieve blocks.  Each element represents a odd number starting 
+ * with 1.  All non-zero elements are factors of 3, 5, 7, 11 and 13.
+ */
+
+char pattern[] = {
+1,0,0,0,0,0,0,0,1,1,0,1,0,0,1,1,0,0,1,0,1,1,0,1,0,0,1,0,0,1,1,0,0,1,0,1,1,0,0,
+1,0,1,0,0,1,0,0,0,1,0,1,1,0,1,1,0,1,0,0,0,0,0,0,1,0,1,0,0,1,1,0,0,0,0,1,1,0,0,
+1,0,0,1,0,1,0,0,1,0,0,1,1,0,0,0,0,1,1,0,1,1,0,0,0,0,0,1,0,0,0,0,0,1,0,1,1,0,1,
+0,0,1,1,0,0,0,0,1,0,0,1,0,0,1,0,0,1,1,0,0,1,0,1,1,0,0,1,0,1,0,0,0,0,0,0,1,0,1,
+1,0,1,0,0,1,0,0,0,1,0,0,1,0,0,0,0,1,1,0,1,0,0,1,1,0,0,1,0,0,1,0,0,1,0,1,0,0,1,
+1,0,0,1,0,1,0,0,0,1,0,0,0,0,1,1,0,0,0,0,1,1,0,1,1,0,1,0,0,1,0,0,0,1,0,1,1,0,1,
+0,0,0,0,0,1,0,0,0,1,0,1,1,0,0,1,0,1,0,0,1,0,0,0,0,0,1,1,0,1,1,0,0,0,0,0,1,0,0,
+1,0,1,0,0,1,0,0,1,0,0,1,1,0,0,1,0,0,0,0,1,1,0,1,0,0,1,1,0,0,1,0,0,1,0,1,1,0,0,
+0,0,1,1,0,0,0,0,1,1,0,1,0,0,1,0,0,1,1,0,0,1,0,0,1,0,1,0,0,1,0,0,0,1,0,0,1,0,1,
+1,0,0,1,0,1,0,0,1,0,0,0,1,0,1,1,0,0,1,0,1,0,0,0,1,0,0,1,0,1,0,0,0,1,0,1,0,0,1,
+0,0,0,1,0,0,0,0,1,1,0,0,0,0,1,1,0,0,1,0,1,1,0,1,1,0,0,0,0,1,1,0,0,0,0,1,1,0,1,
+1,0,1,0,0,0,0,0,0,1,0,1,1,0,1,0,0,1,0,0,1,1,0,0,1,0,1,0,0,0,1,0,0,0,0,1,0,0,0,
+1,0,1,1,0,1,0,0,1,0,0,0,1,0,0,1,0,1,0,0,1,0,0,1,0,0,1,1,0,0,1,0,0,1,0,1,1,0,1,
+0,0,1,1,0,0,0,0,1,1,0,1,1,0,0,0,0,1,1,0,0,0,0,1,1,0,0,1,0,1,0,0,0,1,0,0,1,0,1,
+1,0,1,0,0,1,0,0,1,0,0,0,1,0,1,1,0,0,1,0,0,0,0,1,0,0,0,1,0,1,1,0,0,1,0,1,0,0,0,
+1,0,0,0,0,1,0,0,1,1,0,1,0,0,0,1,0,0,1,0,0,1,0,1,1,0,1,0,0,1,1,0,0,1,0,1,0,0,1,
+1,0,0,0,0,1,0,0,0,0,0,1,1,0,1,1,0,1,0,0,1,1,0,0,1,0,1,1,0,1,0,0,0,0,0,1,1,0,0,
+1,0,0,1,0,0,0,0,1,0,0,1,0,0,0,1,0,1,1,0,1,1,0,1,0,0,0,1,0,0,1,0,0,0,0,0,1,0,1,
+0,0,1,1,0,0,0,0,0,1,0,1,1,0,1,0,0,1,0,0,0,1,0,1,1,0,1,1,0,0,0,0,0,1,0,0,0,0,1,
+1,0,1,1,0,1,0,0,1,1,0,0,0,0,1,1,0,1,0,0,1,0,0,0,1,0,0,1,0,1,1,0,0,1,0,1,0,0,1,
+0,0,0,1,0,1,0,0,1,1,0,1,0,0,0,1,0,0,1,0,1,0,0,1,1,0,1,0,0,1,1,0,0,1,0,0,1,0,1,
+0,0,1,0,0,1,0,0,0,1,0,0,1,0,1,1,0,0,0,0,1,1,0,0,0,0,1,1,0,1,1,0,0,0,0,1,1,0,0,
+1,0,1,1,0,0,0,0,1,0,0,1,1,0,0,1,0,1,1,0,0,1,0,1,0,0,1,0,0,0,1,0,0,1,0,1,1,0,0,
+0,0,0,1,0,0,0,0,1,0,0,1,1,0,1,0,0,1,1,0,0,0,0,0,1,0,1,1,0,1,0,0,0,1,0,0,1,0,1,
+1,0,1,1,0,0,0,0,1,1,0,0,0,0,1,0,0,1,1,0,1,0,0,1,1,0,0,1,0,1,1,0,0,0,0,1,0,0,1,
+1,0,0,1,0,1,0,0,0,0,0,1,0,0,1,0,0,0,1,0,0,1,0,1,1,0,1,0,0,0,1,0,0,1,0,1,0,0,1,
+1,0,1,0,0,1,0,0,0,1,0,0,1,0,0,1,0,1,0,0,1,1,0,0,1,0,1,1,0,1,1,0,0,0,0,1,0,0,0,
+0,0,1,1,0,1,0,0,0,0,0,1,1,0,0,1,0,1,1,0,1,0,0,1,0,0,1,1,0,0,0,0,0,1,0,0,1,0,1,
+0,0,0,0,0,0,0,0,1,1,0,1,1,0,1,0,0,0,1,0,0,1,0,1,0,0,1,1,0,1,0,0,0,1,0,0,1,0,0,
+1,0,1,1,0,1,0,0,1,1,0,0,1,0,1,1,0,1,0,0,0,0,0,1,1,0,0,0,0,0,1,0,0,1,0,1,0,0,1,
+1,0,0,1,0,1,0,0,1,0,0,1,0,0,1,1,0,0,1,0,1,1,0,0,1,0,1,0,0,1,0,0,0,1,0,1,1,0,1,
+1,0,1,0,0,0,0,0,0,1,0,1,0,0,1,1,0,0,0,0,1,1,0,0,1,0,0,1,0,1,1,0,0,0,0,1,1,0,0,
+0,0,1,1,0,1,0,0,0,0,0,0,1,0,0,0,0,1,1,0,1,1,0,1,0,0,1,1,0,0,1,0,0,0,0,1,0,0,1,
+0,0,1,1,0,0,0,0,1,1,0,0,1,0,1,0,0,1,0,0,0,1,0,1,1,0,1,0,0,1,0,0,0,1,0,0,1,0,0,
+0,0,1,1,0,1,0,0,1,1,0,0,1,0,0,1,0,1,1,0,1,0,0,1,1,0,0,1,0,1,1,0,0,1,0,0,0,0,1,
+1,0,0,0,0,1,0,0,1,1,0,1,0,0,1,0,0,0,1,0,1,1,0,1,0,0,0,0,0,1,1,0,0,1,0,1,1,0,0,
+1,0,1,0,0,1,0,0,0,0,0,1,1,0,1,1,0,1,0,0,0,1,0,0,1,0,1,0,0,1,1,0,0,0,0,1,1,0,0,
+1,0,0,0,0,1,0,0,1,0,0,1,1,0,0,1,0,1,1,0,1,1,0,0,0,0,1,1,0,0,0,0,0,1,0,1,0,0,1,
+0,0,1,1,0,0,0,0,0,1,0,1,0,0,1,0,0,1,1,0,0,1,0,1,1,0,0,1,0,1,0,0,0,0,0,0,1,0,1,
+1,0,0,1,0,1,0,0,0,1,0,0,1,0,1,0,0,1,1,0,1,0,0,1,0,0,0,1,0,0,1,0,0,1,0,0,0,0,1,
+1,0,0,1,0,1,0,0,1,1,0,0,0,0,1,1,0,0,0,0,1,1,0,1,1,0,1,0,0,0,1,0,0,1,0,1,1,0,1,
+0,0,1,0,0,1,0,0,0,1,0,1,0,0,0,1,0,1,0,0,1,0,0,0,1,0,1,1,0,1,1,0,0,0,0,0,1,0,0,
+1,0,1,0,0,1,0,0,1,0,0,1,1,0,0,1,0,0,1,0,1,1,0,1,0,0,1,1,0,0,1,0,0,1,0,1,1,0,0,
+0,0,1,1,0,0,0,0,1,1,0,0,1,0,1,0,0,1,1,0,0,1,0,1,1,0,1,0,0,1,0,0,0,0,0,0,1,0,1,
+1,0,0,1,0,0,0,0,1,0,0,0,1,0,1,1,0,1,1,0,1,0,0,0,1,0,0,0,0,1,0,0,0,1,0,1,0,0,0,
+1,0,0,1,0,0,0,0,1,1,0,1,0,0,1,1,0,0,1,0,1,0,0,1,1,0,0,0,0,1,1,0,0,0,0,1,1,0,1,
+1,0,1,0,0,1,0,0,0,1,0,1,1,0,1,0,0,1,0,0,1,1,0,0,1,0,0,1,0,0,1,0,0,0,0,1,0,0,0,
+1,0,1,1,0,1,0,0,1,0,0,0,1,0,0,1,0,1,0,0,0,1,0,1,0,0,1,1,0,0,1,0,0,1,0,1,1,0,1,
+0,0,1,0,0,0,0,0,1,1,0,1,1,0,0,0,0,1,1,0,0,0,0,1,1,0,1,1,0,1,0,0,0,1,0,0,0,0,1,
+1,0,1,0,0,1,0,0,0,1,0,0,1,0,1,1,0,0,1,0,1,0,0,1,0,0,0,1,0,1,0,0,0,1,0,1,0,0,0,
+1,0,0,1,0,1,0,0,1,1,0,1,0,0,1,1,0,0,1,0,0,1,0,1,0,0,1,0,0,1,1,0,0,1,0,0,1,0,1,
+1,0,0,0,0,1,0,0,0,0,0,1,1,0,1,1,0,1,0,0,1,1,0,0,1,0,1,1,0,0,0,0,0,0,0,1,1,0,0,
+1,0,1,1,0,0,0,0,1,0,0,1,0,0,0,1,0,1,1,0,1,1,0,0,0,0,0,1,0,0,1,0,0,0,0,1,1,0,1,
+0,0,1,1,0,0,0,0,0,1,0,1,1,0,1,0,0,0,1,0,0,1,0,1,1,0,1,1,0,0,0,0,0,1,0,0,0,0,1,
+0,0,1,1,0,1,0,0,1,1,0,0,1,0,1,1,0,1,0,0,1,0,0,1,1,0,0,1,0,1,1,0,0,0,0,1,0,0,1,
+0,0,0,1,0,0,0,0,1,1,0,1,0,0,0,1,0,0,1,0,1,0,0,1,1,0,1,0,0,1,1,0,0,1,0,0,1,0,0,
+1,0,1,0,0,1,0,0,0,1,0,1,1,0,1,1,0,0,0,0,1,0,0,0,0,0,1,1,0,1,1,0,0,0,0,1,1,0,0,
+1,0,1,1,0,1,0,0,1,0,0,1,1,0,0,0,0,1,1,0,0,1,0,1,0,0,0,0,0,0,1,0,0,1,0,1,1,0,1,
+0,0,0,1,0,0,0,0,1,0,0,1,1,0,1,0,0,1,1,0,0,1,0,0,1,0,1,1,0,1,0,0,0,1,0,0,1,0,1,
+1,0,1,0,0,0,0,0,1,1,0,0,0,0,0,1,0,1,1,0,1,0,0,1,1,0,0,1,0,1,1,0,0,0,0,1,0,0,1,
+1,0,0,1,0,1,0,0,0,1,0,1,0,0,1,0,0,0,1,0,1,1,0,1,1,0,1,0,0,0,0,0,0,1,0,1,0,0,1,
+1,0,0,0,0,1,0,0,0,1,0,0,1,0,1,1,0,1,0,0,1,1,0,0,0,0,1,1,0,1,1,0,0,0,0,0,1,0,0,
+0,0,1,1,0,1,0,0,1,0,0,1,1,0,0,1,0,1,0,0,1,0,0,1,0,0,1,1,0,0,1,0,0,1,0,0,1,0,1,
+0,0,1,0,0,0,0,0,1,1,0,1,0,0,1,0,0,0,1,0,0,1,0,0,0,0,1,1,0,1,0,0,0,1,0,0,1,0,0,
+1,0,1,1,0,1,0,0,1,1,0,0,1,0,1,1,0,0,1,0,0,0,0,1,1,0,0,0,0,1,1,0,0,1,0,1,0,0,1,
+0,0,0,1,0,1,0,0,1,0,0,0,0,0,1,1,0,0,1,0,1,1,0,0,1,0,1,0,0,1,0,0,0,0,0,1,1,0,1,
+1,0,1,0,0,0,0,0,0,1,0,1,0,0,1,1,0,1,0,0,1,1,0,0,1,0,0,0,0,1,1,0,0,0,0,1,1,0,0,
+1,0,1,1,0,1,0,0,0,0,0,1,1,0,0,0,0,1,1,0,1,0,0,1,0,0,1,1,0,0,1,0,0,1,0,1,0,0,1,
+0,0,1,1,0,0,0,0,1,1,0,0,1,0,1,0,0,1,0,0,0,1,0,1,1,0,0,1,0,1,0,0,0,1,0,0,1,0,1,
+0,0,1,1,0,1,0,0,1,0,0,0,1,0,0,1,0,1,1,0,0,0,0,1,1,0,0,1,0,1,1,0,0,1,0,0,0,0,1,
+1,0,0,0,0,1,0,0,1,1,0,1,0,0,0,1,0,0,1,0,1,1,0,1,0,0,1,0,0,1,1,0,0,1,0,1,0,0,0,
+1,0,1,0,0,1,0,0,0,1,0,1,1,0,1,1,0,1,0,0,0,1,0,0,1,0,1,0,0,1,0,0,0,0,0,1,1,0,0,
+1,0,0,1,0,1,0,0,1,0,0,1,1,0,0,1,0,1,1,0,1,1,0,0,0,0,1,1,0,0,0,0,0,1,0,0,1,0,1,
+0,0,1,1,0,0,0,0,1,1,0,1,0,0,1,0,0,1,0,0,0,1,0,1,1,0,0,1,0,0,0,0,0,0,0,0,1,0,1,
+1,0,1,1,0,1,0,0,0,1,0,0,0,0,1,0,0,1,1,0,1,0,0,0,1,0,0,1,0,0,1,0,0,1,0,1,0,0,1,
+1,0,0,1,0,1,0,0,1,1,0,0,0,0,1,1,0,0,0,0,1,1,0,1,1,0,1,0,0,1,1,0,0,1,0,1,1,0,1,
+0,0,1,0,0,1,0,0,0,1,0,0,1,0,0,1,0,1,0,0,1,0,0,0,1,0,1,1,0,1,1,0,0,0,0,0,1,0,0,
+1,0,1,0,0,0,0,0,1,0,0,1,1,0,0,1,0,0,1,0,1,1,0,1,0,0,1,0,0,0,1,0,0,1,0,1,1,0,0,
+0,0,1,1,0,0,0,0,1,1,0,1,1,0,1,0,0,1,1,0,0,0,0,1,1,0,1,0,0,1,0,0,0,1,0,0,1,0,1,
+1,0,0,1,0,1,0,0,1,0,0,0,1,0,1,0,0,1,1,0,1,0,0,0,1,0,0,1,0,1,0,0,0,1,0,1,0,0,1,
+1,0,0,1,0,0,0,0,1,0,0,1,0,0,1,1,0,0,1,0,0,1,0,1,1,0,0,0,0,1,1,0,0,0,0,1,1,0,1,
+1,0,1,0,0,1,0,0,0,1,0,1,1,0,0,0,0,1,0,0,1,1,0,0,1,0,1,1,0,0,1,0,0,0,0,1,0,0,0,
+1,0,1,1,0,1,0,0,0,0,0,0,1,0,0,1,0,1,0,0,1,1,0,1,0,0,1,1,0,0,0,0,0,1,0,1,1,0,1,
+0,0,0,1,0,0,0,0,1,1,0,1,1,0,0,0,0,1,1,0,0,0,0,1,0,0,1,1,0,1,0,0,0,1,0,0,1,0,1,
+1,0,1,0,0,1,0,0,1,1,0,0,1,0,1,1,0,0,0,0,1,0,0,1,0,0,0,1,0,0,1,0,0,1,0,1,0,0,0,
+1,0,0,1,0,1,0,0,1,1,0,1,0,0,1,1,0,0,1,0,0,1,0,0,1,0,1,0,0,1,1,0,0,1,0,1,1,0,1,
+1,0,0,0,0,1,0,0,0,0,0,1,1,0,1,1,0,0,0,0,1,1,0,0,1,0,1,1,0,1,0,0,0,0,0,1,1,0,0,
+0,0,1,1,0,0,0,0,1,0,0,0,0,0,0,1,0,1,1,0,1,1,0,1,0,0,0,1,0,0,1,0,0,0,0,1,1,0,1,
+0,0,1,1,0,0,0,0,0,1,0,1,1,0,1,0,0,1,1,0,0,1,0,1,1,0,1,0,0,0,0,0,0,1,0,0,0,0,0,
+1,0,1,1,0,1,0,0,1,1,0,0,1,0,1,1,0,1,0,0,1,0,0,1,1,0,0,1,0,1,1,0,0,1,0,1,0,0,1,
+0,0,0,1,0,1,0,0,1,1,0,1,0,0,0,0,0,0,1,0,1,0,0,1,1,0,0,0,0,1,1,0,0,1,0,0,1,0,1,
+1,0,1,0,0,1,0,0,0,0,0,1,1,0,1,1,0,0,0,0,0,1,0,0,0,0,1,1,0,1,1,0,0,0,0,1,1,0,0,
+1,0,1,0,0,1,0,0,1,0,0,1,1,0,0,1,0,1,1,0,0,1,0,1,0,0,1,0,0,0,1,0,0,1,0,1,0,0,1,
+0,0,0,1,0,0,0,0,0,0,0,1,1,0,1,0,0,1,1,0,0,1,0,0,1,0,1,1,0,1,0,0,0,1,0,0,1,0,1,
+1,0,0,1,0,0,0,0,1,1,0,0,0,0,1,1,0,1,1,0,1,0,0,1,0,0,0,1,0,1,1,0,0,0,0,0,0,0,1,
+1,0,0,1,0,1,0,0,0,1,0,1,0,0,1,0,0,0,0,0,1,1,0,1,1,0,1,0,0,0,1,0,0,1,0,1,0,0,1,
+1,0,1,0,0,1,0,0,0,1,0,0,0,0,1,1,0,1,0,0,1,1,0,0,1,0,1,1,0,1,1,0,0,0,0,1,1,0,0,
+0,0,1,1,0,1,0,0,1,0,0,1,1,0,0,1,0,0,1,0,1,0,0,1,0,0,1,1,0,0,1,0,0,1,0,0,1,0,1,
+0,0,1,0,0,0,0,0,1,1,0,0,1,0,1,0,0,0,1,0,0,1,0,1,0,0,1,1,0,1,0,0,0,0,0,0,1,0,0,
+1,0,1,1,0,0,0,0,1,1,0,0,1,0,1,1,0,1,1,0,0,0,0,1,1,0,0,0,0,1,1,0,0,1,0,1,0,0,0,
+1,0,0,1,0,1,0,0,1,0,0,1,0,0,1,1,0,0,1,0,1,0,0,0,1,0,1,0,0,1,0,0,0,1,0,1,1,0,1,
+1,0,1,0,0,0,0,0,0,1,0,1,0,0,1,0,0,1,0,0,1,1,0,0,1,0,0,1,0,1,1,0,0,0,0,1,1,0,0,
+1,0,1,1,0,1,0,0,0,0,0,1,1,0,0,0,0,1,1,0,0,1,0,1,0,0,1,1,0,0,1,0,0,1,0,1,0,0,1,
+0,0,1,0,0,0,0,0,1,1,0,0,1,0,0,0,0,1,0,0,0,1,0,1,1,0,1,1,0,1,0,0,0,1,0,0,0,0,1,
+0,0,1,1,0,1,0,0,0,1,0,0,1,0,0,1,0,1,1,0,1,0,0,1,1,0,0,1,0,1,0,0,0,1,0,0,0,0,1,
+1,0,0,0,0,1,0,0,1,1,0,1,0,0,1,1,0,0,1,0,1,1,0,1,0,0,1,0,0,1,1,0,0,1,0,0,1,0,0,
+1,0,1,0,0,1,0,0,0,1,0,1,1,0,1,1,0,1,0,0,0,1,0,0,1,0,1,0,0,0,1,0,0,0,0,1,1,0,0,
+1,0,0,1,0,1,0,0,1,0,0,1,0,0,0,1,0,1,1,0,1,1,0,0,0,0,1,1,0,0,0,0,0,1,0,1,1,0,1,
+0,0,1,1,0,0,0,0,1,1,0,1,0,0,1,0,0,0,1,0,0,1,0,1,1,0,0,1,0,1,0,0,0,0,0,0,1,0,1,
+0,0,1,1,0,1,0,0,0,1,0,0,1,0,1,0,0,1,1,0,1,0,0,1,1,0,0,1,0,0,1,0,0,0,0,1,0,0,1,
+1,0,0,1,0,0,0,0,1,1,0,0,0,0,1,1,0,0,0,0,1,1,0,1,1,0,1,0,0,1,1,0,0,1,0,1,1,0,0,
+0,0,1,0,0,1,0,0,0,1,0,1,1,0,0,1,0,1,0,0,1,0,0,0,1,0,1,1,0,1,1,0,0,0,0,0,1,0,0,
+1,0,1,0,0,1,0,0,1,0,0,1,1,0,0,0,0,0,1,0,1,1,0,1,0,0,0,1,0,0,1,0,0,1,0,1,1,0,0,
+0,0,1,1,0,0,0,0,1,0,0,1,1,0,1,0,0,1,1,0,0,1,0,1,1,0,1,0,0,1,0,0,0,1,0,0,1,0,1,
+1,0,0,0,0,1,0,0,1,0,0,0,1,0,0,1,0,1,1,0,1,0,0,0,1,0,0,1,0,1,0,0,0,1,0,1,0,0,1,
+1,0,0,1,0,0,0,0,0,1,0,1,0,0,1,1,0,0,1,0,1,1,0,1,1,0,0,0,0,1,0,0,0,0,0,1,1,0,1,
+1,0,0,0,0,1,0,0,0,1,0,1,1,0,1,0,0,1,0,0,1,1,0,0,0,0,1,1,0,0,1,0,0,0,0,0,0,0,0,
+1,0,1,1,0,1,0,0,1,0,0,0,1,0,0,1,0,1,0,0,1,1,0,1,0,0,1,1,0,0,1,0,0,1,0,1,1,0,1,
+0,0,1,1,0,0,0,0,1,1,0,1,0,0,0,0,0,1,1,0,0,0,0,0,1,0,1,1,0,1,0,0,0,1,0,0,1,0,1,
+1,0,1,0,0,1,0,0,1,1,0,0,1,0,1,1,0,0,1,0,1,0,0,1,0,0,0,1,0,1,1,0,0,1,0,1,0,0,0,
+0,0,0,1,0,1,0,0,1,1,0,0,0,0,1,1,0,0,1,0,0,1,0,1,1,0,1,0,0,1,1,0,0,0,0,1,1,0,1,
+1,0,0,0,0,0,0,0,0,0,0,1,1,0,1,1,0,1,0,0,1,1,0,0,1,0,1,0,0,1,0,0,0,0,0,1,1,0,0,
+1,0,1,1,0,0,0,0,1,0,0,1,0,0,0,1,0,1,1,0,1,0,0,1,0,0,0,1,0,0,1,0,0,0,0,1,1,0,1,
+0,0,1,1,0,0,0,0,0,1,0,1,1,0,1,0,0,1,1,0,0,1,0,1,1,0,0,1,0,0,0,0,0,1,0,0,0,0,1,
+1,0,1,1,0,1,0,0,1,0,0,0,1,0,1,1,0,1,0,0,0,0,0,1,1,0,0,1,0,1,1,0,0,1,0,1,0,0,1,
+0,0,0,0,0,1,0,0,1,1,0,1,0,0,0,1,0,0,1,0,1,0,0,1,1,0,1,0,0,1,1,0,0,1,0,0,0,0,1,
+1,0,1,0,0,1,0,0,0,1,0,1,1,0,1,1,0,0,0,0,1,1,0,0,0,0,1,1,0,1,0,0,0,0,0,1,1,0,0,
+1,0,0,1,0,1,0,0,1,0,0,1,1,0,0,1,0,1,1,0,0,1,0,1,0,0,1,0,0,0,1,0,0,1,0,0,1,0,1,
+0,0,0,1,0,0,0,0,1,0,0,1,1,0,1,0,0,1,0,0,0,1,0,0,1,0,1,1,0,0,0,0,0,1,0,0,1,0,1,
+1,0,1,1,0,0,0,0,1,1,0,0,0,0,1,1,0,1,1,0,1,0,0,0,1,0,0,1,0,1,1,0,0,0,0,1,0,0,1,
+1,0,0,1,0,1,0,0,0,1,0,1,0,0,1,0,0,0,1,0,1,1,0,1,1,0,1,0,0,0,1,0,0,1,0,1,0,0,1,
+0,0,1,0,0,1,0,0,0,1,0,0,1,0,1,1,0,1,0,0,1,1,0,0,1,0,1,1,0,1,1,0,0,0,0,1,1,0,0,
+0,0,1,1,0,0,0,0,1,0,0,1,1,0,0,1,0,1,1,0,1,0,0,1,0,0,1,0,0,0,1,0,0,1,0,0,1,0,0,
+0,0,1,0,0,0,0,0,1,1,0,1,1,0,1,0,0,0,1,0,0,0,0,1,0,0,1,1,0,1,0,0,0,1,0,0,1,0,0,
+1,0,1,1,0,1,0,0,1,1,0,0,1,0,1,0,0,1,1,0,0,0,0,1,1,0,0,0,0,1,1,0,0,1,0,1,0,0,1,
+1,0,0,1,0,1,0,0,1,0,0,1,0,0,1,1,0,0,1,0,0,1,0,0,1,0,1,0,0,1,0,0,0,1,0,1,1,0,1,
+1,0,1,0,0,0,0,0,0,1,0,1,0,0,0,1,0,1,0,0,1,1,0,0,1,0,0,1,0,1,1,0,0,0,0,1,0,0,0,
+1,0,1,1,0,1,0,0,0,0,0,1,1,0,0,0,0,1,1,0,1,1,0,1,0,0,1,1,0,0,0,0,0,1,0,1,0,0,1,
+0,0,0,1,0,0,0,0,1,1,0,0,1,0,1,0,0,1,0,0,0,1,0,1,0,0,1,1,0,1,0,0,0,1,0,0,1,0,1,
+0,0,1,1,0,1,0,0,1,1,0,0,1,0,0,1,0,1,0,0,1,0,0,1,1,0,0,1,0,0,1,0,0,1,0,0,0,0,1,
+1,0,0,0,0,1,0,0,1,1,0,1,0,0,1,1,0,0,1,0,1,1,0,0,0,0,1,0,0,1,1,0,0,1,0,1,1,0,0,
+1,0,1,0,0,1,0,0,0,1,0,1,1,0,1,1,0,0,0,0,0,1,0,0,1,0,1,0,0,1,1,0,0,0,0,1,1,0,0,
+0,0,0,1,0,1,0,0,1,0,0,0,1,0,0,1,0,1,1,0,1,1,0,0,0,0,1,1,0,0,0,0,0,0,0,1,1,0,1,
+0,0,1,1,0,0,0,0,1,1,0,1,0,0,1,0,0,1,1,0,0,1,0,1,1,0,0,0,0,1,0,0,0,0,0,0,1,0,0,
+1,0,1,1,0,1,0,0,0,1,0,0,1,0,1,0,0,1,1,0,1,0,0,1,1,0,0,1,0,0,1,0,0,1,0,1,0,0,1,
+1,0,0,1,0,1,0,0,1,1,0,0,0,0,1,0,0,0,0,0,1,1,0,1,1,0,0,0,0,1,1,0,0,1,0,1,1,0,1,
+0,0,1,0,0,1,0,0,0,0,0,1,1,0,0,1,0,1,0,0,0,0,0,0,1,0,1,1,0,1,1,0,0,0,0,0,1,0,0,
+1,0,1,0,0,1,0,0,1,0,0,1,1,0,0,1,0,0,1,0,1,1,0,1,0,0,1,1,0,0,1,0,0,1,0,1,0,0,0,
+0,0,1,1,0,0,0,0,0,1,0,1,1,0,1,0,0,1,1,0,0,1,0,1,1,0,1,0,0,1,0,0,0,1,0,0,1,0,1,
+1,0,0,1,0,1,0,0,1,0,0,0,1,0,1,1,0,1,1,0,1,0,0,0,0,0,0,1,0,1,0,0,0,1,0,0,0,0,1,
+1,0,0,1,0,0,0,0,1,1,0,1,0,0,1,1,0,0,0,0,1,1,0,1,1,0,0,0,0,0,1,0,0,0,0,1,1,0,1,
+1,0,1,0,0,1,0,0,0,1,0,1,0,0,1,0,0,1,0,0,1,1,0,0,1,0,1,1,0,0,1,0,0,0,0,1,0,0,0,
+1,0,1,1,0,1,0,0,1,0,0,0,1,0,0,1,0,0,0,0,1,1,0,1,0,0,1,1,0,0,1,0,0,1,0,1,1,0,1,
+0,0,1,1,0,0,0,0,1,1,0,0,1,0,0,0,0,1,1,0,0,0,0,1,1,0,1,1,0,1,0,0,0,0,0,0,1,0,1,
+1,0,1,0,0,0,0,0,1,1,0,0,1,0,1,1,0,0,1,0,1,0,0,1,0,0,0,0,0,1,1,0,0,1,0,1,0,0,0,
+1,0,0,1,0,1,0,0,1,1,0,1,0,0,1,1,0,0,1,0,0,0,0,1,1,0,1,0,0,1,1,0,0,1,0,1,1,0,1,
+1,0,0,0,0,1,0,0,0,0,0,1,1,0,1,0,0,1,0,0,1,1,0,0,1,0,0,1,0,1,0,0,0,0,0,1,1,0,0,
+1,0,1,1,0,0,0,0,1,0,0,1,0,0,0,1,0,1,1,0,0,1,0,1,0,0,0,1,0,0,1,0,0,0,0,1,1,0,1,
+0,0,1,0,0,0,0,0,0,1,0,1,1,0,0,0,0,1,1,0,0,1,0,1,1,0,1,1,0,0,0,0,0,1,0,0,0,0,1,
+1,0,1,1,0,1,0,0,0,1,0,0,1,0,1,1,0,1,0,0,1,0,0,1,1,0,0,1,0,1,0,0,0,1,0,1,0,0,1,
+0,0,0,1,0,1,0,0,1,1,0,1,0,0,0,1,0,0,1,0,1,0,0,1,0,0,1,0,0,1,1,0,0,1,0,0,1,0,1,
+1,0,1,0,0,1,0,0,0,1,0,1,1,0,1,1,0,0,0,0,1,1,0,0,0,0,1,1,0,0,1,0,0,0,0,1,1,0,0,
+1,0,1,1,0,1,0,0,1,0,0,1,0,0,0,1,0,1,1,0,0,1,0,0,0,0,1,0,0,0,1,0,0,1,0,1,1,0,1,
+0,0,0,1,0,0,0,0,1,0,0,1,1,0,1,0,0,0,1,0,0,1,0,0,1,0,1,1,0,1,0,0,0,1,0,0,1,0,1,
+0,0,1,1,0,0,0,0,1,1,0,0,0,0,1,1,0,1,1,0,1,0,0,1,1,0,0,1,0,1,1,0,0,0,0,1,0,0,1,
+1,0,0,1,0,0,0,0,0,1,0,1,0,0,1,0,0,0,1,0,1,1,0,1,1,0,1,0,0,0,1,0,0,1,0,1,0,0,0,
+1,0,1,0,0,1,0,0,0,1,0,0,1,0,1,1,0,1,0,0,1,0,0,0,1,0,1,1,0,1,1,0,0,0,0,1,1,0,0,
+0,0,1,1,0,1,0,0,1,0,0,1,1,0,0,0,0,1,1,0,1,0,0,1,0,0,0,1,0,0,1,0,0,1,0,0,1,0,1,
+0,0,1,0,0,0,0,0,1,0,0,1,1,0,1,0,0,0,1,0,0,1,0,1,0,0,1,1,0,1,0,0,0,1,0,0,1,0,0,
+1,0,1,0,0,1,0,0,1,1,0,0,1,0,0,1,0,1,1,0,0,0,0,1,1,0,0,0,0,1,1,0,0,1,0,1,0,0,1,
+1,0,0,1,0,1,0,0,0,0,0,1,0,0,1,1,0,0,1,0,1,1,0,0,1,0,1,0,0,1,0,0,0,1,0,1,1,0,1,
+1,0,0,0,0,0,0,0,0,1,0,1,0,0,1,1,0,1,0,0,1,1,0,0,0,0,0,1,0,1,1,0,0,0,0,0,1,0,0,
+1,0,1,1,0,1,0,0,0,0,0,1,1,0,0,0,0,1,0,0,1,1,0,1,0,0,1,1,0,0,1,0,0,1,0,1,0,0,1,
+0,0,1,1,0,0,0,0,1,1,0,0,0,0,1,0,0,1,0,0,0,1,0,0,1,0,1,1,0,1,0,0,0,1,0,0,1,0,1,
+0,0,1,1,0,1,0,0,1,1,0,0,1,0,0,1,0,0,1,0,1,0,0,1,1,0,0,1,0,1,1,0,0,1,0,0,0,0,1,
+0,0,0,0,0,1,0,0,1,1,0,0,0,0,1,1,0,0,1,0,1,1,0,1,0,0,1,0,0,1,1,0,0,0,0,1,1,0,0,
+1,0,1,0,0,0,0,0,0,1,0,1,1,0,1,1,0,1,0,0,0,1,0,0,1,0,1,0,0,1,1,0,0,0,0,1,1,0,0,
+1,0,0,1,0,1,0,0,1,0,0,1,1,0,0,1,0,1,1,0,1,0,0,0,0,0,1,1,0,0,0,0,0,1,0,1,1,0,1,
+0,0,1,1,0,0,0,0,1,1,0,1,0,0,1,0,0,1,1,0,0,1,0,1,1,0,0,1,0,1,0,0,0,0,0,0,1,0,1,
+1,0,1,1,0,1,0,0,0,0,0,0,1,0,1,0,0,1,1,0,0,0,0,1,1,0,0,1,0,0,1,0,0,1,0,1,0,0,1,
+1,0,0,0,0,1,0,0,1,1,0,0,0,0,0,1,0,0,0,0,1,1,0,1,1,0,1,0,0,1,1,0,0,1,0,1,0,0,1,
+0,0,1,0,0,1,0,0,0,1,0,1,1,0,0,1,0,1,0,0,1,0,0,0,1,0,1,1,0,1,0,0,0,0,0,0,1,0,0,
+1,0,0,0,0,1,0,0,1,0,0,1,1,0,0,1,0,0,1,0,1,1,0,1,0,0,1,1,0,0,1,0,0,1,0,0,1,0,0,
+0,0,1,1,0,0,0,0,1,1,0,1,1,0,1,0,0,1,0,0,0,1,0,1,1,0,1,0,0,0,0,0,0,1,0,0,1,0,1,
+1,0,0,1,0,1,0,0,1,0,0,0,0,0,1,1,0,1,1,0,1,0,0,0,1,0,0,1,0,1,0,0,0,1,0,1,0,0,1,
+1,0,0,1,0,0,0,0,1,1,0,1,0,0,1,1,0,0,1,0,1,1,0,1,1,0,0,0,0,1,1,0,0,0,0,1,1,0,1,
+0,0,1,0,0,1,0,0,0,1,0,0,1,0,1,0,0,1,0,0,1,1,0,0,1,0,1,1,0,0,1,0,0,0,0,1,0,0,0,
+1,0,1,1,0,0,0,0,1,0,0,0,1,0,0,1,0,1,0,0,1,1,0,1,0,0,1,0,0,0,1,0,0,1,0,1,1,0,0,
+0,0,1,1,0,0,0,0,1,1,0,1,1,0,0,0,0,1,1,0,0,0,0,1,1,0,1,1,0,1,0,0,0,1,0,0,1,0,1,
+1,0,1,0,0,1,0,0,1,1,0,0,1,0,1,0,0,0,1,0,1,0,0,1,0,0,0,1,0,1,1,0,0,1,0,1,0,0,0,
+1,0,0,1,0,1,0,0,1,0,0,1,0,0,1,1,0,0,1,0,0,1,0,1,1,0,1,0,0,1,1,0,0,1,0,1,1,0,1,
+1,0,0,0,0,1,0,0,0,0,0,1,1,0,0,1,0,1,0,0,1,1,0,0,1,0,1,1,0,1,0,0,0,0,0,1,0,0,0,
+1,0,1,1,0,0,0,0,0,0,0,1,0,0,0,1,0,1,1,0,1,1,0,1,0,0,0,1,0,0,0,0,0,0,0,1,1,0,1,
+0,0,0,1,0,0,0,0,0,1,0,1,1,0,1,0,0,1,1,0,0,1,0,1,0,0,1,1,0,0,0,0,0,1,0,0,0,0,1,
+1,0,1,1,0,1,0,0,1,1,0,0,1,0,1,1,0,1,0,0,1,0,0,1,1,0,0,1,0,0,1,0,0,1,0,1,0,0,1,
+0,0,0,1,0,1,0,0,1,1,0,1,0,0,0,1,0,0,1,0,1,0,0,0,1,0,1,0,0,1,1,0,0,1,0,0,1,0,1,
+1,0,1,0,0,1,0,0,0,1,0,1,1,0,1,1,0,0,0,0,1,1,0,0,0,0,1,1,0,1,1,0,0,0,0,1,1,0,0,
+0,0,1,1,0,1,0,0,1,0,0,0,1,0,0,1,0,1,1,0,0,1,0,1,0,0,1,0,0,0,1,0,0,0,0,1,1,0,1,
+0,0,0,1,0,0,0,0,1,0,0,1,1,0,1,0,0,1,1,0,0,1,0,0,1,0,1,0,0,1,0,0,0,1,0,0,1,0,0,
+1,0,1,1,0,0,0,0,1,1,0,0,0,0,1,1,0,1,1,0,1,0,0,1,1,0,0,1,0,1,1,0,0,0,0,1,0,0,1,
+1,0,0,1,0,1,0,0,0,1,0,1,0,0,1,0,0,0,1,0,1,1,0,1,1,0,0,0,0,0,1,0,0,1,0,1,0,0,1,
+1,0,1,0,0,1,0,0,0,0,0,0,1,0,1,1,0,1,0,0,0,1,0,0,1,0,1,1,0,1,1,0,0,0,0,1,1,0,0,
+0,0,1,0,0,1,0,0,1,0,0,1,1,0,0,1,0,1,1,0,1,0,0,1,0,0,1,1,0,0,1,0,0,1,0,0,0,0,1,
+0,0,1,0,0,0,0,0,0,1,0,1,1,0,1,0,0,0,1,0,0,1,0,1,0,0,1,1,0,1,0,0,0,1,0,0,1,0,0,
+1,0,0,1,0,1,0,0,1,1,0,0,1,0,1,1,0,1,1,0,0,0,0,1,0,0,0,0,0,1,1,0,0,1,0,0,0,0,1,
+1,0,0,1,0,1,0,0,1,0,0,1,0,0,1,1,0,0,0,0,1,1,0,0,1,0,1,0,0,0,0,0,0,1,0,1,1,0,1,
+1,0,1,0,0,0,0,0,0,1,0,1,0,0,1,1,0,1,0,0,1,1,0,0,1,0,0,1,0,1,1,0,0,0,0,1,1,0,0,
+1,0,1,1,0,1,0,0,0,0,0,1,1,0,0,0,0,0,1,0,1,1,0,1,0,0,1,1,0,0,1,0,0,1,0,1,0,0,1,
+0,0,1,1,0,0,0,0,1,1,0,0,1,0,1,0,0,1,0,0,0,1,0,1,1,0,1,1,0,1,0,0,0,0,0,0,1,0,1,
+0,0,1,1,0,0,0,0,1,1,0,0,1,0,0,1,0,1,1,0,1,0,0,1,1,0,0,0,0,1,1,0,0,1,0,0,0,0,0,
+1,0,0,0,0,1,0,0,1,1,0,1,0,0,1,1,0,0,1,0,1,0,0,1,0,0,1,0,0,1,1,0,0,1,0,1,1,0,0,
+1,0,1,0,0,1,0,0,0,1,0,1,1,0,1,0,0,1,0,0,0,1,0,0,1,0,0,0,0,1,1,0,0,0,0,1,1,0,0,
+1,0,0,1,0,1,0,0,1,0,0,1,1,0,0,1,0,1,1,0,0,1,0,0,0,0,1,1,0,0,0,0,0,1,0,1,1,0,1,
+0,0,1,0,0,0,0,0,1,1,0,1,0,0,0,0,0,1,1,0,0,1,0,1,1,0,0,1,0,1,0,0,0,0,0,0,0,0,1,
+1,0,1,1,0,1,0,0,0,1,0,0,1,0,1,0,0,1,1,0,1,0,0,1,1,0,0,1,0,0,0,0,0,1,0,1,0,0,1,
+1,0,0,1,0,1,0,0,1,1,0,0,0,0,1,1,0,0,0,0,1,1,0,1,0,0,1,0,0,1,1,0,0,1,0,0,1,0,1,
+0,0,1,0,0,1,0,0,0,1,0,1,1,0,0,1,0,1,0,0,1,0,0,0,1,0,1,1,0,0,1,0,0,0,0,0,1,0,0,
+1,0,1,0,0,1,0,0,1,0,0,1,0,0,0,1,0,0,1,0,1,1,0,0,0,0,1,1,0,0,1,0,0,1,0,1,1,0,0,
+0,0,1,1,0,0,0,0,1,1,0,1,1,0,1,0,0,0,1,0,0,1,0,1,1,0,1,0,0,1,0,0,0,1,0,0,1,0,1,
+0,0,0,1,0,1,0,0,1,0,0,0,1,0,1,1,0,1,1,0,1,0,0,0,1,0,0,1,0,1,0,0,0,0,0,1,0,0,1,
+1,0,0,1,0,0,0,0,1,1,0,1,0,0,1,1,0,0,1,0,1,1,0,1,1,0,0,0,0,1,1,0,0,0,0,1,1,0,0,
+1,0,1,0,0,1,0,0,0,1,0,1,1,0,1,0,0,1,0,0,1,0,0,0,1,0,1,1,0,0,1,0,0,0,0,1,0,0,0,
+1,0,1,1,0,1,0,0,1,0,0,0,1,0,0,0,0,1,0,0,1,1,0,1,0,0,0,1,0,0,1,0,0,1,0,1,1,0,1,
+0,0,1,1,0,0,0,0,1,0,0,1,1,0,0,0,0,1,1,0,0,0,0,1,1,0,1,1,0,1,0,0,0,1,0,0,1,0,1,
+1,0,1,0,0,1,0,0,1,1,0,0,1,0,0,1,0,0,1,0,1,0,0,1,0,0,0,1,0,1,1,0,0,1,0,1,0,0,0,
+1,0,0,1,0,1,0,0,0,1,0,1,0,0,1,1,0,0,1,0,0,1,0,1,1,0,1,0,0,1,0,0,0,1,0,1,1,0,1,
+1,0,0,0,0,1,0,0,0,0,0,1,1,0,1,1,0,1,0,0,1,1,0,0,0,0,1,1,0,1,0,0,0,0,0,0,1,0,0,
+1,0,1,1,0,0,0,0,1,0,0,1,0,0,0,1,0,1,0,0,1,1,0,1,0,0,0,1,0,0,1,0,0,0,0,1,1,0,1,
+0,0,1,1,0,0,0,0,0,1,0,1,0,0,1,0,0,1,1,0,0,1,0,0,1,0,1,1,0,0,0,0,0,1,0,0,0,0,1,
+1,0,1,1,0,1,0,0,1,1,0,0,1,0,1,1,0,0,0,0,1,0,0,1,1,0,0,1,0,1,1,0,0,1,0,1,0,0,1,
+0,0,0,1,0,1,0,0,1,1,0,0,0,0,0,1,0,0,1,0,1,0,0,1,1,0,1,0,0,1,1,0,0,0,0,0,1,0,1,
+1,0,1,0,0,0,0,0,0,1,0,1,1,0,1,1,0,0,0,0,1,1,0,0,0,0,1,0,0,1,1,0,0,0,0,1,1,0,0,
+1,0,1,1,0,1,0,0,1,0,0,1,1,0,0,1,0,1,1,0,0,0,0,1,0,0,1,0,0,0,1,0,0,1,0,1,1,0,1,
+0,0,0,1,0,0,0,0,1,0,0,1,1,0,1,0,0,1,1,0,0,1,0,0,1,0,0,1,0,1,0,0,0,1,0,0,1,0,1,
+1,0,1,1,0,0,0,0,1,0,0,0,0,0,1,1,0,1,1,0,0,0,0,1,1,0,0,1,0,1,1,0,0,0,0,1,0,0,1,
+1,0,0,0,0,1,0,0,0,1,0,1,0,0,0,0,0,0,1,0,1,1,0,1,1,0,1,0,0,0,1,0,0,1,0,1,0,0,1,
+1,0,1,0,0,1,0,0,0,1,0,0,1,0,1,1,0,1,0,0,1,1,0,0,1,0,1,1,0,1,0,0,0,0,0,1,1,0,0,
+0,0,0,1,0,1,0,0,1,0,0,1,1,0,0,1,0,1,1,0,1,0,0,1,0,0,1,1,0,0,1,0,0,1,0,0,1,0,1,
+0,0,1,0,0,0,0,0,1,1,0,1,1,0,1,0,0,0,0,0,0,1,0,1,0,0,1,1,0,0,0,0,0,1,0,0,1,0,0,
+1,0,1,1,0,1,0,0,1,1,0,0,0,0,1,1,0,1,1,0,0,0,0,0,1,0,0,0,0,1,1,0,0,1,0,1,0,0,1,
+1,0,0,1,0,1,0,0,1,0,0,1,0,0,1,1,0,0,1,0,1,1,0,0,1,0,1,0,0,1,0,0,0,1,0,1,1,0,1,
+0,0,1,0,0,0,0,0,0,1,0,0,0,0,1,1,0,1,0,0,1,1,0,0,1,0,0,1,0,1,1,0,0,0,0,1,1,0,0,
+1,0,1,1,0,0,0,0,0,0,0,1,1,0,0,0,0,1,1,0,1,1,0,1,0,0,1,0,0,0,1,0,0,1,0,1,0,0,0,
+0,0,1,1,0,0,0,0,1,1,0,0,1,0,1,0,0,1,0,0,0,0,0,1,1,0,1,1,0,1,0,0,0,1,0,0,1,0,1,
+0,0,1,1,0,1,0,0,1,1,0,0,1,0,0,0,0,1,1,0,1,0,0,1,1,0,0,1,0,1,1,0,0,1,0,0,0,0,1,
+1,0,0,0,0,1,0,0,1,0,0,1,0,0,1,1,0,0,1,0,0,1,0,1,0,0,1,0,0,1,1,0,0,1,0,1,1,0,0,
+1,0,1,0,0,1,0,0,0,1,0,1,1,0,0,1,0,1,0,0,0,1,0,0,1,0,1,0,0,1,1,0,0,0,0,1,0,0,0,
+1,0,0,1,0,1,0,0,0,0,0,1,1,0,0,1,0,1,1,0,1,1,0,0,0,0,1,1,0,0,0,0,0,1,0,1,1,0,1,
+0,0,0,1,0,0,0,0,1,1,0,1,0,0,1,0,0,1,1,0,0,1,0,1,0,0,0,1,0,1,0,0,0,0,0,0,1,0,1,
+1,0,1,1,0,1,0,0,0,1,0,0,1,0,1,0,0,1,0,0,1,0,0,1,1,0,0,1,0,0,1,0,0,1,0,1,0,0,1,
+1,0,0,1,0,1,0,0,1,1,0,0,0,0,1,1,0,0,0,0,1,1,0,0,1,0,1,0,0,1,1,0,0,1,0,1,1,0,1,
+0,0,1,0,0,1,0,0,0,1,0,1,1,0,0,1,0,0,0,0,1,0,0,0,1,0,1,1,0,1,1,0,0,0,0,0,1,0,0,
+0,0,1,0,0,1,0,0,1,0,0,0,1,0,0,1,0,0,1,0,1,1,0,1,0,0,1,1,0,0,1,0,0,0,0,1,1,0,0,
+0,0,1,1,0,0,0,0,1,1,0,1,1,0,1,0,0,1,1,0,0,1,0,1,1,0,1,0,0,1,0,0,0,1,0,0,1,0,0,
+1,0,0,1,0,1,0,0,1,0,0,0,1,0,1,1,0,1,1,0,1,0,0,0,1,0,0,1,0,1,0,0,0,1,0,1,0,0,1,
+1,0,0,1,0,0,0,0,1,1,0,1,0,0,1,0,0,0,1,0,1,1,0,1,1,0,0,0,0,1,1,0,0,0,0,1,1,0,1,
+1,0,1,0,0,1,0,0,0,0,0,1,1,0,1,0,0,1,0,0,0,1,0,0,1,0,1,1,0,0,1,0,0,0,0,1,0,0,0,
+1,0,1,0,0,1,0,0,1,0,0,0,1,0,0,1,0,1,0,0,1,1,0,1,0,0,1,1,0,0,1,0,0,1,0,1,0,0,1,
+0,0,1,1,0,0,0,0,0,1,0,1,1,0,0,0,0,1,1,0,0,0,0,1,1,0,1,1,0,1,0,0,0,1,0,0,1,0,1,
+1,0,0,0,0,1,0,0,1,1,0,0,1,0,1,1,0,0,1,0,1,0,0,1,0,0,0,1,0,1,1,0,0,1,0,0,0,0,0,
+1,0,0,1,0,1,0,0,1,1,0,1,0,0,1,1,0,0,0,0,0,1,0,1,1,0,1,0,0,0,1,0,0,1,0,1,1,0,1,
+1,0,0,0,0,1,0,0,0,0,0,1,0,0,1,1,0,1,0,0,1,1,0,0,1,0,1,1,0,1,0,0,0,0,0,1,1,0,0,
+1,0,1,1,0,0,0,0,1,0,0,1,0,0,0,1,0,0,1,0,1,1,0,1,0,0,0,1,0,0,1,0,0,0,0,1,1,0,1,
+0,0,1,1,0,0,0,0,0,1,0,0,1,0,1,0,0,1,1,0,0,1,0,1,1,0,1,1,0,0,0,0,0,0,0,0,0,0,1,
+1,0,1,1,0,0,0,0,1,1,0,0,1,0,1,1,0,1,0,0,1,0,0,1,1,0,0,0,0,1,1,0,0,1,0,1,0,0,0,
+0,0,0,1,0,1,0,0,1,1,0,1,0,0,0,1,0,0,1,0,1,0,0,1,1,0,1,0,0,1,1,0,0,1,0,0,1,0,1,
+1,0,1,0,0,1,0,0,0,1,0,1,1,0,1,0,0,0,0,0,1,1,0,0,0,0,0,1,0,1,1,0,0,0,0,1,1,0,0,
+1,0,1,1,0,1,0,0,1,0,0,1,1,0,0,1,0,1,1,0,0,1,0,1,0,0,1,0,0,0,1,0,0,1,0,1,1,0,1,
+0,0,0,0,0,0,0,0,1,0,0,1,1,0,0,0,0,1,1,0,0,1,0,0,1,0,1,1,0,1,0,0,0,1,0,0,0,0,1,
+1,0,1,1,0,0,0,0,0,1,0,0,0,0,1,1,0,1,1,0,1,0,0,1,1,0,0,1,0,1,0,0,0,0,0,1,0,0,1,
+1,0,0,1,0,1,0,0,0,1,0,1,0,0,1,0,0,0,1,0,1,1,0,1,0,0,1,0,0,0,1,0,0,1,0,0,0,0,1,
+1,0,1,0,0,1,0,0,0,1,0,0,1,0,1,1,0,1,0,0,1,1,0,0,1,0,1,1,0,0,1,0,0,0,0,1,1,0,0,
+0,0,1,1,0,1,0,0,1,0,0,1,0,0,0,1,0,1,1,0,1,0,0,0,0,0,1,1,0,0,1,0,0,1,0,0,1,0,1,
+0,0,1,0,0,0,0,0,1,1,0,1,1,0,1,0,0,0,1,0,0,1,0,1,0,0,1,1,0,1,0,0,0,1,0,0,1,0,0,
+0,0,1,1,0,1,0,0,1,1,0,0,1,0,1,1,0,1,1,0,0,0,0,1,1,0,0,0,0,1,1,0,0,0,0,1,0,0,1,
+1,0,0,1,0,0,0,0,1,0,0,1,0,0,1,1,0,0,1,0,1,1,0,0,1,0,1,0,0,1,0,0,0,1,0,1,1,0,0,
+1,0,1,0,0,0,0,0,0,1,0,1,0,0,1,1,0,1,0,0,1,0,0,0,1,0,0,1,0,1,1,0,0,0,0,1,1,0,0,
+1,0,1,1,0,1,0,0,0,0,0,1,1,0,0,0,0,1,1,0,1,1,0,1,0,0,0,1,0,0,1,0,0,1,0,1,0,0,1,
+0,0,1,1,0,0,0,0,1,0,0,0,1,0,1,0,0,1,0,0,0,1,0,1,1,0,1,1,0,1,0,0,0,1,0,0,1,0,1,
+0,0,1,0,0,1,0,0,1,1,0,0,1,0,0,1,0,1,1,0,1,0,0,1,1,0,0,1,0,1,1,0,0,1,0,0,0,0,1,
+1,0,0,0,0,1,0,0,0,1,0,1,0,0,1,1,0,0,1,0,1,1,0,1,0,0,1,0,0,1,0,0,0,1,0,1,1,0,0,
+1,0,0,0,0,1,0,0,0,1,0,1,1,0,1,1,0,1,0,0,0,1,0,0,0,0,1,0,0,1,1,0,0,0,0,0,1,0,0,
+1,0,0,1,0,1,0,0,1,0,0,1,1,0,0,1,0,1,0,0,1,1,0,0,0,0,1,1,0,0,0,0,0,1,0,1,1,0,1,
+0,0,1,1,0,0,0,0,1,1,0,1,0,0,1,0,0,1,1,0,0,1,0,0,1,0,0,1,0,1,0,0,0,0,0,0,1,0,1,
+1,0,1,1,0,1,0,0,0,1,0,0,1,0,1,0,0,0,1,0,1,0,0,1,1,0,0,1,0,0,1,0,0,1,0,1,0,0,1,
+0,0,0,1,0,1,0,0,1,1,0,0,0,0,1,1,0,0,0,0,1,1,0,1,1,0,1,0,0,1,1,0,0,0,0,1,1,0,1,
+0,0,1,0,0,0,0,0,0,1,0,1,1,0,0,1,0,1,0,0,1,0,0,0,1,0,1,0,0,1,1,0,0,0,0,0,1,0,0,
+1,0,1,0,0,1,0,0,1,0,0,1,1,0,0,1,0,0,1,0,1,0,0,1,0,0,1,1,0,0,1,0,0,1,0,1,1,0,0,
+0,0,1,1,0,0,0,0,1,1,0,1,1,0,1,0,0,1,1,0,0,1,0,1,1,0,0,0,0,1,0,0,0,1,0,0,1,0,1,
+1,0,0,1,0,1,0,0,1,0,0,0,1,0,1,1,0,1,1,0,0,0,0,0,1,0,0,1,0,1,0,0,0,1,0,1,0,0,1,
+1,0,0,0,0,0,0,0,1,1,0,1,0,0,0,1,0,0,1,0,1,1,0,1,1,0,0,0,0,1,1,0,0,0,0,1,0,0,1,
+1,0,1,0,0,1,0,0,0,1,0,1,1,0,1,0,0,1,0,0,1,1,0,0,1,0,1,1,0,0,0,0,0,0,0,1,0,0,0,
+1,0,0,1,0,1,0,0,1,0,0,0,1,0,0,1,0,1,0,0,1,1,0,1,0,0,1,1,0,0,1,0,0,1,0,0,1,0,1,
+0,0,1,1,0,0,0,0,1,1,0,1,1,0,0,0,0,1,0,0,0,0,0,1,1,0,1,1,0,0,0,0,0,1,0,0,1,0,1,
+1,0,1,0,0,1,0,0,1,1,0,0,0,0,1,1,0,0,1,0,1,0,0,0,0,0,0,1,0,1,1,0,0,1,0,1,0,0,0,
+1,0,0,1,0,1,0,0,1,1,0,1,0,0,1,1,0,0,1,0,0,1,0,1,1,0,1,0,0,1,1,0,0,1,0,1,1,0,1,
+0,0,0,0,0,1,0,0,0,0,0,0,1,0,1,1,0,1,0,0,1,1,0,0,1,0,1,1,0,1,0,0,0,0,0,1,1,0,0,
+1,0,1,1,0,0,0,0,1,0,0,1,0,0,0,1,0,1,1,0,1,1,0,1,0,0,0,0,0,0,1,0,0,0,0,1,1,0,0,
+0,0,1,1,0,0,0,0,0,1,0,1,1,0,1,0,0,1,1,0,0,0,0,1,1,0,1,1,0,0,0,0,0,1,0,0,0,0,1,
+1,0,1,1,0,1,0,0,1,1,0,0,1,0,1,0,0,1,0,0,1,0,0,1,1,0,0,1,0,1,1,0,0,1,0,1,0,0,1,
+0,0,0,1,0,1,0,0,1,0,0,1,0,0,0,1,0,0,1,0,0,0,0,1,1,0,1,0,0,1,1,0,0,1,0,0,1,0,1,
+1,0,1,0,0,1,0,0,0,1,0,1,1,0,0,1,0,0,0,0,1,1,0,0,0,0,1,1,0,1,1,0,0,0,0,1,0,0,0,
+1,0,1,1,0,1,0,0,0,0,0,1,1,0,0,1,0,1,1,0,0,1,0,1,0,0,1,0,0,0,0,0,0,1,0,1,1,0,1,
+0,0,0,1,0,0,0,0,1,0,0,1,1,0,1,0,0,1,1,0,0,1,0,0,0,0,1,1,0,1,0,0,0,1,0,0,1,0,1,
+1,0,1,1,0,0,0,0,1,1,0,0,0,0,1,1,0,1,0,0,1,0,0,1,1,0,0,1,0,0,1,0,0,0,0,1,0,0,1,
+1,0,0,1,0,1,0,0,0,1,0,1,0,0,1,0,0,0,1,0,1,1,0,0,1,0,1,0,0,0,1,0,0,1,0,1,0,0,1,
+1,0,1,0,0,1,0,0,0,1,0,0,1,0,1,1,0,0,0,0,1,1,0,0,1,0,1,1,0,1,1,0,0,0,0,1,1,0,0,
+0,0,1,1,0,1,0,0,1,0,0,0,1,0,0,1,0,1,1,0,1,0,0,1,0,0,1,1,0,0,1,0,0,0,0,0,1,0,1,
+0,0,1,0,0,0,0,0,1,1,0,1,1,0,1,0,0,0,1,0,0,1,0,1,0,0,1,0,0,1,0,0,0,1,0,0,1,0,0,
+1,0,1,1,0,1,0,0,1,1,0,0,1,0,1,1,0,1,1,0,0,0,0,1,1,0,0,0,0,1,1,0,0,1,0,1,0,0,1,
+1,0,0,1,0,1,0,0,1,0,0,1,0,0,1,0,0,0,1,0,1,1,0,0,1,0,0,0,0,1,0,0,0,1,0,1,1,0,1,
+1,0,1,0,0,0,0,0,0,0,0,1,0,0,1,1,0,1,0,0,0,1,0,0,1,0,0,1,0,1,1,0,0,0,0,1,1,0,0,
+1,0,1,0,0,1,0,0,0,0,0,1,1,0,0,0,0,1,1,0,1,1,0,1,0,0,1,1,0,0,1,0,0,1,0,1,0,0,1,
+0,0,1,1,0,0,0,0,0,1,0,0,1,0,1,0,0,1,0,0,0,1,0,1,1,0,1,1,0,1,0,0,0,1,0,0,1,0,1,
+0,0,0,1,0,1,0,0,1,1,0,0,1,0,0,1,0,1,1,0,1,0,0,1,0,0,0,1,0,1,1,0,0,1,0,0,0,0,1,
+1,0,0,0,0,1,0,0,1,1,0,1,0,0,1,1,0,0,0,0,1,1,0,1,0,0,1,0,0,0,1,0,0,1,0,1,1,0,0,
+1,0,1,0,0,1,0,0,0,1,0,1,0,0,1,1,0,1,0,0,0,1,0,0,1,0,1,0,0,1,1,0,0,0,0,1,1,0,0,
+1,0,0,1,0,1,0,0,1,0,0,1,1,0,0,1,0,0,1,0,1,1,0,0,0,0,1,1,0,0,0,0,0,1,0,1,1,0,1,
+0,0,1,1,0,0,0,0,1,1,0,0,0,0,1,0,0,1,1,0,0,1,0,1,1,0,0,1,0,1,0,0,0,0,0,0,1,0,1,
+1,0,1,1,0,0,0,0,0,1,0,0,1,0,1,0,0,1,1,0,1,0,0,1,1,0,0,0,0,0,1,0,0,1,0,1,0,0,0,
+1,0,0,1,0,1,0,0,1,1,0,0,0,0,1,1,0,0,0,0,1,0,0,1,1,0,1,0,0,1,1,0,0,1,0,1,1,0,1,
+0,0,1,0,0,1,0,0,0,1,0,1,1,0,0,0,0,1,0,0,1,0,0,0,1,0,0,1,0,1,1,0,0,0,0,0,1,0,0,
+1,0,1,0,0,1,0,0,1,0,0,1,1,0,0,1,0,0,1,0,0,1,0,1,0,0,1,1,0,0,1,0,0,1,0,1,1,0,0,
+0,0,1,0,0,0,0,0,1,1,0,1,1,0,0,0,0,1,1,0,0,1,0,1,1,0,1,0,0,1,0,0,0,1,0,0,0,0,1,
+1,0,0,1,0,1,0,0,0,0,0,0,1,0,1,1,0,1,1,0,1,0,0,0,1,0,0,1,0,1,0,0,0,1,0,1,0,0,1,
+1,0,0,1,0,0,0,0,1,1,0,1,0,0,1,1,0,0,1,0,1,1,0,1,0,0,0,0,0,1,1,0,0,0,0,0,1,0,1,
+1,0,1,0,0,1,0,0,0,1,0,1,1,0,1,0,0,1,0,0,1,1,0,0,1,0,1,1,0,0,1,0,0,0,0,1,0,0,0,
+1,0,1,1,0,1,0,0,1,0,0,0,0,0,0,1,0,1,0,0,1,1,0,0,0,0,1,1,0,0,1,0,0,1,0,1,1,0,1,
+0,0,1,1,0,0,0,0,1,1,0,1,1,0,0,0,0,0,1,0,0,0,0,1,1,0,1,1,0,1,0,0,0,1,0,0,1,0,1,
+0,0,1,0,0,1,0,0,1,1,0,0,1,0,1,1,0,0,1,0,1,0,0,1,0,0,0,1,0,1,1,0,0,0,0,1,0,0,0,
+1,0,0,1,0,0,0,0,1,1,0,1,0,0,1,1,0,0,1,0,0,1,0,1,1,0,1,0,0,1,1,0,0,1,0,1,1,0,0,
+1,0,0,0,0,1,0,0,0,0,0,1,1,0,1,1,0,1,0,0,1,0,0,0,1,0,1,1,0,1,0,0,0,0,0,1,1,0,0,
+1,0,1,1,0,0,0,0,1,0,0,1,0,0,0,0,0,1,1,0,1,1,0,1,0,0,0,1,0,0,1,0,0,0,0,1,1,0,1,
+0,0,1,1,0,0,0,0,0,0,0,1,1,0,1,0,0,1,1,0,0,1,0,1,1,0,1,1,0,0,0,0,0,1,0,0,0,0,1,
+1,0,1,0,0,1,0,0,1,1,0,0,1,0,0,1,0,1,0,0,1,0,0,1,1,0,0,1,0,1,1,0,0,1,0,1,0,0,1,
+0,0,0,1,0,1,0,0,0,1,0,1,0,0,0,1,0,0,1,0,1,0,0,1,1,0,1,0,0,1,0,0,0,1,0,0,1,0,1,
+1,0,0,0,0,1,0,0,0,1,0,1,1,0,1,1,0,0,0,0,1,1,0,0,0,0,1,1,0,1,1,0,0,0,0,0,1,0,0,
+1,0,1,1,0,1,0,0,1,0,0,1,1,0,0,1,0,1,0,0,0,1,0,1,0,0,1,0,0,0,1,0,0,1,0,1,1,0,1,
+0,0,0,1,0,0,0,0,1,0,0,1,0,0,1,0,0,1,1,0,0,1,0,0,1,0,1,1,0,1,0,0,0,1,0,0,1,0,1,
+1,0,1,1,0,0,0,0,1,1,0,0,0,0,1,1,0,0,1,0,1,0,0,1,1,0,0,1,0,1,1,0,0,0,0,1,0,0,1,
+0,0,0,1,0,1,0,0,0,1,0,0,0,0,1,0,0,0,1,0,1,1,0,1,1,0,1,0,0,0,1,0,0,0,0,1,0,0,1,
+1,0,1,0,0,0,0,0,0,1,0,0,1,0,1,1,0,1,0,0,1,1,0,0,1,0,1,0,0,1,1,0,0,0,0,1,1,0,0,
+0,0,1,1,0,1,0,0,1,0,0,1,1,0,0,1,0,1,1,0,1,0,0,1,0,0,1,1,0,0,1,0,0,1,0,0,1,0,1,
+0,0,1,0,0,0,0,0,1,1,0,1,1,0,1,0,0,0,1,0,0,1,0,1,0,0,0,1,0,1,0,0,0,1,0,0,1,0,0,
+1,0,1,1,0,1,0,0,1,0,0,0,1,0,1,1,0,1,1,0,0,0,0,1,1,0,0,0,0,1,1,0,0,1,0,1,0,0,1,
+1,0,0,0,0,1,0,0,1,0,0,1,0,0,0,1,0,0,1,0,1,1,0,0,1,0,1,0,0,1,0,0,0,1,0,1,0,0,1,
+1,0,1,0,0,0,0,0,0,1,0,1,0,0,1,1,0,1,0,0,1,1,0,0,1,0,0,1,0,1,0,0,0,0,0,1,1,0,0,
+1,0,0,1,0,1,0,0,0,0,0,1,1,0,0,0,0,1,1,0,1,1,0,1,0,0,1,1,0,0,1,0,0,1,0,0,0,0,1,
+0,0,1,1,0,0,0,0,1,1,0,0,1,0,1,0,0,1,0,0,0,1,0,1,1,0,1,1,0,0,0,0,0,1,0,0,1,0,1,
+0,0,1,1,0,1,0,0,1,1,0,0,0,0,0,1,0,1,1,0,1,0,0,0,1,0,0,1,0,1,1,0,0,1,0,0,0,0,1,
+1,0,0,0,0,1,0,0,1,1,0,1,0,0,1,1,0,0,1,0,1,1,0,1,0,0,1,0,0,1,1,0,0,1,0,1,1,0,0,
+0,0,1,0,0,1,0,0,0,1,0,0,1,0,1,1,0,1,0,0,0,1,0,0,1,0,1,0,0,1,1,0,0,0,0,1,1,0,0,
+1,0,0,1,0,0,0,0,1,0,0,1,1,0,0,1,0,1,1,0,1,1,0,0,0,0,1,0,0,0,0,0,0,1,0,1,1,0,0,
+0,0,1,1,0,0,0,0,1,1,0,1,0,0,1,0,0,1,1,0,0,0,0,1,1,0,0,1,0,1,0,0,0,0,0,0,1,0,1,
+1,0,1,1,0,1,0,0,0,1,0,0,1,0,1,0,0,1,1,0,1,0,0,1,1,0,0,1,0,0,1,0,0,1,0,1,0,0,1,
+1,0,0,1,0,1,0,0,1,0,0,0,0,0,1,1,0,0,0,0,0,1,0,1,1,0,1,0,0,1,1,0,0,1,0,1,1,0,1,
+0,0,1,0,0,1,0,0,0,1,0,1,1,0,0,1,0,1,0,0,1,0,0,0,1,0,1,1,0,1,1,0,0,0,0,0,0,0,0,
+1,0,1,0,0,1,0,0,0,0,0,1,1,0,0,1,0,0,1,0,1,1,0,1,0,0,1,1,0,0,0,0,0,1,0,1,1,0,0,
+0,0,0,1,0,0,0,0,1,1,0,1,1,0,1,0,0,1,1,0,0,1,0,1,0,0,1,0,0,1,0,0,0,1,0,0,1,0,1,
+1,0,0,1,0,1,0,0,1,0,0,0,1,0,1,1,0,1,0,0,1,0,0,0,1,0,0,1,0,0,0,0,0,1,0,1,0,0,1,
+1,0,0,1,0,0,0,0,1,1,0,1,0,0,1,1,0,0,1,0,1,1,0,0,1,0,0,0,0,1,1,0,0,0,0,1,1,0,1,
+1,0,1,0,0,1,0,0,0,1,0,1,1,0,1,0,0,0,0,0,1,1,0,0,1,0,1,1,0,0,1,0,0,0,0,1,0,0,0,
+0,0,1,1,0,1,0,0,1,0,0,0,1,0,0,1,0,1,0,0,1,1,0,1,0,0,1,1,0,0,1,0,0,0,0,1,1,0,1,
+0,0,1,1,0,0,0,0,1,1,0,1,1,0,0,0,0,1,1,0,0,0,0,1,1,0,1,0,0,1,0,0,0,1,0,0,1,0,0,
+1,0,1,0,0,1,0,0,1,1,0,0,1,0,1,1,0,0,1,0,1,0,0,1,0,0,0,1,0,1,1,0,0,1,0,1,0,0,0,
+1,0,0,1,0,1,0,0,1,1,0,1,0,0,1,0,0,0,1,0,0,1,0,1,1,0,0,0,0,1,1,0,0,1,0,1,1,0,1,
+1,0,0,0,0,1,0,0,0,0,0,1,1,0,1,1,0,1,0,0,0,1,0,0,1,0,1,1,0,1,0,0,0,0,0,1,1,0,0,
+1,0,1,0,0,0,0,0,1,0,0,1,0,0,0,1,0,1,1,0,1,1,0,1,0,0,0,1,0,0,1,0,0,0,0,1,0,0,1,
+0,0,1,1,0,0,0,0,0,1,0,1,1,0,1,0,0,1,1,0,0,1,0,1,1,0,1,1,0,0,0,0,0,1,0,0,0,0,1,
+1,0,0,1,0,1,0,0,1,1,0,0,1,0,1,1,0,1,0,0,1,0,0,1,0,0,0,1,0,1,1,0,0,1,0,0,0,0,1,
+0,0,0,1,0,1,0,0,1,1,0,1,0,0,0,1,0,0,0,0,1,0,0,1,1,0,1,0,0,0,1,0,0,1,0,0,1,0,1,
+1,0,1,0,0,1,0,0,0,1,0,1,0,0,1,1,0,0,0,0,1,1,0,0,0,0,1,1,0,1,1,0,0,0,0,1,1,0,0,
+1,0,1,1,0,1,0,0,1,0,0,1,1,0,0,1,0,0,1,0,0,1,0,1,0,0,1,0,0,0,1,0,0,1,0,1,1,0,1,
+0,0,0,1,0,0,0,0,1,0,0,0,1,0,1,0,0,1,1,0,0,1,0,0,1,0,1,1,0,1,0,0,0,0,0,0,1,0,1,
+1,0,1,1,0,0,0,0,1,1,0,0,0,0,1,1,0,1,1,0,1,0,0,1,1,0,0,0,0,1,1,0,0,0,0,1,0,0,0,
+1,0,0,1,0,1,0,0,0,1,0,1,0,0,1,0,0,0,1,0,1,0,0,1,1,0,1,0,0,0,1,0,0,1,0,1,0,0,1,
+1,0,1,0,0,1,0,0,0,1,0,0,1,0,1,0,0,1,0,0,1,1,0,0,1,0,0,1,0,1,1,0,0,0,0,1,1,0,0,
+0,0,1,1,0,1,0,0,1,0,0,1,1,0,0,1,0,1,1,0,0,0,0,1,0,0,1,1,0,0,1,0,0,1,0,0,1,0,1,
+0,0,1,0,0,0,0,0,1,1,0,1,1,0,0,0,0,0,1,0,0,1,0,1,0,0,1,1,0,1,0,0,0,1,0,0,0,0,0,
+1,0,1,1,0,1,0,0,0,1,0,0,1,0,1,1,0,1,1,0,0,0,0,1,1,0,0,0,0,1,0,0,0,1,0,1,0,0,1,
+1,0,0,1,0,1,0,0,1,0,0,1,0,0,1,1,0,0,1,0,1,1,0,0,0,0,1,0,0,1,0,0,0,1,0,0,1,0,1,
+1,0,1,0,0,0,0,0,0,1,0,1,0,0,1,1,0,1,0,0,1,1,0,0,1,0,0,1,0,0,1,0,0,0,0,1,1,0,0,
+1,0,1,1,0,1,0,0,0,0,0,1,0,0,0,0,0,1,1,0,1,1,0,0,0,0,1,1,0,0,1,0,0,1,0,1,0,0,1,
+0,0,1,1,0,0,0,0,1,1,0,0,1,0,1,0,0,0,0,0,0,1,0,1,1,0,1,1,0,1,0,0,0,1,0,0,1,0,1,
+0,0,1,1,0,1,0,0,1,1,0,0,1,0,0,1,0,1,1,0,1,0,0,1,1,0,0,1,0,1,1,0,0,0,0,0,0,0,1
+};
+int pattern_size = (sizeof(pattern)/sizeof(pattern[0]));
diff --git a/games/primes/pr_tbl.c b/games/primes/pr_tbl.c
new file mode 100644
index 0000000..b7b8d04
--- /dev/null
+++ b/games/primes/pr_tbl.c
@@ -0,0 +1,546 @@
+/*
+ * Copyright (c) 1989, 1993
+ *	The Regents of the University of California.  All rights reserved.
+ *
+ * This code is derived from software contributed to Berkeley by
+ * Landon Curt Noll.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the University of
+ *	California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ */
+
+#ifndef lint
+static char sccsid[] = "@(#)pr_tbl.c	8.1 (Berkeley) 5/31/93";
+#endif /* not lint */
+
+/*
+ * prime - prime table
+ *
+ * By: Landon Curt Noll   chongo@toad.com,   ...!{sun,tolsoft}!hoptoad!chongo
+ *
+ *   chongo <for a good prime call: 391581 * 2^216193 - 1> /\oo/\
+ *
+ * We are able to sieve 2^32-1 because this table has primes up to 65537 
+ * and 65537^2 > 2^32-1.
+ */
+
+#include "primes.h"
+
+ubig prime[] = {
+2,3,5,7,11,13,17,19,23,29,31,37,41,43,47,53,59,61,67,71,73,79,83,89,97,101,103,
+107,109,113,127,131,137,139,149,151,157,163,167,173,179,181,191,193,197,199,
+211,223,227,229,233,239,241,251,257,263,269,271,277,281,283,293,307,311,313,
+317,331,337,347,349,353,359,367,373,379,383,389,397,401,409,419,421,431,433,
+439,443,449,457,461,463,467,479,487,491,499,503,509,521,523,541,547,557,563,
+569,571,577,587,593,599,601,607,613,617,619,631,641,643,647,653,659,661,673,
+677,683,691,701,709,719,727,733,739,743,751,757,761,769,773,787,797,809,811,
+821,823,827,829,839,853,857,859,863,877,881,883,887,907,911,919,929,937,941,
+947,953,967,971,977,983,991,997,1009,1013,1019,1021,1031,1033,1039,1049,1051,
+1061,1063,1069,1087,1091,1093,1097,1103,1109,1117,1123,1129,1151,1153,1163,
+1171,1181,1187,1193,1201,1213,1217,1223,1229,1231,1237,1249,1259,1277,1279,
+1283,1289,1291,1297,1301,1303,1307,1319,1321,1327,1361,1367,1373,1381,1399,
+1409,1423,1427,1429,1433,1439,1447,1451,1453,1459,1471,1481,1483,1487,1489,
+1493,1499,1511,1523,1531,1543,1549,1553,1559,1567,1571,1579,1583,1597,1601,
+1607,1609,1613,1619,1621,1627,1637,1657,1663,1667,1669,1693,1697,1699,1709,
+1721,1723,1733,1741,1747,1753,1759,1777,1783,1787,1789,1801,1811,1823,1831,
+1847,1861,1867,1871,1873,1877,1879,1889,1901,1907,1913,1931,1933,1949,1951,
+1973,1979,1987,1993,1997,1999,2003,2011,2017,2027,2029,2039,2053,2063,2069,
+2081,2083,2087,2089,2099,2111,2113,2129,2131,2137,2141,2143,2153,2161,2179,
+2203,2207,2213,2221,2237,2239,2243,2251,2267,2269,2273,2281,2287,2293,2297,
+2309,2311,2333,2339,2341,2347,2351,2357,2371,2377,2381,2383,2389,2393,2399,
+2411,2417,2423,2437,2441,2447,2459,2467,2473,2477,2503,2521,2531,2539,2543,
+2549,2551,2557,2579,2591,2593,2609,2617,2621,2633,2647,2657,2659,2663,2671,
+2677,2683,2687,2689,2693,2699,2707,2711,2713,2719,2729,2731,2741,2749,2753,
+2767,2777,2789,2791,2797,2801,2803,2819,2833,2837,2843,2851,2857,2861,2879,
+2887,2897,2903,2909,2917,2927,2939,2953,2957,2963,2969,2971,2999,3001,3011,
+3019,3023,3037,3041,3049,3061,3067,3079,3083,3089,3109,3119,3121,3137,3163,
+3167,3169,3181,3187,3191,3203,3209,3217,3221,3229,3251,3253,3257,3259,3271,
+3299,3301,3307,3313,3319,3323,3329,3331,3343,3347,3359,3361,3371,3373,3389,
+3391,3407,3413,3433,3449,3457,3461,3463,3467,3469,3491,3499,3511,3517,3527,
+3529,3533,3539,3541,3547,3557,3559,3571,3581,3583,3593,3607,3613,3617,3623,
+3631,3637,3643,3659,3671,3673,3677,3691,3697,3701,3709,3719,3727,3733,3739,
+3761,3767,3769,3779,3793,3797,3803,3821,3823,3833,3847,3851,3853,3863,3877,
+3881,3889,3907,3911,3917,3919,3923,3929,3931,3943,3947,3967,3989,4001,4003,
+4007,4013,4019,4021,4027,4049,4051,4057,4073,4079,4091,4093,4099,4111,4127,
+4129,4133,4139,4153,4157,4159,4177,4201,4211,4217,4219,4229,4231,4241,4243,
+4253,4259,4261,4271,4273,4283,4289,4297,4327,4337,4339,4349,4357,4363,4373,
+4391,4397,4409,4421,4423,4441,4447,4451,4457,4463,4481,4483,4493,4507,4513,
+4517,4519,4523,4547,4549,4561,4567,4583,4591,4597,4603,4621,4637,4639,4643,
+4649,4651,4657,4663,4673,4679,4691,4703,4721,4723,4729,4733,4751,4759,4783,
+4787,4789,4793,4799,4801,4813,4817,4831,4861,4871,4877,4889,4903,4909,4919,
+4931,4933,4937,4943,4951,4957,4967,4969,4973,4987,4993,4999,5003,5009,5011,
+5021,5023,5039,5051,5059,5077,5081,5087,5099,5101,5107,5113,5119,5147,5153,
+5167,5171,5179,5189,5197,5209,5227,5231,5233,5237,5261,5273,5279,5281,5297,
+5303,5309,5323,5333,5347,5351,5381,5387,5393,5399,5407,5413,5417,5419,5431,
+5437,5441,5443,5449,5471,5477,5479,5483,5501,5503,5507,5519,5521,5527,5531,
+5557,5563,5569,5573,5581,5591,5623,5639,5641,5647,5651,5653,5657,5659,5669,
+5683,5689,5693,5701,5711,5717,5737,5741,5743,5749,5779,5783,5791,5801,5807,
+5813,5821,5827,5839,5843,5849,5851,5857,5861,5867,5869,5879,5881,5897,5903,
+5923,5927,5939,5953,5981,5987,6007,6011,6029,6037,6043,6047,6053,6067,6073,
+6079,6089,6091,6101,6113,6121,6131,6133,6143,6151,6163,6173,6197,6199,6203,
+6211,6217,6221,6229,6247,6257,6263,6269,6271,6277,6287,6299,6301,6311,6317,
+6323,6329,6337,6343,6353,6359,6361,6367,6373,6379,6389,6397,6421,6427,6449,
+6451,6469,6473,6481,6491,6521,6529,6547,6551,6553,6563,6569,6571,6577,6581,
+6599,6607,6619,6637,6653,6659,6661,6673,6679,6689,6691,6701,6703,6709,6719,
+6733,6737,6761,6763,6779,6781,6791,6793,6803,6823,6827,6829,6833,6841,6857,
+6863,6869,6871,6883,6899,6907,6911,6917,6947,6949,6959,6961,6967,6971,6977,
+6983,6991,6997,7001,7013,7019,7027,7039,7043,7057,7069,7079,7103,7109,7121,
+7127,7129,7151,7159,7177,7187,7193,7207,7211,7213,7219,7229,7237,7243,7247,
+7253,7283,7297,7307,7309,7321,7331,7333,7349,7351,7369,7393,7411,7417,7433,
+7451,7457,7459,7477,7481,7487,7489,7499,7507,7517,7523,7529,7537,7541,7547,
+7549,7559,7561,7573,7577,7583,7589,7591,7603,7607,7621,7639,7643,7649,7669,
+7673,7681,7687,7691,7699,7703,7717,7723,7727,7741,7753,7757,7759,7789,7793,
+7817,7823,7829,7841,7853,7867,7873,7877,7879,7883,7901,7907,7919,7927,7933,
+7937,7949,7951,7963,7993,8009,8011,8017,8039,8053,8059,8069,8081,8087,8089,
+8093,8101,8111,8117,8123,8147,8161,8167,8171,8179,8191,8209,8219,8221,8231,
+8233,8237,8243,8263,8269,8273,8287,8291,8293,8297,8311,8317,8329,8353,8363,
+8369,8377,8387,8389,8419,8423,8429,8431,8443,8447,8461,8467,8501,8513,8521,
+8527,8537,8539,8543,8563,8573,8581,8597,8599,8609,8623,8627,8629,8641,8647,
+8663,8669,8677,8681,8689,8693,8699,8707,8713,8719,8731,8737,8741,8747,8753,
+8761,8779,8783,8803,8807,8819,8821,8831,8837,8839,8849,8861,8863,8867,8887,
+8893,8923,8929,8933,8941,8951,8963,8969,8971,8999,9001,9007,9011,9013,9029,
+9041,9043,9049,9059,9067,9091,9103,9109,9127,9133,9137,9151,9157,9161,9173,
+9181,9187,9199,9203,9209,9221,9227,9239,9241,9257,9277,9281,9283,9293,9311,
+9319,9323,9337,9341,9343,9349,9371,9377,9391,9397,9403,9413,9419,9421,9431,
+9433,9437,9439,9461,9463,9467,9473,9479,9491,9497,9511,9521,9533,9539,9547,
+9551,9587,9601,9613,9619,9623,9629,9631,9643,9649,9661,9677,9679,9689,9697,
+9719,9721,9733,9739,9743,9749,9767,9769,9781,9787,9791,9803,9811,9817,9829,
+9833,9839,9851,9857,9859,9871,9883,9887,9901,9907,9923,9929,9931,9941,9949,
+9967,9973,10007,10009,10037,10039,10061,10067,10069,10079,10091,10093,10099,
+10103,10111,10133,10139,10141,10151,10159,10163,10169,10177,10181,10193,10211,
+10223,10243,10247,10253,10259,10267,10271,10273,10289,10301,10303,10313,10321,
+10331,10333,10337,10343,10357,10369,10391,10399,10427,10429,10433,10453,10457,
+10459,10463,10477,10487,10499,10501,10513,10529,10531,10559,10567,10589,10597,
+10601,10607,10613,10627,10631,10639,10651,10657,10663,10667,10687,10691,10709,
+10711,10723,10729,10733,10739,10753,10771,10781,10789,10799,10831,10837,10847,
+10853,10859,10861,10867,10883,10889,10891,10903,10909,10937,10939,10949,10957,
+10973,10979,10987,10993,11003,11027,11047,11057,11059,11069,11071,11083,11087,
+11093,11113,11117,11119,11131,11149,11159,11161,11171,11173,11177,11197,11213,
+11239,11243,11251,11257,11261,11273,11279,11287,11299,11311,11317,11321,11329,
+11351,11353,11369,11383,11393,11399,11411,11423,11437,11443,11447,11467,11471,
+11483,11489,11491,11497,11503,11519,11527,11549,11551,11579,11587,11593,11597,
+11617,11621,11633,11657,11677,11681,11689,11699,11701,11717,11719,11731,11743,
+11777,11779,11783,11789,11801,11807,11813,11821,11827,11831,11833,11839,11863,
+11867,11887,11897,11903,11909,11923,11927,11933,11939,11941,11953,11959,11969,
+11971,11981,11987,12007,12011,12037,12041,12043,12049,12071,12073,12097,12101,
+12107,12109,12113,12119,12143,12149,12157,12161,12163,12197,12203,12211,12227,
+12239,12241,12251,12253,12263,12269,12277,12281,12289,12301,12323,12329,12343,
+12347,12373,12377,12379,12391,12401,12409,12413,12421,12433,12437,12451,12457,
+12473,12479,12487,12491,12497,12503,12511,12517,12527,12539,12541,12547,12553,
+12569,12577,12583,12589,12601,12611,12613,12619,12637,12641,12647,12653,12659,
+12671,12689,12697,12703,12713,12721,12739,12743,12757,12763,12781,12791,12799,
+12809,12821,12823,12829,12841,12853,12889,12893,12899,12907,12911,12917,12919,
+12923,12941,12953,12959,12967,12973,12979,12983,13001,13003,13007,13009,13033,
+13037,13043,13049,13063,13093,13099,13103,13109,13121,13127,13147,13151,13159,
+13163,13171,13177,13183,13187,13217,13219,13229,13241,13249,13259,13267,13291,
+13297,13309,13313,13327,13331,13337,13339,13367,13381,13397,13399,13411,13417,
+13421,13441,13451,13457,13463,13469,13477,13487,13499,13513,13523,13537,13553,
+13567,13577,13591,13597,13613,13619,13627,13633,13649,13669,13679,13681,13687,
+13691,13693,13697,13709,13711,13721,13723,13729,13751,13757,13759,13763,13781,
+13789,13799,13807,13829,13831,13841,13859,13873,13877,13879,13883,13901,13903,
+13907,13913,13921,13931,13933,13963,13967,13997,13999,14009,14011,14029,14033,
+14051,14057,14071,14081,14083,14087,14107,14143,14149,14153,14159,14173,14177,
+14197,14207,14221,14243,14249,14251,14281,14293,14303,14321,14323,14327,14341,
+14347,14369,14387,14389,14401,14407,14411,14419,14423,14431,14437,14447,14449,
+14461,14479,14489,14503,14519,14533,14537,14543,14549,14551,14557,14561,14563,
+14591,14593,14621,14627,14629,14633,14639,14653,14657,14669,14683,14699,14713,
+14717,14723,14731,14737,14741,14747,14753,14759,14767,14771,14779,14783,14797,
+14813,14821,14827,14831,14843,14851,14867,14869,14879,14887,14891,14897,14923,
+14929,14939,14947,14951,14957,14969,14983,15013,15017,15031,15053,15061,15073,
+15077,15083,15091,15101,15107,15121,15131,15137,15139,15149,15161,15173,15187,
+15193,15199,15217,15227,15233,15241,15259,15263,15269,15271,15277,15287,15289,
+15299,15307,15313,15319,15329,15331,15349,15359,15361,15373,15377,15383,15391,
+15401,15413,15427,15439,15443,15451,15461,15467,15473,15493,15497,15511,15527,
+15541,15551,15559,15569,15581,15583,15601,15607,15619,15629,15641,15643,15647,
+15649,15661,15667,15671,15679,15683,15727,15731,15733,15737,15739,15749,15761,
+15767,15773,15787,15791,15797,15803,15809,15817,15823,15859,15877,15881,15887,
+15889,15901,15907,15913,15919,15923,15937,15959,15971,15973,15991,16001,16007,
+16033,16057,16061,16063,16067,16069,16073,16087,16091,16097,16103,16111,16127,
+16139,16141,16183,16187,16189,16193,16217,16223,16229,16231,16249,16253,16267,
+16273,16301,16319,16333,16339,16349,16361,16363,16369,16381,16411,16417,16421,
+16427,16433,16447,16451,16453,16477,16481,16487,16493,16519,16529,16547,16553,
+16561,16567,16573,16603,16607,16619,16631,16633,16649,16651,16657,16661,16673,
+16691,16693,16699,16703,16729,16741,16747,16759,16763,16787,16811,16823,16829,
+16831,16843,16871,16879,16883,16889,16901,16903,16921,16927,16931,16937,16943,
+16963,16979,16981,16987,16993,17011,17021,17027,17029,17033,17041,17047,17053,
+17077,17093,17099,17107,17117,17123,17137,17159,17167,17183,17189,17191,17203,
+17207,17209,17231,17239,17257,17291,17293,17299,17317,17321,17327,17333,17341,
+17351,17359,17377,17383,17387,17389,17393,17401,17417,17419,17431,17443,17449,
+17467,17471,17477,17483,17489,17491,17497,17509,17519,17539,17551,17569,17573,
+17579,17581,17597,17599,17609,17623,17627,17657,17659,17669,17681,17683,17707,
+17713,17729,17737,17747,17749,17761,17783,17789,17791,17807,17827,17837,17839,
+17851,17863,17881,17891,17903,17909,17911,17921,17923,17929,17939,17957,17959,
+17971,17977,17981,17987,17989,18013,18041,18043,18047,18049,18059,18061,18077,
+18089,18097,18119,18121,18127,18131,18133,18143,18149,18169,18181,18191,18199,
+18211,18217,18223,18229,18233,18251,18253,18257,18269,18287,18289,18301,18307,
+18311,18313,18329,18341,18353,18367,18371,18379,18397,18401,18413,18427,18433,
+18439,18443,18451,18457,18461,18481,18493,18503,18517,18521,18523,18539,18541,
+18553,18583,18587,18593,18617,18637,18661,18671,18679,18691,18701,18713,18719,
+18731,18743,18749,18757,18773,18787,18793,18797,18803,18839,18859,18869,18899,
+18911,18913,18917,18919,18947,18959,18973,18979,19001,19009,19013,19031,19037,
+19051,19069,19073,19079,19081,19087,19121,19139,19141,19157,19163,19181,19183,
+19207,19211,19213,19219,19231,19237,19249,19259,19267,19273,19289,19301,19309,
+19319,19333,19373,19379,19381,19387,19391,19403,19417,19421,19423,19427,19429,
+19433,19441,19447,19457,19463,19469,19471,19477,19483,19489,19501,19507,19531,
+19541,19543,19553,19559,19571,19577,19583,19597,19603,19609,19661,19681,19687,
+19697,19699,19709,19717,19727,19739,19751,19753,19759,19763,19777,19793,19801,
+19813,19819,19841,19843,19853,19861,19867,19889,19891,19913,19919,19927,19937,
+19949,19961,19963,19973,19979,19991,19993,19997,20011,20021,20023,20029,20047,
+20051,20063,20071,20089,20101,20107,20113,20117,20123,20129,20143,20147,20149,
+20161,20173,20177,20183,20201,20219,20231,20233,20249,20261,20269,20287,20297,
+20323,20327,20333,20341,20347,20353,20357,20359,20369,20389,20393,20399,20407,
+20411,20431,20441,20443,20477,20479,20483,20507,20509,20521,20533,20543,20549,
+20551,20563,20593,20599,20611,20627,20639,20641,20663,20681,20693,20707,20717,
+20719,20731,20743,20747,20749,20753,20759,20771,20773,20789,20807,20809,20849,
+20857,20873,20879,20887,20897,20899,20903,20921,20929,20939,20947,20959,20963,
+20981,20983,21001,21011,21013,21017,21019,21023,21031,21059,21061,21067,21089,
+21101,21107,21121,21139,21143,21149,21157,21163,21169,21179,21187,21191,21193,
+21211,21221,21227,21247,21269,21277,21283,21313,21317,21319,21323,21341,21347,
+21377,21379,21383,21391,21397,21401,21407,21419,21433,21467,21481,21487,21491,
+21493,21499,21503,21517,21521,21523,21529,21557,21559,21563,21569,21577,21587,
+21589,21599,21601,21611,21613,21617,21647,21649,21661,21673,21683,21701,21713,
+21727,21737,21739,21751,21757,21767,21773,21787,21799,21803,21817,21821,21839,
+21841,21851,21859,21863,21871,21881,21893,21911,21929,21937,21943,21961,21977,
+21991,21997,22003,22013,22027,22031,22037,22039,22051,22063,22067,22073,22079,
+22091,22093,22109,22111,22123,22129,22133,22147,22153,22157,22159,22171,22189,
+22193,22229,22247,22259,22271,22273,22277,22279,22283,22291,22303,22307,22343,
+22349,22367,22369,22381,22391,22397,22409,22433,22441,22447,22453,22469,22481,
+22483,22501,22511,22531,22541,22543,22549,22567,22571,22573,22613,22619,22621,
+22637,22639,22643,22651,22669,22679,22691,22697,22699,22709,22717,22721,22727,
+22739,22741,22751,22769,22777,22783,22787,22807,22811,22817,22853,22859,22861,
+22871,22877,22901,22907,22921,22937,22943,22961,22963,22973,22993,23003,23011,
+23017,23021,23027,23029,23039,23041,23053,23057,23059,23063,23071,23081,23087,
+23099,23117,23131,23143,23159,23167,23173,23189,23197,23201,23203,23209,23227,
+23251,23269,23279,23291,23293,23297,23311,23321,23327,23333,23339,23357,23369,
+23371,23399,23417,23431,23447,23459,23473,23497,23509,23531,23537,23539,23549,
+23557,23561,23563,23567,23581,23593,23599,23603,23609,23623,23627,23629,23633,
+23663,23669,23671,23677,23687,23689,23719,23741,23743,23747,23753,23761,23767,
+23773,23789,23801,23813,23819,23827,23831,23833,23857,23869,23873,23879,23887,
+23893,23899,23909,23911,23917,23929,23957,23971,23977,23981,23993,24001,24007,
+24019,24023,24029,24043,24049,24061,24071,24077,24083,24091,24097,24103,24107,
+24109,24113,24121,24133,24137,24151,24169,24179,24181,24197,24203,24223,24229,
+24239,24247,24251,24281,24317,24329,24337,24359,24371,24373,24379,24391,24407,
+24413,24419,24421,24439,24443,24469,24473,24481,24499,24509,24517,24527,24533,
+24547,24551,24571,24593,24611,24623,24631,24659,24671,24677,24683,24691,24697,
+24709,24733,24749,24763,24767,24781,24793,24799,24809,24821,24841,24847,24851,
+24859,24877,24889,24907,24917,24919,24923,24943,24953,24967,24971,24977,24979,
+24989,25013,25031,25033,25037,25057,25073,25087,25097,25111,25117,25121,25127,
+25147,25153,25163,25169,25171,25183,25189,25219,25229,25237,25243,25247,25253,
+25261,25301,25303,25307,25309,25321,25339,25343,25349,25357,25367,25373,25391,
+25409,25411,25423,25439,25447,25453,25457,25463,25469,25471,25523,25537,25541,
+25561,25577,25579,25583,25589,25601,25603,25609,25621,25633,25639,25643,25657,
+25667,25673,25679,25693,25703,25717,25733,25741,25747,25759,25763,25771,25793,
+25799,25801,25819,25841,25847,25849,25867,25873,25889,25903,25913,25919,25931,
+25933,25939,25943,25951,25969,25981,25997,25999,26003,26017,26021,26029,26041,
+26053,26083,26099,26107,26111,26113,26119,26141,26153,26161,26171,26177,26183,
+26189,26203,26209,26227,26237,26249,26251,26261,26263,26267,26293,26297,26309,
+26317,26321,26339,26347,26357,26371,26387,26393,26399,26407,26417,26423,26431,
+26437,26449,26459,26479,26489,26497,26501,26513,26539,26557,26561,26573,26591,
+26597,26627,26633,26641,26647,26669,26681,26683,26687,26693,26699,26701,26711,
+26713,26717,26723,26729,26731,26737,26759,26777,26783,26801,26813,26821,26833,
+26839,26849,26861,26863,26879,26881,26891,26893,26903,26921,26927,26947,26951,
+26953,26959,26981,26987,26993,27011,27017,27031,27043,27059,27061,27067,27073,
+27077,27091,27103,27107,27109,27127,27143,27179,27191,27197,27211,27239,27241,
+27253,27259,27271,27277,27281,27283,27299,27329,27337,27361,27367,27397,27407,
+27409,27427,27431,27437,27449,27457,27479,27481,27487,27509,27527,27529,27539,
+27541,27551,27581,27583,27611,27617,27631,27647,27653,27673,27689,27691,27697,
+27701,27733,27737,27739,27743,27749,27751,27763,27767,27773,27779,27791,27793,
+27799,27803,27809,27817,27823,27827,27847,27851,27883,27893,27901,27917,27919,
+27941,27943,27947,27953,27961,27967,27983,27997,28001,28019,28027,28031,28051,
+28057,28069,28081,28087,28097,28099,28109,28111,28123,28151,28163,28181,28183,
+28201,28211,28219,28229,28277,28279,28283,28289,28297,28307,28309,28319,28349,
+28351,28387,28393,28403,28409,28411,28429,28433,28439,28447,28463,28477,28493,
+28499,28513,28517,28537,28541,28547,28549,28559,28571,28573,28579,28591,28597,
+28603,28607,28619,28621,28627,28631,28643,28649,28657,28661,28663,28669,28687,
+28697,28703,28711,28723,28729,28751,28753,28759,28771,28789,28793,28807,28813,
+28817,28837,28843,28859,28867,28871,28879,28901,28909,28921,28927,28933,28949,
+28961,28979,29009,29017,29021,29023,29027,29033,29059,29063,29077,29101,29123,
+29129,29131,29137,29147,29153,29167,29173,29179,29191,29201,29207,29209,29221,
+29231,29243,29251,29269,29287,29297,29303,29311,29327,29333,29339,29347,29363,
+29383,29387,29389,29399,29401,29411,29423,29429,29437,29443,29453,29473,29483,
+29501,29527,29531,29537,29567,29569,29573,29581,29587,29599,29611,29629,29633,
+29641,29663,29669,29671,29683,29717,29723,29741,29753,29759,29761,29789,29803,
+29819,29833,29837,29851,29863,29867,29873,29879,29881,29917,29921,29927,29947,
+29959,29983,29989,30011,30013,30029,30047,30059,30071,30089,30091,30097,30103,
+30109,30113,30119,30133,30137,30139,30161,30169,30181,30187,30197,30203,30211,
+30223,30241,30253,30259,30269,30271,30293,30307,30313,30319,30323,30341,30347,
+30367,30389,30391,30403,30427,30431,30449,30467,30469,30491,30493,30497,30509,
+30517,30529,30539,30553,30557,30559,30577,30593,30631,30637,30643,30649,30661,
+30671,30677,30689,30697,30703,30707,30713,30727,30757,30763,30773,30781,30803,
+30809,30817,30829,30839,30841,30851,30853,30859,30869,30871,30881,30893,30911,
+30931,30937,30941,30949,30971,30977,30983,31013,31019,31033,31039,31051,31063,
+31069,31079,31081,31091,31121,31123,31139,31147,31151,31153,31159,31177,31181,
+31183,31189,31193,31219,31223,31231,31237,31247,31249,31253,31259,31267,31271,
+31277,31307,31319,31321,31327,31333,31337,31357,31379,31387,31391,31393,31397,
+31469,31477,31481,31489,31511,31513,31517,31531,31541,31543,31547,31567,31573,
+31583,31601,31607,31627,31643,31649,31657,31663,31667,31687,31699,31721,31723,
+31727,31729,31741,31751,31769,31771,31793,31799,31817,31847,31849,31859,31873,
+31883,31891,31907,31957,31963,31973,31981,31991,32003,32009,32027,32029,32051,
+32057,32059,32063,32069,32077,32083,32089,32099,32117,32119,32141,32143,32159,
+32173,32183,32189,32191,32203,32213,32233,32237,32251,32257,32261,32297,32299,
+32303,32309,32321,32323,32327,32341,32353,32359,32363,32369,32371,32377,32381,
+32401,32411,32413,32423,32429,32441,32443,32467,32479,32491,32497,32503,32507,
+32531,32533,32537,32561,32563,32569,32573,32579,32587,32603,32609,32611,32621,
+32633,32647,32653,32687,32693,32707,32713,32717,32719,32749,32771,32779,32783,
+32789,32797,32801,32803,32831,32833,32839,32843,32869,32887,32909,32911,32917,
+32933,32939,32941,32957,32969,32971,32983,32987,32993,32999,33013,33023,33029,
+33037,33049,33053,33071,33073,33083,33091,33107,33113,33119,33149,33151,33161,
+33179,33181,33191,33199,33203,33211,33223,33247,33287,33289,33301,33311,33317,
+33329,33331,33343,33347,33349,33353,33359,33377,33391,33403,33409,33413,33427,
+33457,33461,33469,33479,33487,33493,33503,33521,33529,33533,33547,33563,33569,
+33577,33581,33587,33589,33599,33601,33613,33617,33619,33623,33629,33637,33641,
+33647,33679,33703,33713,33721,33739,33749,33751,33757,33767,33769,33773,33791,
+33797,33809,33811,33827,33829,33851,33857,33863,33871,33889,33893,33911,33923,
+33931,33937,33941,33961,33967,33997,34019,34031,34033,34039,34057,34061,34123,
+34127,34129,34141,34147,34157,34159,34171,34183,34211,34213,34217,34231,34253,
+34259,34261,34267,34273,34283,34297,34301,34303,34313,34319,34327,34337,34351,
+34361,34367,34369,34381,34403,34421,34429,34439,34457,34469,34471,34483,34487,
+34499,34501,34511,34513,34519,34537,34543,34549,34583,34589,34591,34603,34607,
+34613,34631,34649,34651,34667,34673,34679,34687,34693,34703,34721,34729,34739,
+34747,34757,34759,34763,34781,34807,34819,34841,34843,34847,34849,34871,34877,
+34883,34897,34913,34919,34939,34949,34961,34963,34981,35023,35027,35051,35053,
+35059,35069,35081,35083,35089,35099,35107,35111,35117,35129,35141,35149,35153,
+35159,35171,35201,35221,35227,35251,35257,35267,35279,35281,35291,35311,35317,
+35323,35327,35339,35353,35363,35381,35393,35401,35407,35419,35423,35437,35447,
+35449,35461,35491,35507,35509,35521,35527,35531,35533,35537,35543,35569,35573,
+35591,35593,35597,35603,35617,35671,35677,35729,35731,35747,35753,35759,35771,
+35797,35801,35803,35809,35831,35837,35839,35851,35863,35869,35879,35897,35899,
+35911,35923,35933,35951,35963,35969,35977,35983,35993,35999,36007,36011,36013,
+36017,36037,36061,36067,36073,36083,36097,36107,36109,36131,36137,36151,36161,
+36187,36191,36209,36217,36229,36241,36251,36263,36269,36277,36293,36299,36307,
+36313,36319,36341,36343,36353,36373,36383,36389,36433,36451,36457,36467,36469,
+36473,36479,36493,36497,36523,36527,36529,36541,36551,36559,36563,36571,36583,
+36587,36599,36607,36629,36637,36643,36653,36671,36677,36683,36691,36697,36709,
+36713,36721,36739,36749,36761,36767,36779,36781,36787,36791,36793,36809,36821,
+36833,36847,36857,36871,36877,36887,36899,36901,36913,36919,36923,36929,36931,
+36943,36947,36973,36979,36997,37003,37013,37019,37021,37039,37049,37057,37061,
+37087,37097,37117,37123,37139,37159,37171,37181,37189,37199,37201,37217,37223,
+37243,37253,37273,37277,37307,37309,37313,37321,37337,37339,37357,37361,37363,
+37369,37379,37397,37409,37423,37441,37447,37463,37483,37489,37493,37501,37507,
+37511,37517,37529,37537,37547,37549,37561,37567,37571,37573,37579,37589,37591,
+37607,37619,37633,37643,37649,37657,37663,37691,37693,37699,37717,37747,37781,
+37783,37799,37811,37813,37831,37847,37853,37861,37871,37879,37889,37897,37907,
+37951,37957,37963,37967,37987,37991,37993,37997,38011,38039,38047,38053,38069,
+38083,38113,38119,38149,38153,38167,38177,38183,38189,38197,38201,38219,38231,
+38237,38239,38261,38273,38281,38287,38299,38303,38317,38321,38327,38329,38333,
+38351,38371,38377,38393,38431,38447,38449,38453,38459,38461,38501,38543,38557,
+38561,38567,38569,38593,38603,38609,38611,38629,38639,38651,38653,38669,38671,
+38677,38693,38699,38707,38711,38713,38723,38729,38737,38747,38749,38767,38783,
+38791,38803,38821,38833,38839,38851,38861,38867,38873,38891,38903,38917,38921,
+38923,38933,38953,38959,38971,38977,38993,39019,39023,39041,39043,39047,39079,
+39089,39097,39103,39107,39113,39119,39133,39139,39157,39161,39163,39181,39191,
+39199,39209,39217,39227,39229,39233,39239,39241,39251,39293,39301,39313,39317,
+39323,39341,39343,39359,39367,39371,39373,39383,39397,39409,39419,39439,39443,
+39451,39461,39499,39503,39509,39511,39521,39541,39551,39563,39569,39581,39607,
+39619,39623,39631,39659,39667,39671,39679,39703,39709,39719,39727,39733,39749,
+39761,39769,39779,39791,39799,39821,39827,39829,39839,39841,39847,39857,39863,
+39869,39877,39883,39887,39901,39929,39937,39953,39971,39979,39983,39989,40009,
+40013,40031,40037,40039,40063,40087,40093,40099,40111,40123,40127,40129,40151,
+40153,40163,40169,40177,40189,40193,40213,40231,40237,40241,40253,40277,40283,
+40289,40343,40351,40357,40361,40387,40423,40427,40429,40433,40459,40471,40483,
+40487,40493,40499,40507,40519,40529,40531,40543,40559,40577,40583,40591,40597,
+40609,40627,40637,40639,40693,40697,40699,40709,40739,40751,40759,40763,40771,
+40787,40801,40813,40819,40823,40829,40841,40847,40849,40853,40867,40879,40883,
+40897,40903,40927,40933,40939,40949,40961,40973,40993,41011,41017,41023,41039,
+41047,41051,41057,41077,41081,41113,41117,41131,41141,41143,41149,41161,41177,
+41179,41183,41189,41201,41203,41213,41221,41227,41231,41233,41243,41257,41263,
+41269,41281,41299,41333,41341,41351,41357,41381,41387,41389,41399,41411,41413,
+41443,41453,41467,41479,41491,41507,41513,41519,41521,41539,41543,41549,41579,
+41593,41597,41603,41609,41611,41617,41621,41627,41641,41647,41651,41659,41669,
+41681,41687,41719,41729,41737,41759,41761,41771,41777,41801,41809,41813,41843,
+41849,41851,41863,41879,41887,41893,41897,41903,41911,41927,41941,41947,41953,
+41957,41959,41969,41981,41983,41999,42013,42017,42019,42023,42043,42061,42071,
+42073,42083,42089,42101,42131,42139,42157,42169,42179,42181,42187,42193,42197,
+42209,42221,42223,42227,42239,42257,42281,42283,42293,42299,42307,42323,42331,
+42337,42349,42359,42373,42379,42391,42397,42403,42407,42409,42433,42437,42443,
+42451,42457,42461,42463,42467,42473,42487,42491,42499,42509,42533,42557,42569,
+42571,42577,42589,42611,42641,42643,42649,42667,42677,42683,42689,42697,42701,
+42703,42709,42719,42727,42737,42743,42751,42767,42773,42787,42793,42797,42821,
+42829,42839,42841,42853,42859,42863,42899,42901,42923,42929,42937,42943,42953,
+42961,42967,42979,42989,43003,43013,43019,43037,43049,43051,43063,43067,43093,
+43103,43117,43133,43151,43159,43177,43189,43201,43207,43223,43237,43261,43271,
+43283,43291,43313,43319,43321,43331,43391,43397,43399,43403,43411,43427,43441,
+43451,43457,43481,43487,43499,43517,43541,43543,43573,43577,43579,43591,43597,
+43607,43609,43613,43627,43633,43649,43651,43661,43669,43691,43711,43717,43721,
+43753,43759,43777,43781,43783,43787,43789,43793,43801,43853,43867,43889,43891,
+43913,43933,43943,43951,43961,43963,43969,43973,43987,43991,43997,44017,44021,
+44027,44029,44041,44053,44059,44071,44087,44089,44101,44111,44119,44123,44129,
+44131,44159,44171,44179,44189,44201,44203,44207,44221,44249,44257,44263,44267,
+44269,44273,44279,44281,44293,44351,44357,44371,44381,44383,44389,44417,44449,
+44453,44483,44491,44497,44501,44507,44519,44531,44533,44537,44543,44549,44563,
+44579,44587,44617,44621,44623,44633,44641,44647,44651,44657,44683,44687,44699,
+44701,44711,44729,44741,44753,44771,44773,44777,44789,44797,44809,44819,44839,
+44843,44851,44867,44879,44887,44893,44909,44917,44927,44939,44953,44959,44963,
+44971,44983,44987,45007,45013,45053,45061,45077,45083,45119,45121,45127,45131,
+45137,45139,45161,45179,45181,45191,45197,45233,45247,45259,45263,45281,45289,
+45293,45307,45317,45319,45329,45337,45341,45343,45361,45377,45389,45403,45413,
+45427,45433,45439,45481,45491,45497,45503,45523,45533,45541,45553,45557,45569,
+45587,45589,45599,45613,45631,45641,45659,45667,45673,45677,45691,45697,45707,
+45737,45751,45757,45763,45767,45779,45817,45821,45823,45827,45833,45841,45853,
+45863,45869,45887,45893,45943,45949,45953,45959,45971,45979,45989,46021,46027,
+46049,46051,46061,46073,46091,46093,46099,46103,46133,46141,46147,46153,46171,
+46181,46183,46187,46199,46219,46229,46237,46261,46271,46273,46279,46301,46307,
+46309,46327,46337,46349,46351,46381,46399,46411,46439,46441,46447,46451,46457,
+46471,46477,46489,46499,46507,46511,46523,46549,46559,46567,46573,46589,46591,
+46601,46619,46633,46639,46643,46649,46663,46679,46681,46687,46691,46703,46723,
+46727,46747,46751,46757,46769,46771,46807,46811,46817,46819,46829,46831,46853,
+46861,46867,46877,46889,46901,46919,46933,46957,46993,46997,47017,47041,47051,
+47057,47059,47087,47093,47111,47119,47123,47129,47137,47143,47147,47149,47161,
+47189,47207,47221,47237,47251,47269,47279,47287,47293,47297,47303,47309,47317,
+47339,47351,47353,47363,47381,47387,47389,47407,47417,47419,47431,47441,47459,
+47491,47497,47501,47507,47513,47521,47527,47533,47543,47563,47569,47581,47591,
+47599,47609,47623,47629,47639,47653,47657,47659,47681,47699,47701,47711,47713,
+47717,47737,47741,47743,47777,47779,47791,47797,47807,47809,47819,47837,47843,
+47857,47869,47881,47903,47911,47917,47933,47939,47947,47951,47963,47969,47977,
+47981,48017,48023,48029,48049,48073,48079,48091,48109,48119,48121,48131,48157,
+48163,48179,48187,48193,48197,48221,48239,48247,48259,48271,48281,48299,48311,
+48313,48337,48341,48353,48371,48383,48397,48407,48409,48413,48437,48449,48463,
+48473,48479,48481,48487,48491,48497,48523,48527,48533,48539,48541,48563,48571,
+48589,48593,48611,48619,48623,48647,48649,48661,48673,48677,48679,48731,48733,
+48751,48757,48761,48767,48779,48781,48787,48799,48809,48817,48821,48823,48847,
+48857,48859,48869,48871,48883,48889,48907,48947,48953,48973,48989,48991,49003,
+49009,49019,49031,49033,49037,49043,49057,49069,49081,49103,49109,49117,49121,
+49123,49139,49157,49169,49171,49177,49193,49199,49201,49207,49211,49223,49253,
+49261,49277,49279,49297,49307,49331,49333,49339,49363,49367,49369,49391,49393,
+49409,49411,49417,49429,49433,49451,49459,49463,49477,49481,49499,49523,49529,
+49531,49537,49547,49549,49559,49597,49603,49613,49627,49633,49639,49663,49667,
+49669,49681,49697,49711,49727,49739,49741,49747,49757,49783,49787,49789,49801,
+49807,49811,49823,49831,49843,49853,49871,49877,49891,49919,49921,49927,49937,
+49939,49943,49957,49991,49993,49999,50021,50023,50033,50047,50051,50053,50069,
+50077,50087,50093,50101,50111,50119,50123,50129,50131,50147,50153,50159,50177,
+50207,50221,50227,50231,50261,50263,50273,50287,50291,50311,50321,50329,50333,
+50341,50359,50363,50377,50383,50387,50411,50417,50423,50441,50459,50461,50497,
+50503,50513,50527,50539,50543,50549,50551,50581,50587,50591,50593,50599,50627,
+50647,50651,50671,50683,50707,50723,50741,50753,50767,50773,50777,50789,50821,
+50833,50839,50849,50857,50867,50873,50891,50893,50909,50923,50929,50951,50957,
+50969,50971,50989,50993,51001,51031,51043,51047,51059,51061,51071,51109,51131,
+51133,51137,51151,51157,51169,51193,51197,51199,51203,51217,51229,51239,51241,
+51257,51263,51283,51287,51307,51329,51341,51343,51347,51349,51361,51383,51407,
+51413,51419,51421,51427,51431,51437,51439,51449,51461,51473,51479,51481,51487,
+51503,51511,51517,51521,51539,51551,51563,51577,51581,51593,51599,51607,51613,
+51631,51637,51647,51659,51673,51679,51683,51691,51713,51719,51721,51749,51767,
+51769,51787,51797,51803,51817,51827,51829,51839,51853,51859,51869,51871,51893,
+51899,51907,51913,51929,51941,51949,51971,51973,51977,51991,52009,52021,52027,
+52051,52057,52067,52069,52081,52103,52121,52127,52147,52153,52163,52177,52181,
+52183,52189,52201,52223,52237,52249,52253,52259,52267,52289,52291,52301,52313,
+52321,52361,52363,52369,52379,52387,52391,52433,52453,52457,52489,52501,52511,
+52517,52529,52541,52543,52553,52561,52567,52571,52579,52583,52609,52627,52631,
+52639,52667,52673,52691,52697,52709,52711,52721,52727,52733,52747,52757,52769,
+52783,52807,52813,52817,52837,52859,52861,52879,52883,52889,52901,52903,52919,
+52937,52951,52957,52963,52967,52973,52981,52999,53003,53017,53047,53051,53069,
+53077,53087,53089,53093,53101,53113,53117,53129,53147,53149,53161,53171,53173,
+53189,53197,53201,53231,53233,53239,53267,53269,53279,53281,53299,53309,53323,
+53327,53353,53359,53377,53381,53401,53407,53411,53419,53437,53441,53453,53479,
+53503,53507,53527,53549,53551,53569,53591,53593,53597,53609,53611,53617,53623,
+53629,53633,53639,53653,53657,53681,53693,53699,53717,53719,53731,53759,53773,
+53777,53783,53791,53813,53819,53831,53849,53857,53861,53881,53887,53891,53897,
+53899,53917,53923,53927,53939,53951,53959,53987,53993,54001,54011,54013,54037,
+54049,54059,54083,54091,54101,54121,54133,54139,54151,54163,54167,54181,54193,
+54217,54251,54269,54277,54287,54293,54311,54319,54323,54331,54347,54361,54367,
+54371,54377,54401,54403,54409,54413,54419,54421,54437,54443,54449,54469,54493,
+54497,54499,54503,54517,54521,54539,54541,54547,54559,54563,54577,54581,54583,
+54601,54617,54623,54629,54631,54647,54667,54673,54679,54709,54713,54721,54727,
+54751,54767,54773,54779,54787,54799,54829,54833,54851,54869,54877,54881,54907,
+54917,54919,54941,54949,54959,54973,54979,54983,55001,55009,55021,55049,55051,
+55057,55061,55073,55079,55103,55109,55117,55127,55147,55163,55171,55201,55207,
+55213,55217,55219,55229,55243,55249,55259,55291,55313,55331,55333,55337,55339,
+55343,55351,55373,55381,55399,55411,55439,55441,55457,55469,55487,55501,55511,
+55529,55541,55547,55579,55589,55603,55609,55619,55621,55631,55633,55639,55661,
+55663,55667,55673,55681,55691,55697,55711,55717,55721,55733,55763,55787,55793,
+55799,55807,55813,55817,55819,55823,55829,55837,55843,55849,55871,55889,55897,
+55901,55903,55921,55927,55931,55933,55949,55967,55987,55997,56003,56009,56039,
+56041,56053,56081,56087,56093,56099,56101,56113,56123,56131,56149,56167,56171,
+56179,56197,56207,56209,56237,56239,56249,56263,56267,56269,56299,56311,56333,
+56359,56369,56377,56383,56393,56401,56417,56431,56437,56443,56453,56467,56473,
+56477,56479,56489,56501,56503,56509,56519,56527,56531,56533,56543,56569,56591,
+56597,56599,56611,56629,56633,56659,56663,56671,56681,56687,56701,56711,56713,
+56731,56737,56747,56767,56773,56779,56783,56807,56809,56813,56821,56827,56843,
+56857,56873,56891,56893,56897,56909,56911,56921,56923,56929,56941,56951,56957,
+56963,56983,56989,56993,56999,57037,57041,57047,57059,57073,57077,57089,57097,
+57107,57119,57131,57139,57143,57149,57163,57173,57179,57191,57193,57203,57221,
+57223,57241,57251,57259,57269,57271,57283,57287,57301,57329,57331,57347,57349,
+57367,57373,57383,57389,57397,57413,57427,57457,57467,57487,57493,57503,57527,
+57529,57557,57559,57571,57587,57593,57601,57637,57641,57649,57653,57667,57679,
+57689,57697,57709,57713,57719,57727,57731,57737,57751,57773,57781,57787,57791,
+57793,57803,57809,57829,57839,57847,57853,57859,57881,57899,57901,57917,57923,
+57943,57947,57973,57977,57991,58013,58027,58031,58043,58049,58057,58061,58067,
+58073,58099,58109,58111,58129,58147,58151,58153,58169,58171,58189,58193,58199,
+58207,58211,58217,58229,58231,58237,58243,58271,58309,58313,58321,58337,58363,
+58367,58369,58379,58391,58393,58403,58411,58417,58427,58439,58441,58451,58453,
+58477,58481,58511,58537,58543,58549,58567,58573,58579,58601,58603,58613,58631,
+58657,58661,58679,58687,58693,58699,58711,58727,58733,58741,58757,58763,58771,
+58787,58789,58831,58889,58897,58901,58907,58909,58913,58921,58937,58943,58963,
+58967,58979,58991,58997,59009,59011,59021,59023,59029,59051,59053,59063,59069,
+59077,59083,59093,59107,59113,59119,59123,59141,59149,59159,59167,59183,59197,
+59207,59209,59219,59221,59233,59239,59243,59263,59273,59281,59333,59341,59351,
+59357,59359,59369,59377,59387,59393,59399,59407,59417,59419,59441,59443,59447,
+59453,59467,59471,59473,59497,59509,59513,59539,59557,59561,59567,59581,59611,
+59617,59621,59627,59629,59651,59659,59663,59669,59671,59693,59699,59707,59723,
+59729,59743,59747,59753,59771,59779,59791,59797,59809,59833,59863,59879,59887,
+59921,59929,59951,59957,59971,59981,59999,60013,60017,60029,60037,60041,60077,
+60083,60089,60091,60101,60103,60107,60127,60133,60139,60149,60161,60167,60169,
+60209,60217,60223,60251,60257,60259,60271,60289,60293,60317,60331,60337,60343,
+60353,60373,60383,60397,60413,60427,60443,60449,60457,60493,60497,60509,60521,
+60527,60539,60589,60601,60607,60611,60617,60623,60631,60637,60647,60649,60659,
+60661,60679,60689,60703,60719,60727,60733,60737,60757,60761,60763,60773,60779,
+60793,60811,60821,60859,60869,60887,60889,60899,60901,60913,60917,60919,60923,
+60937,60943,60953,60961,61001,61007,61027,61031,61043,61051,61057,61091,61099,
+61121,61129,61141,61151,61153,61169,61211,61223,61231,61253,61261,61283,61291,
+61297,61331,61333,61339,61343,61357,61363,61379,61381,61403,61409,61417,61441,
+61463,61469,61471,61483,61487,61493,61507,61511,61519,61543,61547,61553,61559,
+61561,61583,61603,61609,61613,61627,61631,61637,61643,61651,61657,61667,61673,
+61681,61687,61703,61717,61723,61729,61751,61757,61781,61813,61819,61837,61843,
+61861,61871,61879,61909,61927,61933,61949,61961,61967,61979,61981,61987,61991,
+62003,62011,62017,62039,62047,62053,62057,62071,62081,62099,62119,62129,62131,
+62137,62141,62143,62171,62189,62191,62201,62207,62213,62219,62233,62273,62297,
+62299,62303,62311,62323,62327,62347,62351,62383,62401,62417,62423,62459,62467,
+62473,62477,62483,62497,62501,62507,62533,62539,62549,62563,62581,62591,62597,
+62603,62617,62627,62633,62639,62653,62659,62683,62687,62701,62723,62731,62743,
+62753,62761,62773,62791,62801,62819,62827,62851,62861,62869,62873,62897,62903,
+62921,62927,62929,62939,62969,62971,62981,62983,62987,62989,63029,63031,63059,
+63067,63073,63079,63097,63103,63113,63127,63131,63149,63179,63197,63199,63211,
+63241,63247,63277,63281,63299,63311,63313,63317,63331,63337,63347,63353,63361,
+63367,63377,63389,63391,63397,63409,63419,63421,63439,63443,63463,63467,63473,
+63487,63493,63499,63521,63527,63533,63541,63559,63577,63587,63589,63599,63601,
+63607,63611,63617,63629,63647,63649,63659,63667,63671,63689,63691,63697,63703,
+63709,63719,63727,63737,63743,63761,63773,63781,63793,63799,63803,63809,63823,
+63839,63841,63853,63857,63863,63901,63907,63913,63929,63949,63977,63997,64007,
+64013,64019,64033,64037,64063,64067,64081,64091,64109,64123,64151,64153,64157,
+64171,64187,64189,64217,64223,64231,64237,64271,64279,64283,64301,64303,64319,
+64327,64333,64373,64381,64399,64403,64433,64439,64451,64453,64483,64489,64499,
+64513,64553,64567,64577,64579,64591,64601,64609,64613,64621,64627,64633,64661,
+64663,64667,64679,64693,64709,64717,64747,64763,64781,64783,64793,64811,64817,
+64849,64853,64871,64877,64879,64891,64901,64919,64921,64927,64937,64951,64969,
+64997,65003,65011,65027,65029,65033,65053,65063,65071,65089,65099,65101,65111,
+65119,65123,65129,65141,65147,65167,65171,65173,65179,65183,65203,65213,65239,
+65257,65267,65269,65287,65293,65309,65323,65327,65353,65357,65371,65381,65393,
+65407,65413,65419,65423,65437,65447,65449,65479,65497,65519,65521,65537
+};
+
+/* pr_limit - largest prime in the prime table */
+unsigned long *pr_limit = &prime[(sizeof(prime)/sizeof(prime[0]))-1];
diff --git a/games/primes/primes.c b/games/primes/primes.c
new file mode 100644
index 0000000..706576b
--- /dev/null
+++ b/games/primes/primes.c
@@ -0,0 +1,332 @@
+/*
+ * Copyright (c) 1989, 1993
+ *	The Regents of the University of California.  All rights reserved.
+ *
+ * This code is derived from software contributed to Berkeley by
+ * Landon Curt Noll.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the University of
+ *	California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ */
+
+#ifndef lint
+static char copyright[] =
+"@(#) Copyright (c) 1989, 1993\n\
+	The Regents of the University of California.  All rights reserved.\n";
+#endif /* not lint */
+
+#ifndef lint
+static char sccsid[] = "@(#)primes.c	8.4 (Berkeley) 3/21/94";
+#endif /* not lint */
+
+/*
+ * primes - generate a table of primes between two values
+ *
+ * By: Landon Curt Noll chongo@toad.com, ...!{sun,tolsoft}!hoptoad!chongo
+ *
+ * chongo <for a good prime call: 391581 * 2^216193 - 1> /\oo/\
+ *
+ * usage:
+ *	primes [start [stop]]
+ *
+ *	Print primes >= start and < stop.  If stop is omitted,
+ *	the value 4294967295 (2^32-1) is assumed.  If start is
+ *	omitted, start is read from standard input.
+ *
+ * validation check: there are 664579 primes between 0 and 10^7
+ */
+
+#include <ctype.h>
+#include <err.h>
+#include <errno.h>
+#include <limits.h>
+#include <math.h>
+#include <memory.h>
+#include <stdio.h>
+#include <stdlib.h>
+
+#include "primes.h"
+
+/*
+ * Eratosthenes sieve table
+ *
+ * We only sieve the odd numbers.  The base of our sieve windows are always
+ * odd.  If the base of table is 1, table[i] represents 2*i-1.  After the
+ * sieve, table[i] == 1 if and only iff 2*i-1 is prime.
+ *
+ * We make TABSIZE large to reduce the overhead of inner loop setup.
+ */
+char table[TABSIZE];	 /* Eratosthenes sieve of odd numbers */
+
+/*
+ * prime[i] is the (i-1)th prime.
+ *
+ * We are able to sieve 2^32-1 because this byte table yields all primes 
+ * up to 65537 and 65537^2 > 2^32-1.
+ */
+extern ubig prime[];
+extern ubig *pr_limit;		/* largest prime in the prime array */
+
+/*
+ * To avoid excessive sieves for small factors, we use the table below to 
+ * setup our sieve blocks.  Each element represents a odd number starting 
+ * with 1.  All non-zero elements are factors of 3, 5, 7, 11 and 13.
+ */
+extern char pattern[];
+extern int pattern_size;	/* length of pattern array */
+
+void	primes __P((ubig, ubig));
+ubig	read_num_buf __P((void));
+void	usage __P((void));
+
+int
+main(argc, argv)
+	int argc;
+	char *argv[];
+{
+	ubig start;		/* where to start generating */
+	ubig stop;		/* don't generate at or above this value */
+	int ch;
+	char *p;
+
+	while ((ch = getopt(argc, argv, "")) != EOF)
+		switch (ch) {
+		case '?':
+		default:
+			usage();
+		}
+	argc -= optind;
+	argv += optind;
+
+	start = 0;
+	stop = BIG;
+
+	/*
+	 * Convert low and high args.  Strtoul(3) sets errno to
+	 * ERANGE if the number is too large, but, if there's
+	 * a leading minus sign it returns the negation of the
+	 * result of the conversion, which we'd rather disallow.
+	 */
+	switch (argc) {
+	case 2:
+		/* Start and stop supplied on the command line. */
+		if (argv[0][0] == '-' || argv[1][0] == '-')
+			errx(1, "negative numbers aren't permitted.");
+
+		errno = 0;
+		start = strtoul(argv[0], &p, 10);
+		if (errno)
+			err(1, "%s", argv[0]);
+		if (*p != '\0')
+			errx(1, "%s: illegal numeric format.", argv[0]);
+
+		errno = 0;
+		stop = strtoul(argv[1], &p, 10);
+		if (errno)
+			err(1, "%s", argv[1]);
+		if (*p != '\0')
+			errx(1, "%s: illegal numeric format.", argv[1]);
+		break;
+	case 1:
+		/* Start on the command line. */
+		if (argv[0][0] == '-')
+			errx(1, "negative numbers aren't permitted.");
+
+		errno = 0;
+		start = strtoul(argv[0], &p, 10);
+		if (errno)
+			err(1, "%s", argv[0]);
+		if (*p != '\0')
+			errx(1, "%s: illegal numeric format.", argv[0]);
+		break;
+	case 0:
+		start = read_num_buf();
+		break;
+	default:
+		usage();
+	}
+
+	if (start > stop)
+		errx(1, "start value must be less than stop value.");
+	primes(start, stop);
+	exit(0);
+}
+
+/*
+ * read_num_buf --
+ *	This routine returns a number n, where 0 <= n && n <= BIG.
+ */
+ubig
+read_num_buf()
+{
+	ubig val;
+	char *p, buf[100];		/* > max number of digits. */
+
+	for (;;) {
+		if (fgets(buf, sizeof(buf), stdin) == NULL) {
+			if (ferror(stdin))
+				err(1, "stdin");
+			exit(0);
+		}
+		for (p = buf; isblank(*p); ++p);
+		if (*p == '\n' || *p == '\0')
+			continue;
+		if (*p == '-')
+			errx(1, "negative numbers aren't permitted.");
+		errno = 0;
+		val = strtoul(buf, &p, 10);
+		if (errno)
+			err(1, "%s", buf);
+		if (*p != '\n')
+			errx(1, "%s: illegal numeric format.", buf);
+		return (val);
+	}
+}
+
+/*
+ * primes - sieve and print primes from start up to and but not including stop
+ */
+void
+primes(start, stop)
+	ubig start;	/* where to start generating */
+	ubig stop;	/* don't generate at or above this value */
+{
+	register char *q;		/* sieve spot */
+	register ubig factor;		/* index and factor */
+	register char *tab_lim;		/* the limit to sieve on the table */
+	register ubig *p;		/* prime table pointer */
+	register ubig fact_lim;		/* highest prime for current block */
+
+	/*
+	 * A number of systems can not convert double values into unsigned
+	 * longs when the values are larger than the largest signed value.
+	 * We don't have this problem, so we can go all the way to BIG.
+	 */
+	if (start < 3) {
+		start = (ubig)2;
+	}
+	if (stop < 3) {
+		stop = (ubig)2;
+	}
+	if (stop <= start) {
+		return;
+	}
+
+	/*
+	 * be sure that the values are odd, or 2
+	 */
+	if (start != 2 && (start&0x1) == 0) {
+		++start;
+	}
+	if (stop != 2 && (stop&0x1) == 0) {
+		++stop;
+	}
+
+	/*
+	 * quick list of primes <= pr_limit
+	 */
+	if (start <= *pr_limit) {
+		/* skip primes up to the start value */
+		for (p = &prime[0], factor = prime[0];
+		    factor < stop && p <= pr_limit; factor = *(++p)) {
+			if (factor >= start) {
+				printf("%u\n", factor);
+			}
+		}
+		/* return early if we are done */
+		if (p <= pr_limit) {
+			return;
+		}
+		start = *pr_limit+2;
+	}
+
+	/*
+	 * we shall sieve a bytemap window, note primes and move the window
+	 * upward until we pass the stop point
+	 */
+	while (start < stop) {
+		/*
+		 * factor out 3, 5, 7, 11 and 13
+		 */
+		/* initial pattern copy */
+		factor = (start%(2*3*5*7*11*13))/2; /* starting copy spot */
+		memcpy(table, &pattern[factor], pattern_size-factor);
+		/* main block pattern copies */
+		for (fact_lim=pattern_size-factor;
+		    fact_lim+pattern_size<=TABSIZE; fact_lim+=pattern_size) {
+			memcpy(&table[fact_lim], pattern, pattern_size);
+		}
+		/* final block pattern copy */
+		memcpy(&table[fact_lim], pattern, TABSIZE-fact_lim);
+
+		/*
+		 * sieve for primes 17 and higher
+		 */
+		/* note highest useful factor and sieve spot */
+		if (stop-start > TABSIZE+TABSIZE) {
+			tab_lim = &table[TABSIZE]; /* sieve it all */
+			fact_lim = (int)sqrt(
+					(double)(start)+TABSIZE+TABSIZE+1.0);
+		} else {
+			tab_lim = &table[(stop-start)/2]; /* partial sieve */
+			fact_lim = (int)sqrt((double)(stop)+1.0);
+		}
+		/* sieve for factors >= 17 */
+		factor = 17;	/* 17 is first prime to use */
+		p = &prime[7];	/* 19 is next prime, pi(19)=7 */
+		do {
+			/* determine the factor's initial sieve point */
+			q = (char *)(start%factor); /* temp storage for mod */
+			if ((int)q & 0x1) {
+				q = &table[(factor-(int)q)/2];
+			} else {
+				q = &table[q ? factor-((int)q/2) : 0];
+			}
+			/* sive for our current factor */
+			for ( ; q < tab_lim; q += factor) {
+				*q = '\0'; /* sieve out a spot */
+			}
+		} while ((factor=(ubig)(*(p++))) <= fact_lim);
+
+		/*
+		 * print generated primes
+		 */
+		for (q = table; q < tab_lim; ++q, start+=2) {
+			if (*q) {
+				printf("%u\n", start);
+			}
+		}
+	}
+}
+
+void
+usage()
+{
+	(void)fprintf(stderr, "usage: primes [start [stop]]\n");
+	exit(1);
+}
diff --git a/games/primes/primes.h b/games/primes/primes.h
new file mode 100644
index 0000000..611c86d
--- /dev/null
+++ b/games/primes/primes.h
@@ -0,0 +1,52 @@
+/*
+ * Copyright (c) 1989, 1993
+ *	The Regents of the University of California.  All rights reserved.
+ *
+ * This code is derived from software contributed to Berkeley by
+ * Landon Curt Noll.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the University of
+ *	California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ *
+ *	@(#)primes.h	8.2 (Berkeley) 3/1/94
+ */
+
+/*
+ * primes - generate a table of primes between two values
+ *
+ * By: Landon Curt Noll chongo@toad.com, ...!{sun,tolsoft}!hoptoad!chongo
+ *
+ * chongo <for a good prime call: 391581 * 2^216193 - 1> /\oo/\
+ */
+
+/* ubig is the type that holds a large unsigned value */
+typedef unsigned long ubig;		/* must be >=32 bit unsigned value */
+#define	BIG		ULONG_MAX	/* largest value will sieve */
+
+/* bytes in sieve table (must be > 3*5*7*11) */
+#define	TABSIZE		256*1024
diff --git a/games/quiz/Makefile b/games/quiz/Makefile
new file mode 100644
index 0000000..8044644
--- /dev/null
+++ b/games/quiz/Makefile
@@ -0,0 +1,16 @@
+#	@(#)Makefile	8.1 (Berkeley) 5/31/93
+
+PROG=	quiz
+MAN6=	quiz.6
+SRCS=	quiz.c rxp.c
+CATS=	africa america areas arith asia babies bard chinese collectives \
+	ed elements europe flowers greek inca index latin locomotive \
+	midearth morse murders poetry posneg pres province seq-easy seq-hard \
+	sexes sov spell state trek ucc
+HIDEGAME=hidegame
+
+beforeinstall:
+	(cd ${.CURDIR}/datfiles; install -c -o ${BINOWN} -g ${BINGRP} -m 444 \
+	    ${CATS} ${DESTDIR}/usr/share/games/quiz.db)
+
+.include <bsd.prog.mk>
diff --git a/games/quiz/datfiles/africa b/games/quiz/datfiles/africa
new file mode 100644
index 0000000..6e74550
--- /dev/null
+++ b/games/quiz/datfiles/africa
@@ -0,0 +1,43 @@
+Algeria:Alg[iers|er]
+Botswana:Gaberones
+Burundi:Bujumbura
+Cameroun:Yaound['e|e'|e]
+Central Africa{n Rep{ublic}}:Bangui
+Chad:Ndjamena
+Congo:Brazzaville
+Dahomey:Porto Novo
+Ethiopia:Addis Ababa
+Gabon:Libreville
+Ghana:Accra
+Guinea-Bissau:Bissau
+Guinea:Conakry
+Ivory Coast:Abidjan
+Kenya:Nairobi
+Lesotho:Maseru
+Liberia:Monrovia
+Libya:Al Bayda{'}
+Malagasy{ Rep{ublic}}|Madagascar:Tananarive
+Malawi:Zomba
+Mali:Bamako
+Mauritania:Nouakchott
+Morocco:Rabat
+Mo[z|,c|c,|c]ambique:Louren[,c|c,|c]o Marques
+Niger:Niamey
+Nigeria:Lagos
+Rhodesia:Salisbury
+Rwanda:Kigali
+Senegal:Dakar
+Sierra Leone:Freetown
+Somali{ Rep{ublic}}:Mogadis[cio|hu]
+Sudan:Khartoum
+Swaziland:Mbabane
+Tanzania:Dar es Salaam
+Togo:Lom['e|e'|e]
+Tunisia:Tunis
+Uganda:Kampala
+United Arab Rep{ublic}|Egypt:Cairo
+Upper Volta:Ouagadougou
+Zambia:Lusaka
+Za["i|i"|i]re:Kinshasha
+{Rep{ublic} of }South Africa:Pretoria
+{The }Gambia:Bathurst
diff --git a/games/quiz/datfiles/america b/games/quiz/datfiles/america
new file mode 100644
index 0000000..7f8fee1
--- /dev/null
+++ b/games/quiz/datfiles/america
@@ -0,0 +1,27 @@
+Argentina:Buenos Aires
+Bahamas:Nassau
+Barbados:Bridgetown
+Bolivia:La Paz|Sucre
+Bra[z|s]il:Brasilia
+Canada:Ottawa
+Chile:Santiago
+Colombia:Bogot['a|a'|a]
+Costa Rica:San Jose
+Cuba:Ha[v|b]ana
+Dominican Republic:Santo Domingo
+Ecuador:Quito
+El Salvador:San Salvador
+Guatemala:Guatemala
+Guyana:Georgetown
+Haiti:Port au Prince
+Honduras:Tegucigalpa
+Jamaica:Kingston
+Mexico:Mexico
+Nicaragua:Managua
+Panama:Panama
+Paraguay:Asunci['o|o'|o]n
+Peru:Lima
+Trinidad[ and Tobago|]:Port of Spain
+United States|US{A}:Washington
+Uruguay:Montevideo
+Venezuela:Caracas
diff --git a/games/quiz/datfiles/areas b/games/quiz/datfiles/areas
new file mode 100644
index 0000000..25a241b
--- /dev/null
+++ b/games/quiz/datfiles/areas
@@ -0,0 +1,124 @@
+201:northern new jersey|NJ:newark
+202:washington d c|DC:
+203:connecticut|CT:
+204:manitoba:
+205:alabama|AL:
+206:western washington state|WA:seattle
+207:maine|ME:
+208:idaho|ID:
+209:central california|CA:fresno
+212:new york city, new york|NY:
+213:los angeles, california|CA:
+214:northeastern texas|TX:dallas
+215:southeastern pennsylvania|PA:philadelphia
+216:northeastern ohio|OH:akron
+217:central illinois|IL:springfield
+218:northern minnesota|MN:duluth
+219:northern indiana|IN:south bend
+301:maryland|MD:
+302:delaware|DE:
+303:colorado|CO:
+304:west virginia|WV:
+305:southeastern florida|FL:miami
+306:saskatchewan:
+307:wyoming|WY:
+308:western nebraska|NE:omaha
+309:northwestern illinois|IL:peoria
+312:chicago, illinois|IL:
+313:eastern michigan|MI:detroit
+314:southeastern missouri|MO:jefferson city
+315:northern central new york|NY:syracuse
+316:southern kansas|KS:wichita
+317:central indiana|IN:indianapolis
+318:western louisiana|LA:shreveport
+319:eastern iowa|IA:cedar rapids
+401:rhode island|RI:
+402:eastern nebraska|NE:north platte
+403:alberta:
+404:northern georgia|GA:atlanta
+405:western oklahoma|OK:oklahoma city
+406:montana|MT:
+408:central coastal california|CA:san jose
+412:western pennsylvania|PA:pittsburgh
+413:western massachusetts|MA:springfield
+414:southeastern wisconsin|WI:milwaukee
+415:san francisco, california|CA:
+416:southern central ontario:toronto
+417:southwestern missouri|MO:springfield
+418:northeastern quebec:quebec
+419:northwestern ohio|OH:toledo
+501:arkansas|AR:
+502:western kentucky|KY:louisville
+503:oregon|OR:
+504:eastern louisiana|LA:new orleans
+505:new mexico|NM:
+506:new brunswick:
+507:southern minnesota|MN:rochester
+509:eastern washington state|WA:spokane
+512:southern texas|TX:austin
+513:southwestern ohio|OH:dayton
+514:southwestern quebec:montreal
+515:central iowa|IA:des moines
+516:long island, new york|NY:
+517:central michigan|MI:lansing
+518:northeastern new york|NY:albany
+519:southwestern ontario:windsor
+601:mississippi|MS:
+602:arizona|AZ:
+603:new hampshire|NH:
+604:british columbia:
+605:south dakota|SD:
+606:eastern kentucky|KY:ashland
+607:southern central new york|NY:ithaca, binghamton
+608:southwestern wisconsin|WI:madison
+609:southern new jersey|NJ:trenton
+612:central minnesota|MN:minneapolis
+613:southeastern ontario:ottawa
+614:southeastern ohio|OH:columbus
+615:eastern tennessee|TN:nashville
+616:western michigan|MI:grand rapids
+617:eastern massachusetts|MA:boston
+618:southern illinois|IL:centralia
+701:north dakota|ND:
+702:nevada|NV:
+703:western virginia|VA:arlington
+704:western north carolina:charlotte
+705:northeastern ontario:sault ste. marie
+707:northwestern california|CA:santa rosa
+709:newfoundland:
+712:western iowa|IA:council bluffs
+713:southeastern texas|TX:houston
+714:southern california|CA:san diego
+715:northern wisconsin|WI:superior
+716:northern western new york|NY:buffalo, rochester
+717:eastern pennsylvania|PA:wilkes-barre, scranton
+801:utah|UT:
+802:vermont|VT:
+803:south carolina|SC:
+804:eastern virginia|VA:richmond
+805:southern central coastal california|CA:bakersfield
+806:panhandle texas|TX:amarillo
+807:western ontario:fort william
+808:hawaii|HI:
+809:bermuda, puerto rico, virgin islands, caribbean:
+812:southern indiana|IN:evansville
+813:southwestern florida|FL:st. petersburg
+814:central pennsylvania|PA:erie
+815:northeastern illinois|IL:rockford
+816:northern missouri|MO:kansas city
+817:northern central texas|TX:fort worth
+819:northwestern quebec:trois rivieres
+901:western tennessee|TN:memphis
+902:nova scotia, prince edward island:
+903:western mexico:mexicali
+904:northern florida|FL:jacksonville
+905:eastern mexico:mexico city
+906:upper michigan|MI:escanaba
+907:alaska|AK:
+912:southern georgia|GA:savannah
+913:northern kansas|KS:topeka
+914:southern new york|NY:westchester county
+915:western texas|TX:el paso
+916:northeastern california|CA:sacramento
+918:eastern oklahoma|OK:tulsa
+919:eastern north carolina|NC:raleigh
diff --git a/games/quiz/datfiles/arith b/games/quiz/datfiles/arith
new file mode 100644
index 0000000..64babb5
--- /dev/null
+++ b/games/quiz/datfiles/arith
@@ -0,0 +1,45 @@
+63 - ... = 55:8
+147 - 3 = ...:144
+614 - 9 ...:605
+465 - 7 = ...:458
+563 - ... = 560:3
+33 - 14 = ...:19
+42 - ... = 37:5
+264 - 3 = ...:261
+763 - 8 = ...:755
+375 - 6 = ...:369
+736 - ... = 728:8
+62 - 34 = ...:28
+75 - 8 = ...:67
+244 - ... = 230:14
+478 - 19 = ...:459
+78 - ... = 75:3
+679 - 5 = ...:674
+564 - 7 = ...:557
+761 - 5 = ...:756
+718 - ... = 716:2
+56 - 18 = ...:38
+65 - ... = 48:17
+748 - 5 = ...:743
+856 - 8 = ...:848
+763 - 5 = ...:758
+445 - ... = 436:9
+94 - 55 = ...:39
+42 - 9 = ...:33
+483 - ... = 455:28
+742 - ... = 714:28
+84 - ... = 75:9
+569 - 7 = ...:562
+856 - 7 = ...:849
+324 - 6 = ...:318
+437 - ... = 432:5
+84 - 56 = ...:28
+81 - ... = 65:16
+326 - 4 = ...:322
+643 - 7 = ...:636
+546 - 9 = ...:537
+842 - ... = 835:7
+53 - 39 = ...:14
+63 - 48 = ...:15
+57 - 38 = ...:19
+52 - 26 = ...:26
diff --git a/games/quiz/datfiles/asia b/games/quiz/datfiles/asia
new file mode 100644
index 0000000..02ebff4
--- /dev/null
+++ b/games/quiz/datfiles/asia
@@ -0,0 +1,41 @@
+Afghanistan:Kabul
+Australia:Canberra
+Bahrein:Manama
+Bangladesh:Dacca
+Bhutan:Thimbu
+Burma:Rangoon
+China:Peking
+Cyprus:Nicosia
+India:New Delhi
+Indonesia:Djakarta
+Iran:Tehran
+Iraq:Baghdad
+Israel:Jerusalem
+Japan:Tokyo
+Jordan:Amman
+Khmer|Cambodia:P{h}nom Penh
+Kuwait:Al-kuwait
+Laos:Vientiane
+Lebanon:Beirut
+Malaysia:Kuala Lumpur
+Maldive Islands:Male
+Mongolia:Ulan Bator
+Nepal:Katmandu
+North Korea:P{'}yongyang
+North Yemen:San{'}a
+Oman:Muscat
+Pakistan:Islamabad
+Papua[-| ]New Guinea:Port Moresby
+Philippines:Quezon City
+Qatar:Doha
+Saudi Arabia:Riyadh|J{ei}ddah
+Singapore:Singapore
+South Korea:Seoul
+South Yemen:Aden
+Sri Lanka:Colombo
+Syria:Damascus
+Taiwan:Taipei
+Thailand:Bangkok
+Turkey:Ankara
+United Arab Emirates:Abu Dhabi
+Vietnam:Hanoi
diff --git a/games/quiz/datfiles/babies b/games/quiz/datfiles/babies
new file mode 100644
index 0000000..5305c0c
--- /dev/null
+++ b/games/quiz/datfiles/babies
@@ -0,0 +1,21 @@
+cub:lion|tiger|bear
+kitten:cat|fox|skunk|rabbit|bobcat|panther
+gosling:goose
+colt|foal:horse|donkey|zebra
+puppy:dog
+pup:seal|fox|beaver
+duckling:duck
+fawn:deer
+piglet|shoat:pig
+lamb:sheep
+kid:goat|antelope
+chick:chicken
+tadpole|polliwog:frog|toad
+joey:kangaroo
+calf:cow|whale|moose|elephant|buffalo|giraffe
+caterpillar:butterfly|moth
+elver:eel
+eaglet:eagle
+owlet:owl
+fingerling|fry:fish
+nestling:bird
diff --git a/games/quiz/datfiles/bard b/games/quiz/datfiles/bard
new file mode 100644
index 0000000..56c76ed
--- /dev/null
+++ b/games/quiz/datfiles/bard
@@ -0,0 +1,228 @@
+The quality of mercy is not strain['|e]d:\
+It droppeth as the gentle rain from heaven:\
+{The }Merchant{ of Venice{ IV-i}}:\
+Portia
+Friends{,} Romans{,} Countrymen:\
+lend me your ears{;}:\
+{Julius }Caesar{ III-ii}:\
+{Mark }Antony
+Neither a borrower nor a lender be:\
+For loan oft loses both itself and friend{.}:\
+Hamlet{ I-iii}:\
+Polonius
+To be{,} or not to be{\:}:\
+that is the question{\:}:\
+Hamlet{ III-i}:\
+Hamlet
+Alas{,} poor Yorick{!}:\
+I knew him{,} Horatio{;}:\
+Hamlet{ V-i}:\
+Hamlet
+Double{,} double toil and trouble{;}:\
+Fire burn and cauldron bubble{.}:\
+Macbeth{ IV-i}:\
+Witch{es}
+By the pricking of my thumbs{,}:\
+Something wicked this way comes{.}:\
+Macbeth{ IV-i}:\
+{Second |2nd }Witch
+Out, damned spot! out, I say!:\
+:\
+Macbeth{ V-i}:\
+Lady Macbeth
+Unbidden guests:\
+Are often welcomest when they are gone{.}:\
+{King }Henry VI{,} Part I{ I-ii}:\
+
+She is a woman{,} therefore may be woo'd{;}:\
+She is a woman{,} therefore may be [won|screw'd]{.}:\
+Titus Andronicus{ II-i}:\
+Demetrius
+Such duty as the subject owes the prince{,}:\
+Even such a woman oweth to her husband{.}:\
+{The }Taming of the Shrew{ V-ii}:\
+Kate
+Who is Silvia{?} what is she{,}:\
+That all our swains commend her{?}:\
+{The }Two Gentlemen of Verona{ IV-ii}:\
+Thurio
+Tu-whit{,} tu-who[ - | |--]a merry note{,}:\
+While greasy Joan doth keel the pot{.}:\
+Love's Labo{u}r Lost{ V-ii}:\
+Winter
+My only love sprung from my only hate{!}:\
+Too early seen unknown{,} and known too late{!}:\
+Romeo{ and Juliet{ I-v}}:\
+Juliet
+But{,} soft{!} what light through yonder window breaks{?}:\
+It is the east{,} and Juliet is the sun{!}:\
+Romeo{ and Juliet{ II-ii}}:\
+Romeo
+What's in a name{?} That which we call a rose:\
+By any other name would smell as sweet{.}:\
+Romeo{ and Juliet{ II-ii}}:\
+Juliet
+Good night{,} good night{!} parting is such sweet sorrow{,}:\
+That I shall say good night till it be morrow{.}:\
+Romeo{ and Juliet{ II-ii}}:\
+Juliet
+A plague o['|n] both your houses{!}:\
+They have made worms' meat of me{.}:\
+Romeo{ and Juliet{ III-i}}:\
+Mercutio
+This royal throne of kings{,} this scepter['|e]d isle{,}:\
+This earth of majesty{,} this seat of Mars{,}:\
+{King }Richard II{ II-i}:\
+John of Gaunt
+Not all the water in a rough rude sea:\
+Can wash the balm from an anointed king{.}:\
+{King }Richard II{ III-ii}:\
+{King }Richard II
+I'll put a girdle round the earth:\
+In forty minutes{.}:\
+{A }Midsummer[-| ]Night's Dream{ II-i}:\
+Puck
+I can call spirits from the vasty deep{.}:\
+Why{,} so can I{,} or so can any man{;}:\
+{King }Henry IV{,} Part I{ II-iv}:\
+
+There are more things in heaven and earth{,} Horatio{,}:\
+Than are dream[t|ed] of in your philosophy{.}:\
+Hamlet{ I-v}:\
+Hamlet
+The time is out of joint{;} O cursed spite{,}:\
+That ever I was born to set it right{!}:\
+Hamlet{ I-v}:\
+Hamlet
+Once more unto the breach{,} dear friends{,} once more{;}:\
+Or close the wall up with our English dead{.}:\
+{King }Henry V{ III-i}:\
+{King }Henry V
+Was ever woman in this humour woo['|e]d{?}:\
+Was ever woman in this humour [won|screw'd]{?}:\
+{King }Richard III{ I-ii}:\
+{King }Richard III
+Now is the winter of our discontent:\
+Made glorious summer by this sun of York:\
+{King }Richard III{ I-i}:\
+{King }Richard III
+There['s| is] a divinity that shapes our ends{,}:\
+Rough[-| ]hew them how we will{.}:\
+Hamlet{ V-ii}:\
+Hamlet
+There is a tide in the affairs of men:\
+Which{,} taken at the flood{,} leads on to fortune{;}:\
+{Julius }Caesar{ IV-iii}:\
+Brutus
+Never{,} never{,} never{,} never{,} never{.}:\
+Pray you undo this button{.}{ Thank you{,} sir{.}}:\
+{King }Lear{ V-iii}:\
+{King }Lear
+I grow{,} I prosper{\:}:\
+Now{,} gods{,} stand up for bastards{!}:\
+{King }Lear{ I-ii}:\
+Edmund
+The better part of valour is discretion{;}:\
+in the which better part I have saved my life{.}:\
+{King }Henry IV{,} Part I{ V-iv}:\
+Falstaff
+Asses are made to bear{,} and so are you{.}:\
+Women are made to bear{,} and so are you{.}:\
+{The }Taming of the Shrew{ II-i}:\
+
+Full fathom five thy father lies{;}:\
+Of his bones are coral made{;}:\
+{The }Tempest{ I-ii}:\
+Ariel
+She lov['|e]d me for the dangers I had pass['|e]d{;}:\
+And I lov['|e]d her that she did pity them{.}:\
+Othello{ I-iii}:\
+Othello
+Uneasy lies the head that wears a crown{.}:\
+Many good morrows to your Majesty{!}:\
+{King }Henry IV{,} Part II{ III-i}:\
+
+Mislike me not for my complexion{,}:\
+The shadow['|e]d livery of the burnish['|e]d sun{.}:\
+{The }Merchant{ of Venice{ II-i}}:\
+Morocco
+Cowards die many times before their deaths{;}:\
+The valiant never taste of death but once{.}:\
+{Julius }Caesar{ II-ii}:\
+Caesar
+O{h}{!|,} Pardon me{,} thou bleeding piece of earth{,}:\
+That I am meek and gentle with these butchers{.}:\
+{Julius }Caesar{ III-i}:\
+{Mark }Antony
+The play's the thing:\
+Wherein I'll catch the conscience of the king{.}:\
+Hamlet{ II-ii}:\
+Hamlet
+How sharper than a serpent's tooth it is:\
+to have a thankless child{.}:\
+{King }Lear{ I-iv}:\
+{King }Lear
+Had I but served my God with half the zeal I served my king:\
+He would not in [mine|my] old age have left me naked to [mine|my] enemies{.}:\
+{King }Henry VIII{ IV-ii}:\
+{Cardinal }Wolsey
+It seems she hangs upon the cheek of night:\
+Like a rich jewel in an Ethiop's ear{.}:\
+Romeo{ and Juliet{ I-v}}:\
+Romeo
+Where the bee sucks{,} there suck I{;}:\
+In a cowslip's bell I lie{.}:\
+{The }Tempest{ V-i}:\
+Ariel
+O brave new world{,}:\
+That has such people [in't|in it]{!}:\
+{The }Tempest{ V-i}:\
+Miranda
+Why{,} then the world's mine oyster{,}:\
+Which I with sword will open{.}:\
+{The }Merry Wives of Windsor{ II-ii}:\
+Falstaff
+A goodly apple rotten at the heart{\:}:\
+O{h}{,} what a goodly outside falsehood hath{!|.}:\
+{The }Merchant{ of Venice{ I-iii}}:\
+Antonio
+I never kill['|e]d a mouse{,} nor hurt a fly{;}:\
+I trod upon a worm against my will{,}:\
+Pericles{ IV-i}:\
+Marina
+Golden lads and girls all must{,}:\
+Like chimney sweepers{,} come to dust{.}:\
+Cymbeline{ IV-ii}:\
+Guiderius
+You blocks, you stones, you worse than senseless things!:\
+O you hard hearts{,} you cruel men of Rome{.}:\
+{Julius }Caesar{ I-i}:\
+Marullus
+A horse{!|,} a horse{!|,} my kingdom for a horse{!}:\
+:\
+{King }Richard III{ V-iv}:\
+{King }Richard III
+My salad days,:\
+When I was green in judg{e}ment, cold in blood{,}:\
+Antony [and|&] Cleopatra{ I-v}:\
+Cleopatra
+Age cannot wither her, nor custom stale:\
+Her infinite variety{.}:\
+Antony [and|&] Cleopatra{ II-iii}:\
+Enobarbus
+Give me some music\: music, moody food:\
+Of us that trade in love{.}:\
+Antony [and|&] Cleopatra{II-v}:\
+Cleopatra
+'Tis better playing with a lion's whelp,:\
+Than with an old one dying{.}:\
+Antony [and|&] Cleopatra:\
+Enobarbus
+The barge she sat in, like a burnished throne,:\
+Burned on the water{.} The poop was burnished gold{;|.}:\
+Antony [and|&] Cleopatra:\
+Enobarbus
+Done like a Frenchman - turn and turn again!:\
+:\
+{King }Henry VI{,} Part I{ III-iii}:\
+{Joan }Pucelle|{Saint |St{.} }Joan{ of Arc}
diff --git a/games/quiz/datfiles/chinese b/games/quiz/datfiles/chinese
new file mode 100644
index 0000000..66d9472
--- /dev/null
+++ b/games/quiz/datfiles/chinese
@@ -0,0 +1,12 @@
+rabbit:dragon
+dragon:snake
+snake:horse
+horse:sheep
+sheep:monkey
+monkey:rooster
+rooster:dog
+dog:boar
+boar:rat
+rat:ox
+ox:tiger
+tiger:rabbit
diff --git a/games/quiz/datfiles/collectives b/games/quiz/datfiles/collectives
new file mode 100644
index 0000000..3c4ba93
--- /dev/null
+++ b/games/quiz/datfiles/collectives
@@ -0,0 +1,105 @@
+actors|soldiers:company
+angels:host
+ants:colony|hill
+apes:shrewdness
+asses:pace|bunch
+badgers:cete
+bass:shoal
+bears:sloth
+bees:swarm
+bees|locusts:swarm
+birds:dissimulation
+brats:passel
+buffaloes:herd
+candidates:slate
+caterpillars:army
+cats:clowder
+cattle:drove|herd
+chickens:peep|flock
+crows:murder
+curs:cowardice
+dogs:pack
+doves:dule
+ducks:[pad|ba]dling
+earthquakes:swarm
+eggs:clutch
+elephants:herd
+elk:gang
+engineers:corps
+ferrets:business
+finches:charm
+firemen:brigade
+fish:school
+foxes:skulk
+gangsters:mob
+geese in flight:skein
+geese on water:gaggle
+goats:trip
+grapes|banannas:bunch
+hawks:cast
+hens:brood
+herons:siege
+horses:haras|team
+hounds:kennel
+jellyfish:smack
+kangaroos|monkeys:troop
+kittens:kindle
+lapwings:deceit
+larks:exaltation|bevy
+leopards:leap
+lions:pride
+locusts:plague
+magpies:tidings
+maidens|quail:bevy
+martens:richness
+men:band
+moles:labor
+monkeys|kangaroos:troop
+mountains:range
+mules:barren|baren
+nightingales:watch
+operating companies:at&t|bell system
+owls:parliament
+oxen:drove
+partridges:covey
+partridges|grouse:covey
+peacocks:ostentation
+people:crowd
+pheasants:bouquet
+plovers:congregation
+ponies:string
+porpoises:shoal
+prisoners:gang
+pups:litter
+quail|maidens:bevy
+rabbits:nest
+ravens:unkindness
+rhinoceroses:crash
+robbers:band
+roebucks:bevy
+rooks:building
+rubbish:heap
+seals:pod
+sheep:flock
+ships:fleet
+snipe:walk|wisp
+sparrows:host
+squirrels:dray
+starlings:murmuration
+stars:constellation
+storks:mustering
+swallows:flight
+teal:spring
+toads:knot
+turkeys:rafter
+turtledoves:pitying
+whales:gam|pod
+whales|fish:school
+witches:coven
+wolves:pack
+wolves:route
+woodcocks:fall
+woodpeckers:descent
+worshippers:congregation
+{H|h}uns:horde
+{wild }swine:sounder
diff --git a/games/quiz/datfiles/ed b/games/quiz/datfiles/ed
new file mode 100644
index 0000000..6ac8e89
--- /dev/null
+++ b/games/quiz/datfiles/ed
@@ -0,0 +1,84 @@
+prepare to add text at beginning of file:0a|1i
+find name of file being edited:f
+print last 3 lines of file:$-[2|-],$p
+print previous line:[-|^]{p}|{.}-{1}{p}
+print whole file:1,$p|g/[^|$]/p
+delete this line and next:.{,|;}[{.}+{1}|.1]d
+prepare to replace text from here to just before next "PP":\
+.{,|;}/[PP|{^}\\.PP]/-{1}c
+find next "1.2":/1\\.2/{p}
+find next 2-or-more digit number:\
+/\[[0|1]-9\]\[0-9\]/{p}
+move rest of this paragraph (separated by "PP") to end of previous one:\
+[.,|{.}+{1},|.1,]/[PP|{^}\\.PP]/-{1}m[??|?{^}{\\.}PP?]-{1}
+print every "Oxygen" or "oxygen":[g|1,$g]/\[[Oo|oO]\]xygen/[p|.p]
+change each "BTL" in file to "Bell Laboratories" and check:\
+[g|1,$g]/BTL/[s|.s]/[/|BTL/]Bell Laboratories/gp
+combine every even-numbered line with the next odd-numbered line:\
+2,${-{1}}g/[^|$]/[j|.,{.}+{1}j|.,.1j]
+print next "SH" and following line:\
+/SH/;[{.}+{1}|.1]p|/SH/,[//|/SH/][{.}+{1}|.1]p
+print from next "TS" to following "TE":/TS/;/TE/p
+reverse order of lines in whole file:[g|1,$g]/^/[m|.m]0
+replace each string of x's in current line by one x:\
+[s|.s]/[x|\[x\]][x|\[x\]]*/x/g{p}{  (not s/x*/x/g)}
+change first "hte" in current line to "the" and check:[s|.s]/hte/the/p
+combine previous line and this one:\
+[-,|^,|{.}-{1},].j
+go to line after third "PP" ahead:\
+/[PP|{^}\\.PP]/;[//|/[PP|{^}\\.PP]/];[//|/[PP|{^}\\.PP]/]\
+[{+}1|+]|;[{.}+{1}|.1]{  (not ...p)}
+exchange current line with previous line:\
+[[-|^]m|{.}-{1}m].|{.}m[[--|^^]|{.}-2]
+move everything from here through "stop." to end of file:\
+.,/stop\\./m$
+current line has 2 fields separated by 1 blank; exchange them:\
+[s|.s]/[\\|^\\]([.|\[^ \]]*\\) \\([.|\[^ \]]*\\)[/|$/]\\2 \\1/{p}
+insert a "0" after last "0" on current line:\
+[s|.s]/[.*0/&0|^.*0/&0|0\\(\[^0\]*\\)$/[0&|00\1]|0\[^0\]*$/0&\
+|\[^0\]*$/0&]/{p}
+replace "a*b" by "a**b":s/[a\\*b|a[*]b]/a**b/{p}|\
+s/\\*/**/p
+attach the word "extra" to the end of the current line:\
+[s|.s]/$/{ }extra/{p}
+replace "ATT" in current line by "AT&T":\
+[s|.s]/ATT/AT\\&T/{g}{p}
+double the length of the current line by repetition:\
+[s|.s]/[.*|.|^.*$]/&&/{p}
+look for another line containing what you just looked for://
+find the previous line that contains a capital letter:?\[A-Z\]?{p}
+delete the next line that contains only capital letters:\
+/^\[A-Z\]*$/d|/^\[A-Z\]\[A-Z\]*$/d
+place a copy of current line at the end of the file:\
+t$|.{,.}t$
+find how many lines there are:=|$=
+find the number of the current line:.=
+delete the first 3 lines of the file:1,3d
+delete every line that doesn't begin with "A":\
+[v|1,$v]/^A/d{  (not g/^\[^A\]/d)}
+delete every empty line from here through next "LP":\
+.,/[LP|{{^}\\.}LP]/g/^$/d
+print the line after each "AU":\
+[g|1,$g]/[AU|{^}\\.AU]/[{.}+{1}|.1]{p}
+delete everything after "proud" from current line:\
+[s|.s]/proud.*/proud/{p}
+delete part of current line from "alpha" through "omega":\
+[s|.s]/alpha.*omega//{p}
+save everything up through current line in file "prefix":1,.w prefix
+prepare to add text at end of file:$a
+append the contents of file "suffix" to this file:$r suffix
+go back 10 lines:{.}-10{p}|----------
+change every "01" in current line to "1":[s|.s]/01/1/g{p}
+go to next line that contains a double capital letter:\
+/\\(\[A-Z\]\\)\\1/{p}
+place parens () around current line:\
+[s|.s]/[.*|^.*$]/(&)/{p}
+the current line is too long for your terminal; print it to fit:\
+l|.l
+put the work you've done back in the original file:w
+append the whole file to the file "unfinished":\
+[W|1,$W] unfinished
+insert "\\&" at beginning of current line:\
+[s|.s]/^/\\\\\\&/{p}
+list your current directory:!ls
+stop work on current file and shift to file "other":e other
diff --git a/games/quiz/datfiles/elements b/games/quiz/datfiles/elements
new file mode 100644
index 0000000..aba620a
--- /dev/null
+++ b/games/quiz/datfiles/elements
@@ -0,0 +1,103 @@
+H:1:1.008:Hydrogen
+He:2:4.003:Helium
+Li:3:6.94:Lithium
+Be:4:9.013:Beryllium
+B:5:10.82:Boron
+C:6:12.011:Carbon
+N:7:14.008:Nitrogen
+O:8:16.0:Oxygen
+F:9:19.0:Fluorine
+Ne:10:20.183:Neon
+Na:11:22.991:Sodium
+Mg:12:24.32:Magnesium
+Al:13:26.98:Aluminum
+Si:14:28.09:Silicon
+P:15:30.975:Phosphorus
+S:16:32.066:Sulphur
+Cl:17:35.457:Chlorine
+Ar:18:39.944:Argon
+K:19:39.1:Potassium
+Ca:20:40.08:Calcium
+Sc:21:44.96:Scandium
+Ti:22:47.9:Titanium
+V:23:50.95:Vanadium
+Cr:24:52.01:Chromium
+Mn:25:54.94:Manganese
+Fe:26:55.85:Iron
+Co:27:58.94:Cobalt
+Ni:28:58.71:Nickel
+Cu:29:63.54:Copper
+Zn:30:65.38:Zinc
+Ga:31:69.72:Gallium
+Ge:32:72.6:Germanium
+As:33:74.91:Arsenic
+Se:34:78.96:Selenium
+Br:35:79.916:Bromine
+Kr:36:83.8:Krypton
+Rb:37:85.48:Rubidium
+Sr:38:87.63:Strontium
+Y:39:88.92:Yttrium
+Zr:40:91.22:Zirconium
+Nb:41:92.91:Niobium
+Mo:42:95.95:Molybdenum
+Tc:43:(99):Technetium
+Ru:44:101.1:Ruthenium
+Rh:45:102.91:Rhodium
+Pd:46:106.4:Palladium
+Ag:47:107.88:Silver
+Cd:48:112.41:Cadmium
+In:49:114.82:Indium
+Sn:50:118.7:Tin
+Sb:51:121.76:Antimony
+Te:52:127.61:Tellurium
+I:53:126.91:Iodine
+Xe:54:131.3:Xenon
+Cs:55:132.91:Cesium
+Ba:56:137.36:Barium
+La:57:138.92:Lanthanum
+Ce:58:140.13:Cerium
+Pr:59:140.92:Praseodymium
+Nd:60:144.27:Neodymium
+Pm:61:(145):Promethium
+Sm:62:150.35:Samarium
+Eu:63:152.0:Europium
+Gd:64:157.26:Gadolinium
+Tb:65:158.93:Terbium
+Dy:66:162.51:Dysprosium
+Ho:67:164.94:Holmium
+Er:68:167.27:Erbium
+Tm:69:168.94:Thulium
+Yb:70:173.04:Ytterbium
+Lu:71:174.99:Lutetium
+Hf:72:178.5:Hafnium
+Ta:73:180.95:Tantalum
+W:74:183.86:Tungsten
+Re:75:186.22:Rhenium
+Os:76:190.2:Osmium
+Ir:77:192.2:Iridium
+Pt:78:195.09:Platinum
+Au:79:197.0:Gold
+Hg:80:200.61:Mercury
+Tl:81:204.39:Thallium
+Pb:82:207.21:Lead
+Bi:83:209.0:Bismuth
+Po:84:(210):Polonium
+At:85:(210):Astatine
+Rn:86:(222):Radon
+Fr:87:(223):Francium
+Ra:88:(226):Radium
+Ac:89:(227):Actinium
+Th:90:232.05:Thorium
+Pa:91:(231):Protactinium
+U:92:238.07:Uranium
+Np:93:(237):Neptunium
+Pu:94:(242):Plutonium
+Am:95:(243):Americium
+Cm:96:(248):Curium
+Bk:97:(247):Berkelium
+Cf:98:(249):Californium
+Es:99:(254):Einsteinium
+Fm:100:(253):Fermium
+Md:101:(256):Mendelevium
+No:102:(253):Nobelium
+Lw:103:(259):Lawrencium
diff --git a/games/quiz/datfiles/europe b/games/quiz/datfiles/europe
new file mode 100644
index 0000000..f7ef781
--- /dev/null
+++ b/games/quiz/datfiles/europe
@@ -0,0 +1,33 @@
+Albania:Tirana|Tirane"
+Andorra:Andorra la V[ell|iej]a
+Austria:Vienna|Wien
+Belgium:Brussel[s|]|Bruxelles
+Bulgaria:Sofi[a|ya]
+Czechoslovakia:Prague|Praha
+Denmark:Copenhagen|K[o|o/]benhavn
+East Germany:Berlin
+United Kingdom|England|Great Britain|UK:London
+Finland:Helsinki
+France:Paris
+Greece:Athens
+Hungary:Budapest
+Iceland:Reykjavik
+Ireland|Eire:Dublin
+Italy:Rom[e|a]
+Liechtenstein:Vaduz
+Luxembourg:Luxembourg
+Malta:Valletta
+Monaco:Monte Carlo
+Netherlands|Holland:The Hague|'sGravenhage|den Haag|Amsterdam
+Norway:Oslo
+Poland:Wars[aw|zawa]
+Portugal:Lisbo[n|a]
+R[u|o]mania:Bucharest|Bucuresti
+San Marino:San Marino
+Spain:Madrid
+Sweden:Stockholm
+Switzerland:Bern{e}
+Turkey:Ankara
+USSR|Russia:Mos[cow|kva]
+[West |]Germany:Bonn
+Yugoslavia:Belgrade|Beograd
diff --git a/games/quiz/datfiles/flowers b/games/quiz/datfiles/flowers
new file mode 100644
index 0000000..1eb2360
--- /dev/null
+++ b/games/quiz/datfiles/flowers
@@ -0,0 +1,45 @@
+African violet:Such worth is rare
+Apple blossom:Preference
+Bachelor's button:Celibacy
+Bay leaf:I change but in death
+Camelia:Reflected loveliness
+Chrysanthemum, non-red/white:Slighted love
+Chrysanthemum, red:I love
+Chrysanthemum, white:Truth
+Clover:Be mine
+Crocus:Abuse not
+Daffodil:Innocence
+Dead leaves:Melancholy
+Forget-me-not:True love
+Fuchsia:Fast
+Gardenia:Secret, untold love
+Honeysuckle:Bonds of love
+Ivy:Friendship, fidelity, marriage
+Jasmine:Amiablity, transports of joy, sensuality
+Lilac:Youthful innocence
+Lilly of the valley:Return of happiness
+Lilly:Purity, sweetness
+Magnolia:Dignity, perseverance
+Marigold:Jealousy
+Mint:Virtue
+Orange blossom:Your purity equals your loveliness
+Orchid:Beauty, magnificence
+Pansy:Thoughts
+Peach blossom:I am your captive
+Petunia:Your presence soothes me
+Poppy:Sleep
+Rose, any color:Love
+Rose, deep red:Bashful shame
+Rose, single, pink:Simplicity
+Rose, thornless, any color:Early attachment
+Rose, white:I am worthy of you
+Rose, yellow:Decrease of love, rise of jealousy
+Rosebud, white:Girlhood, and a heart ignorant of love
+Rosemary:Rememberance
+Sunflower:Haughtiness
+Tulip, red:Declaration of love
+Tulip, yellow:Hopeless love
+Upside down:Reverses meaning
+Violet, blue:Faithfulness
+Violet, white:Modesty
+Zinnia:Thoughts of absent friends
diff --git a/games/quiz/datfiles/greek b/games/quiz/datfiles/greek
new file mode 100644
index 0000000..4833e83
--- /dev/null
+++ b/games/quiz/datfiles/greek
@@ -0,0 +1,7 @@
+$luw$:{I} [loose|destroy]
+$eluon$:{I} [loosed|destroyed|was loosing|was destroying]
+$elusa$:{I} [loosed|destroyed]
+$leluka$:{I} have [loosed|destroyed]
+$lusw$:{I} will [loose|destroy]
+$luswn$:[loosing|destroying]
+$lusas$:{having} [loosed|destroyed]
diff --git a/games/quiz/datfiles/inca b/games/quiz/datfiles/inca
new file mode 100644
index 0000000..02fd39f
--- /dev/null
+++ b/games/quiz/datfiles/inca
@@ -0,0 +1,12 @@
+manco capac:sinchi roca
+sinchi roca:lloque yupanqui
+lloque yupanqui:mayta capac
+mayta capac:capac yupanqui
+capac yupanqui:inca roca
+inca roca:yahuar huacac
+yahuar huacac:viracocha
+viracocha:pachacuti
+pachacuti:tupa inca yupanqui
+tupa inca yupanqui:huayna capac
+huayna capac:huascar
+huascar:atahuallpa
diff --git a/games/quiz/datfiles/index b/games/quiz/datfiles/index
new file mode 100644
index 0000000..67a5234
--- /dev/null
+++ b/games/quiz/datfiles/index
@@ -0,0 +1,32 @@
+/usr/share/games/quiz.db/africa:Africa{n}:cap{ital}
+/usr/share/games/quiz.db/america:America{n}:cap{ital}
+/usr/share/games/quiz.db/areas:area{-code}:state{-region}:city
+/usr/share/games/quiz.db/arith:arith{metic}:ans{wer}
+/usr/share/games/quiz.db/asia:Asia{n}:cap{ital}
+/usr/share/games/quiz.db/babies:baby:adult
+/usr/share/games/quiz.db/bard:Shakespeare{{-}line{s}}|line{s}:next:work:char{acter}
+/usr/share/games/quiz.db/chinese:{Chinese{-}}year:next
+/usr/share/games/quiz.db/collectives:ind{ividuals}:coll{ective}
+/usr/share/games/quiz.db/ed:function:ed-command
+/usr/share/games/quiz.db/elements:symbol:number:weight:element
+/usr/share/games/quiz.db/europe:Europe{an}:cap{ital}
+/usr/share/games/quiz.db/flowers:flower{s}:meaning
+/usr/share/games/quiz.db/greek:greek:english
+/usr/share/games/quiz.db/inca:inca:succ{essor}
+/usr/share/games/quiz.db/latin:latin:english
+/usr/share/games/quiz.db/locomotive:locomotive:name
+/usr/share/games/quiz.db/midearth:M[iddle{-}Earth|E]:cap{ital}
+/usr/share/games/quiz.db/morse:clear|alpha{bet{ic}}:morse
+/usr/share/games/quiz.db/mult:mult{iplication}:ans{wer}
+/usr/share/games/quiz.db/murders:victim:killer
+/usr/share/games/quiz.db/poetry:poem{-}line:next:poem:author
+/usr/share/games/quiz.db/posneg:pos{itive}:neg{ative}
+/usr/share/games/quiz.db/pres:pres{ident}:term:succ{essor}
+/usr/share/games/quiz.db/province:province:cap{ital}
+/usr/share/games/quiz.db/seq-easy:easy{-}{seq{uence}}:next:name
+/usr/share/games/quiz.db/seq-hard:hard{-}{seq{uence}}:next:name
+/usr/share/games/quiz.db/sexes:male:female
+/usr/share/games/quiz.db/sov:sov{ereign}:cen{t{ury}}:succ{essor}
+/usr/share/games/quiz.db/state:state:cap{ital}:abbr{ev{iation}}:flower
+/usr/share/games/quiz.db/trek:star:trek
+/usr/share/games/quiz.db/ucc:section:U{niform{-}}C{riminal{-}}C{ode}
diff --git a/games/quiz/datfiles/latin b/games/quiz/datfiles/latin
new file mode 100644
index 0000000..0b03bd3
--- /dev/null
+++ b/games/quiz/datfiles/latin
@@ -0,0 +1,157 @@
+condo:{I }found
+condidi:{I }founded
+laedo:{I }[injure|thwart]
+impello:{I }[drive|force]
+impulit:{he }[drove|forced]
+sino:{I }permit
+sinat:{he }permit{s}
+dolor:pain|grief
+invideo:{I }[envy|hate]
+invisus:[hated|envied]
+immitis:cruel|harsh
+arceo:{I }[keep away|hinder|prevent]
+ratis:ship
+antrum:cave
+freno:rein{ in}|curb|check
+celsus:lofty
+spelunca:cave{rn}
+foedus (n.):agreement|treaty|truce
+foedera:agreements|treaties
+laxus:loose|free
+habena:rein{s}
+mulceo:soothe|calm
+fluctus (n.):wave{s}
+exigo:finish|spend
+exegit:{he }[finished|spent]
+opto (v.):desire|wish
+optat:{he }[desire{s}|wish{es}]
+capesso:seize|carry out
+concilio (v.):secure|gain
+converto:reverse
+procella:blast|gust
+polus:sky|heaven
+mico:flash|gleam
+extemplo:immediately
+frigus (n.):cold|chill
+ingemo:groan
+os (n.):mouth
+effundo:pour{ out}
+corripio:snatch|catch
+harena:sand
+excutio:shake{ off}
+nare:{to }swim
+rima:crack|fissure
+fatisco:gape{ open}
+disjicio:scatter|disperse
+dolus (n.):deceit
+luo:wash{ away}|atone{ for}
+cito (adv.):quickly|soon
+tumidus:swollen
+fugo:put to flight|drive out
+adnitor:strive
+seditio:riot|uprising
+fax:fire{-}brand
+volo (v.):fly
+arrigo:prick up
+cunctus:whole|entire
+flecto:turn|guide
+sinus:bay|fold|curve|gulf
+scindo:split|divide
+rupes:crag|cliff
+geminus:twin
+minatur:{he }threaten{s}
+coruscus:flashing|waving
+horreo:bristle
+nemus:grove
+nemora:groves
+umbra:shade|shadow
+intus:within
+dulcis:sweet|fresh
+sedile:seat|bench
+fessus:weary|tired
+uncus:hooked|curved
+morsus:bite
+artus:joint|limb
+silex:flint
+scintilla:spark
+folium:leaf
+aridus:dry
+corrumpo:spoil|ruin
+corrupit:{he }[spoil{ed}|ruin{ed}]
+frux:grain
+torreo:parch
+celsus:high|lofty
+cervus:stag
+erro:wander
+armentum:herd
+pasco:feed|nourish
+pascor:graze
+arcus:bow
+turba:crowd
+sterno:strew
+humus:ground|earth
+vinum:wine
+maereo:mourn|sorrow
+ignarus:unknowing|ignorant|inexperienced
+rabies:rage|fury
+penitus:within
+sono (v.):sound|roar
+maestus:sad|gloomy
+forsan:perhaps
+olim:someday|sometime
+memini:{I }remember
+varius:different
+discrimen:crisis|danger
+quiesco:become quiet
+refert:{he }[say{s}|tell{s}]
+vultus:face|countenance
+cor:heart
+corda:hearts
+dolor:pain|grief
+daps:feast
+dapes:feasts
+viscus:flesh
+seco:cut
+tremo:quiver
+pinguis:fat|rich
+mensa:table
+sermo:talk|discourse
+dubius:doubtful|wavering
+pius:dutiful|devoted|loyal
+gemo:lament|moan|bemoan
+crudelis:cruel|bitter
+lumen:light|eye
+lumina:lights|eyes
+tristis:sad
+lacrima:tear
+niteo:shine|glisten
+fulmen:thunderbolt|lightning
+fulmina:thunderbolts
+funus:death|disaster
+funera:deaths|disasters
+orbis terrarum:world
+ductor:leader
+dicio (n.):power
+fons:spring|source
+fontes:springs|sources
+arvum:land
+infandus:unspeakable
+rideo:laugh
+osculum:lip
+libo:sip|touch|kiss
+nata:daughter
+haereo:{I }[stick to|adhere]
+promitto:primise
+sublimis:high|uplifted|up high
+quando:since|when|because
+arcanum:{a }secret
+ferox:fierce|savage
+contundo:crush
+albus:white
+donec:until
+sacerdos:priest{ess}
+lupus:wolf
+nutrix:nurse
+nutrices:nurses
+fulvus:tawny|yellow
+meta:limit|boundary
diff --git a/games/quiz/datfiles/locomotive b/games/quiz/datfiles/locomotive
new file mode 100644
index 0000000..a29cc01
--- /dev/null
+++ b/games/quiz/datfiles/locomotive
@@ -0,0 +1,11 @@
+4-4-0:American
+4-6-0:Mogul
+4-4-2:Atlantic
+4-6-2:Pacific
+2-8-0:Consolidation
+2-8-2:Mikado
+4-8-2:Mountain
+2-8-4:Berkshire
+4-6-4:Hudson
+4-8-4:Northern
+2-10-2:Decapod
diff --git a/games/quiz/datfiles/midearth b/games/quiz/datfiles/midearth
new file mode 100644
index 0000000..17e21c0
--- /dev/null
+++ b/games/quiz/datfiles/midearth
@@ -0,0 +1,10 @@
+Shire:Michel Delving|Hobbiton
+Mordor:Minas Morgul
+Gondor:Minas Tirith
+Umbar:{City of the }Corsairs
+Rhovanion:Esgaroth{ upon the Long Lake}
+Rohan:Edoras
+Lothl['o|o|o']rien:Caras Galadon
+Breeland:Bree
+Arnor:Ann['u|u'|u]minas
+Arthedain:Fornost{ Erain}|Norbury of the Kings
diff --git a/games/quiz/datfiles/morse b/games/quiz/datfiles/morse
new file mode 100644
index 0000000..4086374
--- /dev/null
+++ b/games/quiz/datfiles/morse
@@ -0,0 +1,26 @@
+A:.-
+B:-...
+C:-.-.
+D:-..
+E:.
+F:..-.
+G:--.
+H:....
+I:..
+J:.---
+K:-.-
+L:.-..
+M:--
+N:-.
+O:---
+P:.--.
+Q:--.-
+R:.-.
+S:...
+T:-
+U:..-
+V:...-
+W:.--
+X:-..-
+Y:-.--
+Z:--..
diff --git a/games/quiz/datfiles/mult b/games/quiz/datfiles/mult
new file mode 100644
index 0000000..2ce87a0
--- /dev/null
+++ b/games/quiz/datfiles/mult
@@ -0,0 +1,99 @@
+1 x 0:0
+1 x 1:1
+1 x 2:2
+1 x 3:3
+1 x 4:4
+1 x 5:5
+1 x 6:6
+1 x 7:7
+1 x 8:8
+1 x 9:9
+1 x 10:10
+2 x 0:0
+2 x 1:2
+2 x 2:4
+2 x 3:6
+2 x 4:8
+2 x 5:10
+2 x 6:12
+2 x 7:14
+2 x 8:16
+2 x 9:18
+2 x 10:20
+3 x 0:0
+3 x 1:3
+3 x 2:6
+3 x 3:9
+3 x 4:12
+3 x 5:15
+3 x 6:18
+3 x 7:21
+3 x 8:24
+3 x 9:27
+3 x 10:30
+4 x 0:0
+4 x 1:4
+4 x 2:8
+4 x 3:12
+4 x 4:16
+4 x 5:20
+4 x 6:24
+4 x 7:28
+4 x 8:32
+4 x 9:36
+4 x 10:40
+5 x 0:0
+5 x 1:5
+5 x 2:10
+5 x 3:15
+5 x 4:20
+5 x 5:25
+5 x 6:30
+5 x 7:35
+5 x 8:40
+5 x 9:45
+5 x 10:50
+6 x 0:0
+6 x 1:6
+6 x 2:12
+6 x 3:18
+6 x 4:24
+6 x 5:30
+6 x 6:36
+6 x 7:42
+6 x 8:48
+6 x 9:54
+6 x 10:60
+7 x 0:0
+7 x 1:7
+7 x 2:14
+7 x 3:21
+7 x 4:28
+7 x 5:35
+7 x 6:42
+7 x 7:49
+7 x 8:56
+7 x 9:63
+7 x 10:70
+8 x 0:0
+8 x 1:8
+8 x 2:16
+8 x 3:24
+8 x 4:32
+8 x 5:40
+8 x 6:48
+8 x 7:56
+8 x 8:64
+8 x 9:72
+8 x 10:80
+9 x 0:0
+9 x 1:9
+9 x 2:18
+9 x 3:27
+9 x 4:36
+9 x 5:45
+9 x 6:54
+9 x 7:63
+9 x 8:72
+9 x 9:81
+9 x 10:90
diff --git a/games/quiz/datfiles/murders b/games/quiz/datfiles/murders
new file mode 100644
index 0000000..30cf324
--- /dev/null
+++ b/games/quiz/datfiles/murders
@@ -0,0 +1,25 @@
+Cock Robin:{the }sparrow
+sleep|Duncan:Macbeth
+{the }cat:curiosity|care
+{John {F{.} }}Kennedy|JFK:{Lee Harvey }Oswald|{the }FBI|{the }CIA
+{Lee Harvey }Oswald:{Jack }Ruby|{the }FBI|{the }CIA
+{Martin Luther }King:{James {Earl }}Ray|{the }FBI|{the }CIA
+[Bobby |Robert {F{.} }]Kennedy|RFK:{Sirhan }Sirhan|{the }FBI|{the }CIA
+Christ:{the }Romans|{Pontius }Pilate|{the }CIA
+{Sharon }Tate:{Charles }Manson
+Charles Lindbergh Jr{.}:{Bruno }Hauptman{n}
+{Mr{.} }{{and }Mrs{.} }Borden|{her }parents:Lizzie{ Borden}
+{Prof{essor} }{James }Moriarty:{Sherlock }Holmes
+Achilles:Paris
+Abel:Cain
+{the }nurses:{Richard }Speck
+{J{.} |Julius }Caesar:Brutus{ et al.}
+Pompeii:Vesuvius
+{Abraham |Abe }Lincoln:{John {Wilkes }}Booth
+{Yukio }Mishima:{Yukio }Mishima
+{Alexander }Hamilton:{Aaron }Burr
+Cleopatra:{the |an }asp
+[Ann Boleyn|Catharine Howard]:Henry{ VIII}
+vaudeville:{the }movies|film
+{the }movies|film:TV|television
+{the }VA patients:{the }nurses
diff --git a/games/quiz/datfiles/poetry b/games/quiz/datfiles/poetry
new file mode 100644
index 0000000..f4c07d6
--- /dev/null
+++ b/games/quiz/datfiles/poetry
@@ -0,0 +1,184 @@
+Come live with me and be my love:\
+And we will all the pleasures prove:\
+{The }Passionate Shepherd{ to his Love}:\
+{Christopher }Marlowe
+Shall I compare thee to a summer's day{?}:\
+Thou art more lovely and more temperate:\
+Sonnet 18:\
+{William }Shakespeare
+Fine knacks for ladies, cheap, choice, brave, and new!:\
+Good pennyworths{! }but money cannot move:\
+Fine Knacks{ for Ladies}:\
+{John }Dowland
+My mind to me a kingdom is:\
+Such perfect joy therein I find:\
+My Mind to Me a Kingdom Is:\
+{Sir }{Edward }Dyer
+Underneath this stone doth lie:\
+As much beauty as could die:\
+Epitaph on Elizabeth{,} {L. H.}:\
+{Ben }Jonson
+Death be not proud, though some have called thee:\
+Mighty and dreadful{,} for thou art not so:\
+{Holy }Sonnet{s}{ 10}:\
+{John }Donne
+Gather ye rose-buds while ye may:\
+Old Time is still a-flying:\
+To the Virgins{,} {To Make Much of Time}:\
+{Robert }Herrick
+Why so pale and wan, fond lover?:\
+Prithee{,} why so pale{?}:\
+Song:\
+{Sir }{John }Suckling
+Stone walls do not a prison make:\
+Nor iron bars a cage:\
+To Althea{,} From Prison:\
+{Richard }Lovelace
+I could not love thee (Dear) so much,:\
+Lov['|e]d I not hono{u}r more:\
+To Lucasta{, Going to the Wars}:\
+{Richard }Lovelace
+I saw Eternity the other night:\
+Like a great ring of pure and endless light:\
+{The }World:\
+{Henry }Vaughan
+Come and trip it as you go,:\
+On the light fantastic toe:\
+L'Allegro:\
+{John }Milton
+When I consider how my light is spent:\
+Ere half my days in this dark world and wide:\
+On His Blindness|When I Consider:\
+{John }Milton
+The grave's a fine and private place{,}:\
+But none{,} I think{,} do there embrace{.}:\
+To His Coy Mistress:\
+{Andrew }Marvel
+Great wits are sure to madness near allied:\
+And thin partitions do their bounds divide:\
+Absalom and Achitophel|Absalom:\
+{John }Dryden
+A little learning is a dangerous thing{;}:\
+Drink deep{,} or taste not the Pierian spring{.}:\
+{An }Essay on Criticism|{On }Criticism:\
+{Alexander }Pope
+The curfew tolls the knell of parting day{,}:\
+The lowing herd wind slowly o'er the lea:\
+Elegy{ Written in a Country Church{-| }Yard:\
+{Thomas }Gray
+The best laid schemes o' mice an' men gang aft a-gley{,}:\
+An{'|d} lea{'|v}e us nought but grief an{'|d} pain for promised joy{.}:\
+To a Mouse:\
+{Robert }Burns
+Tiger! tiger! burning bright!:\
+In the forests of the night:\
+{The }Tiger:\
+{William }Blake
+My heart leaps up when I behold:\
+A rainbow in the sky:\
+My Heart Leaps Up:\
+{William }Wordsworth
+The world is too much with us; late and soon{,}:\
+Getting and spending{,} we lay waste our powers:\
+{The }World is Too Much With Us|Sonnet:\
+{William }Wordsworth
+A sadder and a wiser man{,}:\
+He rose the morrow morn:\
+{The }{Rime of }{The }Ancient Mariner:\
+{Samuel }{Taylor }Coleridge
+In Xanadu did Kubla Khan:\
+A stately pleasure{-| }dome decree:\
+Kubla Khan:\
+{Samuel }{Taylor }Coleridge
+She walks in beauty, like the night:\
+Of cloudless climes and starry skies:\
+She Walks in Beauty:\
+{George Gordon, }{Lord }Byron
+I want a hero- an uncommon want{,}:\
+When every year and month sends forth a new one:\
+Don Juan{ Canto I}:\
+{George Gordon, }{Lord }Byron
+A thing of beauty is a joy forever.:\
+Its loveliness increases{;|.} {it will never/Pass into nothingness}:\
+Endymion{ Book I}:\
+{John }Keats
+Matched with an aged wife, I mete and dole:\
+Unequal laws unto a savage race:\
+Ulysses:\
+{Alfred{,} }{Lord }Tennyson
+He will hold thee, when his passion shall have spent its novel force{,}:\
+Something better than his dog{,} a little dearer than his horse:\
+Locksley Hall:\
+{Alfred{,} }{Lord }Tennyson
+'Tis better to have loved and lost:\
+Than never to have loved at all:\
+{In }Memoriam{ A. H. H.}:\
+{Alfred{,} }{Lord }Tennyson
+Kind hearts are more than coronets,:\
+And simple faith than Norman blood{.}:\
+Lady Clara Vere de Vere:\
+{Alfred{,} }{Lord }Tennyson
+Oh, to be in England:\
+Now that April's there:\
+Home{-| }Thoughts{,} From Abroad:\
+{Robert }Browning
+Ah, but a man's reach should exceed his grasp{,}:\
+Or what's a heaven for{?}:\
+Andrea Del Sarto:\
+{Robert }Browning
+How do I love thee? Let me count the ways.:\
+I love thee to the depth and breadth and height:\
+Sonnet{s} {From the Portuguese}{ 43}:\
+{Elizabeth }{Barrett }Browning
+A Book of Verses underneath the Bough{,}:\
+A Jug of Wine, a Loaf of Bread{-|,| }and Thou:\
+{The }Rubaiyat{ of Omar Khayyam}{ 12}:\
+{Edward }Fitzgerald
+The Moving Finger writes; and, having writ,:\
+Moves on{\:|,|.} nor all your Piety nor Wit:\
+{The }Rubaiyat{ of Omar Khayyam}{ 71}:\
+{Edward }Fitzgerald
+Ah Love! could you and I with Him conspire:\
+To grasp this sorry Scheme of Things entire:\
+{The }Rubaiyat{ of Omar Khayyam}{ 99}:\
+{Edward }Fitzgerald
+Remember me when I am gone away,:\
+Gone far away into the silent land:\
+Remember:\
+{Christina }Rossetti
+Home is the sailor, home from the sea,:\
+And the hunter home from the hill:\
+Requiem:\
+{Robert }{Louis }Stevenson
+I fled Him, down the nights and down the days;:\
+I fled Him, down the arches of the years:\
+{The }Hound of Heaven:\
+{Francis }Thompson
+So 'ere's to you, Fuzzy-Wuzzy, at your 'ome in the Soudan;:\
+You're a {pore|poor} benighted {'|h}eathen but a first class fightin{'|g} man:\
+Fuzzy{-| }Wuzzy:\
+{Rudyard }Kipling
+Morns abed and daylight slumber:\
+Were not meant for man alive:\
+Reveille:\
+{A{.}{ }E{.}{ }}Houseman
+I will arise and go now, and go to Innisfree,:\
+And a small cabin build there{,} of clay and wattles made:\
+{The }{Lake Isle of }Innisfree:\
+{William }{Butler }Yeats
+I must go down to the seas again, to the lonely sea and the sky,:\
+And all I ask is a tall ship and a star to steer her by:\
+Sea{-| }Fever:\
+{John }Masefield
+April is the cruelest month, breeding:\
+Lilacs out of the dead land:\
+{The }Waste{ }Land:\
+{T{.}{ }S{.}{ }}Eliot
+Now as I was young and easy under the apple boughs:\
+About the little house and happy as the grass was green:\
+Fern Hill:\
+{Dylan }Thomas
+Of Man's first disobedience, and the fruit:\
+Of that forbidden tree{,} whose mortal taste:\
+Paradise Lost:\
+{John }Milton
diff --git a/games/quiz/datfiles/posneg b/games/quiz/datfiles/posneg
new file mode 100644
index 0000000..03fde40
--- /dev/null
+++ b/games/quiz/datfiles/posneg
@@ -0,0 +1,50 @@
+large|big:small
+on:off
+standing up:sitting down
+inside:outside
+high:low
+old:new|young
+hot:cold
+out:in
+heavy|dark:light
+daytime:night[time| time]
+stop|come:go
+top:bottom
+floor:ceiling
+near:far
+run:walk
+empty|hungry:full
+backwards:f[or|ront]wards
+big|large:little|small
+fat|thick:thin|skinny
+bright|light:dark|dull
+right:wrong|left
+give:take|receive|get
+buy:sell
+shiny|bright:dull
+dawn:dusk
+fall down|go to bed:[get|stand|rise] up
+asleep:awake
+up:down
+open[
|ed|]:close[d|]
+smile:frown|cry
+happy|glad:sad
+hard:soft|easy
+boy|woman|lady:girl|man
+fast:slow
+wet:dry
+covered|hid[den|]:uncovered|open
+good:bad
+always|sometimes|now:never|sometimes
+beautiful|pretty:ugly
+rough:smooth
+hairy:bald||smooth
+above:below
+yin:yang
+sweet:sour
+if:unless
+from|fro:to
+with[
|in|]:without|against
+after:before
+together:apart
+plus:minus
diff --git a/games/quiz/datfiles/pres b/games/quiz/datfiles/pres
new file mode 100644
index 0000000..49da275
--- /dev/null
+++ b/games/quiz/datfiles/pres
@@ -0,0 +1,38 @@
+{G{eorge} }Washington:1789-{17}97:{J{ohn} }Adams
+{J{ohn} }Adams:1797-1801:{T{homas} }Jefferson
+{T{homas} }Jefferson:1801-{{18}0}9:{J{ames} }Madison
+{J{ames} }Madison:1809-{18}17:{J{ames} }Monroe
+{J{ames} }Monroe:1817-1825:{J{ohn} }{Q{uincy} }Adams
+{J{ohn} }{Q{uincy} }Adams:1825-{{18}2}9:{A{ndrew} }Jackson
+{A{ndrew} }Jackson:1829-{18}37:{M{artin} }Van Buren
+{M{artin} }Van Buren:1837-{18}41:{W{illiam|m} }{H{enry} }Harrison
+{W{illiam|m} }{H{enry} }Harrison:1841:{J{ohn} }Tyler
+{J{ohn} }Tyler:1841-{{18}4}5:{J{ames} }{K{nox} }Polk
+{J{ames} }{K{nox} }Polk:1845-{{18}4}9:{Z{achary} }Taylor
+{Z{achary} }Taylor:1849-{18}50:{M{illard} }Fillmore
+{M{illard} }Fillmore:1850-{{18}5}3:{F{ranklin} }Pierce
+{F{ranklin} }Pierce:1853-{{18}5}7:{J{ames} }Buchanan
+{J{ames} }Buchanan:1857-{18}61:{A{braham|be} }Lincoln
+{A{braham|be} }Lincoln:1861-{{18}6}5:{A{ndrew} }Johnson
+{A{ndrew} }Johnson:1865-{{18}6}9:{U{lysses} }{S{impson} }Grant
+{U{lysses} }{S{impson} }Grant:1869-{18}77:{R{utherford} }{B{irchard} }Hayes
+{R{utherford} }{B{irchard} }Hayes:1877-{18}81:{J{ames} }{A{bram} }Garfield
+{J{ames} }{A{bram} }Garfield:1881:{C{hester} }{A{lan} }Arthur
+{C{hester} }{A{lan} }Arthur:1881-{{18}8}5:{G{rover} }Cleveland{ (1st term)}
+{G{rover} }Cleveland{ (1st term)}:1885-{{18}8}9:{B{enjamin} }Harrison
+{B{enjamin} }Harrison:1889-{18}93:{G{rover} }Cleveland{ (2nd term)}
+{G{rover} }Cleveland{ (2nd term)}:1893-{18}97:{W{illiam|m} }McKinley
+{W{illiam|m} }McKinley:1897-1901:{T{heodore|eddy} }Roosevelt|TR
+{T{heodore|eddy} }Roosevelt|TR:1901-{{19}0}9:{W{illiam|m} }{H{oward} }Taft
+{W{illiam|m} }{H{oward} }Taft:1909-{19}13:{W{oodrow} }Wilson
+{W{oodrow} }Wilson:1913-{19}21:{W{arren} }{G{amaliel} }Harding
+{W{arren} }{G{amaliel} }Harding:1921-{{19}2}3:{C{alvin} }Coolidge
+{C{alvin} }Coolidge:1923-{{19}2}9:{H{erbert} }Hoover
+{H{erbert} }Hoover:1929-{19}33:{F{ranklin} }{D{elano} }Roosevelt|FDR
+{F{ranklin} }{D{elano} }Roosevelt|FDR:1933-{19}45:{H{arry} }{S }Truman
+{H{arry} }{S }Truman:1945-{19}53:{D{wight} }{D{avid} }Eisenhower
+{D{wight} }{D{avid} }Eisenhower:1953-{19}61:{J{ohn} }{F{itzgerald} }Kennedy|JFK
+{J{ohn} }{F{itzgerald} }Kennedy|JFK:1961-{{19}6}3:{L{yndon} }{B{aines} }Johnson|LBJ
+{L{yndon} }{B{aines} }Johnson|LBJ:1963-{{19}6}9:{R{ichard} }{M{ilhouse} }Nixon
+{R{ichard} }{M{ilhouse} }Nixon:1969-{19}74:{G{erald} }{R{obert} }Ford
+{G{erald} }{R{obert} }Ford:1974-:
diff --git a/games/quiz/datfiles/province b/games/quiz/datfiles/province
new file mode 100644
index 0000000..63e044c
--- /dev/null
+++ b/games/quiz/datfiles/province
@@ -0,0 +1,13 @@
+Newfoundland{ and Labrador}:[St.|Saint] John's
+New Brunswick:Fredericton
+Prince Edward Island:Charlottetown
+Nova Scotia:Halifax
+Quebec:Quebec
+Ontario:Toronto
+Manitoba:Winnipeg
+Saskatchewan:Regina
+Alberta:Edmonton
+British Columbia:Victoria
+Yukon Territory:Whitehorse
+Northwest Territories:Yellowknife
+Canada:Ottawa
diff --git a/games/quiz/datfiles/seq-easy b/games/quiz/datfiles/seq-easy
new file mode 100644
index 0000000..e88cefa
--- /dev/null
+++ b/games/quiz/datfiles/seq-easy
@@ -0,0 +1,14 @@
+1,2,3,4,5,6:7{(integers)}:integers|[natural|counting] numbers
+1,2,3,5,8,13:21{(Fibonacci)}:Fibonacci{ seq{ence}| numbers}
+1,2,4,8,16,32:64{(powers of 2)}:powers of 2|2[**|^]n
+1,2,6,24,120,720:5040{(factorials)}:factorials|n!
+1,3,5,7,9,11:13{(odd nos.)}:odd [integ|numb]ers
+1,3,6,10,15,21:28{(triangular)}:triangular{ numbers}|C(n,2)
+1,3,9,27,81:243{(powers of 3)}:powers of 3|3[**|^]n
+1,4,9,16,25:36{(squares)}:squares|n[**|^]2
+1,4,16,64:256{(powers of 4)}:powers of 4|4[**|^]n
+1,5,25,125:625{(powers of 5)}:powers of 5|5[**|^]n
+1,8,27,64,125:216{(cubes)}:cubes|n[**|^]3
+2,3,5,7,11,13:17{(primes)}:prime[ number]s
+2,4,6,8,10,12:14{(even nos.)}:even [integ|numb]ers|multiples of 2|2n
+3,6,9,12,15:18{(3n)}:multiples of 3|3n
diff --git a/games/quiz/datfiles/seq-hard b/games/quiz/datfiles/seq-hard
new file mode 100644
index 0000000..9d9373f
--- /dev/null
+++ b/games/quiz/datfiles/seq-hard
@@ -0,0 +1,15 @@
+1,1,2,1,2,2,3,1,2,2,3,2,3,3,4:1{(1's in binary nos)}:number of 1's in binary numbers
+1,1,2,2,4,2,6,4,6,4,10:4{(phi(n))}:Euler's [totient|phi]{ function}|phi(n)
+1,2,2,4,2,4,2,4,6,2:6{(diff of primes)}:diff{erences} [between|of] primes
+1,2,4,11,34:156{(unlabeled graphs)}:{unlabeled }graphs
+1,2,5,14,42,132:429{(Catalan)}:Catalan{ numbers}
+1,2,5,16,61:272{(Euler)}:Euler{ numbers}
+1,3,12,60,360:2520{(n!/2)}:Even permutations|n!/2
+1,3,16,125,1296,16807:262144{(n**(n-2))}:{labeled }trees|n[**|^](n-2)
+1,4,10,20,35,56:84{(C(n,3))}:Tetrahedral{ numbers}|C(n,3)
+1,4,11,20,31,44,61:100{(n**2 base 8)}:[Squares|n[**|^]2} base 8|octal squares
+1,4,16,256:65536{(2**2**n)}:{labeled }boolean functions|2[**|^]2[**|^]n
+1,6,28:496{(perfect nos)}:perfect{ numbers}
+2,7,1,8,2,8:1{(e)}:{digits of }e
+3,1,4,1,5,9:2{(pi)}:{digits of }pi
+3,7,31,127:8191{(Mersenne primes)}:Mersenne{ primes}
diff --git a/games/quiz/datfiles/sexes b/games/quiz/datfiles/sexes
new file mode 100644
index 0000000..78c583a
--- /dev/null
+++ b/games/quiz/datfiles/sexes
@@ -0,0 +1,26 @@
+Y|y:X|x
+abbot:abbess
+alumnus:alumna
+ambassador:ambassadress
+boar:sow
+buck:doe
+bull:cow
+cob:pen
+colt:filly
+curator:curatrix
+dog:bitch|vixen
+duke:duchess
+drake:duck
+effeminate|womanish:mannish
+gander:goose
+gentleman:lady|gentlewoman
+jack:jenny
+lad:lass
+manly:womanly
+marquis:marchioness[|e]|marquise
+monk:nun
+[O|o]edipus complex:[E|e]lectra[| complex]
+prince:princess
+ram:ewe
+rooster|cock:hen
+stallion:mare
diff --git a/games/quiz/datfiles/sov b/games/quiz/datfiles/sov
new file mode 100644
index 0000000..c02d417
--- /dev/null
+++ b/games/quiz/datfiles/sov
@@ -0,0 +1,42 @@
+W[illia|]m [I|1|the Conqueror]:11:W[illia|]m [II|2|Rufus|the Red]
+W[illia|]m [II|2|Rufus|the Red]:11:Hen[ry|] [I|1]
+Hen[ry|] [I|1]:12:Stephen
+Stephen:12:Hen[ry|] [II|2]
+Hen[ry|] [II|2]:12:Rich[ard|] [I|1]
+Rich[ard|] [I|1]:12:John
+John:13|12-13:Hen[ry|] [III|3]
+Hen[ry|] [III|3]:13:Ed[w[ard|]|] [I|1]
+Ed[w[ard|]|] [I|1]:13-14|13|14:Ed[w[ard|]|] [II|2]
+Ed[w[ard|]|] [II|2]:14:Ed[w[ard|]|] [III|3]
+Ed[w[ard|]|] [III|3]:14:Rich[ard|] [II|2]
+Rich[ard|] [II|2]:14:Hen[ry|] [IV|4] Part 1
+Hen[ry|] [IV|4] Part 1:15|14-15:Hen[ry|] [IV|4] Part 2
+Hen[ry|] [IV|4] Part 2:15|14-15:Hen[ry|] [V|5]
+Hen[ry|] [V|5]:15:Hen[ry|] [VI|6]
+Hen[ry|] [VI|6]:15:Ed[w[ard|]|] [IV|4]
+Ed[w[ard|]|] [IV|4]:15:Ed[w[ard|]|] [V|5]
+Ed[w[ard|]|] [V|5]:15:Rich[ard|] [III|3]
+Rich[ard|] [III|3]:15:Hen[ry|] [VII|7]
+Hen[ry|] [VII|7]:15-16|15|16:Hen[ry|] [VIII|8]
+Hen[ry|] [VIII|8]:16:Ed[w[ard|]|] [VI|6]
+Ed[w[ard|]|] [VI|6]:16:Mary
+Mary:16:Eliz[abeth|][ [I|1]|]
+Elizabeth[ [I|1]|]:16-17|16:Ja[me|]s [I|1]
+Ja[me|]s [I|1]:17:Cha[rle|]s [I|1]
+Cha[rle|]s [I|1]:17:[Oliver |]Cromwell
+[Oliver |]Cromwell:17:Rich[ard|] Cromwell
+Rich[ard|] Cromwell:17:Ch[arle|]s [II|2]
+Cha[rle|]s [II|2]:17:Ja[me|]s [II|2]
+Ja[me|]s [II|2]:17:W[illia|]m and Mary
+W[illia|]m and Mary:17-18|17:Anne
+Anne:18:Geo[rge|] [I|1]
+Geo[rge|] [I|1]:18:Geo[rge|] [II|2]
+Geo[rge|] [II|2]:18:Geo[rge|] [III|3]
+Geo[rge|] [III|3]:18-19|18|19:Geo[rge|] [IV|4]
+Geo[rge|] [IV|4]:19:W[illia|]m [IV|4]
+W[illia|]m [IV|4]:19:Victoria
+Victoria:19:Ed[w[ard|]|] [VII|7]
+Ed[w[ard|]|] [VII|7]:19-20|19|20:Geo[rge|] [V|5]
+Geo[rge|] [V|5]:20:Ed[w[ard|]|] [VIII|8]
+Ed[w[ard|]|] [VIII|8]:20:Geo[rge|] [VI|6]
+Geo[rge|] [VI|6]:20:Eliz[abeth|] [II|2]
diff --git a/games/quiz/datfiles/spell b/games/quiz/datfiles/spell
new file mode 100644
index 0000000..75ce1e8
--- /dev/null
+++ b/games/quiz/datfiles/spell
@@ -0,0 +1,2 @@
+The son went behind a cloud.:sun
+Did you see the monky at the zoo?:monkey
diff --git a/games/quiz/datfiles/state b/games/quiz/datfiles/state
new file mode 100644
index 0000000..0c11487
--- /dev/null
+++ b/games/quiz/datfiles/state
@@ -0,0 +1,50 @@
+Alabama|Ala|AL:Montgomery:AL:goldenrod
+Alaska|AK:Juneau:AK:forget{-| }me{-| }not
+Arizona|Ariz|AZ:Phoenix:AZ:{saguaro }cactus
+Arkansas|Ark|AR:Little Rock:AR:gok
+Cal{if{ornia}}|CA:Sacramento:CA:{golden }poppy
+Col{o{rado}}|CO:Denver:CO:columbine
+Conn{ecticut}|CT:Hartford:CT:{mountain }laurel
+Del{aware}|DE:Dover:DE:peach{ blossom}
+Fl{orid}a|FL:Tallahassee:FL:orange{ blossom}
+Georgia|Ga:Atlanta:GA:{Cherokee }rose
+Hawaii|HI:Honolulu:HI:hibiscus
+Idaho|Ida|ID:Boise:ID:syringa
+Ill{inois}|IL:Springfield:IL:violet
+Ind{iana}|IN:Indianapolis:IN:zinnia
+Iowa|Ia:Des Moines:IA:{wild }rose
+Kans{as}|Kan|KS:Topeka:KS:sun{ }flower
+Kentucky|Ky:Frankfort:KY:goldenrod
+Louisiana|La:Baton Rouge:LA:magnolia
+Maine|Me:Augusta:ME:pinecone{ and}{ tassel}
+Maryland|Md:Annapolis:MD:blackeyed susan
+Mass{achusetts}|MA:Boston:MA:{trailing }arbutus
+Mich{igan}|MI:Lansing:MI:apple{ blossom}
+Minn{esota}|MN:Saint Paul|St Paul:MN:gok
+Miss{issippi}|MS:Jackson:MS:magnolia
+Missouri|Mo:Jefferson City:MO:hawthorn
+Mont{ana}|MT:Helena:MT:bitterroot
+Nebraska|Neb|NE|NB:Lincoln:NE|NB:goldenrod
+Nevada|Nev|NV:Carson City:NV:sagebrush
+New Hampshire|NH:Concord:NH:{purple }lilac
+New Jersey|NJ:Trenton:NJ:violet
+New Mexico|NM:Santa Fe:NM:yucca
+New York|NY:Albany:NY:{wild }rose
+N{orth} Carolina|NC:Raleigh:NC:dogwood
+N{orth} Dakota|ND:Bismarck:ND:{wild }{prarie }rose
+Ohio|O|OH:Columbus:OH:{scarlet }carnation
+Oklahoma|Okla|OK:Oklahoma City:OK:mistletoe
+Oregon|Ore|OR:Salem:OR:{Oregon }grape
+Pennsylvania|Pa:Harrisburg:PA:{mountain }laurel
+Rhode Island|RI:Providence:RI:violet
+S{outh} Carolina|SC:Columbia:SC:{yellow }jasmine
+S{outh} Dakota|SD:Pierre:SD:pasque{ flower}
+Tenn{essee}|TN:Nashville:TN:iris
+Texas|Tex|TX:Austin:TX:blue{-| }bonnet
+Utah|UT:Salt Lake City:UT:{sego }lilly
+Vermont|Vt:Montpelier:VT:{red }clover
+Virginia|Va:Richmond:VA:dogwood
+Wash{ington}|WA:Olympia:WA:rhododendron
+W{est} Virginia|W{ }Va|WV:Charleston:WV:rhododendron
+Wisconsin|Wis|WI:Madison:WI:violet
+Wyo{ming}|WY:Cheyenne:WY:indian paint brush
diff --git a/games/quiz/datfiles/trek b/games/quiz/datfiles/trek
new file mode 100644
index 0000000..11740b8
--- /dev/null
+++ b/games/quiz/datfiles/trek
@@ -0,0 +1,19 @@
+captain's name:{James |Jim }{T. }Kirk|{james |jim }{t. }kirk
+first officers name:Spock|spock|Mr. Spock|mr. spock
+name of ship:{the }{u.s.s. }enterprise|Enterprise
+name of the "good guys":{the }Federation|federation|{the }federation
+name of the "bad guys":{the }klingons|{the }romulans
+nickname of chief engineer:scotty|Scotty
+nickname of chief medical officer:bones|Bones
+machine used for transportation to surface of nearby planet:transporter|shuttlecraft
+main engines of ship:warp engines|warp
+number of crew:400|four hundred
+hand-held weapon:phaser
+type of torpedoes used on the ship:photon torpedoes|photon
+name of electronic protective device on ship:shields|shield
+name of device that makes a ship invisible:cloaking device|cloak|cloaking
+type of voice that the on-board computer has:female|feminine|woman's
+where first officer comes from:vulcan|Vulcan
+rare, but very powerful enemies:romulans|Romulans
+reaction that main engines operate on:matter-antimatter{ reaction}|matter/antimatter{ reaction}
+slow engines used in emergencies:impulse engines|impulse
diff --git a/games/quiz/datfiles/ucc b/games/quiz/datfiles/ucc
new file mode 100644
index 0000000..d852b95
--- /dev/null
+++ b/games/quiz/datfiles/ucc
@@ -0,0 +1,127 @@
+1-103:supplementary general principles of law applicable
+1-106:remedies to be liberally administered
+1-201:general definitions
+1-203:obligation of good faith
+1-205:course of dealing and usage of trade
+1-206:statue of frauds for kinds of personal property not otherwise covered
+2-103:definitions-sales
+2-201:statute of frauds
+2-208:course of performance or practical consideration
+2-302:unconscionable contract or clause
+2-310:open time for payment or running of credit
+2-319:FOB and FAS terms
+2-320:CIF and C&F terms
+2-323:form of bill of lading required in overseas shipment
+2-401:passing of title; reservation for security
+2-402:rights of seller's creditors against sold goods
+2-403:powr to transfer; good faith purchase of goods; entrusting
+2-501:insurable interest in goods; manner of identification of goods
+2-502:buyer's right to goods on seller's insolvency
+2-503:manner of seller's tender of delivery
+2-506:rights of financing agency
+2-507:effect of seller's tender; delivery on condition
+2-508:cure by seller of improper tender or delivery; replacement
+2-509:risk of loss in the absence ogf breach
+2-510:effect of breach on risk of loss
+2-513:buyer's right to inspection of goods
+2-601:buyer's rights on improper delivery
+2-602:manner and effect of rightful rejection
+2-603:merchant buyer's duties as to rightfully rejected goods
+2-605:waiver of buyer's objections by failure to particularize
+2-606:what constitutes acceptance of goods
+2-607:effect of acceptance; notice of breach
+2-608:revocation of acceptance in whole or in part
+2-609:right to adequate assurance of performance
+2-610:anticipatory repudiation
+2-611:retraction of anticipatory repudiation
+2-612:installment contract; breach
+2-702:seller's remedies on discovery o buyer's insolvency
+2-703:seller's remedies in general
+2-705:seller's stoppage of delivery in transit or otherwise
+2-706:seller's resale including contract for resale
+2-708:seller's damages for non-acceptance or repudiation
+2-709:action for the price
+2-711:buyer's remedies in general; buyer's security interest in rejected goods
+2-712:cover; buyer's procurement of substitute goods
+2-713:buyer's damages for on-delivery or repudiation
+2-714:buyer's damages for breach in regard to accepted goods
+2-715:buyer's incidental and consequential damages
+2-716:buyer's right to specific performance or replevin
+3-102:definitions-commercial paper
+3-104:form of negotiable instruments; draft; check; certificate of deposit; note
+3-110:payable to order
+3-111:payable to bearer
+3-201:transfer: right to indorsement
+3-202:negotiation
+3-204:special indorsement; blank indorsement
+3-301:rights of a holder
+3-302:holder in due course
+3-305:rights of a holder in due course
+3-306:rights of one not holder in due course
+3-401:signature
+3-404:unauthorized signature
+3-405:impostors; signature in name of payee
+3-406:negligence contributing to alteration or unauthorized signature
+3-407:alteration
+3-410:definition and operation of acceptance
+3-411:certification of a check
+3-413:contract of maker, drawer and acceptor
+3-414:contract of indorser; order of liability
+3-417:warranties on presentment and transfer
+3-418:finality of payment or acceptance
+3-419:conversion of instrument; innocent representative
+3-501:when presentment, notice of dishonor, and protest necessary or permissible
+3-502:unexcused delay; discharge
+3-503:time or presentment
+3-507:dishonor; holder's right of recourse; term allowing representment
+3-508:notice of dishonor
+3-511:waived or excused presentment, protest or notice of dishonor or delay therein
+3-601:discharge of parties
+3-802:effect of instrument on obligation for which it is given
+3-804:lost,destroyed or stolen instruments
+4-104:definitions-bank deposits and collections
+4-105:banks-depositary, intermediary, collecting, payor, presenting, remitting
+4-207:warranties of customer and collecting bank on transfer or presentment of items
+4-208:security interest of collecting bank in items, accompanying documents and proceeds
+4-209:when bank gives value for purposes of holder in due course
+4-211:media of remittance; provision and final settlement in remittance cases
+4-213:final payment of item by payor bank
+4-401:when bank may charge customer's account
+4-406:customer's duty to discover and report unauthorized signature or alteration
+4-402:bank liability to customer for wrongful dishonor
+4-407:payor bank's right to subrogation on improper payment
+5-111:warranties on transfer and presentment (letters of credit)
+5-114:issuer's duty and privilege to honor; right to reimbursement
+5-115:remedy for improper dishonor or anticipatory repudiaion (letters of credit)
+7-104:negotiable and non-negotiable warehouse receipt, bill of lading, other title
+7-204:duty of care; contractual limitation of warehouseperson's liability
+7-301:liability for non-receipt or misdescription
+7-403:obligation of warehouseperson or carrier to deliver; excuse
+7-404:no liability for good faith delivery pursuant to receipt or bill
+7-501:form of negotiation and requirements of due negotiation
+7-502:rights acquired by due negotiation
+7-503:document of title to goods defeated in certain cases
+7-504:rights acquired in absence of due negotiation; effect of diversion
+7-507:warranties on negotiation or transfer of receipt or bill
+7-508:warranties of collecting bank as to documents
+9-105:definitions-secured transactions
+9-107:definitions "purchase money security interest"
+9-109:classification of goods; consumer goods; equipment; farm products; inventory
+9-113:security interests arising under article on sales
+9-203:attachment and enforceability of security interest; proceeds; formal requisites
+9-206:agreement not to asserr defenses against assignee; modification of sales warranties
+9-301:persons who take priority over unperfected security interests
+9-302:when filing is required to perfect security interest
+9-303:when security interest is perfected
+9-304:perfection of security interest in instruments, documents
+9-305:when possession by secured party perfects security interest without filing
+9-306:proceeds; secured party's rights on disposition of collateral
+9-307:protection of buyers of goods
+9-310:periority of certain liens arising by opration of law (mechanic's liens)
+9-311:alienability of debtor's rights; judicial process
+9-312:priorities among conflicting security interests in the same collateral
+9-405:assignment of security interest
+9-501:default; procedure when security agreement  covers real and personal property
+9-503:secured party's right to take possession after default
+9-504:secured party's right to dispose of collateral after default
+9-505:compulsory disposition of collateral; acceptance of collateral as discharge of obligation
diff --git a/games/quiz/pathnames.h b/games/quiz/pathnames.h
new file mode 100644
index 0000000..08f4a6b
--- /dev/null
+++ b/games/quiz/pathnames.h
@@ -0,0 +1,37 @@
+/*-
+ * Copyright (c) 1990, 1993
+ *	The Regents of the University of California.  All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the University of
+ *	California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ *
+ *	@(#)pathnames.h	8.1 (Berkeley) 5/31/93
+ */
+
+#define	_PATH_PAGER	"/usr/bin/more"
+#define	_PATH_QUIZIDX	"/usr/share/games/quiz.db/index"
diff --git a/games/quiz/quiz.6 b/games/quiz/quiz.6
new file mode 100644
index 0000000..d658703
--- /dev/null
+++ b/games/quiz/quiz.6
@@ -0,0 +1,119 @@
+.\" Copyright (c) 1991, 1993
+.\"	The Regents of the University of California.  All rights reserved.
+.\"
+.\" This code is derived from software contributed to Berkeley by
+.\" Jim R. Oldroyd at The Instruction Set.
+.\"
+.\" Redistribution and use in source and binary forms, with or without
+.\" modification, are permitted provided that the following conditions
+.\" are met:
+.\" 1. Redistributions of source code must retain the above copyright
+.\"    notice, this list of conditions and the following disclaimer.
+.\" 2. Redistributions in binary form must reproduce the above copyright
+.\"    notice, this list of conditions and the following disclaimer in the
+.\"    documentation and/or other materials provided with the distribution.
+.\" 3. All advertising materials mentioning features or use of this software
+.\"    must display the following acknowledgement:
+.\"	This product includes software developed by the University of
+.\"	California, Berkeley and its contributors.
+.\" 4. Neither the name of the University nor the names of its contributors
+.\"    may be used to endorse or promote products derived from this software
+.\"    without specific prior written permission.
+.\"
+.\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+.\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+.\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+.\" ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+.\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+.\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+.\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+.\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+.\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+.\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+.\" SUCH DAMAGE.
+.\"
+.\"	@(#)quiz.6	8.1 (Berkeley) 5/31/93
+.\"
+.Dd May 31, 1993
+.Dt QUIZ 6
+.Os
+.Sh NAME
+.Nm quiz
+.Nd random knowledge tests
+.Sh SYNOPSIS
+.Nm quiz
+.Op Fl t
+.Op Fl i Ar file
+.Op Ar question answer
+.Sh DESCRIPTION
+The
+.Nm quiz
+utility tests your knowledge of random facts.
+It has a database of subjects from which you can choose.
+With no arguments,
+.Nm quiz
+displays the list of available subjects.
+.Pp
+The options are as follows:
+.Bl -tag -width indent
+.It Fl t
+Use tutorial mode, in which questions are repeated later if you didn't get
+them right the first time, and new questions are presented less frequently
+to help you learn the older ones.
+.It Fl i
+Specify an alternate index file.
+.El
+.Pp
+Subjects are divided into categories.
+You can pick any two categories from the same subject.
+.Nm Quiz
+will ask questions from the first category and it expects answers from
+the second category.
+For example, the command ``quiz victim killer'' asks questions which are
+the names of victims, and expects you to answer with the cause of their
+untimely demise, whereas the command ``quiz killer victim'' works the
+other way around.
+.Pp
+If you get the answer wrong,
+.Nm quiz
+lets you try again.
+To see the right answer, enter a blank line.
+.Sh "Index and Data File Syntax"
+The index and data files have a similar syntax.
+Lines in them consist of several categories separated by colons.
+The categories are regular expressions formed using the following
+meta-characters:
+.sp
+.Bl -tag -width "pat|pat" -compact -offset indent
+.It pat|pat
+alternate patterns
+.It {pat}
+optional pattern
+.It [pat]
+delimiters, as in pat[pat|pat]pat
+.El
+.Pp
+In an index file, each line represents a subject.
+The first category in each subject is the pathname of the data file for
+the subject.
+The remaining categories are regular expressions for the titles of each
+category in the subject.
+.Pp
+In data files, each line represents a question/answer set.
+Each category is the information for the question/answer for that category.
+.Pp
+The backslash character (``\e'') is used to quote syntactically significant
+characters, or at the end of a line to signify that a continuation line
+follows.
+.Pp
+If either a question or its answer is empty,
+.Nm quiz
+will refrain from asking it.
+.Sh FILES
+.Bl -tag -width /usr/share/games/quiz.db -compact
+.It Pa /usr/share/games/quiz.db
+The default index and data files.
+.El
+.Sh BUGS
+.Nm Quiz
+is pretty cynical about certain subjects.
diff --git a/games/quiz/quiz.c b/games/quiz/quiz.c
new file mode 100644
index 0000000..aa5f527
--- /dev/null
+++ b/games/quiz/quiz.c
@@ -0,0 +1,383 @@
+/*-
+ * Copyright (c) 1991, 1993
+ *	The Regents of the University of California.  All rights reserved.
+ *
+ * This code is derived from software contributed to Berkeley by
+ * Jim R. Oldroyd at The Instruction Set and Keith Gabryelski at
+ * Commodore Business Machines.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the University of
+ *	California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ */
+
+#ifndef lint
+static char copyright[] =
+"@(#) Copyright (c) 1991, 1993\n\
+	The Regents of the University of California.  All rights reserved.\n";
+#endif /* not lint */
+
+#ifndef lint
+static char sccsid[] = "@(#)quiz.c	8.2 (Berkeley) 1/3/94";
+#endif /* not lint */
+
+#include <sys/types.h>
+#include <errno.h>
+#include <time.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <ctype.h>
+#include "quiz.h"
+#include "pathnames.h"
+
+static QE qlist;
+static int catone, cattwo, tflag;
+static u_int qsize;
+
+char	*appdstr __P((char *, char *, size_t));
+void	 downcase __P((char *));
+void	 err __P((const char *, ...));
+void	 get_cats __P((char *, char *));
+void	 get_file __P((char *));
+char	*next_cat __P((char *));
+void	 quiz __P((void));
+void	 score __P((u_int, u_int, u_int));
+void	 show_index __P((void));
+void	 usage __P((void));
+
+int
+main(argc, argv)
+	int argc;
+	char *argv[];
+{
+	register int ch;
+	char *indexfile;
+
+	indexfile = _PATH_QUIZIDX;
+	while ((ch = getopt(argc, argv, "i:t")) != EOF)
+		switch(ch) {
+		case 'i':
+			indexfile = optarg;
+			break;
+		case 't':
+			tflag = 1;
+			break;
+		case '?':
+		default:
+			usage();
+		}
+	argc -= optind;
+	argv += optind;
+
+	switch(argc) {
+	case 0:
+		get_file(indexfile);
+		show_index();
+		break;
+	case 2:
+		get_file(indexfile);
+		get_cats(argv[0], argv[1]);
+		quiz();
+		break;
+	default:
+		usage();
+	}
+	exit(0);
+}
+
+void
+get_file(file)
+	char *file;
+{
+	register FILE *fp;
+	register QE *qp;
+	size_t len;
+	char *lp;
+
+	if ((fp = fopen(file, "r")) == NULL)
+		err("%s: %s", file, strerror(errno));
+
+	/*
+	 * XXX
+	 * Should really free up space from any earlier read list
+	 * but there are no reverse pointers to do so with.
+	 */
+	qp = &qlist;
+	qsize = 0;
+	while ((lp = fgetln(fp, &len)) != NULL) {
+		if (qp->q_text && qp->q_text[strlen(qp->q_text) - 1] == '\\')
+			qp->q_text = appdstr(qp->q_text, lp, len);
+		else {
+			if ((qp->q_next = malloc(sizeof(QE))) == NULL)
+				err("%s", strerror(errno));
+			qp = qp->q_next;
+			lp[len - 1] = '\0';
+			if ((qp->q_text = strdup(lp)) == NULL)
+				err("%s", strerror(errno));
+			qp->q_asked = qp->q_answered = FALSE;
+			qp->q_next = NULL;
+			++qsize;
+		}
+	}
+	(void)fclose(fp);
+}
+
+void
+show_index()
+{
+	register QE *qp;
+	register char *p, *s;
+	FILE *pf;
+
+	if ((pf = popen(_PATH_PAGER, "w")) == NULL)
+		err("%s: %s", _PATH_PAGER, strerror(errno));
+	(void)fprintf(pf, "Subjects:\n\n");
+	for (qp = qlist.q_next; qp; qp = qp->q_next) {
+		for (s = next_cat(qp->q_text); s; s = next_cat(s)) {
+			if (!rxp_compile(s))
+				err("%s", rxperr);
+			if (p = rxp_expand())
+				(void)fprintf(pf, "%s ", p);
+		}
+		(void)fprintf(pf, "\n");
+	}
+	(void)fprintf(pf, "\n%s\n%s\n%s\n",
+"For example, \"quiz victim killer\" prints a victim's name and you reply",
+"with the killer, and \"quiz killer victim\" works the other way around.",
+"Type an empty line to get the correct answer.");
+	(void)pclose(pf);
+}
+
+void
+get_cats(cat1, cat2)
+	char *cat1, *cat2;
+{
+	register QE *qp;
+	int i;
+	char *s;
+
+	downcase(cat1);
+	downcase(cat2);
+	for (qp = qlist.q_next; qp; qp = qp->q_next) {
+		s = next_cat(qp->q_text);
+		catone = cattwo = i = 0;
+		while (s) {
+			if (!rxp_compile(s))
+				err("%s", rxperr);
+			i++;
+			if (rxp_match(cat1))
+				catone = i;
+			if (rxp_match(cat2))
+				cattwo = i;
+			s = next_cat(s);
+		}
+		if (catone && cattwo && catone != cattwo) {
+			if (!rxp_compile(qp->q_text))
+				err("%s", rxperr);
+			get_file(rxp_expand());
+			return;
+		}
+	}
+	err("invalid categories");
+}
+
+void
+quiz()
+{
+	register QE *qp;
+	register int i;
+	size_t len;
+	u_int guesses, rights, wrongs;
+	int next;
+	char *answer, *s, *t, question[LINE_SZ];
+
+	srandom(time(NULL));
+	guesses = rights = wrongs = 0;
+	for (;;) {
+		if (qsize == 0)
+			break;
+		next = random() % qsize;
+		qp = qlist.q_next;
+		for (i = 0; i < next; i++)
+			qp = qp->q_next;
+		while (qp && qp->q_answered)
+			qp = qp->q_next;
+		if (!qp) {
+			qsize = next;
+			continue;
+		}
+		if (tflag && random() % 100 > 20) {
+			/* repeat questions in tutorial mode */
+			while (qp && (!qp->q_asked || qp->q_answered))
+				qp = qp->q_next;
+			if (!qp)
+				continue;
+		}
+		s = qp->q_text;
+		for (i = 0; i < catone - 1; i++)
+			s = next_cat(s);
+		if (!rxp_compile(s))
+			err("%s", rxperr);
+		t = rxp_expand();
+		if (!t || *t == '\0') {
+			qp->q_answered = TRUE;
+			continue;
+		}
+		(void)strcpy(question, t);
+		s = qp->q_text;
+		for (i = 0; i < cattwo - 1; i++)
+			s = next_cat(s);
+		if (!rxp_compile(s))
+			err("%s", rxperr);
+		t = rxp_expand();
+		if (!t || *t == '\0') {
+			qp->q_answered = TRUE;
+			continue;
+		}
+		qp->q_asked = TRUE;
+		(void)printf("%s?\n", question);
+		for (;; ++guesses) {
+			if ((answer = fgetln(stdin, &len)) == NULL) {
+				score(rights, wrongs, guesses);
+				exit(0);
+			}
+			answer[len - 1] = '\0';
+			downcase(answer);
+			if (rxp_match(answer)) {
+				(void)printf("Right!\n");
+				++rights;
+				qp->q_answered = TRUE;
+				break;
+			}
+			if (*answer == '\0') {
+				(void)printf("%s\n", t);
+				++wrongs;
+				if (!tflag)
+					qp->q_answered = TRUE;
+				break;
+			}
+			(void)printf("What?\n");
+		}
+	}
+	score(rights, wrongs, guesses);
+}
+
+char *
+next_cat(s)
+	register char *	s;
+{
+	for (;;)
+		switch (*s++) {
+		case '\0':
+			return (NULL);
+		case '\\':
+			break;
+		case ':':
+			return (s);
+		}
+	/* NOTREACHED */
+}
+
+char *
+appdstr(s, tp, len)
+	char *s;
+	register char *tp;
+	size_t len;
+{
+	register char *mp, *sp;
+	register int ch;
+	char *m;
+
+	if ((m = malloc(strlen(s) + len + 1)) == NULL)
+		err("%s", strerror(errno));
+	for (mp = m, sp = s; *mp++ = *sp++;);
+
+	if (*(mp - 1) == '\\')
+		--mp;
+	while ((ch = *mp++ = *tp++) && ch != '\n');
+	*mp = '\0';
+
+	free(s);
+	return (m);
+}
+
+void
+score(r, w, g)
+	u_int r, w, g;
+{
+	(void)printf("Rights %d, wrongs %d,", r, w);
+	if (g)
+		(void)printf(" extra guesses %d,", g);
+	(void)printf(" score %d%%\n", (r + w + g) ? r * 100 / (r + w + g) : 0);
+}
+
+void
+downcase(p)
+	register char *p;
+{
+	register int ch;
+
+	for (; ch = *p; ++p)
+		if (isascii(ch) && isupper(ch))
+			*p = tolower(ch);
+}
+
+void
+usage()
+{
+	(void)fprintf(stderr, "quiz [-t] [-i file] category1 category2\n");
+	exit(1);
+}
+
+#if __STDC__
+#include <stdarg.h>
+#else
+#include <varargs.h>
+#endif
+
+void
+#if __STDC__
+err(const char *fmt, ...)
+#else
+err(fmt, va_alist)
+	char *fmt;
+        va_dcl
+#endif
+{
+	va_list ap;
+#if __STDC__
+	va_start(ap, fmt);
+#else
+	va_start(ap);
+#endif
+	(void)fprintf(stderr, "quiz: ");
+	(void)vfprintf(stderr, fmt, ap);
+	va_end(ap);
+	(void)fprintf(stderr, "\n");
+	exit(1);
+}
diff --git a/games/quiz/quiz.h b/games/quiz/quiz.h
new file mode 100644
index 0000000..8923c8f
--- /dev/null
+++ b/games/quiz/quiz.h
@@ -0,0 +1,61 @@
+/*-
+ * Copyright (c) 1991, 1993
+ *	The Regents of the University of California.  All rights reserved.
+ *
+ * This code is derived from software contributed to Berkeley by
+ * Jim R. Oldroyd at The Instruction Set and Keith Gabryelski at
+ * Commodore Business Machines.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the University of
+ *	California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ *
+ *	@(#)quiz.h	8.1 (Berkeley) 5/31/93
+ */
+
+#define	TRUE		1
+#define	FALSE		0
+
+/* Length of compiled regexp machine; increase if not big enough. */
+#define	RXP_LINE_SZ	8192
+
+/* Maximum line length for data files. */
+#define	LINE_SZ		1024
+
+/* Linked list for holding index and data file information. */
+typedef struct qentry {
+	struct qentry *q_next;		/* next one */
+	char	*q_text;		/* category text string from file */
+	int	 q_asked;		/* TRUE if question's been asked */
+	int	 q_answered;		/* TRUE if question's been answered */
+} QE;
+
+extern char rxperr[];
+
+int	 rxp_compile __P((char *));
+char	*rxp_expand __P((void));
+int	 rxp_match __P((char *));
diff --git a/games/quiz/rxp.c b/games/quiz/rxp.c
new file mode 100644
index 0000000..4b6a74f
--- /dev/null
+++ b/games/quiz/rxp.c
@@ -0,0 +1,313 @@
+/*-
+ * Copyright (c) 1991, 1993
+ *	The Regents of the University of California.  All rights reserved.
+ *
+ * This code is derived from software contributed to Berkeley by
+ * Jim R. Oldroyd at The Instruction Set and Keith Gabryelski at
+ * Commodore Business Machines.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the University of
+ *	California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ */
+
+#ifndef lint
+static char sccsid[] = "@(#)rxp.c	8.1 (Berkeley) 5/31/93";
+#endif /* not lint */
+
+/*
+ * regular expression parser
+ *
+ * external functions and return values are:
+ * rxp_compile(s)
+ *	TRUE	success
+ *	FALSE	parse failure; error message will be in char rxperr[]
+ * metas are:
+ *	{...}	optional pattern, equialent to [...|]
+ *	|	alternate pattern
+ *	[...]	pattern delimiters
+ *
+ * rxp_match(s)
+ *	TRUE	string s matches compiled pattern
+ *	FALSE	match failure or regexp error
+ *
+ * rxp_expand()
+ *	char *	reverse-engineered regular expression string
+ *	NULL	regexp error
+ */
+
+#include <stdio.h>
+#include <ctype.h>
+#include "quiz.h"
+					/* regexp tokens,	arg */
+#define	LIT	(-1)			/* literal character,	char */
+#define	SOT	(-2)			/* start text anchor,	- */
+#define	EOT	(-3)			/* end text anchor,	- */
+#define	GRP_S	(-4)			/* start alternate grp,	ptr_to_end */
+#define	GRP_E	(-5)			/* end group,		- */
+#define	ALT_S	(-6)			/* alternate starts,	ptr_to_next */
+#define	ALT_E	(-7)			/* alternate ends,	- */
+#define	END	(-8)			/* end of regexp,	- */
+
+typedef short Rxp_t;			/* type for regexp tokens */
+
+static Rxp_t rxpbuf[RXP_LINE_SZ];	/* compiled regular expression buffer */
+char rxperr[128];			/* parser error message */
+
+static int	 rxp__compile __P((char *, int));
+static char	*rxp__expand __P((int));
+static int	 rxp__match __P((char *, int, Rxp_t *, Rxp_t *, char *));
+
+int
+rxp_compile(s)
+	register char *	s;
+{
+	return (rxp__compile(s, TRUE));
+}
+
+static int
+rxp__compile(s, first)
+	register char *s;
+	int first;
+{
+	static Rxp_t *rp;
+	static char *sp;
+	Rxp_t *grp_ptr;
+	Rxp_t *alt_ptr;
+	int esc, err;
+
+	esc = 0;
+	if (first) {
+		rp = rxpbuf;
+		sp = s;
+		*rp++ = SOT;	/* auto-anchor: pat is really ^pat$ */
+		*rp++ = GRP_S;	/* auto-group: ^pat$ is really ^[pat]$ */
+		*rp++ = 0;
+	}
+	*rp++ = ALT_S;
+	alt_ptr = rp;
+	*rp++ = 0;
+	for (; *sp; ++sp) {
+		if (rp - rxpbuf >= RXP_LINE_SZ - 4) {
+			(void)snprintf(rxperr, sizeof(rxperr),
+			    "regular expression too long %s", s);
+			return (FALSE);
+		}
+		if (*sp == ':' && !esc)
+			break;
+		if (esc) {
+			*rp++ = LIT;
+			*rp++ = *sp;
+			esc = 0;
+		}
+		else switch (*sp) {
+		case '\\':
+			esc = 1;
+			break;
+		case '{':
+		case '[':
+			*rp++ = GRP_S;
+			grp_ptr = rp;
+			*rp++ = 0;
+			sp++;
+			if ((err = rxp__compile(s, FALSE)) != TRUE)
+				return (err);
+			*rp++ = GRP_E;
+			*grp_ptr = rp - rxpbuf;
+			break;
+		case '}':
+		case ']':
+		case '|':
+			*rp++ = ALT_E;
+			*alt_ptr = rp - rxpbuf;
+			if (*sp != ']') {
+				*rp++ = ALT_S;
+				alt_ptr = rp;
+				*rp++ = 0;
+			}
+			if (*sp != '|') {
+				if (*sp != ']') {
+					*rp++ = ALT_E;
+					*alt_ptr = rp - rxpbuf;
+				}
+				if (first) {
+					(void)snprintf(rxperr, sizeof(rxperr),
+					    "unmatched alternator in regexp %s",
+					     s);
+					return (FALSE);
+				}
+				return (TRUE);
+			}
+			break;
+		default:
+			*rp++ = LIT;
+			*rp++ = *sp;
+			esc = 0;
+			break;
+		}
+	}
+	if (!first) {
+		(void)snprintf(rxperr, sizeof(rxperr),
+		    "unmatched alternator in regexp %s", s);
+		return (FALSE);
+	}
+	*rp++ = ALT_E;
+	*alt_ptr = rp - rxpbuf;
+	*rp++ = GRP_E;
+	*(rxpbuf + 2) = rp - rxpbuf;
+	*rp++ = EOT;
+	*rp = END;
+	return (TRUE);
+}
+
+/*
+ * match string against compiled regular expression
+ */
+int
+rxp_match(s)
+	register char *	s;
+{
+	return (rxp__match(s, TRUE, NULL, NULL, NULL));
+}
+
+static int
+rxp__match(s, first, j_succ, j_fail, sp_fail)
+	char *s;
+	int first;
+	Rxp_t *j_succ;		/* jump here on successful alt match */
+	Rxp_t *j_fail;		/* jump here on failed match */
+	char *sp_fail;		/* reset sp to here on failed match */
+{
+	static Rxp_t *rp;
+	static char *sp;
+	register int ch;
+	Rxp_t *grp_end;
+	int err;
+
+	if (first) {
+		rp = rxpbuf;
+		sp = s;
+	}
+	while (rp < rxpbuf + RXP_LINE_SZ && *rp != END)
+		switch(*rp) {
+		case LIT:
+			rp++;
+			ch = isascii(*rp) && isupper(*rp) ? tolower(*rp) : *rp;
+			if (ch != *sp++) {
+				rp = j_fail;
+				sp = sp_fail;
+				return (TRUE);
+			}
+			rp++;
+			break;
+		case SOT:
+			if (sp != s)
+				return (FALSE);
+			rp++;
+			break;
+		case EOT:
+			if (*sp != 0)
+				return (FALSE);
+			rp++;
+			break;
+		case GRP_S:
+			rp++;
+			grp_end = rxpbuf + *rp++;
+			break;
+		case ALT_S:
+			rp++;
+			if ((err = rxp__match(sp,
+			    FALSE, grp_end, rxpbuf + *rp++, sp)) != TRUE)
+				return (err);
+			break;
+		case ALT_E:
+			rp = j_succ;
+			return (TRUE);
+		case GRP_E:
+		default:
+			return (FALSE);
+		}
+	return (*rp != END ? FALSE : TRUE);
+}
+
+/*
+ * Reverse engineer the regular expression, by picking first of all alternates.
+ */
+char *
+rxp_expand()
+{
+	return (rxp__expand(TRUE));
+}
+
+static char *
+rxp__expand(first)
+	int first;
+{
+	static char buf[RXP_LINE_SZ/2];
+	static Rxp_t *rp;
+	static char *bp;
+	Rxp_t *grp_ptr;
+	char *err;
+
+	if (first) {
+		rp = rxpbuf;
+		bp = buf;
+	}
+	while (rp < rxpbuf + RXP_LINE_SZ && *rp != END)
+		switch(*rp) {
+		case LIT:
+			rp++;
+			*bp++ = *rp++;
+			break;
+		case GRP_S:
+			rp++;
+			grp_ptr = rxpbuf + *rp;
+			rp++;
+			if ((err = rxp__expand(FALSE)) == NULL)
+				return (err);
+			rp = grp_ptr;
+			break;
+		case ALT_E:
+			return (buf);
+		case ALT_S:
+			rp++;
+			/* FALLTHROUGH */
+		case SOT:
+		case EOT:
+		case GRP_E:
+			rp++;
+			break;
+		default:
+			return (NULL);
+		}
+	if (first) {
+		if (*rp != END)
+			return (NULL);
+		*bp = '\0';
+	}
+	return (buf);
+}
diff --git a/games/x11/xneko/Makefile b/games/x11/xneko/Makefile
new file mode 100644
index 0000000..a8a9a18
--- /dev/null
+++ b/games/x11/xneko/Makefile
@@ -0,0 +1,9 @@
+#	@(#)Makefile	8.1 (Berkeley) 5/31/93
+
+PROG=	xneko
+MAN6=	xneko.6
+DPADD+=		${X11BASE}/lib/libX11.a ${LIBM}
+LDDESTDIR+=	-L${X11BASE}/lib
+LDADD+=		-lX11 -lm
+
+.include <bsd.prog.mk>
diff --git a/games/x11/xneko/bitmaps/awake.xbm b/games/x11/xneko/bitmaps/awake.xbm
new file mode 100644
index 0000000..7ad4135
--- /dev/null
+++ b/games/x11/xneko/bitmaps/awake.xbm
@@ -0,0 +1,14 @@
+#define awake_width 32
+#define awake_height 32
+static char awake_bits[] = {
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x20, 0x00, 0x00, 0x04,
+   0x40, 0x10, 0x10, 0x02, 0x80, 0x28, 0x28, 0x01, 0x00, 0x49, 0x24, 0x00,
+   0x06, 0x44, 0x44, 0x60, 0x18, 0x84, 0x42, 0x18, 0x60, 0x82, 0x83, 0x06,
+   0x00, 0x02, 0x80, 0x00, 0x00, 0x22, 0x88, 0x00, 0x0f, 0x22, 0x88, 0x78,
+   0x00, 0x22, 0x88, 0x00, 0x00, 0x02, 0x80, 0x00, 0x00, 0x3a, 0xb9, 0x00,
+   0x00, 0x04, 0x40, 0x00, 0x00, 0x08, 0x20, 0x00, 0x00, 0x70, 0x1c, 0x02,
+   0x00, 0x40, 0x04, 0x05, 0x00, 0x20, 0x88, 0x04, 0x00, 0x10, 0x50, 0x02,
+   0x00, 0x08, 0x20, 0x01, 0x00, 0x0b, 0xa0, 0x01, 0x80, 0x0c, 0x61, 0x02,
+   0x40, 0x18, 0x31, 0x04, 0x40, 0x10, 0x11, 0x04, 0xc0, 0x11, 0x11, 0x07,
+   0x60, 0x90, 0x13, 0x0c, 0xe0, 0xff, 0xfe, 0x0f, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
diff --git a/games/x11/xneko/bitmaps/cursor.xbm b/games/x11/xneko/bitmaps/cursor.xbm
new file mode 100644
index 0000000..2646ea7
--- /dev/null
+++ b/games/x11/xneko/bitmaps/cursor.xbm
@@ -0,0 +1,8 @@
+#define cursor_width 17
+#define cursor_height 12
+#define cursor_x_hot 8
+#define cursor_y_hot 7
+static char cursor_bits[] = {
+   0x20, 0x00, 0x00, 0x90, 0x20, 0x00, 0x40, 0x40, 0x00, 0x0c, 0x40, 0x00,
+   0x14, 0x8f, 0x00, 0x94, 0xb0, 0x00, 0x7c, 0x20, 0x01, 0x0c, 0x4c, 0x01,
+   0x0a, 0x42, 0x01, 0x42, 0x82, 0x00, 0x3b, 0x87, 0x00, 0xff, 0x7f, 0x00};
diff --git a/games/x11/xneko/bitmaps/cursor_mask.xbm b/games/x11/xneko/bitmaps/cursor_mask.xbm
new file mode 100644
index 0000000..2548715
--- /dev/null
+++ b/games/x11/xneko/bitmaps/cursor_mask.xbm
@@ -0,0 +1,6 @@
+#define cursor_mask_width 17
+#define cursor_mask_height 12
+static char cursor_mask_bits[] = {
+   0x20, 0x00, 0x00, 0x90, 0x20, 0x00, 0x40, 0x40, 0x00, 0x0c, 0x40, 0x00,
+   0x1c, 0x8f, 0x00, 0x9c, 0xbf, 0x00, 0xfc, 0x3f, 0x01, 0xfc, 0x7f, 0x01,
+   0xfe, 0x7f, 0x01, 0xfe, 0xff, 0x00, 0xff, 0xff, 0x00, 0xff, 0x7f, 0x00};
diff --git a/games/x11/xneko/bitmaps/down1.xbm b/games/x11/xneko/bitmaps/down1.xbm
new file mode 100644
index 0000000..3a8218f
--- /dev/null
+++ b/games/x11/xneko/bitmaps/down1.xbm
@@ -0,0 +1,14 @@
+#define down1_width 32
+#define down1_height 32
+static char down1_bits[] = {
+   0x00, 0x80, 0x01, 0x00, 0x00, 0x40, 0x02, 0x00, 0x00, 0x40, 0x02, 0x00,
+   0x00, 0x40, 0x02, 0x00, 0x00, 0x40, 0x02, 0x00, 0x00, 0x40, 0x02, 0x00,
+   0x00, 0x78, 0x1e, 0x00, 0x00, 0x04, 0x20, 0x00, 0x00, 0x02, 0x40, 0x00,
+   0x00, 0x01, 0x80, 0x00, 0x80, 0x00, 0x00, 0x01, 0x80, 0x10, 0x10, 0x02,
+   0x80, 0x28, 0x28, 0x02, 0x40, 0x48, 0x24, 0x04, 0x40, 0x44, 0x44, 0x04,
+   0x40, 0x84, 0x42, 0x04, 0x40, 0x82, 0x83, 0x04, 0x40, 0x02, 0x80, 0x04,
+   0x60, 0x02, 0x80, 0x0c, 0xc0, 0x02, 0x80, 0x06, 0x20, 0x23, 0x88, 0x09,
+   0xa0, 0x23, 0x88, 0x0b, 0xe0, 0x22, 0x88, 0x0e, 0x80, 0x04, 0x41, 0x02,
+   0x00, 0x0f, 0xe0, 0x01, 0x00, 0x7c, 0x7c, 0x00, 0x00, 0xc0, 0x07, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
diff --git a/games/x11/xneko/bitmaps/down2.xbm b/games/x11/xneko/bitmaps/down2.xbm
new file mode 100644
index 0000000..dcb92e4
--- /dev/null
+++ b/games/x11/xneko/bitmaps/down2.xbm
@@ -0,0 +1,14 @@
+#define down2_width 32
+#define down2_height 32
+static char down2_bits[] = {
+   0x00, 0x8c, 0x61, 0x00, 0x00, 0x5a, 0xb2, 0x00, 0x00, 0x52, 0x92, 0x00,
+   0x00, 0x52, 0x92, 0x00, 0x00, 0x61, 0x0a, 0x01, 0x00, 0x61, 0x06, 0x01,
+   0x00, 0x01, 0x00, 0x01, 0x00, 0x01, 0x00, 0x01, 0x00, 0x01, 0x00, 0x01,
+   0x00, 0x01, 0x00, 0x01, 0x00, 0x02, 0x80, 0x00, 0x00, 0x12, 0x90, 0x00,
+   0x00, 0x29, 0x28, 0x01, 0x00, 0x49, 0x24, 0x01, 0x00, 0x45, 0x44, 0x01,
+   0x00, 0x85, 0x42, 0x01, 0x00, 0x83, 0x83, 0x01, 0x00, 0x03, 0x80, 0x01,
+   0x60, 0x03, 0x80, 0x0d, 0x80, 0x03, 0x80, 0x03, 0x00, 0x23, 0x88, 0x01,
+   0x00, 0x23, 0x88, 0x01, 0x00, 0x22, 0x88, 0x00, 0x00, 0x06, 0xc1, 0x00,
+   0x00, 0x0a, 0xa0, 0x00, 0x00, 0x72, 0x9c, 0x00, 0x00, 0xc2, 0x87, 0x00,
+   0x00, 0x24, 0x48, 0x00, 0x00, 0x24, 0x48, 0x00, 0x00, 0x34, 0x58, 0x00,
+   0x00, 0x18, 0x30, 0x00, 0x00, 0x00, 0x00, 0x00};
diff --git a/games/x11/xneko/bitmaps/dtogi1.xbm b/games/x11/xneko/bitmaps/dtogi1.xbm
new file mode 100644
index 0000000..06cb335
--- /dev/null
+++ b/games/x11/xneko/bitmaps/dtogi1.xbm
@@ -0,0 +1,14 @@
+#define dtogi1_width 32
+#define dtogi1_height 32
+static char dtogi1_bits[] = {
+   0x00, 0x00, 0x00, 0x00, 0x00, 0xc0, 0x00, 0x00, 0x00, 0x20, 0x01, 0x00,
+   0x00, 0x18, 0x02, 0x00, 0x00, 0x20, 0x04, 0x00, 0x00, 0x40, 0x04, 0x00,
+   0x00, 0x78, 0x3c, 0x00, 0x00, 0x04, 0x40, 0x00, 0x00, 0x02, 0x80, 0x00,
+   0x00, 0x01, 0x00, 0x01, 0x80, 0x00, 0x00, 0x02, 0x80, 0x10, 0x10, 0x02,
+   0x80, 0x28, 0x28, 0x02, 0xc0, 0x48, 0x24, 0x06, 0x30, 0x45, 0x44, 0x19,
+   0x08, 0x84, 0x42, 0x20, 0xf8, 0x83, 0x83, 0x3f, 0x00, 0x02, 0x80, 0x00,
+   0x00, 0x02, 0x80, 0x00, 0x00, 0x02, 0x80, 0x00, 0x00, 0x22, 0x88, 0x00,
+   0x00, 0x22, 0x88, 0x00, 0x00, 0x26, 0x88, 0x00, 0x00, 0x06, 0x41, 0x00,
+   0x00, 0x0a, 0x60, 0x00, 0x00, 0x72, 0x5c, 0x00, 0x00, 0xd2, 0x57, 0x00,
+   0x00, 0x52, 0x54, 0x00, 0x00, 0x5a, 0x54, 0x00, 0x00, 0x54, 0x54, 0x00,
+   0x00, 0x54, 0x14, 0x00, 0x00, 0x00, 0x00, 0x00};
diff --git a/games/x11/xneko/bitmaps/dtogi2.xbm b/games/x11/xneko/bitmaps/dtogi2.xbm
new file mode 100644
index 0000000..4b9105e
--- /dev/null
+++ b/games/x11/xneko/bitmaps/dtogi2.xbm
@@ -0,0 +1,14 @@
+#define dtogi2_width 32
+#define dtogi2_height 32
+static char dtogi2_bits[] = {
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x0c, 0x00, 0x00, 0x00, 0x12, 0x00,
+   0x00, 0x00, 0x11, 0x00, 0x00, 0x80, 0x08, 0x00, 0x00, 0x80, 0x04, 0x00,
+   0x00, 0xf0, 0x3c, 0x00, 0x00, 0x08, 0x40, 0x00, 0x00, 0x04, 0x80, 0x00,
+   0x00, 0x02, 0x00, 0x01, 0x00, 0x01, 0x00, 0x02, 0x80, 0x10, 0x10, 0x02,
+   0x80, 0x28, 0x28, 0x02, 0xc0, 0x48, 0x24, 0x06, 0x30, 0x45, 0x44, 0x19,
+   0x08, 0x84, 0x42, 0x20, 0xf8, 0x83, 0x83, 0x3f, 0x00, 0x02, 0x80, 0x00,
+   0x00, 0x02, 0x80, 0x00, 0x00, 0x02, 0x80, 0x00, 0x00, 0x22, 0x88, 0x00,
+   0x00, 0x22, 0x88, 0x00, 0x00, 0x22, 0xc8, 0x00, 0x00, 0x04, 0xc1, 0x00,
+   0x00, 0x0c, 0xa0, 0x00, 0x00, 0x74, 0x9c, 0x00, 0x00, 0xd4, 0x97, 0x00,
+   0x00, 0x54, 0x94, 0x00, 0x00, 0x54, 0xb4, 0x00, 0x00, 0x54, 0x54, 0x00,
+   0x00, 0x50, 0x54, 0x00, 0x00, 0x00, 0x00, 0x00};
diff --git a/games/x11/xneko/bitmaps/dwleft1.xbm b/games/x11/xneko/bitmaps/dwleft1.xbm
new file mode 100644
index 0000000..d529546
--- /dev/null
+++ b/games/x11/xneko/bitmaps/dwleft1.xbm
@@ -0,0 +1,14 @@
+#define dwleft1_width 32
+#define dwleft1_height 32
+static char dwleft1_bits[] = {
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xe0, 0x00,
+   0x00, 0x00, 0x1c, 0x07, 0x00, 0xc0, 0x07, 0x08, 0x00, 0x20, 0xf0, 0x07,
+   0x00, 0x10, 0xc0, 0x01, 0x00, 0x08, 0x00, 0x03, 0x18, 0x0f, 0x00, 0x06,
+   0x28, 0x0d, 0x00, 0x04, 0x48, 0x09, 0x10, 0x04, 0x88, 0x11, 0x08, 0x04,
+   0x08, 0x20, 0x04, 0x04, 0x08, 0x40, 0x04, 0x04, 0x08, 0x40, 0x04, 0x02,
+   0x24, 0x42, 0x04, 0x02, 0x24, 0x42, 0x04, 0x02, 0x27, 0xf2, 0x08, 0x02,
+   0x04, 0x00, 0x08, 0x02, 0x24, 0x00, 0x08, 0x02, 0x04, 0x00, 0x11, 0x01,
+   0x68, 0x20, 0x91, 0x00, 0xf0, 0x1f, 0x8a, 0x00, 0xc0, 0x1f, 0x4a, 0x00,
+   0x00, 0x3f, 0x4c, 0x00, 0x00, 0xfe, 0x24, 0x00, 0x00, 0x8c, 0x37, 0x00,
+   0x00, 0x00, 0x1c, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
diff --git a/games/x11/xneko/bitmaps/dwleft2.xbm b/games/x11/xneko/bitmaps/dwleft2.xbm
new file mode 100644
index 0000000..6248e70
--- /dev/null
+++ b/games/x11/xneko/bitmaps/dwleft2.xbm
@@ -0,0 +1,14 @@
+#define dwleft2_width 32
+#define dwleft2_height 32
+static char dwleft2_bits[] = {
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x80, 0x3f, 0x00, 0x00, 0xe0, 0x40, 0x3e, 0x00, 0x90, 0x38, 0x41,
+   0x00, 0x20, 0x89, 0x38, 0x00, 0x60, 0x72, 0x04, 0x00, 0x90, 0x1c, 0x04,
+   0x00, 0x08, 0x00, 0x04, 0x80, 0x0d, 0x00, 0x04, 0x86, 0x07, 0x00, 0x04,
+   0xde, 0x0c, 0x00, 0x04, 0xf2, 0x18, 0x00, 0x02, 0xe2, 0x31, 0x00, 0x01,
+   0x86, 0x60, 0x80, 0x00, 0x04, 0x40, 0x60, 0x00, 0x04, 0x80, 0x10, 0x00,
+   0x04, 0x00, 0x08, 0x00, 0x15, 0x71, 0x08, 0x00, 0x16, 0x09, 0x04, 0x00,
+   0x14, 0x81, 0x04, 0x00, 0x04, 0x40, 0x02, 0x00, 0x2c, 0x30, 0x01, 0x00,
+   0x18, 0x8f, 0x00, 0x00, 0xf8, 0x43, 0x00, 0x00, 0x7c, 0x22, 0x00, 0x00,
+   0x3c, 0x22, 0x00, 0x00, 0x3c, 0x12, 0x00, 0x00, 0x18, 0x0e, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
diff --git a/games/x11/xneko/bitmaps/dwright1.xbm b/games/x11/xneko/bitmaps/dwright1.xbm
new file mode 100644
index 0000000..e071a2f
--- /dev/null
+++ b/games/x11/xneko/bitmaps/dwright1.xbm
@@ -0,0 +1,14 @@
+#define dwright1_width 32
+#define dwright1_height 32
+static char dwright1_bits[] = {
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x07, 0x00, 0x00,
+   0xe0, 0x38, 0x00, 0x00, 0x10, 0xe0, 0x03, 0x00, 0xe0, 0x0f, 0x04, 0x00,
+   0x80, 0x03, 0x08, 0x00, 0xc0, 0x00, 0x10, 0x00, 0x60, 0x00, 0xf0, 0x18,
+   0x20, 0x00, 0xb0, 0x14, 0x20, 0x08, 0x90, 0x12, 0x20, 0x10, 0x88, 0x11,
+   0x20, 0x20, 0x04, 0x10, 0x20, 0x20, 0x02, 0x10, 0x40, 0x20, 0x02, 0x10,
+   0x40, 0x20, 0x42, 0x24, 0x40, 0x20, 0x42, 0x24, 0x40, 0x10, 0x4f, 0xe4,
+   0x40, 0x10, 0x00, 0x20, 0x40, 0x10, 0x00, 0x24, 0x80, 0x88, 0x00, 0x20,
+   0x00, 0x89, 0x04, 0x16, 0x00, 0x51, 0xf8, 0x0f, 0x00, 0x52, 0xf8, 0x03,
+   0x00, 0x32, 0xfc, 0x00, 0x00, 0x24, 0x7f, 0x00, 0x00, 0xec, 0x31, 0x00,
+   0x00, 0x38, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
diff --git a/games/x11/xneko/bitmaps/dwright2.xbm b/games/x11/xneko/bitmaps/dwright2.xbm
new file mode 100644
index 0000000..6565caa
--- /dev/null
+++ b/games/x11/xneko/bitmaps/dwright2.xbm
@@ -0,0 +1,14 @@
+#define dwright2_width 32
+#define dwright2_height 32
+static char dwright2_bits[] = {
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0xfc, 0x01, 0x00, 0x7c, 0x02, 0x07, 0x00, 0x82, 0x1c, 0x09, 0x00,
+   0x1c, 0x91, 0x04, 0x00, 0x20, 0x4e, 0x06, 0x00, 0x20, 0x38, 0x09, 0x00,
+   0x20, 0x00, 0x10, 0x00, 0x20, 0x00, 0xb0, 0x01, 0x20, 0x00, 0xe0, 0x61,
+   0x20, 0x00, 0x30, 0x7b, 0x40, 0x00, 0x18, 0x4f, 0x80, 0x00, 0x8c, 0x47,
+   0x00, 0x01, 0x06, 0x61, 0x00, 0x06, 0x02, 0x20, 0x00, 0x08, 0x01, 0x20,
+   0x00, 0x10, 0x00, 0x20, 0x00, 0x10, 0x8e, 0xa8, 0x00, 0x20, 0x90, 0x68,
+   0x00, 0x20, 0x81, 0x28, 0x00, 0x40, 0x02, 0x20, 0x00, 0x80, 0x0c, 0x34,
+   0x00, 0x00, 0xf1, 0x18, 0x00, 0x00, 0xc2, 0x1f, 0x00, 0x00, 0x44, 0x3e,
+   0x00, 0x00, 0x44, 0x3c, 0x00, 0x00, 0x48, 0x3c, 0x00, 0x00, 0x70, 0x18,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
diff --git a/games/x11/xneko/bitmaps/icon.xbm b/games/x11/xneko/bitmaps/icon.xbm
new file mode 100644
index 0000000..f1f6f05
--- /dev/null
+++ b/games/x11/xneko/bitmaps/icon.xbm
@@ -0,0 +1,14 @@
+#define icon_width 32
+#define icon_height 32
+static char icon_bits[] = {
+   0x00, 0x00, 0x00, 0x00, 0x80, 0x01, 0x00, 0x06, 0xc0, 0x01, 0x00, 0x07,
+   0x40, 0x03, 0x80, 0x0f, 0x60, 0x06, 0x80, 0x1f, 0xa0, 0x05, 0xc0, 0x1d,
+   0xb0, 0xea, 0xcf, 0x1f, 0x50, 0x3c, 0xf8, 0x3f, 0x58, 0x03, 0xc0, 0x3f,
+   0xc8, 0x01, 0x00, 0x3f, 0x68, 0x00, 0x00, 0x3e, 0x38, 0x00, 0x00, 0x3c,
+   0x08, 0x00, 0x00, 0x38, 0x08, 0x00, 0x00, 0x20, 0x8c, 0x0f, 0xf8, 0x20,
+   0x44, 0x10, 0x04, 0x21, 0x24, 0x28, 0x0a, 0x22, 0x26, 0x20, 0x02, 0x22,
+   0x42, 0x10, 0x04, 0x41, 0x82, 0x0f, 0xf8, 0x40, 0x02, 0x00, 0x00, 0x40,
+   0x02, 0x80, 0x00, 0x40, 0x02, 0x00, 0x00, 0x40, 0x63, 0x00, 0x00, 0x80,
+   0x91, 0x00, 0x00, 0xc7, 0x49, 0x00, 0x80, 0xc9, 0xa9, 0x20, 0x82, 0xe2,
+   0xa1, 0xc0, 0x01, 0xa5, 0xa3, 0x00, 0x00, 0xa5, 0x05, 0x00, 0x00, 0x91,
+   0x01, 0x00, 0x00, 0x80, 0x01, 0x00, 0x00, 0x80};
diff --git a/games/x11/xneko/bitmaps/jare2.xbm b/games/x11/xneko/bitmaps/jare2.xbm
new file mode 100644
index 0000000..86723f7
--- /dev/null
+++ b/games/x11/xneko/bitmaps/jare2.xbm
@@ -0,0 +1,14 @@
+#define jare2_width 32
+#define jare2_height 32
+static char jare2_bits[] = {
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x30, 0x00, 0x00,
+   0x00, 0xd0, 0x00, 0x00, 0x00, 0x10, 0x01, 0x00, 0x00, 0x10, 0x02, 0x00,
+   0xe0, 0x10, 0x0c, 0x00, 0x20, 0x37, 0x10, 0x00, 0x20, 0x18, 0x20, 0x00,
+   0x40, 0x00, 0x41, 0x00, 0x40, 0x00, 0x42, 0x00, 0x40, 0x00, 0x50, 0x00,
+   0x40, 0x08, 0x48, 0x00, 0x80, 0x10, 0x41, 0x00, 0x80, 0x00, 0x3c, 0x00,
+   0x00, 0x39, 0x22, 0x00, 0x00, 0x02, 0x44, 0x00, 0x00, 0x7c, 0x7c, 0x00,
+   0x00, 0x40, 0x44, 0x00, 0x00, 0x20, 0x46, 0x00, 0x00, 0x10, 0x40, 0x00,
+   0x00, 0x08, 0x30, 0x00, 0x00, 0x0b, 0xa4, 0x01, 0x80, 0x0c, 0x63, 0x02,
+   0x40, 0x18, 0x01, 0x04, 0x40, 0x10, 0x01, 0x3c, 0xc0, 0x11, 0x05, 0x47,
+   0x60, 0x90, 0x03, 0x3c, 0xe0, 0xff, 0xfe, 0x0f, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
diff --git a/games/x11/xneko/bitmaps/kaki1.xbm b/games/x11/xneko/bitmaps/kaki1.xbm
new file mode 100644
index 0000000..3f2cbdf
--- /dev/null
+++ b/games/x11/xneko/bitmaps/kaki1.xbm
@@ -0,0 +1,14 @@
+#define kaki1_width 32
+#define kaki1_height 32
+static char kaki1_bits[] = {
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x06, 0x00, 0x00, 0x00, 0x1a, 0x00, 0x00,
+   0x00, 0x62, 0x00, 0x00, 0x00, 0x82, 0x00, 0x00, 0x00, 0x02, 0x03, 0x00,
+   0x3c, 0x02, 0x34, 0x00, 0xc4, 0x03, 0x58, 0x00, 0x08, 0x00, 0x58, 0x00,
+   0x08, 0x20, 0x58, 0x00, 0x10, 0x10, 0xd8, 0x00, 0x20, 0x08, 0x18, 0x01,
+   0x20, 0xc8, 0x18, 0x02, 0xe0, 0x21, 0x18, 0x04, 0x20, 0x00, 0x34, 0x08,
+   0xe0, 0x05, 0x24, 0x08, 0xc0, 0x60, 0x38, 0x08, 0x00, 0x1f, 0x10, 0x08,
+   0x00, 0x08, 0x20, 0x08, 0x00, 0x0b, 0x20, 0x08, 0x80, 0x0c, 0x21, 0x0c,
+   0x40, 0x18, 0x31, 0x04, 0x40, 0x10, 0x11, 0x02, 0xc0, 0x11, 0x91, 0x7f,
+   0x60, 0x90, 0xf3, 0x80, 0xe0, 0xff, 0xfe, 0x7f, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
diff --git a/games/x11/xneko/bitmaps/kaki2.xbm b/games/x11/xneko/bitmaps/kaki2.xbm
new file mode 100644
index 0000000..88d9540
--- /dev/null
+++ b/games/x11/xneko/bitmaps/kaki2.xbm
@@ -0,0 +1,14 @@
+#define kaki2_width 32
+#define kaki2_height 32
+static char kaki2_bits[] = {
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x20, 0x00, 0x00, 0x00, 0x50, 0x00, 0x00,
+   0x20, 0x90, 0x00, 0x00, 0x50, 0x10, 0x01, 0x00, 0x90, 0x08, 0x02, 0x00,
+   0x10, 0x09, 0x04, 0x00, 0x10, 0x06, 0x08, 0x00, 0x10, 0x00, 0x08, 0x00,
+   0x20, 0x00, 0x10, 0x00, 0x20, 0x80, 0x10, 0x00, 0x20, 0x60, 0x10, 0x00,
+   0x20, 0x10, 0x08, 0x00, 0xe0, 0x81, 0xf9, 0x03, 0x20, 0x60, 0x18, 0x04,
+   0xe0, 0xc5, 0x0f, 0x08, 0xc0, 0xe0, 0x00, 0x08, 0x00, 0x9f, 0x11, 0x08,
+   0x00, 0x08, 0x2e, 0x08, 0x00, 0x0b, 0x20, 0x08, 0x80, 0x0c, 0x21, 0x08,
+   0x40, 0x18, 0x31, 0x04, 0x40, 0x10, 0x11, 0x04, 0xc0, 0x11, 0x91, 0x7f,
+   0x60, 0x90, 0xf3, 0x80, 0xe0, 0xff, 0xfe, 0x7f, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
diff --git a/games/x11/xneko/bitmaps/left1.xbm b/games/x11/xneko/bitmaps/left1.xbm
new file mode 100644
index 0000000..706bbff
--- /dev/null
+++ b/games/x11/xneko/bitmaps/left1.xbm
@@ -0,0 +1,14 @@
+#define left1_width 32
+#define left1_height 32
+static char left1_bits[] = {
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x0e, 0x00, 0x00, 0x80, 0x31, 0x00, 0x00, 0x60, 0xc0, 0x00,
+   0x00, 0x10, 0x00, 0x01, 0x00, 0x08, 0x00, 0x01, 0x0c, 0x04, 0x00, 0x02,
+   0x14, 0x04, 0x00, 0x04, 0x64, 0x02, 0x00, 0x08, 0x88, 0x03, 0x01, 0x12,
+   0x08, 0x84, 0x00, 0x23, 0x08, 0x80, 0x00, 0x45, 0x04, 0x40, 0x00, 0x49,
+   0x12, 0x40, 0x00, 0x92, 0x12, 0x40, 0x00, 0xa4, 0x12, 0x87, 0x00, 0xc2,
+   0xc3, 0x81, 0x00, 0x01, 0x01, 0x40, 0x03, 0x01, 0x02, 0x80, 0x9e, 0x01,
+   0x04, 0x03, 0x91, 0x01, 0xf8, 0x0e, 0xce, 0x03, 0x00, 0x3c, 0xc8, 0x03,
+   0x00, 0xf8, 0x2f, 0x03, 0x00, 0xf0, 0x38, 0x00, 0x00, 0xe0, 0x18, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
diff --git a/games/x11/xneko/bitmaps/left2.xbm b/games/x11/xneko/bitmaps/left2.xbm
new file mode 100644
index 0000000..f0d1aed
--- /dev/null
+++ b/games/x11/xneko/bitmaps/left2.xbm
@@ -0,0 +1,14 @@
+#define left2_width 32
+#define left2_height 32
+static char left2_bits[] = {
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x20, 0x00, 0x00, 0xe0, 0x60, 0x00, 0x00, 0x90, 0xa0, 0x00, 0x00, 0x88,
+   0x20, 0x01, 0x00, 0x44, 0x20, 0x02, 0x00, 0x22, 0x30, 0x0c, 0x00, 0x11,
+   0x08, 0x10, 0xc0, 0x08, 0x24, 0x30, 0x38, 0x08, 0x24, 0x20, 0x06, 0x08,
+   0x24, 0x40, 0x01, 0x10, 0x02, 0xc0, 0x00, 0x10, 0xc2, 0x03, 0x00, 0x10,
+   0x02, 0x00, 0x00, 0x10, 0x04, 0x00, 0x00, 0x10, 0x78, 0x00, 0x00, 0x20,
+   0x80, 0x07, 0x08, 0x20, 0x80, 0x01, 0x30, 0xc0, 0xc0, 0x00, 0xc0, 0x81,
+   0x60, 0x18, 0xf8, 0x9f, 0x30, 0xfc, 0x87, 0xbf, 0x18, 0x3f, 0x00, 0xf8,
+   0xcc, 0x07, 0x00, 0x30, 0x38, 0x03, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
diff --git a/games/x11/xneko/bitmaps/ltogi1.xbm b/games/x11/xneko/bitmaps/ltogi1.xbm
new file mode 100644
index 0000000..a52961c
--- /dev/null
+++ b/games/x11/xneko/bitmaps/ltogi1.xbm
@@ -0,0 +1,14 @@
+#define ltogi1_width 32
+#define ltogi1_height 32
+static char ltogi1_bits[] = {
+   0xc0, 0x00, 0x00, 0x00, 0x40, 0x01, 0x00, 0x00, 0x40, 0x02, 0x00, 0x00,
+   0x43, 0x04, 0x00, 0x00, 0x37, 0x18, 0x00, 0x00, 0x0f, 0x20, 0x00, 0x00,
+   0x07, 0x40, 0x00, 0x00, 0x27, 0x40, 0x00, 0x00, 0x27, 0x40, 0x00, 0x00,
+   0x2d, 0x40, 0x00, 0x00, 0x31, 0x40, 0x00, 0x00, 0xc1, 0xa0, 0x0f, 0x00,
+   0x03, 0x00, 0x30, 0x00, 0x0d, 0x00, 0x40, 0x00, 0x38, 0xc0, 0x80, 0x00,
+   0x70, 0x20, 0x00, 0x01, 0x40, 0x10, 0x00, 0x02, 0x40, 0x08, 0x00, 0x02,
+   0x80, 0x09, 0x00, 0x04, 0x00, 0x0f, 0x00, 0x0c, 0x00, 0x0c, 0x00, 0x10,
+   0x00, 0x1c, 0x00, 0x20, 0x00, 0x38, 0x03, 0x46, 0x00, 0xfe, 0x01, 0x8d,
+   0x00, 0x8f, 0xe0, 0x70, 0x00, 0x0f, 0x10, 0x00, 0x00, 0xfe, 0x1f, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
diff --git a/games/x11/xneko/bitmaps/ltogi2.xbm b/games/x11/xneko/bitmaps/ltogi2.xbm
new file mode 100644
index 0000000..11d6368
--- /dev/null
+++ b/games/x11/xneko/bitmaps/ltogi2.xbm
@@ -0,0 +1,14 @@
+#define ltogi2_width 32
+#define ltogi2_height 32
+static char ltogi2_bits[] = {
+   0xc0, 0x00, 0x00, 0x00, 0x40, 0x01, 0x00, 0x00, 0x40, 0x02, 0x00, 0x00,
+   0x40, 0x04, 0x00, 0x00, 0x41, 0x18, 0x00, 0x00, 0x31, 0x20, 0x00, 0x00,
+   0x09, 0x40, 0x00, 0x00, 0x25, 0x40, 0x00, 0x00, 0x25, 0x40, 0x00, 0x00,
+   0x23, 0x40, 0x00, 0x00, 0x83, 0x41, 0x00, 0x00, 0x65, 0xa0, 0x0f, 0x00,
+   0x05, 0x00, 0x30, 0x00, 0xe9, 0x01, 0x40, 0x00, 0x31, 0xc0, 0x80, 0x00,
+   0x0f, 0x20, 0x00, 0x01, 0x01, 0x10, 0x00, 0xc2, 0x7e, 0x08, 0x00, 0xa2,
+   0xfe, 0x09, 0x00, 0x94, 0x0c, 0x0f, 0x00, 0x8c, 0x00, 0x0c, 0x00, 0x40,
+   0x00, 0x1c, 0x00, 0x20, 0x00, 0x38, 0x03, 0x1e, 0x00, 0xfe, 0x01, 0x01,
+   0x00, 0x8f, 0xe0, 0x00, 0x00, 0x0f, 0x10, 0x00, 0x00, 0xfe, 0x1f, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
diff --git a/games/x11/xneko/bitmaps/mati2.xbm b/games/x11/xneko/bitmaps/mati2.xbm
new file mode 100644
index 0000000..41864ec
--- /dev/null
+++ b/games/x11/xneko/bitmaps/mati2.xbm
@@ -0,0 +1,14 @@
+#define mati2_width 32
+#define mati2_height 32
+static char mati2_bits[] = {
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x10, 0x10, 0x00, 0x00, 0x28, 0x28, 0x00, 0x00, 0x48, 0x24, 0x00,
+   0x00, 0x44, 0x44, 0x00, 0x00, 0x84, 0x42, 0x00, 0x00, 0x82, 0x83, 0x00,
+   0x00, 0x02, 0x80, 0x00, 0x00, 0x22, 0x88, 0x00, 0x00, 0x22, 0x88, 0x00,
+   0x00, 0x22, 0x88, 0x00, 0x00, 0x02, 0x80, 0x00, 0x00, 0x3a, 0xb9, 0x00,
+   0x00, 0x04, 0x40, 0x00, 0x00, 0x08, 0x20, 0x00, 0x00, 0x70, 0x1c, 0x00,
+   0x00, 0x40, 0x04, 0x00, 0x00, 0x20, 0x08, 0x00, 0x00, 0x10, 0x10, 0x00,
+   0x00, 0x08, 0x20, 0x00, 0x00, 0x0b, 0xa0, 0x01, 0x80, 0x0c, 0x61, 0x02,
+   0x40, 0x18, 0x31, 0x04, 0x40, 0x10, 0x11, 0x04, 0xc0, 0x11, 0x11, 0x7f,
+   0x60, 0x90, 0x13, 0x8c, 0xe0, 0xff, 0xfe, 0x7f, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
diff --git a/games/x11/xneko/bitmaps/mati3.xbm b/games/x11/xneko/bitmaps/mati3.xbm
new file mode 100644
index 0000000..6087cf8
--- /dev/null
+++ b/games/x11/xneko/bitmaps/mati3.xbm
@@ -0,0 +1,14 @@
+#define mati3_width 32
+#define mati3_height 32
+static char mati3_bits[] = {
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x10, 0x10, 0x00, 0x00, 0x28, 0x28, 0x00, 0x00, 0x48, 0x24, 0x00,
+   0x00, 0x44, 0x44, 0x00, 0x00, 0x84, 0x42, 0x00, 0x00, 0x82, 0x83, 0x00,
+   0x00, 0x3a, 0xb8, 0x00, 0x00, 0x42, 0x85, 0x00, 0x00, 0x92, 0x91, 0x00,
+   0x00, 0x4e, 0xe2, 0x00, 0x00, 0x42, 0x82, 0x00, 0x00, 0x42, 0x82, 0x00,
+   0x00, 0x44, 0x42, 0x00, 0x00, 0x88, 0x21, 0x00, 0x00, 0x70, 0x1c, 0x00,
+   0x00, 0x40, 0x04, 0x00, 0x00, 0x20, 0x08, 0x00, 0x00, 0x10, 0x10, 0x00,
+   0x00, 0x08, 0x20, 0x00, 0x00, 0x0b, 0xa0, 0x01, 0x80, 0x0c, 0x61, 0x02,
+   0x40, 0x18, 0x31, 0x04, 0x40, 0x10, 0x11, 0x04, 0xc0, 0x11, 0x11, 0x7f,
+   0x60, 0x90, 0x13, 0x8c, 0xe0, 0xff, 0xfe, 0x7f, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
diff --git a/games/x11/xneko/bitmaps/right1.xbm b/games/x11/xneko/bitmaps/right1.xbm
new file mode 100644
index 0000000..b2538e0
--- /dev/null
+++ b/games/x11/xneko/bitmaps/right1.xbm
@@ -0,0 +1,14 @@
+#define right1_width 32
+#define right1_height 32
+static char right1_bits[] = {
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x70, 0x00, 0x00, 0x00, 0x8c, 0x01, 0x00, 0x00, 0x03, 0x06, 0x00,
+   0x80, 0x00, 0x08, 0x00, 0x80, 0x00, 0x10, 0x00, 0x40, 0x00, 0x20, 0x30,
+   0x20, 0x00, 0x20, 0x28, 0x10, 0x00, 0x40, 0x26, 0x48, 0x80, 0xc0, 0x11,
+   0xc4, 0x00, 0x21, 0x10, 0xa2, 0x00, 0x01, 0x10, 0x92, 0x00, 0x02, 0x20,
+   0x49, 0x00, 0x02, 0x48, 0x25, 0x00, 0x02, 0x48, 0x43, 0x00, 0xe1, 0x48,
+   0x80, 0x00, 0x91, 0xc3, 0x80, 0xc0, 0x02, 0x80, 0x80, 0x79, 0x01, 0x40,
+   0x80, 0x89, 0xc0, 0x20, 0xc0, 0x73, 0x70, 0x1f, 0xc0, 0x13, 0x3c, 0x00,
+   0xc0, 0xf4, 0x1f, 0x00, 0x00, 0x1c, 0x0f, 0x00, 0x00, 0x18, 0x07, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
diff --git a/games/x11/xneko/bitmaps/right2.xbm b/games/x11/xneko/bitmaps/right2.xbm
new file mode 100644
index 0000000..d8b4dbe
--- /dev/null
+++ b/games/x11/xneko/bitmaps/right2.xbm
@@ -0,0 +1,14 @@
+#define right2_width 32
+#define right2_height 32
+static char right2_bits[] = {
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x07, 0x00, 0x00, 0x04, 0x09, 0x00, 0x00, 0x06, 0x19, 0x00, 0x00, 0x05,
+   0x22, 0x00, 0x80, 0x04, 0x44, 0x00, 0x40, 0x04, 0x88, 0x00, 0x30, 0x0c,
+   0x10, 0x03, 0x08, 0x10, 0x10, 0x1c, 0x0c, 0x24, 0x10, 0x60, 0x04, 0x24,
+   0x08, 0x80, 0x02, 0x24, 0x08, 0x00, 0x03, 0x40, 0x08, 0x00, 0xc0, 0x43,
+   0x08, 0x00, 0x00, 0x40, 0x08, 0x00, 0x00, 0x20, 0x04, 0x00, 0x00, 0x1e,
+   0x04, 0x10, 0x80, 0x01, 0x03, 0x0c, 0x80, 0x01, 0x81, 0x03, 0x00, 0x03,
+   0xf9, 0x0f, 0x18, 0x06, 0xfd, 0xf9, 0x3f, 0x0c, 0x1f, 0x00, 0xfc, 0x18,
+   0x0c, 0x00, 0xe0, 0x33, 0x00, 0x00, 0xc0, 0x1c, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
diff --git a/games/x11/xneko/bitmaps/rtogi1.xbm b/games/x11/xneko/bitmaps/rtogi1.xbm
new file mode 100644
index 0000000..496c0cb
--- /dev/null
+++ b/games/x11/xneko/bitmaps/rtogi1.xbm
@@ -0,0 +1,14 @@
+#define rtogi1_width 32
+#define rtogi1_height 32
+static char rtogi1_bits[] = {
+   0x00, 0x00, 0x00, 0x03, 0x00, 0x00, 0x80, 0x02, 0x00, 0x00, 0x40, 0x02,
+   0x00, 0x00, 0x20, 0xc2, 0x00, 0x00, 0x18, 0xec, 0x00, 0x00, 0x04, 0xf0,
+   0x00, 0x00, 0x02, 0xe0, 0x00, 0x00, 0x02, 0xe4, 0x00, 0x00, 0x02, 0xe4,
+   0x00, 0x00, 0x02, 0xb4, 0x00, 0x00, 0x02, 0x8c, 0x00, 0xf0, 0x05, 0x83,
+   0x00, 0x0c, 0x00, 0xc0, 0x00, 0x02, 0x00, 0xb0, 0x00, 0x01, 0x03, 0x1c,
+   0x80, 0x00, 0x04, 0x0e, 0x40, 0x00, 0x08, 0x02, 0x40, 0x00, 0x10, 0x02,
+   0x20, 0x00, 0x90, 0x01, 0x30, 0x00, 0xf0, 0x00, 0x08, 0x00, 0x30, 0x00,
+   0x04, 0x00, 0x38, 0x00, 0x62, 0xc0, 0x1c, 0x00, 0xb1, 0x80, 0x7f, 0x00,
+   0x0e, 0x07, 0xf1, 0x00, 0x00, 0x08, 0xf0, 0x00, 0x00, 0xf8, 0x7f, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
diff --git a/games/x11/xneko/bitmaps/rtogi2.xbm b/games/x11/xneko/bitmaps/rtogi2.xbm
new file mode 100644
index 0000000..7255c4d
--- /dev/null
+++ b/games/x11/xneko/bitmaps/rtogi2.xbm
@@ -0,0 +1,14 @@
+#define rtogi2_width 32
+#define rtogi2_height 32
+static char rtogi2_bits[] = {
+   0x00, 0x00, 0x00, 0x03, 0x00, 0x00, 0x80, 0x02, 0x00, 0x00, 0x40, 0x02,
+   0x00, 0x00, 0x20, 0x02, 0x00, 0x00, 0x18, 0x82, 0x00, 0x00, 0x04, 0x8c,
+   0x00, 0x00, 0x02, 0x90, 0x00, 0x00, 0x02, 0xa4, 0x00, 0x00, 0x02, 0xa4,
+   0x00, 0x00, 0x02, 0xc4, 0x00, 0x00, 0x82, 0xc1, 0x00, 0xf0, 0x05, 0xa6,
+   0x00, 0x0c, 0x00, 0xa0, 0x00, 0x02, 0x80, 0x97, 0x00, 0x01, 0x03, 0x8c,
+   0x80, 0x00, 0x04, 0xf0, 0x43, 0x00, 0x08, 0x80, 0x45, 0x00, 0x10, 0x7e,
+   0x29, 0x00, 0x90, 0x7f, 0x31, 0x00, 0xf0, 0x30, 0x02, 0x00, 0x30, 0x00,
+   0x04, 0x00, 0x38, 0x00, 0x78, 0xc0, 0x1c, 0x00, 0x80, 0x80, 0x7f, 0x00,
+   0x00, 0x07, 0xf1, 0x00, 0x00, 0x08, 0xf0, 0x00, 0x00, 0xf8, 0x7f, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
diff --git a/games/x11/xneko/bitmaps/sleep1.xbm b/games/x11/xneko/bitmaps/sleep1.xbm
new file mode 100644
index 0000000..9cda30c
--- /dev/null
+++ b/games/x11/xneko/bitmaps/sleep1.xbm
@@ -0,0 +1,14 @@
+#define sleep1_width 32
+#define sleep1_height 32
+static char sleep1_bits[] = {
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0xc0, 0x1f, 0x00, 0x00, 0x00, 0x08, 0x00, 0x00, 0x00, 0x05, 0x00, 0x00,
+   0x00, 0x02, 0x00, 0x00, 0x00, 0x05, 0x1f, 0x00, 0x80, 0x00, 0x08, 0x00,
+   0xc0, 0x1f, 0x04, 0x00, 0x00, 0x00, 0x1f, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x01, 0x00, 0x00, 0x80, 0x02, 0x00, 0x00, 0x41, 0x02,
+   0x00, 0x80, 0x22, 0x02, 0x00, 0x40, 0x3e, 0x06, 0x00, 0x38, 0x14, 0x0a,
+   0x00, 0x26, 0x18, 0x14, 0x00, 0x11, 0x00, 0x18, 0x00, 0x11, 0x00, 0x18,
+   0x80, 0x10, 0x00, 0x38, 0x40, 0x10, 0x00, 0x2c, 0x40, 0xa0, 0x01, 0x2b,
+   0x40, 0x20, 0x8e, 0x68, 0x40, 0x20, 0x10, 0x54, 0x40, 0x40, 0x40, 0x5b,
+   0x80, 0x80, 0xff, 0x4c, 0x00, 0x3f, 0xf0, 0x64, 0x00, 0xe0, 0x9f, 0x3f,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
diff --git a/games/x11/xneko/bitmaps/sleep2.xbm b/games/x11/xneko/bitmaps/sleep2.xbm
new file mode 100644
index 0000000..f1a217c
--- /dev/null
+++ b/games/x11/xneko/bitmaps/sleep2.xbm
@@ -0,0 +1,14 @@
+#define sleep2_width 32
+#define sleep2_height 32
+static char sleep2_bits[] = {
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x3f, 0x00, 0x00, 0x00, 0x10, 0x3c, 0x00, 0x00, 0x0c, 0x10, 0x00,
+   0x00, 0x04, 0x88, 0x01, 0x00, 0x3f, 0x7c, 0x01, 0x00, 0x80, 0x60, 0x01,
+   0x00, 0xc0, 0x21, 0x02, 0x00, 0x78, 0x3f, 0x06, 0x00, 0x26, 0x12, 0x0a,
+   0x00, 0x21, 0x0c, 0x14, 0x80, 0x10, 0x00, 0x18, 0x80, 0x10, 0x00, 0x18,
+   0x80, 0x10, 0x00, 0x38, 0x40, 0x10, 0x00, 0x2a, 0x40, 0xa0, 0x03, 0x29,
+   0x40, 0x20, 0x8c, 0x68, 0x40, 0x20, 0x10, 0x54, 0x40, 0x40, 0x40, 0x5b,
+   0x80, 0x80, 0xff, 0x4c, 0x00, 0x3f, 0xf0, 0x64, 0x00, 0xe0, 0x9f, 0x3f,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
diff --git a/games/x11/xneko/bitmaps/space.xbm b/games/x11/xneko/bitmaps/space.xbm
new file mode 100644
index 0000000..2ebb658
--- /dev/null
+++ b/games/x11/xneko/bitmaps/space.xbm
@@ -0,0 +1,14 @@
+#define space_width 32
+#define space_height 32
+static char space_bits[] = {
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
diff --git a/games/x11/xneko/bitmaps/up1.xbm b/games/x11/xneko/bitmaps/up1.xbm
new file mode 100644
index 0000000..2011ac7
--- /dev/null
+++ b/games/x11/xneko/bitmaps/up1.xbm
@@ -0,0 +1,14 @@
+#define up1_width 32
+#define up1_height 32
+static char up1_bits[] = {
+   0x00, 0xc0, 0x03, 0x00, 0x00, 0x3e, 0x7c, 0x00, 0x00, 0x08, 0x10, 0x00,
+   0x00, 0x26, 0x64, 0x00, 0x00, 0x22, 0x44, 0x00, 0x00, 0x22, 0x44, 0x00,
+   0x00, 0x01, 0x80, 0x00, 0x00, 0x1f, 0xf8, 0x00, 0x00, 0x01, 0x80, 0x00,
+   0x00, 0x22, 0x42, 0x00, 0x00, 0x1e, 0x7c, 0x00, 0x00, 0x06, 0x60, 0x00,
+   0x80, 0x3f, 0xfc, 0x01, 0xc0, 0x07, 0xe0, 0x02, 0x40, 0x02, 0x40, 0x02,
+   0x40, 0x02, 0x40, 0x02, 0x40, 0x01, 0x80, 0x02, 0x40, 0x00, 0x00, 0x02,
+   0x80, 0x00, 0x00, 0x01, 0x80, 0x00, 0x00, 0x01, 0x80, 0x00, 0x00, 0x01,
+   0x80, 0x00, 0x00, 0x01, 0x00, 0x01, 0x80, 0x00, 0x00, 0x06, 0x60, 0x00,
+   0x00, 0x78, 0x1e, 0x00, 0x00, 0x40, 0x02, 0x00, 0x00, 0x40, 0x02, 0x00,
+   0x00, 0x40, 0x02, 0x00, 0x00, 0x40, 0x02, 0x00, 0x00, 0x80, 0x01, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
diff --git a/games/x11/xneko/bitmaps/up2.xbm b/games/x11/xneko/bitmaps/up2.xbm
new file mode 100644
index 0000000..a8619d5
--- /dev/null
+++ b/games/x11/xneko/bitmaps/up2.xbm
@@ -0,0 +1,14 @@
+#define up2_width 32
+#define up2_height 32
+static char up2_bits[] = {
+   0x00, 0xc0, 0x03, 0x00, 0x80, 0x3f, 0xfc, 0x01, 0x40, 0x0b, 0xd0, 0x02,
+   0x40, 0x26, 0x64, 0x02, 0x40, 0x22, 0x44, 0x02, 0x40, 0x22, 0x44, 0x02,
+   0x40, 0x01, 0x80, 0x02, 0x40, 0x1f, 0xf8, 0x02, 0x40, 0x01, 0x80, 0x02,
+   0x40, 0x22, 0x42, 0x02, 0x80, 0x1e, 0x7c, 0x01, 0x80, 0x04, 0x20, 0x01,
+   0x80, 0x38, 0x1c, 0x01, 0x80, 0x00, 0x00, 0x01, 0x00, 0x01, 0x80, 0x00,
+   0x00, 0x0d, 0xb0, 0x00, 0x00, 0x83, 0xc1, 0x00, 0x00, 0x41, 0x82, 0x00,
+   0x80, 0x40, 0x02, 0x01, 0x80, 0x40, 0x02, 0x01, 0x80, 0x40, 0x02, 0x01,
+   0x80, 0x40, 0x02, 0x01, 0x80, 0x40, 0x02, 0x01, 0x80, 0x00, 0x00, 0x01,
+   0x80, 0xc0, 0x03, 0x01, 0x00, 0x41, 0x82, 0x00, 0x00, 0x21, 0x84, 0x00,
+   0x00, 0x11, 0x88, 0x00, 0x00, 0x09, 0x90, 0x00, 0x00, 0x06, 0x60, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
diff --git a/games/x11/xneko/bitmaps/upleft1.xbm b/games/x11/xneko/bitmaps/upleft1.xbm
new file mode 100644
index 0000000..62ae6c7
--- /dev/null
+++ b/games/x11/xneko/bitmaps/upleft1.xbm
@@ -0,0 +1,14 @@
+#define upleft1_width 32
+#define upleft1_height 32
+static char upleft1_bits[] = {
+   0x00, 0x00, 0x07, 0x00, 0x80, 0xff, 0x04, 0x00, 0x40, 0x78, 0x04, 0x00,
+   0xe0, 0x25, 0x04, 0x00, 0x36, 0x22, 0x04, 0x00, 0x18, 0x21, 0x04, 0x00,
+   0x10, 0x20, 0x04, 0x00, 0x10, 0x00, 0x04, 0x00, 0x10, 0x00, 0x3e, 0x00,
+   0x20, 0x00, 0xc1, 0x01, 0x20, 0x00, 0x00, 0x02, 0xc0, 0x00, 0x00, 0x04,
+   0x00, 0x01, 0x00, 0x08, 0x00, 0x01, 0x00, 0x08, 0x00, 0x01, 0x00, 0x10,
+   0x00, 0x01, 0x00, 0x20, 0x00, 0xc3, 0x00, 0x20, 0x00, 0x22, 0x00, 0x20,
+   0x00, 0x32, 0x00, 0x20, 0x00, 0x22, 0x00, 0x30, 0x00, 0x24, 0x00, 0x30,
+   0x00, 0x64, 0x00, 0x20, 0x00, 0xd8, 0xc0, 0x64, 0x00, 0xd0, 0xc1, 0x4f,
+   0x00, 0xf0, 0xc3, 0x9b, 0x00, 0x70, 0xf0, 0x93, 0x00, 0x10, 0x1e, 0x60,
+   0x00, 0xf0, 0x03, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
diff --git a/games/x11/xneko/bitmaps/upleft2.xbm b/games/x11/xneko/bitmaps/upleft2.xbm
new file mode 100644
index 0000000..0f3ddd3
--- /dev/null
+++ b/games/x11/xneko/bitmaps/upleft2.xbm
@@ -0,0 +1,14 @@
+#define upleft2_width 32
+#define upleft2_height 32
+static char upleft2_bits[] = {
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x00, 0x00,
+   0x80, 0xb0, 0x01, 0x00, 0x40, 0x07, 0x3e, 0x00, 0x60, 0xc0, 0x20, 0x00,
+   0x58, 0xb8, 0x10, 0x00, 0x40, 0x88, 0x10, 0x00, 0x5e, 0x80, 0x08, 0x00,
+   0xf2, 0x80, 0x08, 0x00, 0xc6, 0x00, 0x14, 0x00, 0x8c, 0x03, 0x24, 0x00,
+   0x18, 0x00, 0x42, 0x0e, 0x30, 0x50, 0x81, 0x09, 0x40, 0x00, 0x00, 0x09,
+   0x80, 0x01, 0x80, 0x04, 0x00, 0x02, 0x80, 0x0c, 0x00, 0x04, 0x40, 0x0a,
+   0x00, 0x08, 0x00, 0x32, 0x00, 0x10, 0x00, 0x40, 0x00, 0x10, 0x20, 0x40,
+   0x00, 0x10, 0x40, 0x40, 0x00, 0x10, 0x80, 0x40, 0x00, 0x20, 0x80, 0x87,
+   0x00, 0x20, 0x80, 0x88, 0x00, 0x40, 0x80, 0x90, 0x00, 0x80, 0x8f, 0x90,
+   0x00, 0x00, 0x90, 0xa0, 0x00, 0x00, 0x90, 0xc0, 0x00, 0x00, 0x90, 0x00,
+   0x00, 0x00, 0x90, 0x00, 0x00, 0x00, 0x60, 0x00};
diff --git a/games/x11/xneko/bitmaps/upright1.xbm b/games/x11/xneko/bitmaps/upright1.xbm
new file mode 100644
index 0000000..c01d840
--- /dev/null
+++ b/games/x11/xneko/bitmaps/upright1.xbm
@@ -0,0 +1,14 @@
+#define upright1_width 32
+#define upright1_height 32
+static char upright1_bits[] = {
+   0x00, 0xe0, 0x00, 0x00, 0x00, 0x20, 0xff, 0x01, 0x00, 0x20, 0x1e, 0x02,
+   0x00, 0x20, 0xa4, 0x07, 0x00, 0x20, 0x44, 0x6c, 0x00, 0x20, 0x84, 0x18,
+   0x00, 0x20, 0x04, 0x08, 0x00, 0x20, 0x00, 0x08, 0x00, 0x7c, 0x00, 0x08,
+   0x80, 0x83, 0x00, 0x04, 0x40, 0x00, 0x00, 0x04, 0x20, 0x00, 0x00, 0x03,
+   0x10, 0x00, 0x80, 0x00, 0x10, 0x00, 0x80, 0x00, 0x08, 0x00, 0x80, 0x00,
+   0x04, 0x00, 0x80, 0x00, 0x04, 0x00, 0xc3, 0x00, 0x04, 0x00, 0x44, 0x00,
+   0x04, 0x00, 0x4c, 0x00, 0x0c, 0x00, 0x44, 0x00, 0x0c, 0x00, 0x24, 0x00,
+   0x04, 0x00, 0x26, 0x00, 0x26, 0x03, 0x1b, 0x00, 0xf2, 0x83, 0x0b, 0x00,
+   0xd9, 0xc3, 0x0f, 0x00, 0xc9, 0x0f, 0x0e, 0x00, 0x06, 0x78, 0x08, 0x00,
+   0x00, 0xc0, 0x0f, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
diff --git a/games/x11/xneko/bitmaps/upright2.xbm b/games/x11/xneko/bitmaps/upright2.xbm
new file mode 100644
index 0000000..4c43d25
--- /dev/null
+++ b/games/x11/xneko/bitmaps/upright2.xbm
@@ -0,0 +1,14 @@
+#define upright2_width 32
+#define upright2_height 32
+static char upright2_bits[] = {
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x00,
+   0x00, 0x80, 0x0d, 0x01, 0x00, 0x7c, 0xe0, 0x02, 0x00, 0x04, 0x03, 0x06,
+   0x00, 0x08, 0x1d, 0x1a, 0x00, 0x08, 0x11, 0x02, 0x00, 0x10, 0x01, 0x7a,
+   0x00, 0x10, 0x01, 0x4f, 0x00, 0x28, 0x00, 0x63, 0x00, 0x24, 0xc0, 0x31,
+   0x70, 0x42, 0x00, 0x18, 0x90, 0x81, 0x0a, 0x0c, 0x90, 0x00, 0x00, 0x02,
+   0x20, 0x01, 0x80, 0x01, 0x30, 0x01, 0x40, 0x00, 0x50, 0x02, 0x20, 0x00,
+   0x4c, 0x00, 0x10, 0x00, 0x02, 0x00, 0x08, 0x00, 0x02, 0x04, 0x08, 0x00,
+   0x02, 0x02, 0x08, 0x00, 0x02, 0x01, 0x08, 0x00, 0xe1, 0x01, 0x04, 0x00,
+   0x11, 0x01, 0x04, 0x00, 0x09, 0x01, 0x02, 0x00, 0x09, 0xf1, 0x01, 0x00,
+   0x05, 0x09, 0x00, 0x00, 0x03, 0x09, 0x00, 0x00, 0x00, 0x09, 0x00, 0x00,
+   0x00, 0x09, 0x00, 0x00, 0x00, 0x06, 0x00, 0x00};
diff --git a/games/x11/xneko/bitmaps/utogi1.xbm b/games/x11/xneko/bitmaps/utogi1.xbm
new file mode 100644
index 0000000..ace1af9
--- /dev/null
+++ b/games/x11/xneko/bitmaps/utogi1.xbm
@@ -0,0 +1,14 @@
+#define utogi1_width 32
+#define utogi1_height 32
+static char utogi1_bits[] = {
+   0x00, 0x2a, 0x32, 0x00, 0x00, 0x2a, 0x4a, 0x00, 0x80, 0xeb, 0x4b, 0x00,
+   0x00, 0x3e, 0xfc, 0x00, 0x00, 0x0a, 0x90, 0x00, 0x00, 0x26, 0xa4, 0x00,
+   0x00, 0x23, 0xc4, 0x00, 0x00, 0x23, 0xc4, 0x00, 0x00, 0x01, 0x80, 0x00,
+   0x80, 0x1f, 0xf8, 0x01, 0x80, 0x01, 0x80, 0x00, 0x00, 0x27, 0x62, 0x00,
+   0x00, 0x1d, 0x5c, 0x00, 0x00, 0x03, 0xc0, 0x00, 0x00, 0x1e, 0x78, 0x00,
+   0x00, 0x02, 0x40, 0x00, 0x00, 0x01, 0x80, 0x00, 0x80, 0x00, 0x00, 0x01,
+   0x80, 0x00, 0x00, 0x01, 0x80, 0x00, 0x00, 0x01, 0xb0, 0x00, 0x00, 0x0d,
+   0xe8, 0x01, 0x80, 0x13, 0x08, 0x03, 0xc0, 0x10, 0x10, 0x00, 0x00, 0x08,
+   0xe0, 0x78, 0x1e, 0x07, 0x00, 0x47, 0xe2, 0x00, 0x00, 0x20, 0x02, 0x00,
+   0x00, 0x10, 0x01, 0x00, 0x00, 0x90, 0x00, 0x00, 0x00, 0x60, 0x00, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
diff --git a/games/x11/xneko/bitmaps/utogi2.xbm b/games/x11/xneko/bitmaps/utogi2.xbm
new file mode 100644
index 0000000..08adba4
--- /dev/null
+++ b/games/x11/xneko/bitmaps/utogi2.xbm
@@ -0,0 +1,14 @@
+#define utogi2_width 32
+#define utogi2_height 32
+static char utogi2_bits[] = {
+   0x00, 0x26, 0x2a, 0x00, 0x00, 0x29, 0x2a, 0x00, 0x00, 0xe9, 0xeb, 0x00,
+   0x00, 0x3d, 0x3c, 0x00, 0x00, 0x09, 0x30, 0x00, 0x00, 0x25, 0x44, 0x00,
+   0x00, 0x23, 0x44, 0x00, 0x00, 0x23, 0x44, 0x00, 0x00, 0x01, 0x80, 0x00,
+   0x80, 0x1f, 0xf8, 0x01, 0x80, 0x00, 0x80, 0x00, 0x00, 0x27, 0x62, 0x00,
+   0x00, 0x1d, 0x5c, 0x00, 0x00, 0x03, 0xc0, 0x00, 0x00, 0x1e, 0x78, 0x00,
+   0x00, 0x02, 0x40, 0x00, 0x00, 0x01, 0x80, 0x00, 0x80, 0x00, 0x00, 0x01,
+   0x80, 0x00, 0x00, 0x01, 0x80, 0x00, 0x00, 0x01, 0xb0, 0x00, 0x00, 0x0d,
+   0xe8, 0x01, 0x80, 0x13, 0x08, 0x03, 0xc0, 0x10, 0x10, 0x00, 0x00, 0x08,
+   0xe0, 0x78, 0x1e, 0x07, 0x00, 0x47, 0xe2, 0x00, 0x00, 0x40, 0x04, 0x00,
+   0x00, 0x80, 0x08, 0x00, 0x00, 0x00, 0x09, 0x00, 0x00, 0x00, 0x06, 0x00,
+   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
diff --git a/games/x11/xneko/xneko.6 b/games/x11/xneko/xneko.6
new file mode 100644
index 0000000..d9567b8
--- /dev/null
+++ b/games/x11/xneko/xneko.6
@@ -0,0 +1,84 @@
+.\" Copyright (c) 1991, 1993
+.\"	The Regents of the University of California.  All rights reserved.
+.\"
+.\" Redistribution and use in source and binary forms, with or without
+.\" modification, are permitted provided that the following conditions
+.\" are met:
+.\" 1. Redistributions of source code must retain the above copyright
+.\"    notice, this list of conditions and the following disclaimer.
+.\" 2. Redistributions in binary form must reproduce the above copyright
+.\"    notice, this list of conditions and the following disclaimer in the
+.\"    documentation and/or other materials provided with the distribution.
+.\" 3. All advertising materials mentioning features or use of this software
+.\"    must display the following acknowledgement:
+.\"	This product includes software developed by the University of
+.\"	California, Berkeley and its contributors.
+.\" 4. Neither the name of the University nor the names of its contributors
+.\"    may be used to endorse or promote products derived from this software
+.\"    without specific prior written permission.
+.\"
+.\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+.\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+.\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+.\" ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+.\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+.\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+.\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+.\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+.\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+.\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+.\" SUCH DAMAGE.
+.\"
+.\"	@(#)xneko.6	8.1 (Berkeley) 5/31/93
+.\"
+.TH XNEKO 6 "May 31, 1993"
+.SH NAME
+xneko \- cat-and-mouse chase in an X window
+.SH SYNOPSIS
+xneko [
+.B -display
+.I display
+] [
+.B -geometry
+.I geometry
+] [
+.B -title
+.I title
+] [
+.B -name
+.I name
+] [
+.B -iconic
+] [
+.B -speed
+.I speed
+] [
+.B -time
+.I time
+] [
+.B -help
+]
+.SH DESCRIPTION
+.I Xneko
+displays a window in which a cat chases your ``mouse'' cursor.
+.PP
+All options except the last three above behave in the standard manner
+for X applications (see
+.IR X (1)).
+The
+.B -speed
+option controls the speed of the cat (the default is 16).
+The
+.B -time
+option controls the interval (in microseconds) between updates of the
+.I xneko
+window (the default is 125000).
+The
+.B -help
+option provides a usage message and exits.
+.PP
+The word ``neko'' means ``cat'' in Japanese.
+.SH SEE ALSO
+X(1)
+.SH AUTHOR
+Masayuki Koba, 1990
diff --git a/games/x11/xneko/xneko.c b/games/x11/xneko/xneko.c
new file mode 100644
index 0000000..731e6c8
--- /dev/null
+++ b/games/x11/xneko/xneko.c
@@ -0,0 +1,1762 @@
+/*-
+ * Copyright (c) 1991, 1993
+ *	The Regents of the University of California.  All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by the University of
+ *	California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ */
+
+#ifndef lint
+static char copyright[] =
+"@(#) Copyright (c) 1991, 1993\n\
+	The Regents of the University of California.  All rights reserved.\n";
+#endif /* not lint */
+
+#ifndef lint
+static char sccsid[] = "@(#)xneko.c	8.1 (Berkeley) 5/31/93";
+#endif /* not lint */
+
+/*--------------------------------------------------------------
+ *
+ *	xneko  -  X11 G-
+ *
+ *			Original Writer: Masayuki Koba
+ *			Programmed by Masayuki Koba, 1990
+ *
+ *--------------------------------------------------------------
+ *
+ *!!Introduction:
+ *
+ *!!!!K\@(#)xneko.c	8.1m%0%i%`$O Macintosh $N5/31/939%/%"%/%;%5%j!< "neko" $N
+ *!!F0:n$r X11 $G%^%M$?$b$N$G$9!#
+ *
+ *!!!!Macintosh "neko" $N=(0o$J5/31/936%$%s$K7I0U$rI=$7$D$D!"$3$N
+ *!!@(#)xneko.c	8.1m%0%i%`$r3'$5$s$KJ{$2$^$9!#
+ *
+ *--------------------------------------------------------------
+ *
+ *!!Special Thanks to
+ *
+ *	toshi-w	!D!!Macintosh neko $N>R2p<T
+ *	shio-m	!D!!!VX11 $N neko $,M_$7$$!*!W$H%?%@$r$3$M$??M
+ *	disco	!D!!X11 SCCS/s.xneko.c/%K%+%k!&%"8.1P%$%6!<
+ *
+ *	HOMY	!D!!/usr/src/games/xneko/SCCS/s.xneko.c0;XE&<T
+ *	BNS	!D!!J#?t@(#)xneko.c	8.1l!<%sBP1~May 31, 1993C%ADs6!<T
+ *
+ *		"xneko"  Presented by Masayuki Koba (masa-k).
+ *
+ *--------------------------------------------------------------
+ *
+ *!!Manifest:
+ *
+ *!!!!K\@(#)xneko.c	8.1m%0%i%`$O Public Domain Software $G$9!#E>:\!&2~NI$O
+ *!!<+M3$K9T$C$F2<$5$$!#
+ *
+ *!!!!$J$*!"86:n<T$O!"K\@(#)xneko.c	8.1m%0%i%`$r;HMQ$9$k$3$H$K$h$C$F@8$8$?
+ *!!>c32$dITMx1W$K$D$$$F$$$C$5$$@UG$$r;}$A$^$;$s!#
+ *
+ *--------------------------------------------------------------
+ *
+ *!!Bugs:
+ *
+ *!!!!!J#1!KX11 $N .Xdefaults $N@_Dj$r$^$k$C$-$jL5;k$7$F$$$^$9!#
+ *
+ *!!!!!J#2!KG-$NF0:n$,;~4V$HF14|$7$F$$$k$?$a!"%^%&%9$N0\F0>pJs
+ *!!!!!!!!$r%]!<%j%s%0$7$F$$$^$9!#=>$C$F!"%^%&%9$,A4$/F0:n$7$F
+ *!!!!!!!!$$$J$$;~$OL5BL$J%^%&%9:BI8FI$_<h$j$r9T$C$F$7$^$$$^$9!#
+ *
+ *!!!!!J#3!K%&%#%s8.1&$,%"%$%3%s2=$5$l$F$b!"$7$i$s$W$j$GIA2h$7
+ *!!!!!!!!$D$E$1$^$9!#$3$NItJ,$O!"8=:_$N%&%#%s8.1&$N>uBV$r@(#) xneko.c 8.1@(#)'
+ *!!!!!!!!70/$7$F!"%"%$%3%s2=$5$l$F$$$k;~$O40A4$K%$s%HBT$A
+ *!!!!!!!!$K$J$k$h$&$K=q$-JQ$($J$1$l$P$J$j$^$;$s!# ($=$s$J$3$H!"
+ *!!!!!!!!$G$-$k$N$+$J$!!#X10 $G$O$G$-$^$7$?$,!#)
+ *
+ *!!!!!J#4!K%j%5%$%:8e$N%&%#%s8.1&$,6KC<$K>.$5$/$J$C$?;~$NF0:n
+ *!!!!!!!!$OJ]>Z$G$-$^$;$s!#
+ *
+ *!!!!!J#5!KK\Mh$J$i$P3NJ]$7$?%&%#%s8.1&$d Pixmap $O@(#)xneko.c	8.1m%0%i%`
+ *!!!!!!!!=*N;;~$K2rJ|$9$kI,MW$,$"$j$^$9$,!"K\@(#)xneko.c	8.1m%0%i%`$O$=$N
+ *!!!!!!!!$X$s$r%5%\$C$F$*$j!"Hs>o$K$*9T57$,0-$/$J$C$F$$$^$9!#
+ *!!!!!!!!IaDL$O exit() ;~$K%7%9SCCS/s.xneko.c`$,M>J,$J%j%=!<%9$r2rJ|$7$F
+ *!!!!!!!!$/$l$^$9$,!"#O#S$K/usr/src/games/xneko/SCCS/s.xneko.c0$,$"$k>l9g$O xneko $r2?EY$b5/
+ *!!!!!!!!F0$9$k$H!"$=$N$&$A%9%o82WNN0h$,ITB-$7$F$7$^$&$3$H$K
+ *!!!!!!!!$J$k$+$b$7$l$^$;$s!#
+ *
+ *!!!!!J#6!K;~4V$KF14|$7$FI,$:IA2h=hM}$r<B9T$9$k$?$a!"0BDj>uBV
+ *!!!!!!!!$G$b Idle 90 !A 95% $H$J$j!"%7%9SCCS/s.xneko.c`#C#P#U$r 5 !A 10%
+ *!!!!!!!!Dx>CHq$7$^$9!#!Jxtachos $GD4$Y$^$7$?!#!K
+ *
+ *--------------------------------------------------------------
+ *
+ *!!System (Machine):
+ *
+ *!!!!K\@(#)xneko.c	8.1m%0%i%`$NF0:n$r3NG'$7$?%7%9SCCS/s.xneko.c`9=@.$O0J2<$NDL$j!#
+ *
+ *	!&NWS-1750!"NWS-1720 (NEWS)!"NWP-512D
+ *	!!NEWS-OS 3.2a (UNIX 4.3BSD)!"X11 Release 2
+ *
+ *	!&NWS-1750!"NWS-1720 (NEWS)!"NWP-512D
+ *	!!NEWS-OS 3.3 (UNIX 4.3BSD)!"X11 Release 3
+ *
+ *	!&Sun 3!"X11 Release 4
+ *
+ *	!&LUNA!"X11 Release 3
+ *
+ *	!&DECstation 3100!"ULTRIX!"X11
+ *
+ *--------------------------------------------------------------*/
+
+
+#include <X11/Xlib.h>
+#include <X11/Xutil.h>
+#include <X11/keysym.h>
+
+#include <stdio.h>
+
+#include <signal.h>
+#include <math.h>
+#include <sys/time.h>
+
+
+#ifndef	lint
+static char
+	rcsid[] = "$Header: /afs/athena.mit.edu/user/j/jik/sipbsrc/src/xneko/RCS/xneko.c,v 1.2 90/09/01 23:40:01 jik Exp $";
+static char	WriterMessage[] = "xneko: Programmed by Masayuki Koba, 1990";
+#endif
+
+
+/*
+ *	X11 G- 0C5/31/93^129W18:45:36!%$%k0lMw!'
+ *
+ *		"icon.xbm"		!D!!%"%$%3%s
+ *		"cursor.xbm"		!D!!%+!<%=%k
+ *		"cursor_mask.xbm"	!D!!%+!<%=%k!J%^%9%/!K
+ *
+ *		"space.xbm"		!D!!%9%Z!<%9
+ *
+ *		"mati2.xbm"		!D!!BT$A#2
+ *		"jare2.xbm"		!D!!$8$c$l#2
+ *		"kaki1.xbm"		!D!!A_$-#1
+ *		"kaki2.xbm"		!D!!A_$-#2
+ *		"mati3.xbm"		!D!!BT$A#3!J$"$/$S!K
+ *		"sleep1.xbm"		!D!!?2$k#1
+ *		"sleep2.xbm"		!D!!?2$k#2
+ *
+ *		"awake.xbm"		!D!!L\3P$a
+ *
+ *		"up1.xbm"		!D!!>e#1
+ *		"up2.xbm"		!D!!>e#2
+ *		"down1.xbm"		!D!!2<#1
+ *		"down2.xbm"		!D!!2<#2
+ *		"left1.xbm"		!D!!:8#1
+ *		"left2.xbm"		!D!!:8#2
+ *		"right1.xbm"		!D!!1&#1
+ *		"right2.xbm"		!D!!1&#2
+ *		"upleft1.xbm"		!D!!:8>e#1
+ *		"upleft2.xbm"		!D!!:8>e#2
+ *		"upright1.xbm"		!D!!1&>e#1
+ *		"upright2.xbm"		!D!!1&>e#2
+ *		"dwleft1.xbm"		!D!!:82<#1
+ *		"dwleft2.xbm"		!D!!:82<#2
+ *		"dwright1.xbm"		!D!!1&2<#1
+ *		"dwright2.xbm"		!D!!1&2<#2
+ *
+ *		"utogi1.xbm"		!D!!>eKa$.#1
+ *		"utogi2.xbm"		!D!!>eKa$.#2
+ *		"dtogi1.xbm"		!D!!2<Ka$.#1
+ *		"dtogi2.xbm"		!D!!2<Ka$.#2
+ *		"ltogi1.xbm"		!D!!:8Ka$.#1
+ *		"ltogi2.xbm"		!D!!:8Ka$.#2
+ *		"rtogi1.xbm"		!D!!1&Ka$.#1
+ *		"rtogi2.xbm"		!D!!1&Ka$.#2
+ *
+ *	!!$3$l$i$N18:45:36!%$%k$O bitmap %3%^%s%I$GJT=82DG=$G$9!#
+ *
+ *		(bitmap size "* 32x32 ... Macintosh ICON resource size.)
+ *
+ */
+
+
+#include "bitmaps/icon.xbm"
+#include "bitmaps/cursor.xbm"
+#include "bitmaps/cursor_mask.xbm"
+
+#include "bitmaps/space.xbm"
+
+#include "bitmaps/mati2.xbm"
+#include "bitmaps/jare2.xbm"
+#include "bitmaps/kaki1.xbm"
+#include "bitmaps/kaki2.xbm"
+#include "bitmaps/mati3.xbm"
+#include "bitmaps/sleep1.xbm"
+#include "bitmaps/sleep2.xbm"
+
+#include "bitmaps/awake.xbm"
+
+#include "bitmaps/up1.xbm"
+#include "bitmaps/up2.xbm"
+#include "bitmaps/down1.xbm"
+#include "bitmaps/down2.xbm"
+#include "bitmaps/left1.xbm"
+#include "bitmaps/left2.xbm"
+#include "bitmaps/right1.xbm"
+#include "bitmaps/right2.xbm"
+#include "bitmaps/upright1.xbm"
+#include "bitmaps/upright2.xbm"
+#include "bitmaps/upleft1.xbm"
+#include "bitmaps/upleft2.xbm"
+#include "bitmaps/dwleft1.xbm"
+#include "bitmaps/dwleft2.xbm"
+#include "bitmaps/dwright1.xbm"
+#include "bitmaps/dwright2.xbm"
+
+#include "bitmaps/utogi1.xbm"
+#include "bitmaps/utogi2.xbm"
+#include "bitmaps/dtogi1.xbm"
+#include "bitmaps/dtogi2.xbm"
+#include "bitmaps/ltogi1.xbm"
+#include "bitmaps/ltogi2.xbm"
+#include "bitmaps/rtogi1.xbm"
+#include "bitmaps/rtogi2.xbm"
+
+
+/*
+ *	Dj?tDj5A
+ */
+
+#define	BITMAP_WIDTH		32	/* #1%-%c%i%/%?$NI} (18:45:53/%;%k) */
+#define	BITMAP_HEIGHT		32	/* #1%-%c%i%/%?$N9b$5 (18:45:53/%;%k) */
+
+#define	WINDOW_WIDTH		320	/* %&%#%s8.1&$NI} (18:45:53/%;%k) */
+#define	WINDOW_HEIGHT		256	/* %&%#%s8.1&$N9b$5 (18:45:53/%;%k) */
+
+#define	DEFAULT_BORDER		2	/* %\!<%@!<%5%$%: */
+
+#define	DEFAULT_WIN_X		1	/* %&%#%s8.1&@8@.#X:BI8 */
+#define	DEFAULT_WIN_Y		1	/* %&%#%s8.1&@8@.#Y:BI8 */
+
+#define	AVAIL_KEYBUF		255
+
+#define	EVENT_MASK1		( KeyPressMask | StructureNotifyMask )
+
+#define	EVENT_MASK2		( KeyPressMask | \
+				  ExposureMask | \
+				  StructureNotifyMask )
+
+#define	MAX_TICK		9999		/* Odd Only! */
+
+#define	INTERVAL		125000L		/* %$%s%?!</usr/src/games/xneko/SCCS/s.xneko.ck%?%$%` */
+
+#define	NEKO_SPEED		16
+
+#define	IDLE_SPACE		6
+
+#define	NORMAL_STATE		1
+#define	DEBUG_LIST		2
+#define	DEBUG_MOVE		3
+
+/* G-$N>uBVDj?t */
+
+#define	NEKO_STOP		0	/* N)$A;_$^$C$? */
+#define	NEKO_JARE		1	/* 4i$r@v$C$F$$$k */
+#define	NEKO_KAKI		2	/* F,$rA_$$$F$$$k */
+#define	NEKO_AKUBI		3	/* $"$/$S$r$7$F$$$k */
+#define	NEKO_SLEEP		4	/* ?2$F$7$^$C$? */
+#define	NEKO_AWAKE		5	/* L\$,3P$a$? */
+#define	NEKO_U_MOVE		6	/* >e$K0\F0Cf */
+#define	NEKO_D_MOVE		7	/* 2<$K0\F0Cf */
+#define	NEKO_L_MOVE		8	/* :8$K0\F0Cf */
+#define	NEKO_R_MOVE		9	/* 1&$K0\F0Cf */
+#define	NEKO_UL_MOVE		10	/* :8>e$K0\F0Cf */
+#define	NEKO_UR_MOVE		11	/* 1&>e$K0\F0Cf */
+#define	NEKO_DL_MOVE		12	/* :82<$K0\F0Cf */
+#define	NEKO_DR_MOVE		13	/* 1&2<$K0\F0Cf */
+#define	NEKO_U_TOGI		14	/* >e$NJI$r0z$CA_$$$F$$$k */
+#define	NEKO_D_TOGI		15	/* 2<$NJI$r0z$CA_$$$F$$$k */
+#define	NEKO_L_TOGI		16	/* :8$NJI$r0z$CA_$$$F$$$k */
+#define	NEKO_R_TOGI		17	/* 1&$NJI$r0z$CA_$$$F$$$k */
+
+/* G-$N%"%K%a!<%7%g%s7+$jJV$72s?t */
+
+#define	NEKO_STOP_TIME		4
+#define	NEKO_JARE_TIME		10
+#define	NEKO_KAKI_TIME		4
+#define	NEKO_AKUBI_TIME		3
+#define	NEKO_AWAKE_TIME		3
+#define	NEKO_TOGI_TIME		10
+
+#define	PI_PER8			((double)3.1415926535/(double)8)
+
+#define	DIRNAMELEN		255
+
+
+/*
+ *	%0%m!</usr/src/games/xneko/SCCS/s.xneko.ckJQ?t
+ */
+
+static char		*ProgramName;		/* %3%^%s%IL>>N */
+
+Display			*theDisplay;
+int			theScreen;
+unsigned int		theDepth;
+unsigned long		theBlackPixel;
+unsigned long		theWhitePixel;
+Window			theWindow;
+Cursor			theCursor;
+
+static unsigned int	WindowWidth;
+static unsigned int	WindowHeight;
+
+static int		WindowPointX;
+static int		WindowPointY;
+
+static unsigned int	BorderWidth = DEFAULT_BORDER;
+
+long			IntervalTime = INTERVAL;
+
+int			EventState;		/* %$s%H=hM}MQ >uBVJQ?t */
+
+int			NekoTickCount;		/* G-F0:n%+%&%s%? */
+int			NekoStateCount;		/* G-F10l>uBV%+%&%s%? */
+int			NekoState;		/* G-$N>uBV */
+
+int			MouseX;			/* %^%&%9#X:BI8 */
+int			MouseY;			/* %^%&%9#Y:BI8 */
+
+int			PrevMouseX = 0;		/* D>A0$N%^%&%9#X:BI8 */
+int			PrevMouseY = 0;		/* D>A0$N%^%&%9#Y:BI8 */
+
+int			NekoX;			/* G-#X:BI8 */
+int			NekoY;			/* G-#Y:BI8 */
+
+int			NekoMoveDx;		/* G-0\F05wN%#X */
+int			NekoMoveDy;		/* G-0\F05wN%#Y */
+
+int			NekoLastX;		/* G-:G=*IA2h#X:BI8 */
+int			NekoLastY;		/* G-:G=*IA2h#Y:BI8 */
+GC			NekoLastGC;		/* G-:G=*IA2h GC */
+
+double			NekoSpeed = (double)NEKO_SPEED;
+
+double			SinPiPer8Times3;	/* sin( #3&P!?#8 ) */
+double			SinPiPer8;		/* sin( &P!?#8 ) */
+
+Pixmap			SpaceXbm;
+
+Pixmap			Mati2Xbm;
+Pixmap			Jare2Xbm;
+Pixmap			Kaki1Xbm;
+Pixmap			Kaki2Xbm;
+Pixmap			Mati3Xbm;
+Pixmap			Sleep1Xbm;
+Pixmap			Sleep2Xbm;
+
+Pixmap			AwakeXbm;
+
+Pixmap			Up1Xbm;
+Pixmap			Up2Xbm;
+Pixmap			Down1Xbm;
+Pixmap			Down2Xbm;
+Pixmap			Left1Xbm;
+Pixmap			Left2Xbm;
+Pixmap			Right1Xbm;
+Pixmap			Right2Xbm;
+Pixmap			UpLeft1Xbm;
+Pixmap			UpLeft2Xbm;
+Pixmap			UpRight1Xbm;
+Pixmap			UpRight2Xbm;
+Pixmap			DownLeft1Xbm;
+Pixmap			DownLeft2Xbm;
+Pixmap			DownRight1Xbm;
+Pixmap			DownRight2Xbm;
+
+Pixmap			UpTogi1Xbm;
+Pixmap			UpTogi2Xbm;
+Pixmap			DownTogi1Xbm;
+Pixmap			DownTogi2Xbm;
+Pixmap			LeftTogi1Xbm;
+Pixmap			LeftTogi2Xbm;
+Pixmap			RightTogi1Xbm;
+Pixmap			RightTogi2Xbm;
+
+GC			SpaceGC;
+
+GC			Mati2GC;
+GC			Jare2GC;
+GC			Kaki1GC;
+GC			Kaki2GC;
+GC			Mati3GC;
+GC			Sleep1GC;
+GC			Sleep2GC;
+
+GC			AwakeGC;
+
+GC			Up1GC;
+GC			Up2GC;
+GC			Down1GC;
+GC			Down2GC;
+GC			Left1GC;
+GC			Left2GC;
+GC			Right1GC;
+GC			Right2GC;
+GC			UpLeft1GC;
+GC			UpLeft2GC;
+GC			UpRight1GC;
+GC			UpRight2GC;
+GC			DownLeft1GC;
+GC			DownLeft2GC;
+GC			DownRight1GC;
+GC			DownRight2GC;
+
+GC			UpTogi1GC;
+GC			UpTogi2GC;
+GC			DownTogi1GC;
+GC			DownTogi2GC;
+GC			LeftTogi1GC;
+GC			LeftTogi2GC;
+GC			RightTogi1GC;
+GC			RightTogi2GC;
+
+typedef struct {
+    GC			*GCCreatePtr;
+    Pixmap		*BitmapCreatePtr;
+    char		*PixelPattern;
+    unsigned int	PixelWidth;
+    unsigned int	PixelHeight;
+} BitmapGCData;
+
+BitmapGCData	BitmapGCDataTable[] =
+{
+    { &SpaceGC, &SpaceXbm, space_bits, space_width, space_height },
+    { &Mati2GC, &Mati2Xbm, mati2_bits, mati2_width, mati2_height },
+    { &Jare2GC, &Jare2Xbm, jare2_bits, jare2_width, jare2_height },
+    { &Kaki1GC, &Kaki1Xbm, kaki1_bits, kaki1_width, kaki1_height },
+    { &Kaki2GC, &Kaki2Xbm, kaki2_bits, kaki2_width, kaki2_height },
+    { &Mati3GC, &Mati3Xbm, mati3_bits, mati3_width, mati3_height },
+    { &Sleep1GC, &Sleep1Xbm, sleep1_bits, sleep1_width, sleep1_height },
+    { &Sleep2GC, &Sleep2Xbm, sleep2_bits, sleep2_width, sleep2_height },
+    { &AwakeGC, &AwakeXbm, awake_bits, awake_width, awake_height },
+    { &Up1GC, &Up1Xbm, up1_bits, up1_width, up1_height },
+    { &Up2GC, &Up2Xbm, up2_bits, up2_width, up2_height },
+    { &Down1GC, &Down1Xbm, down1_bits, down1_width, down1_height },
+    { &Down2GC, &Down2Xbm, down2_bits, down2_width, down2_height },
+    { &Left1GC, &Left1Xbm, left1_bits, left1_width, left1_height },
+    { &Left2GC, &Left2Xbm, left2_bits, left2_width, left2_height },
+    { &Right1GC, &Right1Xbm, right1_bits, right1_width, right1_height },
+    { &Right2GC, &Right2Xbm, right2_bits, right2_width, right2_height },
+    { &UpLeft1GC, &UpLeft1Xbm, upleft1_bits, upleft1_width, upleft1_height },
+    { &UpLeft2GC, &UpLeft2Xbm, upleft2_bits, upleft2_width, upleft2_height },
+    { &UpRight1GC,
+      &UpRight1Xbm, upright1_bits, upright1_width, upright1_height },
+    { &UpRight2GC,
+      &UpRight2Xbm, upright2_bits, upright2_width, upright2_height },
+    { &DownLeft1GC,
+      &DownLeft1Xbm, dwleft1_bits, dwleft1_width, dwleft1_height },
+    { &DownLeft2GC,
+      &DownLeft2Xbm, dwleft2_bits, dwleft2_width, dwleft2_height },
+    { &DownRight1GC,
+      &DownRight1Xbm, dwright1_bits, dwright1_width, dwright1_height },
+    { &DownRight2GC,
+      &DownRight2Xbm, dwright2_bits, dwright2_width, dwright2_height },
+    { &UpTogi1GC, &UpTogi1Xbm, utogi1_bits, utogi1_width, utogi1_height },
+    { &UpTogi2GC, &UpTogi2Xbm, utogi2_bits, utogi2_width, utogi2_height },
+    { &DownTogi1GC, &DownTogi1Xbm, dtogi1_bits, dtogi1_width, dtogi1_height },
+    { &DownTogi2GC, &DownTogi2Xbm, dtogi2_bits, dtogi2_width, dtogi2_height },
+    { &LeftTogi1GC, &LeftTogi1Xbm, ltogi1_bits, ltogi1_width, ltogi1_height },
+    { &LeftTogi2GC, &LeftTogi2Xbm, ltogi2_bits, ltogi2_width, ltogi2_height },
+    { &RightTogi1GC,
+      &RightTogi1Xbm, rtogi1_bits, rtogi1_width, rtogi1_height },
+    { &RightTogi2GC,
+      &RightTogi2Xbm, rtogi2_bits, rtogi2_width, rtogi2_height },
+    { NULL, NULL, NULL, NULL, NULL }
+};
+
+typedef struct {
+    GC		*TickEvenGCPtr;
+    GC		*TickOddGCPtr;
+} Animation;
+
+Animation	AnimationPattern[] =
+{
+    { &Mati2GC, &Mati2GC },		/* NekoState == NEKO_STOP */
+    { &Jare2GC, &Mati2GC },		/* NekoState == NEKO_JARE */
+    { &Kaki1GC, &Kaki2GC },		/* NekoState == NEKO_KAKI */
+    { &Mati3GC, &Mati3GC },		/* NekoState == NEKO_AKUBI */
+    { &Sleep1GC, &Sleep2GC },		/* NekoState == NEKO_SLEEP */
+    { &AwakeGC, &AwakeGC },		/* NekoState == NEKO_AWAKE */
+    { &Up1GC, &Up2GC }	,		/* NekoState == NEKO_U_MOVE */
+    { &Down1GC, &Down2GC },		/* NekoState == NEKO_D_MOVE */
+    { &Left1GC, &Left2GC },		/* NekoState == NEKO_L_MOVE */
+    { &Right1GC, &Right2GC },		/* NekoState == NEKO_R_MOVE */
+    { &UpLeft1GC, &UpLeft2GC },		/* NekoState == NEKO_UL_MOVE */
+    { &UpRight1GC, &UpRight2GC },	/* NekoState == NEKO_UR_MOVE */
+    { &DownLeft1GC, &DownLeft2GC },	/* NekoState == NEKO_DL_MOVE */
+    { &DownRight1GC, &DownRight2GC },	/* NekoState == NEKO_DR_MOVE */
+    { &UpTogi1GC, &UpTogi2GC },		/* NekoState == NEKO_U_TOGI */
+    { &DownTogi1GC, &DownTogi2GC },	/* NekoState == NEKO_D_TOGI */
+    { &LeftTogi1GC, &LeftTogi2GC },	/* NekoState == NEKO_L_TOGI */
+    { &RightTogi1GC, &RightTogi2GC },	/* NekoState == NEKO_R_TOGI */
+};
+
+
+/*--------------------------------------------------------------
+ *
+ *	0C5/31/93^504W%G!<%?!&GC =i4|2=
+ *
+ *--------------------------------------------------------------*/
+
+void
+InitBitmapAndGCs()
+{
+    BitmapGCData	*BitmapGCDataTablePtr;
+    XGCValues		theGCValues;
+
+    theGCValues.function = GXcopy;
+    theGCValues.foreground = BlackPixel( theDisplay, theScreen );
+    theGCValues.background = WhitePixel( theDisplay, theScreen );
+    theGCValues.fill_style = FillTiled;
+
+    for ( BitmapGCDataTablePtr = BitmapGCDataTable;
+	  BitmapGCDataTablePtr->GCCreatePtr != NULL;
+	  BitmapGCDataTablePtr++ ) {
+
+	*(BitmapGCDataTablePtr->BitmapCreatePtr)
+	    = XCreatePixmapFromBitmapData(
+		  theDisplay,
+		  RootWindow( theDisplay, theScreen ),
+		  BitmapGCDataTablePtr->PixelPattern,
+		  BitmapGCDataTablePtr->PixelWidth,
+		  BitmapGCDataTablePtr->PixelHeight,
+		  BlackPixel( theDisplay, theScreen ),
+		  WhitePixel( theDisplay, theScreen ),
+		  DefaultDepth( theDisplay, theScreen ) );
+
+	theGCValues.tile = *(BitmapGCDataTablePtr->BitmapCreatePtr);
+
+	*(BitmapGCDataTablePtr->GCCreatePtr)
+	    = XCreateGC( theDisplay, theWindow,
+			 GCFunction | GCForeground | GCBackground |
+			 GCTile | GCFillStyle,
+			 &theGCValues );
+    }
+
+    XFlush( theDisplay );
+}
+
+
+/*--------------------------------------------------------------
+ *
+ *	%9%/%j!<%s4D6-=i4|2=
+ *
+ *--------------------------------------------------------------*/
+
+void
+InitScreen( DisplayName, theGeometry, TitleName, iconicState )
+    char	*DisplayName;
+    char	*theGeometry;
+    char	*TitleName;
+    Bool	iconicState;
+{
+    int				GeometryStatus;
+    XSetWindowAttributes	theWindowAttributes;
+    XSizeHints			theSizeHints;
+    unsigned long		theWindowMask;
+    Pixmap			theIconPixmap;
+    Pixmap			theCursorSource;
+    Pixmap			theCursorMask;
+    XWMHints			theWMHints;
+    Window			theRoot;
+    Colormap			theColormap;
+    XColor			theWhiteColor, theBlackColor, theExactColor;
+
+    if ( ( theDisplay = XOpenDisplay( DisplayName ) ) == NULL ) {
+	fprintf( stderr, "%s: Can't open display", ProgramName );
+	if ( DisplayName != NULL ) {
+	    fprintf( stderr, " %s.\n", DisplayName );
+	} else {
+	    fprintf( stderr, ".\n" );
+	}
+	exit( 1 );
+    }
+
+    theScreen = DefaultScreen( theDisplay );
+    theDepth = DefaultDepth( theDisplay, theScreen );
+
+    theBlackPixel = BlackPixel( theDisplay, theScreen );
+    theWhitePixel = WhitePixel( theDisplay, theScreen );
+
+    GeometryStatus = XParseGeometry( theGeometry,
+				     &WindowPointX, &WindowPointY,
+				     &WindowWidth, &WindowHeight );
+
+    if ( !( GeometryStatus & XValue ) ) {
+	WindowPointX = DEFAULT_WIN_X;
+    }
+    if ( !( GeometryStatus & YValue ) ) {
+	WindowPointY = DEFAULT_WIN_Y;
+    }
+    if ( !( GeometryStatus & WidthValue ) ) {
+	WindowWidth = WINDOW_WIDTH;
+    }
+    if ( !( GeometryStatus & HeightValue ) ) {
+	WindowHeight = WINDOW_HEIGHT;
+    }
+
+    theCursorSource
+	= XCreateBitmapFromData( theDisplay,
+				 RootWindow( theDisplay, theScreen ),
+				 cursor_bits,
+				 cursor_width,
+				 cursor_height );
+
+    theCursorMask
+	= XCreateBitmapFromData( theDisplay,
+				 RootWindow( theDisplay, theScreen ),
+				 cursor_mask_bits,
+				 cursor_mask_width,
+				 cursor_mask_height );
+
+    theColormap = DefaultColormap( theDisplay, theScreen );
+
+    if ( !XAllocNamedColor( theDisplay, theColormap,
+			    "white", &theWhiteColor, &theExactColor ) ) {
+	fprintf( stderr,
+		 "%s: Can't XAllocNamedColor( \"white\" ).\n", ProgramName );
+	exit( 1 );
+    }
+
+    if ( !XAllocNamedColor( theDisplay, theColormap,
+			    "black", &theBlackColor, &theExactColor ) ) {
+	fprintf( stderr,
+		 "%s: Can't XAllocNamedColor( \"black\" ).\n", ProgramName );
+	exit( 1 );
+    }
+
+    theCursor = XCreatePixmapCursor( theDisplay,
+				     theCursorSource, theCursorMask,
+				     &theBlackColor, &theWhiteColor,
+				     cursor_x_hot, cursor_y_hot );
+
+    theWindowAttributes.border_pixel = theBlackPixel;
+    theWindowAttributes.background_pixel = theWhitePixel;
+    theWindowAttributes.cursor = theCursor;
+    theWindowAttributes.override_redirect = False;
+
+    theWindowMask = CWBackPixel		|
+		    CWBorderPixel	|
+		    CWCursor		|
+		    CWOverrideRedirect;
+
+    theWindow = XCreateWindow( theDisplay,
+			       RootWindow( theDisplay, theScreen ),
+			       WindowPointX, WindowPointY,
+			       WindowWidth, WindowHeight,
+			       BorderWidth,
+			       theDepth,
+			       InputOutput,
+			       CopyFromParent,
+			       theWindowMask,
+			       &theWindowAttributes );
+
+    theIconPixmap = XCreateBitmapFromData( theDisplay, theWindow,
+					   icon_bits,
+					   icon_width,
+					   icon_height );
+
+    theWMHints.icon_pixmap = theIconPixmap;
+    if ( iconicState ) {
+	theWMHints.initial_state = IconicState;
+    } else {
+	theWMHints.initial_state = NormalState;
+    }
+    theWMHints.flags = IconPixmapHint | StateHint;
+
+    XSetWMHints( theDisplay, theWindow, &theWMHints );
+
+    theSizeHints.flags = PPosition | PSize;
+    theSizeHints.x = WindowPointX;
+    theSizeHints.y = WindowPointY;
+    theSizeHints.width = WindowWidth;
+    theSizeHints.height = WindowHeight;
+
+    XSetNormalHints( theDisplay, theWindow, &theSizeHints );
+
+    if ( strlen( TitleName ) >= 1 ) {
+	XStoreName( theDisplay, theWindow, TitleName );
+	XSetIconName( theDisplay, theWindow, TitleName );
+    } else {
+	XStoreName( theDisplay, theWindow, ProgramName );
+	XSetIconName( theDisplay, theWindow, ProgramName );
+    }
+
+    XMapWindow( theDisplay, theWindow );
+
+    XFlush( theDisplay );
+
+    XGetGeometry( theDisplay, theWindow,
+		  &theRoot,
+		  &WindowPointX, &WindowPointY,
+		  &WindowWidth, &WindowHeight,
+		  &BorderWidth, &theDepth );
+
+    InitBitmapAndGCs();
+
+    XSelectInput( theDisplay, theWindow, EVENT_MASK1 );
+
+    XFlush( theDisplay );
+}
+
+
+/*--------------------------------------------------------------
+ *
+ *	%$%s%?!</usr/src/games/xneko/SCCS/s.xneko.ck
+ *
+ *	!!$3$N4X?t$r8F$V$H!"$"$k0lDj$N;~4VJV$C$F$3$J$/$J$k!#G-
+ *	$NF0:n%?%$%_%s%0D4@0$KMxMQ$9$k$3$H!#
+ *
+ *--------------------------------------------------------------*/
+
+void
+Interval()
+{
+    pause();
+}
+
+
+/*--------------------------------------------------------------
+ *
+ *	SCCS/s.xneko.c#728/%+%&%s%H=hM}
+ *
+ *--------------------------------------------------------------*/
+
+void
+TickCount()
+{
+    if ( ++NekoTickCount >= MAX_TICK ) {
+	NekoTickCount = 0;
+    }
+
+    if ( NekoTickCount % 2 == 0 ) {
+	if ( NekoStateCount < MAX_TICK ) {
+	    NekoStateCount++;
+	}
+    }
+}
+
+
+/*--------------------------------------------------------------
+ *
+ *	G->uBV@_Dj
+ *
+ *--------------------------------------------------------------*/
+
+void
+SetNekoState( SetValue )
+    int		SetValue;
+{
+    NekoTickCount = 0;
+    NekoStateCount = 0;
+
+    NekoState = SetValue;
+
+#ifdef	DEBUG
+    switch ( NekoState ) {
+    case NEKO_STOP:
+    case NEKO_JARE:
+    case NEKO_KAKI:
+    case NEKO_AKUBI:
+    case NEKO_SLEEP:
+    case NEKO_U_TOGI:
+    case NEKO_D_TOGI:
+    case NEKO_L_TOGI:
+    case NEKO_R_TOGI:
+	NekoMoveDx = NekoMoveDy = 0;
+	break;
+    default:
+	break;
+    }
+#endif
+}
+
+
+/*--------------------------------------------------------------
+ *
+ *	G-IA2h=hM}
+ *
+ *--------------------------------------------------------------*/
+
+void
+DrawNeko( x, y, DrawGC )
+    int		x;
+    int		y;
+    GC		DrawGC;
+{
+    if ( ( x != NekoLastX || y != NekoLastY )
+	 && ( EventState != DEBUG_LIST ) ) {
+	XFillRectangle( theDisplay, theWindow, SpaceGC,
+			NekoLastX, NekoLastY,
+			BITMAP_WIDTH, BITMAP_HEIGHT );
+    }
+
+    XSetTSOrigin( theDisplay, DrawGC, x, y );
+
+    XFillRectangle( theDisplay, theWindow, DrawGC,
+		    x, y, BITMAP_WIDTH, BITMAP_HEIGHT );
+
+    XFlush( theDisplay );
+
+    NekoLastX = x;
+    NekoLastY = y;
+
+    NekoLastGC = DrawGC;
+}
+
+
+/*--------------------------------------------------------------
+ *
+ *	G-:FIA2h=hM}
+ *
+ *--------------------------------------------------------------*/
+
+void
+RedrawNeko()
+{
+    XFillRectangle( theDisplay, theWindow, NekoLastGC,
+		    NekoLastX, NekoLastY,
+		    BITMAP_WIDTH, BITMAP_HEIGHT );
+
+    XFlush( theDisplay );
+}
+
+
+/*--------------------------------------------------------------
+ *
+ *	G-0\F0J}K!7hDj
+ *
+ *--------------------------------------------------------------*/
+
+void
+NekoDirection()
+{
+    int			NewState;
+    double		LargeX, LargeY;
+    double		Length;
+    double		SinTheta;
+
+    if ( NekoMoveDx == 0 && NekoMoveDy == 0 ) {
+	NewState = NEKO_STOP;
+    } else {
+	LargeX = (double)NekoMoveDx;
+	LargeY = (double)(-NekoMoveDy);
+	Length = sqrt( LargeX * LargeX + LargeY * LargeY );
+	SinTheta = LargeY / Length;
+
+	if ( NekoMoveDx > 0 ) {
+	    if ( SinTheta > SinPiPer8Times3 ) {
+		NewState = NEKO_U_MOVE;
+	    } else if ( ( SinTheta <= SinPiPer8Times3 )
+			&& ( SinTheta > SinPiPer8 ) ) {
+		NewState = NEKO_UR_MOVE;
+	    } else if ( ( SinTheta <= SinPiPer8 )
+			&& ( SinTheta > -( SinPiPer8 ) ) ) {
+		NewState = NEKO_R_MOVE;
+	    } else if ( ( SinTheta <= -( SinPiPer8 ) )
+			&& ( SinTheta > -( SinPiPer8Times3 ) ) ) {
+		NewState = NEKO_DR_MOVE;
+	    } else {
+		NewState = NEKO_D_MOVE;
+	    }
+	} else {
+	    if ( SinTheta > SinPiPer8Times3 ) {
+		NewState = NEKO_U_MOVE;
+	    } else if ( ( SinTheta <= SinPiPer8Times3 )
+			&& ( SinTheta > SinPiPer8 ) ) {
+		NewState = NEKO_UL_MOVE;
+	    } else if ( ( SinTheta <= SinPiPer8 )
+			&& ( SinTheta > -( SinPiPer8 ) ) ) {
+		NewState = NEKO_L_MOVE;
+	    } else if ( ( SinTheta <= -( SinPiPer8 ) )
+			&& ( SinTheta > -( SinPiPer8Times3 ) ) ) {
+		NewState = NEKO_DL_MOVE;
+	    } else {
+		NewState = NEKO_D_MOVE;
+	    }
+	}
+    }
+
+    if ( NekoState != NewState ) {
+	SetNekoState( NewState );
+    }
+}
+
+
+/*--------------------------------------------------------------
+ *
+ *	G-JI$V$D$+$jH=Dj
+ *
+ *--------------------------------------------------------------*/
+
+Bool
+IsWindowOver()
+{
+    Bool	ReturnValue = False;
+
+    if ( NekoY <= 0 ) {
+	NekoY = 0;
+	ReturnValue = True;
+    } else if ( NekoY >= WindowHeight - BITMAP_HEIGHT ) {
+	NekoY = WindowHeight - BITMAP_HEIGHT;
+	ReturnValue = True;
+    }
+    if ( NekoX <= 0 ) {
+	NekoX = 0;
+	ReturnValue = True;
+    } else if ( NekoX >= WindowWidth - BITMAP_WIDTH ) {
+	NekoX = WindowWidth - BITMAP_WIDTH;
+	ReturnValue = True;
+    }
+
+    return( ReturnValue );
+}
+
+
+/*--------------------------------------------------------------
+ *
+ *	G-0\F0>u67H=Dj
+ *
+ *--------------------------------------------------------------*/
+
+Bool
+IsNekoDontMove()
+{
+    if ( NekoX == NekoLastX && NekoY == NekoLastY ) {
+	return( True );
+    } else {
+	return( False );
+    }
+}
+
+
+/*--------------------------------------------------------------
+ *
+ *	G-0\F03+;OH=Dj
+ *
+ *--------------------------------------------------------------*/
+
+Bool
+IsNekoMoveStart()
+{
+#ifndef	DEBUG
+    if ( ( PrevMouseX >= MouseX - IDLE_SPACE
+	 && PrevMouseX <= MouseX + IDLE_SPACE ) &&
+	 ( PrevMouseY >= MouseY - IDLE_SPACE 
+	 && PrevMouseY <= MouseY + IDLE_SPACE ) ) {
+	return( False );
+    } else {
+	return( True );
+    }
+#else
+    if ( NekoMoveDx == 0 && NekoMoveDy == 0 ) {
+	return( False );
+    } else {
+	return( True );
+    }
+#endif
+}
+
+
+/*--------------------------------------------------------------
+ *
+ *	G-0\F0 dx, dy 7W;;
+ *
+ *--------------------------------------------------------------*/
+
+void
+CalcDxDy()
+{
+    Window		QueryRoot, QueryChild;
+    int			AbsoluteX, AbsoluteY;
+    int			RelativeX, RelativeY;
+    unsigned int	ModKeyMask;
+    double		LargeX, LargeY;
+    double		DoubleLength, Length;
+
+    XQueryPointer( theDisplay, theWindow,
+		   &QueryRoot, &QueryChild,
+		   &AbsoluteX, &AbsoluteY,
+		   &RelativeX, &RelativeY,
+		   &ModKeyMask );
+
+    PrevMouseX = MouseX;
+    PrevMouseY = MouseY;
+
+    MouseX = RelativeX;
+    MouseY = RelativeY;
+
+    LargeX = (double)( MouseX - NekoX - BITMAP_WIDTH / 2 );
+    LargeY = (double)( MouseY - NekoY - BITMAP_HEIGHT );
+
+    DoubleLength = LargeX * LargeX + LargeY * LargeY;
+
+    if ( DoubleLength != (double)0 ) {
+	Length = sqrt( DoubleLength );
+	if ( Length <= NekoSpeed ) {
+	    NekoMoveDx = (int)LargeX;
+	    NekoMoveDy = (int)LargeY;
+	} else {
+	    NekoMoveDx = (int)( ( NekoSpeed * LargeX ) / Length );
+	    NekoMoveDy = (int)( ( NekoSpeed * LargeY ) / Length );
+	}
+    } else {
+	NekoMoveDx = NekoMoveDy = 0;
+    }
+}
+
+
+/*--------------------------------------------------------------
+ *
+ *	F0:n2r@OG-IA2h=hM}
+ *
+ *--------------------------------------------------------------*/
+
+void
+NekoThinkDraw()
+{
+#ifndef	DEBUG
+    CalcDxDy();
+#endif
+
+    if ( NekoState != NEKO_SLEEP ) {
+	DrawNeko( NekoX, NekoY,
+		  NekoTickCount % 2 == 0 ?
+		  *(AnimationPattern[ NekoState ].TickEvenGCPtr) :
+		  *(AnimationPattern[ NekoState ].TickOddGCPtr) );
+    } else {
+	DrawNeko( NekoX, NekoY,
+		  NekoTickCount % 8 <= 3 ?
+		  *(AnimationPattern[ NekoState ].TickEvenGCPtr) :
+		  *(AnimationPattern[ NekoState ].TickOddGCPtr) );
+    }
+
+    TickCount();
+
+    switch ( NekoState ) {
+    case NEKO_STOP:
+	if ( IsNekoMoveStart() ) {
+	    SetNekoState( NEKO_AWAKE );
+	    break;
+	}
+	if ( NekoStateCount < NEKO_STOP_TIME ) {
+	    break;
+	}
+	if ( NekoMoveDx < 0 && NekoX <= 0 ) {
+	    SetNekoState( NEKO_L_TOGI );
+	} else if ( NekoMoveDx > 0 && NekoX >= WindowWidth - BITMAP_WIDTH ) {
+	    SetNekoState( NEKO_R_TOGI );
+	} else if ( NekoMoveDy < 0 && NekoY <= 0 ) {
+	    SetNekoState( NEKO_U_TOGI );
+	} else if ( NekoMoveDy > 0 && NekoY >= WindowHeight - BITMAP_HEIGHT ) {
+	    SetNekoState( NEKO_D_TOGI );
+	} else {
+	    SetNekoState( NEKO_JARE );
+	}
+	break;
+    case NEKO_JARE:
+	if ( IsNekoMoveStart() ) {
+	    SetNekoState( NEKO_AWAKE );
+	    break;
+	}
+	if ( NekoStateCount < NEKO_JARE_TIME ) {
+	    break;
+	}
+	SetNekoState( NEKO_KAKI );
+	break;
+    case NEKO_KAKI:
+	if ( IsNekoMoveStart() ) {
+	    SetNekoState( NEKO_AWAKE );
+	    break;
+	}
+	if ( NekoStateCount < NEKO_KAKI_TIME ) {
+	    break;
+	}
+	SetNekoState( NEKO_AKUBI );
+	break;
+    case NEKO_AKUBI:
+	if ( IsNekoMoveStart() ) {
+	    SetNekoState( NEKO_AWAKE );
+	    break;
+	}
+	if ( NekoStateCount < NEKO_AKUBI_TIME ) {
+	    break;
+	}
+	SetNekoState( NEKO_SLEEP );
+	break;
+    case NEKO_SLEEP:
+	if ( IsNekoMoveStart() ) {
+	    SetNekoState( NEKO_AWAKE );
+	    break;
+	}
+	break;
+    case NEKO_AWAKE:
+	if ( NekoStateCount < NEKO_AWAKE_TIME ) {
+	    break;
+	}
+	NekoDirection();	/* G-$,F0$/8~$-$r5a$a$k */
+	break;
+    case NEKO_U_MOVE:
+    case NEKO_D_MOVE:
+    case NEKO_L_MOVE:
+    case NEKO_R_MOVE:
+    case NEKO_UL_MOVE:
+    case NEKO_UR_MOVE:
+    case NEKO_DL_MOVE:
+    case NEKO_DR_MOVE:
+	NekoX += NekoMoveDx;
+	NekoY += NekoMoveDy;
+	NekoDirection();
+	if ( IsWindowOver() ) {
+	    if ( IsNekoDontMove() ) {
+		SetNekoState( NEKO_STOP );
+	    }
+	}
+	break;
+    case NEKO_U_TOGI:
+    case NEKO_D_TOGI:
+    case NEKO_L_TOGI:
+    case NEKO_R_TOGI:
+	if ( IsNekoMoveStart() ) {
+	    SetNekoState( NEKO_AWAKE );
+	    break;
+	}
+	if ( NekoStateCount < NEKO_TOGI_TIME ) {
+	    break;
+	}
+	SetNekoState( NEKO_KAKI );
+	break;
+    default:
+	/* Internal Error */
+	SetNekoState( NEKO_STOP );
+	break;
+    }
+
+    Interval();
+}
+
+
+#ifdef	DEBUG
+
+/*--------------------------------------------------------------
+ *
+ *	%-%c%i%/%?!<0lMwI=<(!J5/31/93P11500MQ!K
+ *
+ *--------------------------------------------------------------*/
+
+void
+DisplayCharacters()
+{
+    int		Index;
+    int		x, y;
+
+    for ( Index = 0, x = 0, y = 0;
+	  BitmapGCDataTable[ Index ].GCCreatePtr != NULL; Index++ ) {
+
+	DrawNeko( x, y, *(BitmapGCDataTable[ Index ].GCCreatePtr) );
+	XFlush( theDisplay );
+
+	x += BITMAP_WIDTH;
+
+	if ( x > WindowWidth - BITMAP_WIDTH ) {
+	    x = 0;
+	    y += BITMAP_HEIGHT;
+	    if ( y > WindowHeight - BITMAP_HEIGHT) {
+		break;
+	    }
+	}
+    }
+}
+
+#endif	/* DEBUG */
+
+
+/*--------------------------------------------------------------
+ *
+ *	%-!<%$s%H=hM}
+ *
+ *--------------------------------------------------------------*/
+
+Bool
+ProcessKeyPress( theKeyEvent )
+    XKeyEvent	*theKeyEvent;
+{
+    int			Length;
+    int			theKeyBufferMaxLen = AVAIL_KEYBUF;
+    char		theKeyBuffer[ AVAIL_KEYBUF + 1 ];
+    KeySym		theKeySym;
+    XComposeStatus	theComposeStatus;
+    Bool		ReturnState;
+
+    ReturnState = True;
+
+    Length = XLookupString( theKeyEvent,
+			    theKeyBuffer, theKeyBufferMaxLen,
+			    &theKeySym, &theComposeStatus );
+
+    if ( Length > 0 ) {
+	switch ( theKeyBuffer[ 0 ] ) {
+	case 'q':
+	case 'Q':
+	    if ( theKeyEvent->state & Mod1Mask ) {	/* META (Alt) %-!< */
+		ReturnState = False;
+	    }
+	    break;
+	default:
+	    break;
+	}
+    }
+
+#ifdef	DEBUG
+    if ( EventState == DEBUG_MOVE ) {
+	switch ( theKeySym ) {
+	case XK_KP_1:
+	    NekoMoveDx = -(int)( NekoSpeed / sqrt( (double)2 ) );
+	    NekoMoveDy = -NekoMoveDx;
+	    break;
+	case XK_KP_2:
+	    NekoMoveDx = 0;
+	    NekoMoveDy = (int)NekoSpeed;
+	    break;
+	case XK_KP_3:
+	    NekoMoveDx = (int)( NekoSpeed / sqrt( (double)2 ) );
+	    NekoMoveDy = NekoMoveDx;
+	    break;
+	case XK_KP_4:
+	    NekoMoveDx = -(int)NekoSpeed;
+	    NekoMoveDy = 0;
+	    break;
+	case XK_KP_5:
+	    NekoMoveDx = 0;
+	    NekoMoveDy = 0;
+	    break;
+	case XK_KP_6:
+	    NekoMoveDx = (int)NekoSpeed;
+	    NekoMoveDy = 0;
+	    break;
+	case XK_KP_7:
+	    NekoMoveDx = -(int)( NekoSpeed / sqrt( (double)2 ) );
+	    NekoMoveDy = NekoMoveDx;
+	    break;
+	case XK_KP_8:
+	    NekoMoveDx = 0;
+	    NekoMoveDy = -(int)NekoSpeed;
+	    break;
+	case XK_KP_9:
+	    NekoMoveDx = (int)( NekoSpeed / sqrt( (double)2 ) );
+	    NekoMoveDy = -NekoMoveDx;
+	    break;
+	}
+    }
+#endif
+
+    return( ReturnState );
+}
+
+
+/*--------------------------------------------------------------
+ *
+ *	G-0LCVD4@0
+ *
+ *--------------------------------------------------------------*/
+
+void
+NekoAdjust()
+{
+    if ( NekoX < 0 ) {
+	NekoX = 0;
+    } else if ( NekoX > WindowWidth - BITMAP_WIDTH ) {
+	NekoX = WindowWidth - BITMAP_WIDTH;
+    }
+
+    if ( NekoY < 0 ) {
+	NekoY = 0;
+    } else if ( NekoY > WindowHeight - BITMAP_HEIGHT ) {
+	NekoY = WindowHeight - BITMAP_HEIGHT;
+    }
+}
+
+
+/*--------------------------------------------------------------
+ *
+ *	%$s%H=hM}
+ *
+ *--------------------------------------------------------------*/
+
+Bool
+ProcessEvent()
+{
+    XEvent	theEvent;
+    Bool	ContinueState = True;
+
+    switch ( EventState ) {
+    case NORMAL_STATE:
+	while ( XCheckMaskEvent( theDisplay, EVENT_MASK1, &theEvent ) ) {
+	    switch ( theEvent.type ) {
+	    case ConfigureNotify:
+		WindowWidth = theEvent.xconfigure.width;
+		WindowHeight = theEvent.xconfigure.height;
+		WindowPointX = theEvent.xconfigure.x;
+		WindowPointY = theEvent.xconfigure.y;
+		BorderWidth = theEvent.xconfigure.border_width;
+		NekoAdjust();
+		break;
+	    case Expose:
+		if ( theEvent.xexpose.count == 0 ) {
+		    RedrawNeko();
+		}
+		break;
+	    case MapNotify:
+		RedrawNeko();
+		break;
+	    case KeyPress:
+		ContinueState = ProcessKeyPress( &theEvent.xkey );
+		if ( !ContinueState ) {
+		    return( ContinueState );
+		}
+		break;
+	    default:
+		/* Unknown Event */
+		break;
+	    }
+	}
+	break;
+#ifdef	DEBUG
+    case DEBUG_LIST:
+	XNextEvent( theDisplay, &theEvent );
+	switch ( theEvent.type ) {
+	case ConfigureNotify:
+	    WindowWidth = theEvent.xconfigure.width;
+	    WindowHeight = theEvent.xconfigure.height;
+	    WindowPointX = theEvent.xconfigure.x;
+	    WindowPointY = theEvent.xconfigure.y;
+	    BorderWidth = theEvent.xconfigure.border_width;
+	    break;
+	case Expose:
+	    if ( theEvent.xexpose.count == 0 ) {
+		DisplayCharacters();
+	    }
+	    break;
+	case MapNotify:
+	    DisplayCharacters();
+	    break;
+	case KeyPress:
+	    ContinueState = ProcessKeyPress( &theEvent );
+	    break;
+	default:
+	    /* Unknown Event */
+	    break;
+	}
+	break;
+    case DEBUG_MOVE:
+	while ( XCheckMaskEvent( theDisplay, EVENT_MASK1, &theEvent ) ) {
+	    switch ( theEvent.type ) {
+	    case ConfigureNotify:
+		WindowWidth = theEvent.xconfigure.width;
+		WindowHeight = theEvent.xconfigure.height;
+		WindowPointX = theEvent.xconfigure.x;
+		WindowPointY = theEvent.xconfigure.y;
+		BorderWidth = theEvent.xconfigure.border_width;
+		NekoAdjust();
+		break;
+	    case Expose:
+		if ( theEvent.xexpose.count == 0 ) {
+		    RedrawNeko();
+		}
+		break;
+	    case MapNotify:
+		RedrawNeko();
+		break;
+	    case KeyPress:
+		ContinueState = ProcessKeyPress( &theEvent );
+		if ( !ContinueState ) {
+		    return( ContinueState );
+		}
+		break;
+	    default:
+		/* Unknown Event */
+		break;
+	    }
+	}
+	break;
+#endif
+    default:
+	/* Internal Error */
+	break;
+    }
+
+    return( ContinueState );
+}
+
+
+/*--------------------------------------------------------------
+ *
+ *	G-=hM}
+ *
+ *--------------------------------------------------------------*/
+
+void
+ProcessNeko()
+{
+    struct itimerval	Value;
+
+    /* 4D6-$N=i4|2= */
+
+    EventState = NORMAL_STATE;
+
+    /* G-$N=i4|2= */
+
+    NekoX = ( WindowWidth - BITMAP_WIDTH / 2 ) / 2;
+    NekoY = ( WindowHeight - BITMAP_HEIGHT / 2 ) / 2;
+
+    NekoLastX = NekoX;
+    NekoLastY = NekoY;
+
+    SetNekoState( NEKO_STOP );
+
+    /* %?%$%^!<@_Dj */
+
+    timerclear( &Value.it_interval );
+    timerclear( &Value.it_value );
+
+    Value.it_interval.tv_usec = IntervalTime;
+    Value.it_value.tv_usec = IntervalTime;
+
+    setitimer( ITIMER_REAL, &Value, 0 );
+
+    /* %a%$%s=hM} */
+
+    do {
+	NekoThinkDraw();
+    } while ( ProcessEvent() );
+}
+
+
+#ifdef	DEBUG
+
+/*--------------------------------------------------------------
+ *
+ *	G-0lMw!J5/31/93P14460MQ!K
+ *
+ *--------------------------------------------------------------*/
+
+void
+NekoList()
+{
+    EventState = DEBUG_LIST;
+
+    fprintf( stderr, "\n" );
+    fprintf( stderr, "G-0lMw$rI=<($7$^$9!#(Quit !D Alt-Q)\n" );
+    fprintf( stderr, "\n" );
+
+    XSelectInput( theDisplay, theWindow, EVENT_MASK2 );
+
+    while ( ProcessEvent() );
+}
+
+
+/*--------------------------------------------------------------
+ *
+ *	G-0\F0SCCS/s.xneko.c9%H!J5/31/93P14670MQ!K
+ *
+ *--------------------------------------------------------------*/
+
+void
+NekoMoveTest()
+{
+    struct itimerval	Value;
+
+    /* 4D6-$N=i4|2= */
+
+    EventState = DEBUG_MOVE;
+
+    /* G-$N=i4|2= */
+
+    NekoX = ( WindowWidth - BITMAP_WIDTH / 2 ) / 2;
+    NekoY = ( WindowHeight - BITMAP_HEIGHT / 2 ) / 2;
+
+    NekoLastX = NekoX;
+    NekoLastY = NekoY;
+
+    SetNekoState( NEKO_STOP );
+
+    /* %?%$%^!<@_Dj */
+
+    timerclear( &Value.it_interval );
+    timerclear( &Value.it_value );
+
+    Value.it_interval.tv_usec = IntervalTime;
+    Value.it_value.tv_usec = IntervalTime;
+
+    setitimer( ITIMER_REAL, &Value, 0 );
+
+    /* %a%$%s=hM} */
+
+    fprintf( stderr, "\n" );
+    fprintf( stderr, "G-$N0\F0SCCS/s.xneko.c9%H$r9T$$$^$9!#(Quit !D Alt-Q)\n" );
+    fprintf( stderr, "\n" );
+    fprintf( stderr, "\t%-!<May 31, 1993C%I>e$NSCCS/s.xneko.cs%-!<$GG-$r0\F0$5$;$F2<$5$$!#\n" );
+    fprintf( stderr, "\t(M-8z$J%-!<$O#1!A#9$G$9!#)\n" );
+    fprintf( stderr, "\n" );
+
+    do {
+	NekoThinkDraw();
+    } while ( ProcessEvent() );
+}
+
+
+/*--------------------------------------------------------------
+ *
+ *	%a%K%e!<=hM}!J5/31/93P15170MQ!K
+ *
+ *--------------------------------------------------------------*/
+
+void
+ProcessDebugMenu()
+{
+    int		UserSelectNo = 0;
+    char	UserAnswer[ BUFSIZ ];
+
+    fprintf( stderr, "\n" );
+    fprintf( stderr, "!Zxneko 5/31/93P15280%a%K%e!<![\n" );
+
+    while ( !( UserSelectNo >= 1 && UserSelectNo <= 2 ) ) {
+	fprintf( stderr, "\n" );
+	fprintf( stderr, "\t1)!!G-%-%c%i%/%?!<0lMwI=<(\n" );
+	fprintf( stderr, "\t2)!!G-0\F0SCCS/s.xneko.c9%H\n" );
+	fprintf( stderr, "\n" );
+	fprintf( stderr, "Select: " );
+
+	fgets( UserAnswer, sizeof( UserAnswer ), stdin );
+
+	UserSelectNo = atoi( UserAnswer );
+
+	if ( !( UserSelectNo >= 1 && UserSelectNo <= 2 ) ) {
+	    fprintf( stderr, "\n" );
+	    fprintf( stderr, "@5$7$$HV9f$rA*Br$7$F2<$5$$!#\n" );
+	}
+    }
+
+    switch ( UserSelectNo ) {
+    case 1:
+	/* G-%-%c%i%/%?!<0lMwI=<( */
+	NekoList();
+	break;
+    case 2:
+	/* G-0\F0SCCS/s.xneko.c9%H */
+	NekoMoveTest();
+	break;
+    default:
+	/* Internal Error */
+	break;
+    }
+
+    fprintf( stderr, "SCCS/s.xneko.c9%H=*N;!#\n" );
+    fprintf( stderr, "\n" );
+}
+
+#endif	/* DEBUG */
+
+
+/*--------------------------------------------------------------
+ *
+ *	SIGALRM %7%0%J%k=hM}
+ *
+ *--------------------------------------------------------------*/
+
+void
+NullFunction()
+{
+    /* No Operation */
+}
+
+
+/*--------------------------------------------------------------
+ *
+ *	Usage
+ *
+ *--------------------------------------------------------------*/
+
+void
+Usage()
+{
+    fprintf( stderr,
+	     "Usage: %s [-display <display>] [-geometry <geometry>] \\\n",
+	     ProgramName );
+    fprintf( stderr, "  [-title <title>] [-name <title>] [-iconic] \\\n" );
+    fprintf( stderr, "  [-speed <speed>] [-time <time>] [-help]\n" );
+}
+
+
+/*--------------------------------------------------------------
+ *
+ *	#XMay 31, 1993i%a!<%?I>2A
+ *
+ *--------------------------------------------------------------*/
+
+Bool
+GetArguments( argc, argv, theDisplayName, theGeometry, theTitle,
+	      NekoSpeed, IntervalTime )
+    int		argc;
+    char	*argv[];
+    char	*theDisplayName;
+    char	*theGeometry;
+    char	*theTitle;
+    double	*NekoSpeed;
+    long	*IntervalTime;
+{
+    int		ArgCounter;
+    Bool	iconicState;
+
+    theDisplayName[ 0 ] = '\0';
+    theGeometry[ 0 ] = '\0';
+    theTitle[ 0 ] = '\0';
+
+    iconicState = False;
+
+    for ( ArgCounter = 0; ArgCounter < argc; ArgCounter++ ) {
+
+	if ( strncmp( argv[ ArgCounter ], "-h", 2 ) == 0 ) {
+	    Usage();
+	    exit( 0 );
+	} else if ( strcmp( argv[ ArgCounter ], "-display" ) == 0 ) {
+	    ArgCounter++;
+	    if ( ArgCounter < argc ) {
+		strcpy( theDisplayName, argv[ ArgCounter ] );
+	    } else {
+		fprintf( stderr, "%s: -display option error.\n", ProgramName );
+		exit( 1 );
+	    }
+	} else if ( strncmp( argv[ ArgCounter ], "-geom", 5 ) == 0 ) {
+	    ArgCounter++;
+	    if ( ArgCounter < argc ) {
+		strcpy( theGeometry, argv[ ArgCounter ] );
+	    } else {
+		fprintf( stderr,
+			 "%s: -geometry option error.\n", ProgramName );
+		exit( 1 );
+	    }
+	} else if ( ( strcmp( argv[ ArgCounter ], "-title" ) == 0 )
+	     || ( strcmp( argv[ ArgCounter ], "-name" ) == 0 ) ) {
+	    ArgCounter++;
+	    if ( ArgCounter < argc ) {
+		strcpy( theTitle, argv[ ArgCounter ] );
+	    } else {
+		fprintf( stderr, "%s: -title option error.\n", ProgramName );
+		exit( 1 );
+	    }
+	} else if ( strcmp( argv[ ArgCounter ], "-iconic" ) == 0 ) {
+	    iconicState = True;
+	} else if ( strcmp( argv[ ArgCounter ], "-speed" ) == 0 ) {
+	    ArgCounter++;
+	    if ( ArgCounter < argc ) {
+		*NekoSpeed = atof( argv[ ArgCounter ] );
+	    } else {
+		fprintf( stderr, "%s: -speed option error.\n", ProgramName );
+		exit( 1 );
+	    }
+	} else if ( strcmp( argv[ ArgCounter ], "-time" ) == 0 ) {
+	    ArgCounter++;
+	    if ( ArgCounter < argc ) {
+		*IntervalTime = atol( argv[ ArgCounter ] );
+	    } else {
+		fprintf( stderr, "%s: -time option error.\n", ProgramName );
+		exit( 1 );
+	    }
+	} else {
+	    fprintf( stderr,
+		     "%s: Unknown option \"%s\".\n", ProgramName,
+						     argv[ ArgCounter ] );
+	    Usage();
+	    exit( 1 );
+	}
+    }
+
+    if ( strlen( theDisplayName ) < 1 ) {
+	theDisplayName = NULL;
+    }
+
+    if ( strlen( theGeometry ) < 1 ) {
+	theGeometry = NULL;
+    }
+
+    return( iconicState );
+}
+
+
+/*--------------------------------------------------------------
+ *
+ *	%a%$%s4X?t
+ *
+ *--------------------------------------------------------------*/
+
+int
+main( argc, argv )
+    int		argc;
+    char	*argv[];
+{
+    Bool	iconicState;
+    char	theDisplayName[ DIRNAMELEN ];
+    char	theGeometry[ DIRNAMELEN ];
+    char	theTitle[ DIRNAMELEN ];
+
+    ProgramName = argv[ 0 ];
+
+    argc--;
+    argv++;
+
+    iconicState = GetArguments( argc, argv,
+				theDisplayName,
+				theGeometry,
+				theTitle,
+				&NekoSpeed,
+				&IntervalTime );
+
+    InitScreen( theDisplayName, theGeometry, theTitle, iconicState );
+
+    signal( SIGALRM, NullFunction );
+
+    SinPiPer8Times3 = sin( PI_PER8 * (double)3 );
+    SinPiPer8 = sin( PI_PER8 );
+
+#ifndef	DEBUG
+    ProcessNeko();
+#else
+    ProcessDebugMenu();
+#endif
+
+    exit( 0 );
+}
diff --git a/games/x11/xroach/Makefile b/games/x11/xroach/Makefile
new file mode 100644
index 0000000..dc762c8
--- /dev/null
+++ b/games/x11/xroach/Makefile
@@ -0,0 +1,10 @@
+#	@(#)Makefile	8.1 (Berkeley) 6/8/93
+
+PROG=	xroach
+MAN6=	xroach.6
+CFLAGS+= -I${.CURDIR}/bitmaps
+DPADD+=		${X11BASE}/lib/libX11.a ${LIBM}
+LDDESTDIR+=	-L${X11BASE}/lib
+LDADD+=		-lX11 -lm
+
+.include <bsd.prog.mk>
diff --git a/games/x11/xroach/bitmaps/roach000.xbm b/games/x11/xroach/bitmaps/roach000.xbm
new file mode 100644
index 0000000..4b04b05
--- /dev/null
+++ b/games/x11/xroach/bitmaps/roach000.xbm
@@ -0,0 +1,30 @@
+#define roach000_width 48
+#define roach000_height 48
+
+static char roach000_bits[] = {
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x08, 0x00,
+ 0x00, 0x80, 0x00, 0x00, 0x00, 0x00, 0x00, 0x80, 0x01, 0x00, 0x06, 0x80,
+ 0x00, 0x00, 0x03, 0x00, 0x03, 0x60, 0x00, 0x00, 0x7e, 0x80, 0xc1, 0x3f,
+ 0x00, 0x00, 0xc0, 0x83, 0xe0, 0x0f, 0x00, 0x00, 0x00, 0xc6, 0x30, 0x00,
+ 0x00, 0x00, 0x00, 0xf8, 0x1f, 0x00, 0x00, 0x00, 0xf0, 0xff, 0xef, 0x01,
+ 0x00, 0x00, 0xfe, 0xff, 0xe7, 0x11, 0x10, 0xc0, 0xff, 0xff, 0xf7, 0x03,
+ 0x02, 0xf0, 0xff, 0xff, 0xf3, 0x3f, 0x00, 0xf0, 0xff, 0xff, 0xf3, 0x3b,
+ 0x00, 0x00, 0x00, 0x00, 0xf0, 0x3f, 0x00, 0xe0, 0xff, 0xff, 0xf3, 0x3f,
+ 0x00, 0xe0, 0xff, 0xff, 0xf3, 0x3f, 0x00, 0xe0, 0xff, 0xff, 0xf3, 0x07,
+ 0x01, 0xe0, 0xff, 0xff, 0xf7, 0x13, 0x08, 0xc0, 0xff, 0xff, 0xf7, 0x03,
+ 0x00, 0x00, 0xfe, 0xff, 0xe7, 0x01, 0x00, 0x00, 0x00, 0xff, 0x0f, 0x00,
+ 0x00, 0x00, 0x00, 0x88, 0x18, 0x00, 0x00, 0x00, 0xf8, 0xc7, 0xf0, 0x03,
+ 0x00, 0x00, 0xfe, 0x81, 0xc1, 0x3f, 0x00, 0x00, 0x06, 0x00, 0x01, 0x30,
+ 0x00, 0x00, 0x03, 0x00, 0x02, 0x40, 0x00, 0x80, 0x01, 0x00, 0x04, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x08, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00};
+
diff --git a/games/x11/xroach/bitmaps/roach015.xbm b/games/x11/xroach/bitmaps/roach015.xbm
new file mode 100644
index 0000000..f5ad87e
--- /dev/null
+++ b/games/x11/xroach/bitmaps/roach015.xbm
@@ -0,0 +1,30 @@
+#define roach015_width 48
+#define roach015_height 48
+
+static char roach015_bits[] = {
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x08, 0x00, 0x00, 0x00, 0x80, 0x00, 0x0c,
+ 0x00, 0x00, 0x00, 0x80, 0x00, 0x06, 0x00, 0x00, 0x00, 0xc0, 0xc0, 0x07,
+ 0x00, 0x00, 0x00, 0x40, 0xf8, 0x01, 0x00, 0x00, 0x00, 0x60, 0x3c, 0x00,
+ 0x00, 0x00, 0x00, 0x30, 0x0c, 0x00, 0x00, 0x10, 0x00, 0x10, 0x06, 0x00,
+ 0x00, 0x60, 0xfc, 0x30, 0x72, 0x04, 0x00, 0xc0, 0x9f, 0xe3, 0xf3, 0x1e,
+ 0x00, 0x00, 0x00, 0xfe, 0xfb, 0x1d, 0x00, 0x00, 0xc0, 0xff, 0xfb, 0x3d,
+ 0x00, 0x00, 0xf8, 0xff, 0xf9, 0x3f, 0x00, 0x00, 0xfe, 0xff, 0xfb, 0x3f,
+ 0x3c, 0x00, 0xff, 0xff, 0xfb, 0x07, 0x00, 0xc0, 0xff, 0x1f, 0xf8, 0x17,
+ 0x00, 0xe0, 0xff, 0xe1, 0xf7, 0x07, 0x00, 0xf0, 0x1f, 0xfe, 0xf7, 0x03,
+ 0x00, 0xf0, 0xe1, 0xff, 0xe7, 0x03, 0x00, 0x00, 0xfe, 0xff, 0xcf, 0x01,
+ 0x00, 0xc0, 0xff, 0xff, 0x1f, 0x00, 0x00, 0xe0, 0xff, 0xff, 0x7f, 0xfc,
+ 0x00, 0xc0, 0xff, 0x3f, 0xc3, 0x1f, 0x01, 0xc0, 0xff, 0x23, 0x03, 0x00,
+ 0x00, 0x00, 0x00, 0x18, 0x0e, 0x00, 0x00, 0x00, 0x00, 0x1e, 0x1c, 0x00,
+ 0x00, 0x00, 0x80, 0x07, 0x20, 0x00, 0x00, 0x00, 0xe0, 0x03, 0x40, 0x00,
+ 0x00, 0x00, 0x30, 0x00, 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, 0x00, 0x00, 0x18, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x08, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00};
+
diff --git a/games/x11/xroach/bitmaps/roach030.xbm b/games/x11/xroach/bitmaps/roach030.xbm
new file mode 100644
index 0000000..ec28236
--- /dev/null
+++ b/games/x11/xroach/bitmaps/roach030.xbm
@@ -0,0 +1,30 @@
+#define roach030_width 48
+#define roach030_height 48
+
+static char roach030_bits[] = {
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x80, 0x00, 0x00, 0x00, 0x00, 0x00, 0xc0, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0xc0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x70, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x38, 0x40, 0x00, 0x00, 0x00, 0x10, 0x1e, 0x00,
+ 0x00, 0x00, 0x00, 0x18, 0x07, 0x00, 0x00, 0x00, 0x00, 0x98, 0x01, 0x09,
+ 0x00, 0x00, 0x00, 0x8c, 0x01, 0x04, 0x00, 0x00, 0x00, 0x8c, 0xb8, 0x07,
+ 0x00, 0x00, 0x00, 0x84, 0x7c, 0x0f, 0x00, 0x00, 0x00, 0xfc, 0xfc, 0x8e,
+ 0x00, 0x00, 0x00, 0xf8, 0xfc, 0x1f, 0x00, 0x00, 0xe0, 0xff, 0xfc, 0x05,
+ 0x00, 0x04, 0x1e, 0xff, 0xfd, 0x17, 0x00, 0xf8, 0x87, 0xff, 0xf9, 0x03,
+ 0x00, 0xe0, 0xc0, 0xff, 0xf9, 0x07, 0x00, 0x00, 0xf0, 0x7f, 0xf0, 0x07,
+ 0x00, 0x00, 0xf8, 0x1f, 0xe7, 0x03, 0x00, 0x00, 0xfe, 0xcf, 0xcf, 0xc1,
+ 0x03, 0x00, 0xff, 0xf3, 0x1f, 0xe0, 0x00, 0x80, 0xff, 0xfc, 0xff, 0x3f,
+ 0x00, 0x80, 0x3f, 0xfe, 0xbf, 0x07, 0x00, 0xc0, 0x9f, 0xff, 0x07, 0x00,
+ 0x00, 0xc0, 0xe7, 0xff, 0x0f, 0x00, 0x00, 0xc0, 0xf9, 0xff, 0x3c, 0x00,
+ 0x00, 0x00, 0xfe, 0xff, 0xf8, 0x01, 0x00, 0x00, 0xff, 0x8f, 0x00, 0x02,
+ 0x00, 0x00, 0xff, 0x61, 0x00, 0x00, 0x00, 0x00, 0x1f, 0x30, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x1c, 0x00, 0x00, 0x00, 0x00, 0x00, 0x0e, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x03, 0x00, 0x00, 0x00, 0x00, 0x00, 0x03, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00};
+
diff --git a/games/x11/xroach/bitmaps/roach045.xbm b/games/x11/xroach/bitmaps/roach045.xbm
new file mode 100644
index 0000000..0ea6e2b
--- /dev/null
+++ b/games/x11/xroach/bitmaps/roach045.xbm
@@ -0,0 +1,30 @@
+#define roach045_width 48
+#define roach045_height 48
+
+static char roach045_bits[] = {
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x04, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x04, 0x00, 0x00, 0x00, 0x00, 0x00, 0x04, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x0c, 0x00, 0x00, 0x00, 0x00, 0x00, 0x07, 0x00,
+ 0x00, 0x00, 0x00, 0x80, 0x03, 0x00, 0x00, 0x00, 0x00, 0x80, 0x01, 0x01,
+ 0x00, 0x00, 0x00, 0xc0, 0xa0, 0x00, 0x00, 0x00, 0x00, 0x62, 0xc0, 0x43,
+ 0x00, 0x00, 0x00, 0x62, 0xfe, 0x13, 0x00, 0x00, 0x00, 0x23, 0xff, 0x07,
+ 0x00, 0x00, 0x00, 0x23, 0xff, 0x07, 0x00, 0x00, 0x00, 0x63, 0xff, 0x0b,
+ 0x00, 0x00, 0x00, 0x73, 0xff, 0x01, 0x00, 0x00, 0x00, 0x7e, 0xfe, 0x01,
+ 0x00, 0x00, 0x00, 0xfc, 0xfc, 0x03, 0x00, 0x00, 0x40, 0xfe, 0xf9, 0x03,
+ 0x07, 0x00, 0xf0, 0xff, 0xf1, 0xc3, 0x00, 0x00, 0x18, 0xff, 0xc0, 0xe3,
+ 0x00, 0x00, 0x8e, 0x7f, 0x1e, 0x70, 0x00, 0x00, 0xc7, 0x3f, 0xff, 0x1f,
+ 0x00, 0xfc, 0xe3, 0x9f, 0x7f, 0x07, 0x00, 0xe0, 0xe1, 0xcf, 0x3f, 0x00,
+ 0x00, 0x00, 0xf0, 0xe7, 0x3f, 0x00, 0x00, 0x00, 0xf8, 0xf1, 0x1f, 0x00,
+ 0x00, 0x00, 0xfc, 0xfc, 0xe7, 0x0f, 0x00, 0x00, 0x7e, 0xfe, 0x03, 0x00,
+ 0x00, 0x00, 0x3e, 0xff, 0x03, 0x00, 0x00, 0x00, 0x9f, 0xff, 0x02, 0x00,
+ 0x00, 0x00, 0xcf, 0x7f, 0x03, 0x00, 0x00, 0x00, 0xe7, 0x1f, 0x03, 0x00,
+ 0x00, 0x00, 0xf2, 0x8f, 0x03, 0x00, 0x00, 0x00, 0xf8, 0x83, 0x01, 0x00,
+ 0x00, 0x00, 0xf8, 0x61, 0x00, 0x00, 0x00, 0x00, 0x00, 0x60, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x30, 0x00, 0x00, 0x00, 0x00, 0x00, 0x30, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x20, 0x00, 0x00, 0x00, 0x00, 0x00, 0x20, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x20, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00};
+
diff --git a/games/x11/xroach/bitmaps/roach060.xbm b/games/x11/xroach/bitmaps/roach060.xbm
new file mode 100644
index 0000000..145987a
--- /dev/null
+++ b/games/x11/xroach/bitmaps/roach060.xbm
@@ -0,0 +1,30 @@
+#define roach060_width 48
+#define roach060_height 48
+
+static char roach060_bits[] = {
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x40, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x40, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x40, 0x20, 0x10,
+ 0x00, 0x00, 0x00, 0x60, 0x00, 0x08, 0x00, 0x00, 0x00, 0x30, 0x74, 0x04,
+ 0x00, 0x00, 0x00, 0x30, 0xf8, 0x00, 0x00, 0x00, 0x00, 0x18, 0xfc, 0x01,
+ 0x00, 0x00, 0x00, 0x88, 0xff, 0x00, 0x00, 0x00, 0x40, 0xc8, 0xff, 0x02,
+ 0x00, 0x00, 0xc0, 0xd8, 0x7f, 0x00, 0x00, 0x00, 0xc0, 0xd8, 0xff, 0x80,
+ 0x01, 0x00, 0x80, 0x90, 0xff, 0xe1, 0x00, 0x00, 0x80, 0x18, 0xff, 0x61,
+ 0x00, 0x00, 0x80, 0x3f, 0xfe, 0x33, 0x00, 0x00, 0x00, 0x7f, 0xfc, 0x19,
+ 0x00, 0x00, 0x00, 0xfe, 0xf1, 0x18, 0x00, 0x00, 0x00, 0xfe, 0xfe, 0x0f,
+ 0x00, 0x00, 0xc0, 0xff, 0xff, 0x01, 0x00, 0x00, 0xe0, 0x7f, 0x7f, 0x00,
+ 0x00, 0x00, 0x90, 0xbf, 0x7f, 0x00, 0x00, 0x00, 0x98, 0xbf, 0x3f, 0x38,
+ 0x00, 0x00, 0xd8, 0xdf, 0x7f, 0x0f, 0x00, 0x00, 0xcc, 0xef, 0xdf, 0x01,
+ 0x00, 0x00, 0xe6, 0xef, 0x0f, 0x00, 0x00, 0xc0, 0xe3, 0xf7, 0x0f, 0x00,
+ 0x00, 0x00, 0xe0, 0xf7, 0x1f, 0x00, 0x00, 0x00, 0xf0, 0xfb, 0x1f, 0x00,
+ 0x00, 0x00, 0xf0, 0xf9, 0x1b, 0x00, 0x00, 0x00, 0xf0, 0xfd, 0x19, 0x00,
+ 0x00, 0x00, 0xf8, 0xfe, 0x08, 0x00, 0x00, 0x00, 0x78, 0x7e, 0x0c, 0x00,
+ 0x00, 0x00, 0x70, 0x3f, 0x04, 0x00, 0x00, 0x00, 0x30, 0x3f, 0x06, 0x00,
+ 0x00, 0x00, 0x80, 0x1f, 0x06, 0x00, 0x00, 0x00, 0x00, 0x07, 0x06, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x04, 0x00, 0x00, 0x00, 0x00, 0x00, 0x04, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x04, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00};
+
diff --git a/games/x11/xroach/bitmaps/roach075.xbm b/games/x11/xroach/bitmaps/roach075.xbm
new file mode 100644
index 0000000..5a85ba4
--- /dev/null
+++ b/games/x11/xroach/bitmaps/roach075.xbm
@@ -0,0 +1,30 @@
+#define roach075_width 48
+#define roach075_height 48
+
+static char roach075_bits[] = {
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x02, 0x00, 0x00, 0x00, 0x00, 0x00, 0x02, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x02, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x02, 0x00, 0x00, 0x00, 0x00, 0x02, 0x02, 0x00,
+ 0x00, 0x00, 0x00, 0x06, 0x80, 0x00, 0x00, 0x00, 0x00, 0x04, 0x02, 0x00,
+ 0x00, 0x00, 0x00, 0x84, 0x06, 0x00, 0x00, 0x00, 0x00, 0x86, 0x3e, 0x00,
+ 0x00, 0x00, 0x00, 0x06, 0x3f, 0x00, 0x00, 0x00, 0x00, 0x06, 0x1e, 0x60,
+ 0x00, 0x00, 0x00, 0xc6, 0x3f, 0x20, 0x00, 0x00, 0x00, 0xe6, 0x3f, 0x18,
+ 0x00, 0x00, 0x00, 0xf2, 0x7f, 0x18, 0x00, 0x00, 0x08, 0xf2, 0x7f, 0x18,
+ 0x00, 0x00, 0x30, 0xf6, 0xff, 0x0c, 0x00, 0x00, 0x20, 0xe4, 0xff, 0x0c,
+ 0x00, 0x00, 0x60, 0x98, 0xff, 0x0c, 0x00, 0x00, 0x40, 0x38, 0x38, 0x06,
+ 0x00, 0x00, 0xc0, 0xff, 0xe0, 0x01, 0x00, 0x00, 0x80, 0xff, 0xfe, 0x00,
+ 0x00, 0x00, 0x00, 0x7e, 0xfe, 0x78, 0x00, 0x00, 0x00, 0x7e, 0x7f, 0x1c,
+ 0x00, 0x00, 0x00, 0x7f, 0x7f, 0x0e, 0x00, 0x00, 0xc0, 0x7f, 0xff, 0x03,
+ 0x00, 0x00, 0xc0, 0x3e, 0x7f, 0x00, 0x00, 0x00, 0x20, 0xbf, 0x3f, 0x00,
+ 0x00, 0x00, 0x20, 0xbf, 0x3f, 0x00, 0x00, 0x00, 0x20, 0xbf, 0x7f, 0x00,
+ 0x00, 0x00, 0x10, 0x9f, 0x5f, 0x00, 0x00, 0x00, 0x10, 0xdf, 0x5f, 0x00,
+ 0x00, 0x00, 0x18, 0xdf, 0x4f, 0x00, 0x00, 0x00, 0x0c, 0xdf, 0x4f, 0x00,
+ 0x00, 0x00, 0x86, 0xcf, 0x47, 0x00, 0x00, 0x00, 0x80, 0xef, 0x47, 0x00,
+ 0x00, 0x00, 0x80, 0xef, 0x63, 0x00, 0x00, 0x00, 0x00, 0xef, 0x63, 0x00,
+ 0x00, 0x00, 0x00, 0xe7, 0x41, 0x00, 0x00, 0x00, 0x00, 0xf7, 0x81, 0x00,
+ 0x00, 0x00, 0x00, 0xf0, 0x00, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00};
+
diff --git a/games/x11/xroach/bitmaps/roach090.xbm b/games/x11/xroach/bitmaps/roach090.xbm
new file mode 100644
index 0000000..78904ee
--- /dev/null
+++ b/games/x11/xroach/bitmaps/roach090.xbm
@@ -0,0 +1,30 @@
+#define roach090_width 48
+#define roach090_height 48
+
+static char roach090_bits[] = {
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x20, 0x00, 0x00, 0x00, 0x00, 0x20, 0x00, 0x04, 0x00,
+ 0x00, 0x00, 0xc0, 0xc0, 0x03, 0x0c, 0x00, 0x00, 0xc0, 0xd0, 0x07, 0x0c,
+ 0x00, 0x00, 0xc0, 0xc0, 0x07, 0x04, 0x00, 0x00, 0xc0, 0x60, 0x07, 0x06,
+ 0x00, 0x00, 0xc0, 0x80, 0x03, 0x06, 0x00, 0x00, 0xc0, 0xf0, 0x3f, 0x06,
+ 0x00, 0x00, 0x80, 0xf8, 0x7f, 0x06, 0x00, 0x00, 0x80, 0xf9, 0x7f, 0x06,
+ 0x00, 0x00, 0x80, 0xf9, 0x7f, 0x02, 0x00, 0x00, 0x00, 0xfb, 0x7f, 0x03,
+ 0x00, 0x00, 0x00, 0xf3, 0x9f, 0x61, 0x00, 0x00, 0x18, 0x1c, 0x70, 0x30,
+ 0x00, 0x00, 0x30, 0xfc, 0x7e, 0x18, 0x00, 0x00, 0x60, 0xfc, 0x7e, 0x0c,
+ 0x00, 0x00, 0xc0, 0xfc, 0x7e, 0x06, 0x00, 0x00, 0xc0, 0xff, 0xfe, 0x03,
+ 0x00, 0x00, 0x00, 0xfc, 0x7e, 0x00, 0x00, 0x00, 0x00, 0xfc, 0x7e, 0x00,
+ 0x00, 0x00, 0x00, 0xfe, 0xfe, 0x00, 0x00, 0x00, 0x00, 0xff, 0xfe, 0x01,
+ 0x00, 0x00, 0x00, 0xff, 0x7e, 0x01, 0x00, 0x00, 0x80, 0xfc, 0x7e, 0x03,
+ 0x00, 0x00, 0x80, 0xfc, 0x7e, 0x02, 0x00, 0x00, 0x80, 0xfc, 0x7e, 0x02,
+ 0x00, 0x00, 0x80, 0xf8, 0x3e, 0x06, 0x00, 0x00, 0xc0, 0xf8, 0x3e, 0x06,
+ 0x00, 0x00, 0xc0, 0xf8, 0x3e, 0x06, 0x00, 0x00, 0xc0, 0xf8, 0x3e, 0x04,
+ 0x00, 0x00, 0xc0, 0xf8, 0x3e, 0x0c, 0x00, 0x00, 0x60, 0xf8, 0x3e, 0x08,
+ 0x00, 0x00, 0x20, 0xf8, 0x3e, 0x00, 0x00, 0x00, 0x00, 0xf0, 0x1e, 0x00,
+ 0x00, 0x00, 0x00, 0xf0, 0x1e, 0x00, 0x00, 0x00, 0x00, 0x40, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00};
+
diff --git a/games/x11/xroach/bitmaps/roach105.xbm b/games/x11/xroach/bitmaps/roach105.xbm
new file mode 100644
index 0000000..a0bcc80
--- /dev/null
+++ b/games/x11/xroach/bitmaps/roach105.xbm
@@ -0,0 +1,30 @@
+#define roach105_width 48
+#define roach105_height 48
+
+static char roach105_bits[] = {
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x80, 0x00,
+ 0x00, 0x00, 0x00, 0x01, 0x80, 0x00, 0x00, 0x00, 0x00, 0x00, 0xc0, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0xc0, 0x00, 0x00, 0x00, 0x00, 0xfc, 0xc1, 0x00,
+ 0x00, 0x00, 0x06, 0xf8, 0xc0, 0x00, 0x00, 0x00, 0x1c, 0xfa, 0xc1, 0x00,
+ 0x00, 0x00, 0x18, 0x88, 0x83, 0x00, 0x00, 0x00, 0x10, 0xe0, 0x9f, 0x00,
+ 0x00, 0x00, 0x30, 0xf8, 0x9f, 0x00, 0x00, 0x00, 0x20, 0xfc, 0x9f, 0x10,
+ 0x00, 0x00, 0x60, 0xfe, 0x5f, 0x18, 0x00, 0x00, 0x60, 0xfe, 0x4f, 0x0c,
+ 0x00, 0x00, 0x60, 0xfc, 0x27, 0x0c, 0x00, 0x00, 0xc0, 0x78, 0x3c, 0x0e,
+ 0x00, 0x00, 0x80, 0x07, 0x7c, 0x06, 0x00, 0x00, 0x00, 0xfc, 0xfe, 0x03,
+ 0x00, 0x00, 0x08, 0xfc, 0xfe, 0x00, 0x00, 0x00, 0x78, 0xfc, 0xfd, 0x00,
+ 0x00, 0x00, 0xe0, 0xfc, 0xfd, 0x00, 0x00, 0x00, 0xc0, 0xff, 0xfd, 0x07,
+ 0x00, 0x00, 0x00, 0xf8, 0xfd, 0x05, 0x00, 0x00, 0x00, 0xf8, 0xfb, 0x05,
+ 0x00, 0x00, 0x00, 0xf8, 0xfb, 0x09, 0x00, 0x00, 0x00, 0xfc, 0xfb, 0x19,
+ 0x00, 0x00, 0x00, 0xfc, 0xf3, 0x19, 0x00, 0x00, 0x00, 0xe4, 0xf7, 0x31,
+ 0x00, 0x00, 0x00, 0xe4, 0xf7, 0x31, 0x00, 0x00, 0x00, 0xe4, 0xf7, 0xc1,
+ 0x00, 0x00, 0x00, 0xc4, 0xe7, 0x03, 0x01, 0x00, 0x00, 0xcc, 0xef, 0x03,
+ 0x00, 0x00, 0x00, 0x8c, 0xef, 0x03, 0x00, 0x00, 0x00, 0x8c, 0xef, 0x01,
+ 0x00, 0x00, 0x00, 0x0c, 0xcf, 0x01, 0x00, 0x00, 0x00, 0x0c, 0xde, 0x01,
+ 0x00, 0x00, 0x00, 0x06, 0x1e, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00};
+
diff --git a/games/x11/xroach/bitmaps/roach120.xbm b/games/x11/xroach/bitmaps/roach120.xbm
new file mode 100644
index 0000000..9087d9d
--- /dev/null
+++ b/games/x11/xroach/bitmaps/roach120.xbm
@@ -0,0 +1,30 @@
+#define roach120_width 48
+#define roach120_height 48
+
+static char roach120_bits[] = {
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x04, 0x08, 0x00, 0x00, 0x00, 0x00, 0x00, 0x08, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x0c, 0x00, 0x00, 0x00, 0x08, 0x00, 0x08, 0x00,
+ 0x00, 0x00, 0x10, 0x08, 0x18, 0x00, 0x00, 0x00, 0x00, 0x28, 0x18, 0x00,
+ 0x00, 0x00, 0x00, 0x1e, 0x38, 0x00, 0x00, 0x00, 0x80, 0x3f, 0x30, 0x00,
+ 0x00, 0x00, 0x00, 0x9f, 0x63, 0x00, 0x00, 0x00, 0x80, 0xe6, 0x67, 0x04,
+ 0x00, 0x80, 0x00, 0xfa, 0x27, 0x04, 0x00, 0x00, 0x07, 0xfc, 0x2f, 0x06,
+ 0x00, 0x00, 0x0c, 0xfc, 0x07, 0x06, 0x00, 0x00, 0x18, 0xfe, 0x37, 0x02,
+ 0x00, 0x00, 0x18, 0xff, 0x3b, 0x02, 0x00, 0x00, 0x30, 0xfe, 0xfc, 0x03,
+ 0x00, 0x00, 0x60, 0x3e, 0xfc, 0x00, 0x00, 0x00, 0x60, 0xc0, 0xfe, 0x00,
+ 0x00, 0x00, 0xc0, 0xff, 0xfd, 0x07, 0x00, 0x00, 0x00, 0xfc, 0xfd, 0x0f,
+ 0x00, 0x00, 0x00, 0xfc, 0xfb, 0x1b, 0x00, 0x00, 0x20, 0xf8, 0xf3, 0x37,
+ 0x00, 0x00, 0xf0, 0xf9, 0xf7, 0x67, 0x00, 0x00, 0xc0, 0xff, 0xef, 0xc7,
+ 0x00, 0x00, 0x00, 0xe0, 0xef, 0x8f, 0x01, 0x00, 0x00, 0xe0, 0xdf, 0x0f,
+ 0x0f, 0x00, 0x00, 0xe0, 0x9f, 0x0f, 0x00, 0x00, 0x00, 0xb0, 0xbf, 0x1f,
+ 0x00, 0x00, 0x00, 0x20, 0x3f, 0x1f, 0x00, 0x00, 0x00, 0x20, 0x7e, 0x1e,
+ 0x00, 0x00, 0x00, 0x20, 0xfe, 0x3e, 0x00, 0x00, 0x00, 0x60, 0xfc, 0x3c,
+ 0x00, 0x00, 0x00, 0x40, 0xf8, 0x3d, 0x00, 0x00, 0x00, 0xc0, 0xf8, 0x19,
+ 0x00, 0x00, 0x00, 0x80, 0xf1, 0x03, 0x00, 0x00, 0x00, 0x80, 0xc1, 0x03,
+ 0x00, 0x00, 0x00, 0x80, 0x00, 0x00, 0x00, 0x00, 0x00, 0xc0, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x40, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00};
+
diff --git a/games/x11/xroach/bitmaps/roach135.xbm b/games/x11/xroach/bitmaps/roach135.xbm
new file mode 100644
index 0000000..2f330d4
--- /dev/null
+++ b/games/x11/xroach/bitmaps/roach135.xbm
@@ -0,0 +1,30 @@
+#define roach135_width 48
+#define roach135_height 48
+
+static char roach135_bits[] = {
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x80, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x80, 0x00, 0x00, 0x00, 0x00, 0x40, 0xc0, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x80, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x03, 0x00,
+ 0x00, 0x00, 0x00, 0x01, 0x06, 0x00, 0x00, 0x00, 0x01, 0x02, 0x0e, 0x00,
+ 0x00, 0x00, 0x04, 0x03, 0x88, 0x01, 0x00, 0x00, 0xd8, 0xef, 0x88, 0x01,
+ 0x00, 0x00, 0xc0, 0xff, 0x89, 0x01, 0x00, 0x00, 0x80, 0xfd, 0x8b, 0x01,
+ 0x00, 0x00, 0xa0, 0xfc, 0x9f, 0x01, 0x00, 0x00, 0x00, 0xfe, 0xff, 0x01,
+ 0x00, 0x00, 0x00, 0xfe, 0x7d, 0x00, 0x00, 0xc0, 0x01, 0xff, 0xfe, 0x00,
+ 0x00, 0x00, 0x06, 0x7f, 0xfe, 0x07, 0x00, 0x00, 0x0e, 0x3f, 0xfe, 0x1f,
+ 0x00, 0x00, 0x3c, 0xcf, 0xfd, 0x27, 0x00, 0x00, 0x70, 0xe0, 0xfb, 0xc7,
+ 0x00, 0x00, 0xe0, 0xff, 0xf7, 0x8f, 0x7f, 0x00, 0x00, 0xf8, 0xef, 0x1f,
+ 0x07, 0x00, 0x00, 0xf0, 0xdf, 0x3f, 0x00, 0x00, 0x00, 0xf0, 0xbf, 0x7f,
+ 0x00, 0x00, 0x80, 0xf7, 0x7f, 0x7e, 0x00, 0x00, 0xe0, 0xdf, 0xff, 0xfc,
+ 0x00, 0x00, 0x00, 0x80, 0xff, 0xf9, 0x01, 0x00, 0x00, 0x80, 0xfe, 0xf3,
+ 0x01, 0x00, 0x00, 0x80, 0xfd, 0xe7, 0x01, 0x00, 0x00, 0x00, 0xf1, 0xcf,
+ 0x01, 0x00, 0x00, 0x00, 0xe3, 0x1f, 0x00, 0x00, 0x00, 0x00, 0x86, 0x3f,
+ 0x00, 0x00, 0x00, 0x00, 0x04, 0x3f, 0x00, 0x00, 0x00, 0x00, 0x0c, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x18, 0x00, 0x00, 0x00, 0x00, 0x00, 0x10, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, 0x00, 0x00, 0x10, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, 0x00, 0x00, 0x10, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00};
+
diff --git a/games/x11/xroach/bitmaps/roach150.xbm b/games/x11/xroach/bitmaps/roach150.xbm
new file mode 100644
index 0000000..47d9d6f
--- /dev/null
+++ b/games/x11/xroach/bitmaps/roach150.xbm
@@ -0,0 +1,30 @@
+#define roach150_width 48
+#define roach150_height 48
+
+static char roach150_bits[] = {
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x04, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x0c, 0x00, 0x00, 0x00, 0x00, 0x00, 0x08, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x38, 0x00, 0x00, 0x00, 0x00, 0x04, 0x70, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0xe0, 0x20, 0x00, 0x00, 0x00, 0x00, 0x80, 0x21, 0x00,
+ 0x00, 0x00, 0x00, 0x01, 0x63, 0x00, 0x00, 0x00, 0x00, 0x00, 0x62, 0x00,
+ 0x00, 0x00, 0xc0, 0x7b, 0x42, 0x00, 0x00, 0x00, 0xe0, 0xff, 0x42, 0x00,
+ 0x00, 0x00, 0xe1, 0xfd, 0x7f, 0x00, 0x00, 0x00, 0xf0, 0xfe, 0x3f, 0x04,
+ 0x00, 0x00, 0x60, 0xfe, 0xfe, 0x3f, 0x00, 0x00, 0x50, 0xff, 0xfe, 0x61,
+ 0x70, 0x00, 0x00, 0x7f, 0xfe, 0x87, 0x0f, 0x00, 0x00, 0x7f, 0xff, 0x0f,
+ 0x00, 0x00, 0x00, 0x3f, 0xfc, 0x3f, 0x00, 0x00, 0x07, 0xdf, 0xf3, 0x7f,
+ 0x00, 0x80, 0x1f, 0xee, 0xcf, 0xff, 0x00, 0x00, 0x38, 0xf0, 0x3f, 0xff,
+ 0x01, 0x00, 0xe0, 0xff, 0xff, 0xfc, 0x03, 0x00, 0x00, 0xe0, 0xff, 0xf3,
+ 0x07, 0x00, 0x00, 0xc0, 0xff, 0xcf, 0x07, 0x00, 0x00, 0xc0, 0xff, 0x3f,
+ 0x07, 0x00, 0x00, 0x7c, 0xfc, 0xff, 0x00, 0x00, 0x00, 0x3e, 0xfc, 0xff,
+ 0x01, 0x00, 0x00, 0x00, 0xec, 0xff, 0x03, 0x00, 0x00, 0x00, 0x18, 0xff,
+ 0x01, 0x00, 0x00, 0x00, 0x38, 0x00, 0x00, 0x00, 0x00, 0x00, 0xe0, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0xc0, 0x03, 0x00, 0x00, 0x00, 0x00, 0x00, 0x03,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x03, 0x00, 0x00, 0x00, 0x00, 0x00, 0x02,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x02, 0x00, 0x00, 0x00, 0x00, 0x00, 0x02,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00};
+
diff --git a/games/x11/xroach/bitmaps/roach165.xbm b/games/x11/xroach/bitmaps/roach165.xbm
new file mode 100644
index 0000000..2f12876
--- /dev/null
+++ b/games/x11/xroach/bitmaps/roach165.xbm
@@ -0,0 +1,30 @@
+#define roach165_width 48
+#define roach165_height 48
+
+static char roach165_bits[] = {
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x40, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0xc0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x80, 0x03, 0x06, 0x00,
+ 0x00, 0x00, 0x80, 0x1f, 0x0c, 0x00, 0x00, 0x00, 0x00, 0x7c, 0x1c, 0x00,
+ 0x00, 0x00, 0x00, 0x40, 0x18, 0x00, 0x00, 0x80, 0x00, 0xc0, 0x10, 0x00,
+ 0x00, 0x00, 0x00, 0x80, 0x10, 0x00, 0x00, 0x00, 0x44, 0xf8, 0x1f, 0x3e,
+ 0x0e, 0x00, 0x30, 0x7c, 0xff, 0xe0, 0x07, 0x00, 0xe0, 0x7e, 0xff, 0x03,
+ 0x00, 0x00, 0xf0, 0x7e, 0xff, 0x07, 0x00, 0x00, 0x70, 0xff, 0xff, 0x3f,
+ 0x00, 0x00, 0x70, 0xff, 0xff, 0xff, 0x00, 0x00, 0x60, 0x7f, 0xff, 0xff,
+ 0x01, 0x00, 0x50, 0x7f, 0x80, 0xff, 0x0f, 0x00, 0x00, 0x3f, 0x1f, 0xf8,
+ 0x1f, 0x00, 0x00, 0xbf, 0xff, 0x01, 0x1f, 0x00, 0x00, 0xde, 0xff, 0x1f,
+ 0x00, 0x00, 0x00, 0xec, 0xff, 0xff, 0x01, 0x00, 0x3e, 0xf0, 0xff, 0xff,
+ 0x07, 0x00, 0xff, 0x8f, 0xff, 0xff, 0x0f, 0x00, 0x00, 0x07, 0xf9, 0xff,
+ 0x07, 0x00, 0x00, 0x80, 0x11, 0x00, 0x00, 0x00, 0x00, 0xf0, 0x30, 0x00,
+ 0x00, 0x00, 0x00, 0x70, 0xc0, 0x01, 0x00, 0x00, 0x00, 0x10, 0x00, 0x1f,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x30, 0x00, 0x00, 0x00, 0x00, 0x00, 0x30,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x20, 0x00, 0x00, 0x00, 0x00, 0x00, 0x60,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00};
+
diff --git a/games/x11/xroach/bitmaps/roach180.xbm b/games/x11/xroach/bitmaps/roach180.xbm
new file mode 100644
index 0000000..e3811dc
--- /dev/null
+++ b/games/x11/xroach/bitmaps/roach180.xbm
@@ -0,0 +1,30 @@
+#define roach180_width 48
+#define roach180_height 48
+
+static char roach180_bits[] = {
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0xc0, 0x00, 0x00,
+ 0x02, 0x00, 0x08, 0x80, 0x01, 0x00, 0x01, 0x00, 0xf8, 0x81, 0x03, 0x80,
+ 0x01, 0x00, 0xe0, 0x0f, 0x06, 0xfe, 0x00, 0x00, 0x00, 0x10, 0x84, 0x07,
+ 0x00, 0x00, 0x00, 0x20, 0x84, 0x01, 0x00, 0x00, 0x00, 0xc0, 0xff, 0x03,
+ 0x00, 0x00, 0x00, 0x8c, 0xff, 0xff, 0x01, 0x00, 0x00, 0x9c, 0xff, 0xff,
+ 0x07, 0x00, 0x20, 0xbe, 0xff, 0xff, 0x0f, 0x00, 0xe0, 0x7f, 0xff, 0xff,
+ 0x1f, 0x00, 0xf0, 0x7f, 0xff, 0xff, 0x0f, 0x00, 0x70, 0x7f, 0x00, 0x00,
+ 0x00, 0x00, 0x70, 0x7f, 0xff, 0xff, 0x0f, 0x00, 0x70, 0x7f, 0xff, 0xff,
+ 0x1f, 0x00, 0x48, 0x7f, 0xff, 0xff, 0x1f, 0x80, 0x20, 0x7f, 0xff, 0xff,
+ 0x0f, 0x00, 0x00, 0xbe, 0xff, 0xff, 0x07, 0x00, 0x00, 0x9c, 0xff, 0x1f,
+ 0x00, 0x00, 0x00, 0x48, 0x7c, 0x00, 0x00, 0x00, 0x00, 0x20, 0xc4, 0x00,
+ 0x00, 0x00, 0xf0, 0x1f, 0x8c, 0xff, 0x00, 0x00, 0xf8, 0x03, 0x07, 0x80,
+ 0x01, 0x00, 0x18, 0x80, 0x03, 0x00, 0x03, 0x00, 0x00, 0x80, 0x01, 0x00,
+ 0x02, 0x00, 0x00, 0x80, 0x00, 0x00, 0x04, 0x00, 0x00, 0x40, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00};
+
diff --git a/games/x11/xroach/bitmaps/roach195.xbm b/games/x11/xroach/bitmaps/roach195.xbm
new file mode 100644
index 0000000..303008b
--- /dev/null
+++ b/games/x11/xroach/bitmaps/roach195.xbm
@@ -0,0 +1,30 @@
+#define roach195_width 48
+#define roach195_height 48
+
+static char roach195_bits[] = {
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x20,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x20, 0x00, 0x00, 0x00, 0x00, 0x00, 0x20,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, 0x08, 0x00, 0x1c,
+ 0x00, 0x00, 0x00, 0x38, 0x00, 0x07, 0x00, 0x00, 0x00, 0x70, 0xe0, 0x00,
+ 0x00, 0x00, 0x00, 0x80, 0x61, 0x00, 0x00, 0x00, 0x00, 0x00, 0xf1, 0xff,
+ 0x01, 0x00, 0xe7, 0x07, 0xff, 0xff, 0x07, 0x00, 0xfc, 0x1c, 0xff, 0xff,
+ 0x0f, 0x00, 0x00, 0xf0, 0xff, 0xff, 0x07, 0x00, 0x00, 0xe0, 0xff, 0x3f,
+ 0x08, 0x00, 0x00, 0xde, 0xff, 0xc3, 0x1f, 0x00, 0x00, 0xbe, 0x3f, 0xfc,
+ 0x1f, 0x00, 0x00, 0x7f, 0xc3, 0xff, 0x1f, 0x00, 0x20, 0x7f, 0xfc, 0xff,
+ 0x0f, 0x00, 0x60, 0x7f, 0xff, 0xff, 0x01, 0x00, 0x70, 0x7f, 0xff, 0x7f,
+ 0x00, 0x00, 0x70, 0xfe, 0xff, 0x3f, 0x00, 0x00, 0xf0, 0xfe, 0xff, 0x07,
+ 0x00, 0x00, 0xe0, 0xfe, 0xff, 0xc1, 0x03, 0x00, 0x10, 0xfd, 0x7f, 0xff,
+ 0x0f, 0x00, 0xc0, 0x78, 0x11, 0x00, 0x18, 0x00, 0x02, 0xb0, 0x20, 0x00,
+ 0x00, 0x00, 0x01, 0x80, 0x30, 0x00, 0x00, 0x00, 0x00, 0xf0, 0x38, 0x00,
+ 0x00, 0x00, 0x00, 0x7c, 0x1c, 0x00, 0x00, 0x00, 0x80, 0x0f, 0x0c, 0x00,
+ 0x00, 0x00, 0xc0, 0x01, 0x04, 0x00, 0x00, 0x00, 0xc0, 0x00, 0x04, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00};
+
diff --git a/games/x11/xroach/bitmaps/roach210.xbm b/games/x11/xroach/bitmaps/roach210.xbm
new file mode 100644
index 0000000..11f9b02
--- /dev/null
+++ b/games/x11/xroach/bitmaps/roach210.xbm
@@ -0,0 +1,30 @@
+#define roach210_width 48
+#define roach210_height 48
+
+static char roach210_bits[] = {
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01,
+ 0x00, 0x00, 0x00, 0x00, 0xc0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x20, 0xf0,
+ 0x00, 0x00, 0x00, 0x00, 0x18, 0xff, 0x01, 0x00, 0x00, 0x03, 0x8c, 0xff,
+ 0x01, 0x00, 0x00, 0x3e, 0xfc, 0x7f, 0x00, 0x00, 0x00, 0x60, 0xfc, 0x1f,
+ 0x04, 0x00, 0x00, 0xc0, 0xff, 0x0f, 0x0f, 0x00, 0x00, 0xc0, 0xff, 0xc3,
+ 0x0f, 0x00, 0x80, 0xe7, 0xff, 0xf0, 0x07, 0x00, 0xf0, 0xf8, 0x3f, 0xfc,
+ 0x03, 0x00, 0x7f, 0xf0, 0x1f, 0xff, 0x01, 0x00, 0x0e, 0xcc, 0xc7, 0xff,
+ 0x00, 0x00, 0x00, 0x9e, 0xf1, 0x7f, 0x00, 0x00, 0x00, 0x3f, 0xfc, 0x3f,
+ 0x00, 0x00, 0x00, 0x7f, 0xfe, 0x0f, 0x0f, 0x00, 0x00, 0xff, 0xfe, 0x87,
+ 0x33, 0x00, 0xa0, 0xff, 0xfe, 0xff, 0x00, 0x00, 0xe0, 0xff, 0xfd, 0x1c,
+ 0x00, 0x00, 0xf0, 0xff, 0x7d, 0x00, 0x00, 0x00, 0xe3, 0xfd, 0xfd, 0x00,
+ 0x00, 0x00, 0xe0, 0xf9, 0x85, 0x00, 0x00, 0x00, 0xc0, 0xf1, 0xc7, 0x00,
+ 0x00, 0x00, 0x40, 0xc2, 0xc2, 0x00, 0x00, 0x00, 0x00, 0x00, 0xc3, 0x00,
+ 0x00, 0x00, 0x20, 0x80, 0x63, 0x00, 0x00, 0x00, 0x00, 0xe0, 0x20, 0x00,
+ 0x00, 0x00, 0x08, 0x70, 0x20, 0x00, 0x00, 0x00, 0x00, 0x38, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x0c, 0x00, 0x00, 0x00, 0x00, 0x00, 0x0c, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x04, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00};
+
diff --git a/games/x11/xroach/bitmaps/roach225.xbm b/games/x11/xroach/bitmaps/roach225.xbm
new file mode 100644
index 0000000..cd17ce1
--- /dev/null
+++ b/games/x11/xroach/bitmaps/roach225.xbm
@@ -0,0 +1,30 @@
+#define roach225_width 48
+#define roach225_height 48
+
+static char roach225_bits[] = {
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x10, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, 0x00, 0x00, 0x10, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, 0x00, 0x00, 0x10, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x18, 0x38, 0x00, 0x00, 0x00, 0x00, 0x0c, 0x3f,
+ 0x00, 0x00, 0x00, 0x00, 0xc6, 0x3f, 0x00, 0x00, 0x00, 0x00, 0xe3, 0x9f,
+ 0x01, 0x00, 0x00, 0x00, 0xf1, 0xcf, 0x01, 0x00, 0x00, 0x00, 0xf9, 0xe7,
+ 0x01, 0x00, 0x00, 0x00, 0xff, 0xf3, 0x01, 0x00, 0x00, 0x0f, 0xff, 0xf9,
+ 0x01, 0x00, 0xc0, 0x1f, 0xff, 0xfc, 0x00, 0x00, 0x00, 0xf0, 0x3f, 0x7e,
+ 0x00, 0x00, 0x00, 0xe0, 0x9f, 0x7f, 0x00, 0x00, 0x00, 0xf0, 0xcf, 0x3f,
+ 0x3e, 0x00, 0x80, 0xff, 0xe7, 0x1f, 0x07, 0x00, 0xc0, 0xf0, 0xf3, 0xdf,
+ 0x03, 0x00, 0x70, 0xe0, 0xf9, 0xcf, 0x00, 0x00, 0x38, 0x3c, 0xfc, 0x67,
+ 0x00, 0x00, 0x1e, 0x7e, 0xfe, 0x1f, 0x00, 0x80, 0x0f, 0xfe, 0xfc, 0x01,
+ 0x00, 0x00, 0x00, 0xfe, 0xfd, 0x01, 0x00, 0x00, 0x00, 0xfe, 0xfb, 0x01,
+ 0x00, 0x00, 0x00, 0xff, 0x7b, 0x03, 0x00, 0x00, 0x00, 0xfd, 0x0f, 0x03,
+ 0x00, 0x00, 0x80, 0xf9, 0x1f, 0x03, 0x00, 0x00, 0xc0, 0xe3, 0x1f, 0x03,
+ 0x00, 0x00, 0x80, 0x9f, 0x1b, 0x01, 0x00, 0x00, 0x00, 0x07, 0x18, 0x01,
+ 0x00, 0x00, 0x02, 0x08, 0x1c, 0x00, 0x00, 0x00, 0x00, 0x00, 0x06, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x03, 0x00, 0x00, 0x00, 0x00, 0x80, 0x01, 0x00,
+ 0x00, 0x00, 0x00, 0x80, 0x00, 0x00, 0x00, 0x00, 0x00, 0x80, 0x00, 0x00,
+ 0x00, 0x00, 0x40, 0x80, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00};
+
diff --git a/games/x11/xroach/bitmaps/roach240.xbm b/games/x11/xroach/bitmaps/roach240.xbm
new file mode 100644
index 0000000..467ac9d
--- /dev/null
+++ b/games/x11/xroach/bitmaps/roach240.xbm
@@ -0,0 +1,30 @@
+#define roach240_width 48
+#define roach240_height 48
+
+static char roach240_bits[] = {
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x80, 0x00, 0x00, 0x00, 0x00, 0x00, 0x80, 0x00, 0x01,
+ 0x00, 0x00, 0x00, 0x80, 0xc1, 0x03, 0x00, 0x00, 0x00, 0x80, 0xf1, 0x11,
+ 0x00, 0x00, 0x00, 0x80, 0xf8, 0x18, 0x00, 0x00, 0x00, 0x80, 0xf8, 0x3c,
+ 0x00, 0x00, 0x00, 0x40, 0x7c, 0x3c, 0x00, 0x00, 0x00, 0x40, 0x7e, 0x3e,
+ 0x00, 0x00, 0x00, 0x20, 0x3f, 0x1e, 0x00, 0x00, 0x00, 0xa0, 0x3f, 0x1f,
+ 0x00, 0x00, 0x00, 0xe0, 0x9f, 0x1f, 0x3e, 0x00, 0x00, 0xc0, 0x9f, 0x0f,
+ 0x07, 0x00, 0x00, 0xc0, 0xcf, 0x8f, 0x00, 0x00, 0x00, 0xe6, 0xe7, 0xcf,
+ 0x00, 0x00, 0xc0, 0xf9, 0xe7, 0x47, 0x00, 0x00, 0x00, 0xf0, 0xf3, 0x67,
+ 0x00, 0x00, 0x00, 0xf8, 0xf3, 0x37, 0x00, 0x00, 0x00, 0xf8, 0xf9, 0x1f,
+ 0x00, 0x00, 0x00, 0xff, 0xfd, 0x07, 0x00, 0x00, 0xc0, 0x03, 0xfc, 0x01,
+ 0x00, 0x00, 0x60, 0x00, 0xfe, 0x01, 0x00, 0x00, 0x30, 0xfc, 0xfc, 0x03,
+ 0x00, 0x00, 0x30, 0xfe, 0xfb, 0x06, 0x00, 0x00, 0x30, 0xfe, 0x77, 0x06,
+ 0x00, 0x00, 0x1c, 0xfc, 0x37, 0x06, 0x00, 0x00, 0x02, 0xfc, 0x2f, 0x06,
+ 0x00, 0x00, 0x00, 0xf8, 0x7f, 0x04, 0x00, 0x00, 0x00, 0xe5, 0x6f, 0x0c,
+ 0x00, 0x00, 0x00, 0x8e, 0x6f, 0x00, 0x00, 0x00, 0x00, 0x7e, 0x60, 0x00,
+ 0x00, 0x00, 0x00, 0x3e, 0x20, 0x00, 0x00, 0x00, 0x80, 0xf0, 0x30, 0x00,
+ 0x00, 0x00, 0x40, 0x10, 0x30, 0x00, 0x00, 0x00, 0x00, 0x10, 0x18, 0x00,
+ 0x00, 0x00, 0x10, 0x00, 0x08, 0x00, 0x00, 0x00, 0x00, 0x00, 0x08, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x08, 0x00, 0x00, 0x00, 0x00, 0x00, 0x08, 0x00,
+ 0x00, 0x00, 0x00, 0x08, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00};
+
diff --git a/games/x11/xroach/bitmaps/roach255.xbm b/games/x11/xroach/bitmaps/roach255.xbm
new file mode 100644
index 0000000..de5cea6
--- /dev/null
+++ b/games/x11/xroach/bitmaps/roach255.xbm
@@ -0,0 +1,30 @@
+#define roach255_width 48
+#define roach255_height 48
+
+static char roach255_bits[] = {
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x02, 0x18, 0x00, 0x00, 0x00, 0x00, 0x06, 0x9c, 0x01,
+ 0x00, 0x00, 0x00, 0x0c, 0x9e, 0x03, 0x00, 0x00, 0x00, 0x18, 0x8f, 0x03,
+ 0x00, 0x00, 0x00, 0x18, 0xcf, 0x03, 0x00, 0x00, 0x00, 0x98, 0xcf, 0x03,
+ 0x00, 0x00, 0x00, 0x88, 0xcf, 0x83, 0x01, 0x00, 0x00, 0xc8, 0xc7, 0xe3,
+ 0x00, 0x00, 0x00, 0xc8, 0xe7, 0x63, 0x00, 0x00, 0x00, 0xec, 0xe7, 0x33,
+ 0x00, 0x00, 0x00, 0xec, 0xe7, 0x33, 0x00, 0x00, 0x00, 0xf8, 0xe3, 0x13,
+ 0x00, 0x00, 0x00, 0xf8, 0xf3, 0x1b, 0x00, 0x00, 0x00, 0xf0, 0xf3, 0x1b,
+ 0x00, 0x00, 0x00, 0xf0, 0xf3, 0x09, 0x00, 0x00, 0x80, 0xff, 0xf9, 0x07,
+ 0x00, 0x00, 0xc0, 0xf8, 0xf9, 0x01, 0x00, 0x00, 0xe0, 0xf8, 0xf9, 0x01,
+ 0x00, 0x00, 0x10, 0xfc, 0xf9, 0x01, 0x00, 0x00, 0x00, 0xfc, 0xfc, 0x07,
+ 0x00, 0x00, 0x00, 0x02, 0xfc, 0x0c, 0x00, 0x00, 0x00, 0x01, 0xf8, 0x0c,
+ 0x00, 0x00, 0x80, 0xf8, 0x63, 0x18, 0x00, 0x00, 0xc0, 0xfc, 0x6f, 0x18,
+ 0x00, 0x00, 0x60, 0xfc, 0x9f, 0x30, 0x00, 0x00, 0x60, 0xfc, 0x3f, 0x01,
+ 0x00, 0x00, 0x60, 0xf8, 0x3f, 0x01, 0x00, 0x00, 0x20, 0xe0, 0x3f, 0x01,
+ 0x00, 0x00, 0x38, 0xb0, 0x8f, 0x01, 0x00, 0x00, 0x08, 0xf4, 0x83, 0x01,
+ 0x00, 0x00, 0x00, 0xf0, 0x81, 0x01, 0x00, 0x00, 0x00, 0xf0, 0x85, 0x00,
+ 0x00, 0x00, 0x00, 0x08, 0xc1, 0x00, 0x00, 0x00, 0x00, 0x00, 0x81, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x81, 0x01, 0x00, 0x00, 0x00, 0x00, 0x01, 0x01,
+ 0x00, 0x00, 0x00, 0x00, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00};
+
diff --git a/games/x11/xroach/bitmaps/roach270.xbm b/games/x11/xroach/bitmaps/roach270.xbm
new file mode 100644
index 0000000..d3a0787
--- /dev/null
+++ b/games/x11/xroach/bitmaps/roach270.xbm
@@ -0,0 +1,30 @@
+#define roach270_width 48
+#define roach270_height 48
+
+static char roach270_bits[] = {
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0xc0, 0x0c, 0x00, 0x00, 0x00, 0x00, 0xe0, 0x1c, 0x00,
+ 0x00, 0x00, 0x00, 0xe0, 0x1c, 0x00, 0x00, 0x00, 0x20, 0xf0, 0x3c, 0x18,
+ 0x00, 0x00, 0xc0, 0xf0, 0x3c, 0x0c, 0x00, 0x00, 0x80, 0xf1, 0x3c, 0x06,
+ 0x00, 0x00, 0x00, 0xf9, 0x7c, 0x06, 0x00, 0x00, 0x00, 0xf9, 0x7c, 0x06,
+ 0x00, 0x00, 0x00, 0xf9, 0x7c, 0x06, 0x00, 0x00, 0x00, 0xf9, 0x7c, 0x06,
+ 0x00, 0x00, 0x00, 0xf9, 0x7c, 0x06, 0x00, 0x00, 0x00, 0xfb, 0x7c, 0x02,
+ 0x00, 0x00, 0x00, 0xff, 0xfc, 0x02, 0x00, 0x00, 0x00, 0xfe, 0xfc, 0x01,
+ 0x00, 0x00, 0x00, 0xfc, 0xfc, 0x00, 0x00, 0x00, 0x00, 0xf8, 0xfc, 0x00,
+ 0x00, 0x00, 0x00, 0xf8, 0xfc, 0x00, 0x00, 0x00, 0x00, 0xff, 0xfc, 0x07,
+ 0x00, 0x00, 0x80, 0xfc, 0xfc, 0x0c, 0x00, 0x00, 0xc0, 0xfc, 0xfc, 0x18,
+ 0x00, 0x00, 0x60, 0x78, 0xfc, 0x10, 0x00, 0x00, 0x30, 0x18, 0xc0, 0x20,
+ 0x00, 0x00, 0x00, 0xc6, 0x1f, 0x01, 0x00, 0x00, 0x00, 0xe3, 0x7f, 0x02,
+ 0x00, 0x00, 0x00, 0xf1, 0xff, 0x06, 0x00, 0x00, 0x80, 0xf1, 0xff, 0x06,
+ 0x00, 0x00, 0x80, 0xf1, 0xff, 0x06, 0x00, 0x00, 0x80, 0xe1, 0x7f, 0x06,
+ 0x00, 0x00, 0x80, 0x81, 0x1f, 0x06, 0x00, 0x00, 0x80, 0x81, 0x0f, 0x04,
+ 0x00, 0x00, 0x80, 0x81, 0x2f, 0x04, 0x00, 0x00, 0xc0, 0x80, 0x0f, 0x0c,
+ 0x00, 0x00, 0x40, 0x00, 0x00, 0x08, 0x00, 0x00, 0x00, 0x00, 0x00, 0x10,
+ 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x20, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00};
+
diff --git a/games/x11/xroach/bitmaps/roach285.xbm b/games/x11/xroach/bitmaps/roach285.xbm
new file mode 100644
index 0000000..5e2af7a
--- /dev/null
+++ b/games/x11/xroach/bitmaps/roach285.xbm
@@ -0,0 +1,30 @@
+#define roach285_width 48
+#define roach285_height 48
+
+static char roach285_bits[] = {
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x60, 0x00, 0x01, 0x00, 0x00, 0x00, 0xe6, 0x80, 0x00,
+ 0x00, 0x00, 0x00, 0xe6, 0xc1, 0x00, 0x00, 0x00, 0x00, 0xcf, 0x63, 0x00,
+ 0x00, 0x00, 0x00, 0xcf, 0x47, 0x00, 0x00, 0x00, 0x00, 0xcf, 0x47, 0x00,
+ 0x00, 0x00, 0x03, 0xdf, 0x4f, 0x00, 0x00, 0x00, 0x1c, 0x9f, 0xcf, 0x00,
+ 0x00, 0x00, 0x30, 0x9f, 0x9f, 0x00, 0x00, 0x00, 0x30, 0xbf, 0x9f, 0x00,
+ 0x00, 0x00, 0x20, 0xbf, 0xbf, 0x00, 0x00, 0x00, 0x40, 0x3e, 0xff, 0x00,
+ 0x00, 0x00, 0x40, 0x3e, 0x7f, 0x00, 0x00, 0x00, 0xc0, 0x7e, 0x7f, 0x00,
+ 0x00, 0x00, 0xc0, 0x7f, 0x7f, 0x03, 0x00, 0x00, 0x00, 0x7f, 0xfe, 0x07,
+ 0x00, 0x00, 0x00, 0xfe, 0xfe, 0x1c, 0x00, 0x00, 0x00, 0xfc, 0xfe, 0x18,
+ 0x00, 0x00, 0x00, 0xfc, 0xfe, 0x00, 0x00, 0x00, 0x00, 0xff, 0xfd, 0x00,
+ 0x00, 0x00, 0x00, 0xfd, 0x01, 0x07, 0x00, 0x00, 0x80, 0x7c, 0xf8, 0x0e,
+ 0x00, 0x00, 0xc0, 0xb8, 0xff, 0x0d, 0x00, 0x00, 0x40, 0xd8, 0xff, 0x09,
+ 0x00, 0x00, 0x00, 0xcc, 0xff, 0x19, 0x00, 0x00, 0x00, 0xee, 0xff, 0x19,
+ 0x00, 0x00, 0x00, 0xe6, 0xff, 0x18, 0x00, 0x00, 0x00, 0xc6, 0x7f, 0x30,
+ 0x00, 0x00, 0x00, 0x86, 0x7f, 0x60, 0x00, 0x00, 0x00, 0x06, 0x7e, 0xc1,
+ 0x00, 0x00, 0x00, 0x04, 0x7c, 0x00, 0x00, 0x00, 0x00, 0x0c, 0xbc, 0x00,
+ 0x00, 0x00, 0x00, 0x0c, 0x00, 0x00, 0x00, 0x00, 0x00, 0x04, 0x00, 0x01,
+ 0x00, 0x00, 0x00, 0x04, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x04, 0x00, 0x00, 0x00, 0x00, 0x04, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x04, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00};
+
diff --git a/games/x11/xroach/bitmaps/roach300.xbm b/games/x11/xroach/bitmaps/roach300.xbm
new file mode 100644
index 0000000..ca4e89b
--- /dev/null
+++ b/games/x11/xroach/bitmaps/roach300.xbm
@@ -0,0 +1,30 @@
+#define roach300_width 48
+#define roach300_height 48
+
+static char roach300_bits[] = {
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x04, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x04, 0x00, 0x00, 0x00, 0x00, 0x06, 0x06, 0x00,
+ 0x00, 0x00, 0x00, 0x1f, 0x06, 0x00, 0x00, 0x00, 0x00, 0x3e, 0x04, 0x00,
+ 0x00, 0x00, 0x60, 0x7c, 0x0c, 0x00, 0x00, 0x00, 0xe0, 0x7c, 0x0c, 0x00,
+ 0x00, 0x00, 0xf0, 0xf8, 0x08, 0x00, 0x00, 0x00, 0xe0, 0xf9, 0x11, 0x00,
+ 0x00, 0x00, 0xe0, 0xf3, 0x13, 0x00, 0x00, 0x00, 0xe0, 0xf3, 0x17, 0x00,
+ 0x00, 0x00, 0xc0, 0xe7, 0x1f, 0x00, 0x00, 0xc0, 0xc7, 0xc7, 0x1f, 0x00,
+ 0x00, 0x00, 0xcc, 0xcf, 0x9f, 0x00, 0x00, 0x00, 0x88, 0x9f, 0xff, 0x07,
+ 0x00, 0x00, 0x98, 0x9f, 0xff, 0x3c, 0x00, 0x00, 0xb0, 0x3f, 0x7f, 0x00,
+ 0x00, 0x00, 0x60, 0x7f, 0xff, 0x00, 0x00, 0x00, 0xe0, 0x7f, 0xfe, 0x00,
+ 0x00, 0x00, 0x00, 0xfe, 0x7e, 0x0f, 0x00, 0x00, 0x00, 0xfe, 0x00, 0x1c,
+ 0x00, 0x00, 0x00, 0xfc, 0xf1, 0x19, 0x00, 0x00, 0x00, 0x7e, 0xf8, 0x33,
+ 0x00, 0x00, 0x00, 0x79, 0xfc, 0x63, 0x00, 0x00, 0x80, 0x31, 0xfe, 0x63,
+ 0x00, 0x00, 0x80, 0x31, 0xff, 0xc3, 0x01, 0x00, 0x80, 0x91, 0xff, 0x01,
+ 0x03, 0x00, 0x80, 0x91, 0xff, 0x04, 0x00, 0x00, 0x80, 0x98, 0x7f, 0x01,
+ 0x00, 0x00, 0x00, 0x18, 0xff, 0x03, 0x00, 0x00, 0x00, 0x10, 0xf0, 0x05,
+ 0x00, 0x00, 0x00, 0x30, 0x60, 0x08, 0x00, 0x00, 0x00, 0x30, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x60, 0x40, 0x00, 0x00, 0x00, 0x00, 0x40, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x40, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x40, 0x80, 0x00, 0x00, 0x00, 0x00, 0x00, 0x80, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00};
+
diff --git a/games/x11/xroach/bitmaps/roach315.xbm b/games/x11/xroach/bitmaps/roach315.xbm
new file mode 100644
index 0000000..922698a
--- /dev/null
+++ b/games/x11/xroach/bitmaps/roach315.xbm
@@ -0,0 +1,30 @@
+#define roach315_width 48
+#define roach315_height 48
+
+static char roach315_bits[] = {
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x20, 0x00, 0x00, 0x00, 0x00, 0x00, 0x20, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x20, 0x00, 0x00, 0x00, 0x00, 0x00, 0x20, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x20, 0x00, 0x00, 0x00, 0x00, 0x60, 0x20, 0x00, 0x00,
+ 0x00, 0x00, 0xf0, 0xe1, 0x00, 0x00, 0x00, 0x00, 0xf0, 0xc7, 0x01, 0x00,
+ 0x00, 0x00, 0xe0, 0x9f, 0x01, 0x00, 0x00, 0x00, 0xc6, 0x3f, 0x02, 0x00,
+ 0x00, 0x00, 0x8e, 0x7f, 0x06, 0x00, 0x00, 0x00, 0x1e, 0xff, 0x06, 0x00,
+ 0x00, 0x00, 0x3e, 0xfe, 0xc3, 0x00, 0x00, 0x00, 0x7c, 0xfc, 0xe7, 0x1f,
+ 0x00, 0x00, 0xfc, 0xf8, 0x3f, 0x00, 0x00, 0x00, 0xf8, 0xf1, 0x1f, 0x00,
+ 0x00, 0x00, 0xf8, 0xe7, 0x3f, 0x00, 0x00, 0x80, 0xf1, 0xcf, 0x3f, 0x02,
+ 0x00, 0x00, 0xe6, 0x9f, 0xff, 0x07, 0x00, 0x00, 0xcc, 0x3f, 0x1f, 0x08,
+ 0x00, 0x00, 0x9c, 0x7f, 0xce, 0x31, 0x00, 0x00, 0xf0, 0xff, 0xe0, 0x63,
+ 0x00, 0x00, 0xc0, 0xfe, 0xf1, 0xe7, 0x03, 0x00, 0x00, 0xfc, 0xf9, 0xc7,
+ 0x00, 0x00, 0x00, 0xf8, 0xf8, 0x07, 0x00, 0x00, 0x00, 0xfe, 0xfc, 0x03,
+ 0x00, 0x00, 0x00, 0x62, 0xfe, 0x05, 0x00, 0x00, 0x00, 0x42, 0xfe, 0x0e,
+ 0x00, 0x00, 0x00, 0x42, 0xfe, 0x0f, 0x00, 0x00, 0x00, 0x46, 0xfe, 0x47,
+ 0x00, 0x00, 0x00, 0x66, 0x84, 0x03, 0x00, 0x00, 0x00, 0xc2, 0x40, 0x00,
+ 0x04, 0x00, 0x00, 0x80, 0x00, 0x02, 0x00, 0x00, 0x00, 0x80, 0x01, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x07, 0x00, 0x00, 0x00, 0x00, 0x00, 0x06, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x04, 0x08, 0x00, 0x00, 0x00, 0x00, 0x04, 0x10,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00};
+
diff --git a/games/x11/xroach/bitmaps/roach330.xbm b/games/x11/xroach/bitmaps/roach330.xbm
new file mode 100644
index 0000000..67735f8
--- /dev/null
+++ b/games/x11/xroach/bitmaps/roach330.xbm
@@ -0,0 +1,30 @@
+#define roach330_width 48
+#define roach330_height 48
+
+static char roach330_bits[] = {
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x03, 0x00, 0x00, 0x00, 0x00, 0x00, 0x03, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x03, 0x00, 0x00, 0x00, 0x00, 0x00, 0x0c, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x18, 0x00, 0x00, 0x00, 0x00, 0x3e, 0x60, 0x00, 0x00,
+ 0x00, 0x00, 0xfe, 0xc1, 0x00, 0x00, 0x00, 0x00, 0xfe, 0x8f, 0xf0, 0x01,
+ 0x00, 0x00, 0xf8, 0xff, 0x38, 0x00, 0x00, 0x80, 0xe0, 0xff, 0x0f, 0x00,
+ 0x00, 0x80, 0xc3, 0xff, 0x07, 0x00, 0x00, 0x80, 0x0f, 0xff, 0x1f, 0x03,
+ 0x00, 0x80, 0x3f, 0xfc, 0xff, 0x1f, 0x00, 0x00, 0xff, 0xf0, 0x7f, 0x38,
+ 0x00, 0x00, 0xfe, 0xe3, 0x8f, 0xe1, 0x07, 0x00, 0xf8, 0x8f, 0xc7, 0xc3,
+ 0x00, 0x00, 0xf0, 0x3f, 0xe6, 0x07, 0x00, 0x00, 0xe1, 0xff, 0xf0, 0x07,
+ 0x00, 0xc0, 0xc7, 0xff, 0xf9, 0x07, 0x00, 0x30, 0xbc, 0xff, 0xf9, 0x07,
+ 0x00, 0x00, 0xf0, 0xfd, 0xfd, 0x1f, 0x00, 0x00, 0x00, 0xf8, 0xfd, 0x7f,
+ 0x00, 0x00, 0x00, 0xf0, 0xfc, 0x1d, 0x08, 0x00, 0x00, 0xc8, 0xfd, 0x1e,
+ 0x00, 0x00, 0x00, 0x0c, 0x7d, 0x06, 0x00, 0x00, 0x00, 0x08, 0x19, 0x02,
+ 0x00, 0x00, 0x00, 0x08, 0x01, 0x00, 0x00, 0x00, 0x00, 0x18, 0x01, 0x00,
+ 0x00, 0x00, 0x00, 0x10, 0x0f, 0x00, 0x00, 0x00, 0x00, 0x10, 0x38, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x70, 0x00, 0x00, 0x00, 0x00, 0x00, 0x40, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00, 0x80, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00};
+
diff --git a/games/x11/xroach/bitmaps/roach345.xbm b/games/x11/xroach/bitmaps/roach345.xbm
new file mode 100644
index 0000000..af01fa5
--- /dev/null
+++ b/games/x11/xroach/bitmaps/roach345.xbm
@@ -0,0 +1,30 @@
+#define roach345_width 48
+#define roach345_height 48
+
+static char roach345_bits[] = {
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x08, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, 0x00, 0x00, 0x30, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x70, 0x00, 0x00, 0x00, 0x00, 0x00, 0xe0, 0x03, 0x40, 0x00,
+ 0x00, 0x00, 0x00, 0x0e, 0x3c, 0x00, 0x00, 0x00, 0x00, 0x10, 0x0e, 0x00,
+ 0x00, 0x00, 0xff, 0x23, 0x03, 0x00, 0x00, 0x80, 0xff, 0xff, 0x83, 0x03,
+ 0x00, 0xc0, 0xff, 0xff, 0xe3, 0xff, 0x03, 0x80, 0xff, 0xff, 0x3f, 0x70,
+ 0x00, 0x00, 0xf0, 0xff, 0x1f, 0x00, 0x00, 0x40, 0x00, 0xff, 0xcf, 0x03,
+ 0x00, 0xe0, 0x0f, 0xf0, 0xef, 0x03, 0x00, 0xc0, 0x7f, 0x00, 0xf7, 0x07,
+ 0x00, 0xc0, 0xff, 0x07, 0xf0, 0x07, 0x00, 0x00, 0xff, 0x7f, 0xf0, 0xff,
+ 0x13, 0x00, 0xfe, 0xff, 0xf1, 0x3f, 0x00, 0x00, 0xf0, 0xff, 0xf9, 0x3b,
+ 0x00, 0x00, 0xc0, 0xff, 0xf9, 0x1f, 0x00, 0x00, 0x82, 0xff, 0xfb, 0x1f,
+ 0x00, 0x00, 0xff, 0xfb, 0xfb, 0x03, 0x00, 0x80, 0xe1, 0xe1, 0xf3, 0x81,
+ 0x00, 0x40, 0x00, 0x30, 0x62, 0x00, 0x02, 0x00, 0x00, 0x30, 0x04, 0x00,
+ 0x04, 0x00, 0x00, 0x60, 0x0c, 0x00, 0x00, 0x00, 0x00, 0xe0, 0x78, 0x00,
+ 0x00, 0x00, 0x00, 0xc0, 0xc0, 0x03, 0x00, 0x00, 0x00, 0x80, 0x00, 0x06,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x04, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
+ 0x00};
+
diff --git a/games/x11/xroach/roachmap.h b/games/x11/xroach/roachmap.h
new file mode 100644
index 0000000..209bf54
--- /dev/null
+++ b/games/x11/xroach/roachmap.h
@@ -0,0 +1,65 @@
+#include "roach000.xbm"
+#include "roach015.xbm"
+#include "roach030.xbm"
+#include "roach045.xbm"
+#include "roach060.xbm"
+#include "roach075.xbm"
+#include "roach090.xbm"
+#include "roach105.xbm"
+#include "roach120.xbm"
+#include "roach135.xbm"
+#include "roach150.xbm"
+#include "roach165.xbm"
+#include "roach180.xbm"
+#include "roach195.xbm"
+#include "roach210.xbm"
+#include "roach225.xbm"
+#include "roach240.xbm"
+#include "roach255.xbm"
+#include "roach270.xbm"
+#include "roach285.xbm"
+#include "roach300.xbm"
+#include "roach315.xbm"
+#include "roach330.xbm"
+#include "roach345.xbm"
+
+#define ROACH_HEADINGS	24	/* number of orientations */
+#define ROACH_ANGLE	15	/* angle between orientations */
+
+typedef struct RoachMap {
+	char *roachBits;
+	Pixmap pixmap;
+	int width;
+	int height;
+	float sine;
+	float cosine;
+} RoachMap;
+
+RoachMap roachPix[] = {
+	{roach000_bits, None, roach000_height, roach000_width, 0.0, 0.0},
+	{roach015_bits, None, roach015_height, roach015_width, 0.0, 0.0},
+	{roach030_bits, None, roach030_height, roach030_width, 0.0, 0.0},
+	{roach045_bits, None, roach045_height, roach045_width, 0.0, 0.0},
+	{roach060_bits, None, roach060_height, roach060_width, 0.0, 0.0},
+	{roach075_bits, None, roach075_height, roach075_width, 0.0, 0.0},
+	{roach090_bits, None, roach090_height, roach090_width, 0.0, 0.0},
+	{roach105_bits, None, roach105_height, roach105_width, 0.0, 0.0},
+	{roach120_bits, None, roach120_height, roach120_width, 0.0, 0.0},
+	{roach135_bits, None, roach135_height, roach135_width, 0.0, 0.0},
+	{roach150_bits, None, roach150_height, roach150_width, 0.0, 0.0},
+	{roach165_bits, None, roach165_height, roach165_width, 0.0, 0.0},
+	{roach180_bits, None, roach180_height, roach180_width, 0.0, 0.0},
+	{roach195_bits, None, roach195_height, roach195_width, 0.0, 0.0},
+	{roach210_bits, None, roach210_height, roach210_width, 0.0, 0.0},
+	{roach225_bits, None, roach225_height, roach225_width, 0.0, 0.0},
+	{roach240_bits, None, roach240_height, roach240_width, 0.0, 0.0},
+	{roach255_bits, None, roach255_height, roach255_width, 0.0, 0.0},
+	{roach270_bits, None, roach270_height, roach270_width, 0.0, 0.0},
+	{roach285_bits, None, roach285_height, roach285_width, 0.0, 0.0},
+	{roach300_bits, None, roach300_height, roach300_width, 0.0, 0.0},
+	{roach315_bits, None, roach315_height, roach315_width, 0.0, 0.0},
+	{roach330_bits, None, roach330_height, roach330_width, 0.0, 0.0},
+	{roach345_bits, None, roach345_height, roach345_width, 0.0, 0.0},
+};
+
+
diff --git a/games/x11/xroach/xroach.6 b/games/x11/xroach/xroach.6
new file mode 100644
index 0000000..509fc40
--- /dev/null
+++ b/games/x11/xroach/xroach.6
@@ -0,0 +1,75 @@
+.\" Copyright (c) 1991, 1993
+.\"	The Regents of the University of California.  All rights reserved.
+.\"
+.\" from: X Version 11 Release 4, May 30, 1991
+.\"
+.\" Redistribution and use in source and binary forms, with or without
+.\" modification, are permitted provided that the following conditions
+.\" are met:
+.\" 1. Redistributions of source code must retain the above copyright
+.\"    notice, this list of conditions and the following disclaimer.
+.\" 2. Redistributions in binary form must reproduce the above copyright
+.\"    notice, this list of conditions and the following disclaimer in the
+.\"    documentation and/or other materials provided with the distribution.
+.\" 3. All advertising materials mentioning features or use of this software
+.\"    must display the following acknowledgement:
+.\"	This product includes software developed by the University of
+.\"	California, Berkeley and its contributors.
+.\" 4. Neither the name of the University nor the names of its contributors
+.\"    may be used to endorse or promote products derived from this software
+.\"    without specific prior written permission.
+.\"
+.\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+.\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+.\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+.\" ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+.\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+.\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+.\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+.\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+.\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+.\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+.\" SUCH DAMAGE.
+.\"
+.\"	@(#)xroach.6	8.2 (Berkeley) 4/19/94
+.\"
+.TH XROACH 6 "April 19, 1994" "X Version 11 Release 4"
+.SH NAME
+xroach \- cockroaches hide under your windows
+.SH SYNOPSIS
+.B xroach
+[-option .,..]
+.SH DESCRIPTION
+.I Xroach
+displays disgusting cockroaches on your root window. These creepy crawlies
+scamper
+around until they find a window to hide under. Whenever you move or iconify
+a window, the exposed beetles again scamper for cover.
+.SH OPTIONS
+.TP 8
+.B \-display \fIdisplay_name\fB
+Drop the roaches on the given display. Make sure the display is nearby, so you
+can hear the screams.
+.TP 8
+.B \-rc \fIroach_color\fB
+Use the given string as the color for the bugs instead of the default "black".
+.TP 8
+.B \-speed \fIroach_speed\fB
+Use the given speed for the insects instead of the default 20.0. For example,
+in winter the speed should be set to 5.0. In summer, 30.0 might be about
+right.
+.TP 8
+.B \-roaches \fInum_roaches\fB
+This is the number of the little critters. Default is 10.
+.SH BUGS
+As given by the -roaches option. Default is 10.
+.SH COPYRIGHT
+Copyright 1991 by J.T. Anderson
+.SH AUTHORS
+J.T. Anderson
+(jta@locus.com)
+.SH DEDICATION
+Greg McFarlane
+(gregm@otc.otca.oz.au)
+.SH "SEE ALSO"
+xroachmotel(1), xddt(1)
diff --git a/games/x11/xroach/xroach.c b/games/x11/xroach/xroach.c
new file mode 100644
index 0000000..854167f
--- /dev/null
+++ b/games/x11/xroach/xroach.c
@@ -0,0 +1,602 @@
+/*
+    Xroach - A game of skill.  Try to find the roaches under your windows.
+    
+    Copyright 1991 by J.T. Anderson
+
+    jta@locus.com
+    
+    This program may be freely distributed provided that all
+    copyright notices are retained.
+
+    To build:
+      cc -o xroach roach.c -lX11 [-lsocketorwhatever] [-lm] [-l...]
+
+    Dedicated to Greg McFarlane.   (gregm@otc.otca.oz.au)
+*/
+#include <X11/Xlib.h>
+#include <X11/Xutil.h>
+#include <X11/Xos.h>
+
+#include <stdio.h>
+#include <math.h>
+#include <signal.h>
+#include <stdlib.h>
+
+char Copyright[] = "Xroach\nCopyright 1991 J.T. Anderson";
+
+#include "roachmap.h"
+
+typedef unsigned long Pixel;
+typedef int ErrorHandler();
+
+#define SCAMPER_EVENT	(LASTEvent + 1)
+
+#if !defined(GRAB_SERVER)
+#define GRAB_SERVER	0
+#endif
+
+Display *display;
+int screen;
+Window rootWin;
+unsigned int display_width, display_height;
+int center_x, center_y;
+GC gc;
+char *display_name = NULL;
+Pixel black, white;
+
+int done = 0;
+int eventBlock = 0;
+int errorVal = 0;
+
+typedef struct Roach {
+    RoachMap *rp;
+    int index;
+    float x;
+    float y;
+    int intX;
+    int intY;
+    int hidden;
+    int turnLeft;
+    int steps;
+} Roach;
+
+Roach *roaches;
+int maxRoaches = 10;
+int curRoaches = 0;
+float roachSpeed = 20.0;
+
+Region rootVisible = NULL;
+
+void Usage();
+void SigHandler();
+void AddRoach();
+void MoveRoach();
+void DrawRoaches();
+void CoverRoot();
+int CalcRootVisible();
+int MarkHiddenRoaches();
+Pixel AllocNamedColor();
+
+void
+main(ac, av)
+int ac;
+char *av[];
+{
+    XGCValues xgcv;
+    int ax;
+    char *arg;
+    RoachMap *rp;
+    int rx;
+    float angle;
+    XEvent ev;
+    char *roachColor = "black";
+    int nVis;
+    int needCalc;
+    
+    /*
+       Process command line options.
+    */
+    for (ax=1; ax<ac; ax++) {
+	arg = av[ax];
+	if (strcmp(arg, "-display") == 0) {
+	    display_name = av[++ax];
+	}
+	else if (strcmp(arg, "-rc") == 0) {
+	    roachColor = av[++ax];
+	}
+	else if (strcmp(arg, "-speed") == 0) {
+	    roachSpeed = atof(av[++ax]);
+	}
+	else if (strcmp(arg, "-roaches") == 0) {
+	    maxRoaches = strtol(av[++ax], (char **)NULL, 0);
+	}
+	else {
+	    Usage();
+	}
+    }
+
+    srand((int)time((long *)NULL));
+    
+    /*
+       Catch some signals so we can erase any visible roaches.
+    */
+    signal(SIGKILL, SigHandler);
+    signal(SIGINT, SigHandler);
+    signal(SIGTERM, SigHandler);
+    signal(SIGHUP, SigHandler);
+
+    display = XOpenDisplay(display_name);
+    if (display == NULL) {
+	if (display_name == NULL) display_name = getenv("DISPLAY");
+	(void) fprintf(stderr, "%s: cannot connect to X server %s\n", av[0],
+	    display_name ? display_name : "(default)");
+	exit(1);
+    }
+
+    screen = DefaultScreen(display);
+    rootWin = RootWindow(display, screen);
+    black = BlackPixel(display, screen);
+    white = WhitePixel(display, screen);
+
+    display_width = DisplayWidth(display, screen);
+    display_height = DisplayHeight(display, screen);
+    center_x = display_width / 2;
+    center_y = display_height / 2;
+    
+    /*
+       Create roach pixmaps at several orientations.
+    */
+    for (ax=0; ax<360; ax+=ROACH_ANGLE) {
+	rx = ax / ROACH_ANGLE;
+	angle = rx * 0.261799387799;
+	rp = &roachPix[rx];
+	rp->pixmap = XCreateBitmapFromData(display, rootWin,
+	    rp->roachBits, rp->width, rp->height);
+	rp->sine = sin(angle);
+	rp->cosine = cos(angle);
+    }
+
+    roaches = (Roach *)malloc(sizeof(Roach) * maxRoaches);
+
+    gc = XCreateGC(display, rootWin, 0L, &xgcv);
+    XSetForeground(display, gc, AllocNamedColor(roachColor, black));
+    XSetFillStyle(display, gc, FillStippled);
+    
+    while (curRoaches < maxRoaches)
+	AddRoach();
+    
+    XSelectInput(display, rootWin, ExposureMask | SubstructureNotifyMask);
+    
+    needCalc = 1;
+    while (!done) {
+	if (XPending(display)) {
+	    XNextEvent(display, &ev);
+	}
+	else {
+	    if (needCalc) {
+		needCalc = CalcRootVisible();
+	    }
+	    nVis = MarkHiddenRoaches();
+	    if (nVis) {
+		ev.type = SCAMPER_EVENT;
+	    }
+	    else {
+		DrawRoaches();
+		eventBlock = 1;
+		XNextEvent(display, &ev);
+		eventBlock = 0;
+	    }
+	}
+	
+	switch (ev.type) {
+	    
+	    case SCAMPER_EVENT:
+		for (rx=0; rx<curRoaches; rx++) {
+		    if (!roaches[rx].hidden)
+			MoveRoach(rx);
+		}
+		DrawRoaches();
+		XSync(display, False);
+		break;
+		
+	    case Expose:
+	    case MapNotify:
+	    case UnmapNotify:
+	    case ConfigureNotify:
+		needCalc = 1;
+		break;
+		
+	}
+    }
+    
+    CoverRoot();
+    
+    XCloseDisplay(display);
+}
+
+#define USEPRT(msg) fprintf(stderr, msg)
+
+void
+Usage()
+{
+    USEPRT("Usage: xroach [options]\n\n");
+    USEPRT("Options:\n");
+    USEPRT("       -display displayname\n");
+    USEPRT("       -rc      roachcolor\n");
+    USEPRT("       -roaches numroaches\n");
+    USEPRT("       -speed   roachspeed\n");
+    
+    exit(1);
+}
+
+void
+SigHandler()
+{
+       
+    /*
+       If we are blocked, no roaches are visible and we can just bail
+       out.  If we are not blocked, then let the main procedure clean
+       up the root window.
+    */
+    if (eventBlock) {
+	XCloseDisplay(display);
+	exit(0);
+    }
+    else {
+	done = 1;
+    }
+}
+
+/*
+   Generate random integer between 0 and maxVal-1.
+*/
+int
+RandInt(maxVal)
+int maxVal;
+{
+	return rand() % maxVal;
+}
+
+/*
+   Check for roach completely in specified rectangle.
+*/
+int
+RoachInRect(roach, rx, ry, x, y, width, height)
+Roach *roach;
+int rx;
+int ry;
+int x;
+int y;
+unsigned int width;
+unsigned int height;
+{
+    if (rx < x) return 0;
+    if ((rx + roach->rp->width) > (x + width)) return 0;
+    if (ry < y) return 0;
+    if ((ry + roach->rp->height) > (y + height)) return 0;
+    
+    return 1;
+}
+
+/*
+   Check for roach overlapping specified rectangle.
+*/
+int
+RoachOverRect(roach, rx, ry, x, y, width, height)
+Roach *roach;
+int rx;
+int ry;
+int x;
+int y;
+unsigned int width;
+unsigned int height;
+{
+    if (rx >= (x + width)) return 0;
+    if ((rx + roach->rp->width) <= x) return 0;
+    if (ry >= (y + height)) return 0;
+    if ((ry + roach->rp->height) <= y) return 0;
+    
+    return 1;
+}
+
+/*
+   Give birth to a roach.
+*/
+void
+AddRoach()
+{
+    Roach *r;
+    
+    if (curRoaches < maxRoaches) {
+	r = &roaches[curRoaches++];
+	r->index = RandInt(ROACH_HEADINGS);
+	r->rp = &roachPix[r->index];
+	r->x = RandInt(display_width - r->rp->width);
+	r->y = RandInt(display_height - r->rp->height);
+	r->intX = -1;
+	r->intY = -1;
+	r->hidden = 0;
+	r->steps = RandInt(200);
+	r->turnLeft = RandInt(100) >= 50;
+    }
+}
+
+/*
+   Turn a roach.
+*/
+void
+TurnRoach(roach)
+Roach *roach;
+{
+    if (roach->index != (roach->rp - roachPix)) return;
+
+    if (roach->turnLeft) {
+	roach->index += (RandInt(30) / 10) + 1;
+	if (roach->index >= ROACH_HEADINGS)
+	    roach->index -= ROACH_HEADINGS;
+    }
+    else {
+	roach->index -= (RandInt(30) / 10) + 1;
+	if (roach->index < 0)
+	    roach->index += ROACH_HEADINGS;
+    }
+}
+
+/*
+   Move a roach.
+*/
+void
+MoveRoach(rx)
+int rx;
+{
+    Roach *roach;
+    Roach *r2;
+    float newX;
+    float newY;
+    int ii;
+    
+    roach = &roaches[rx];
+    newX = roach->x + (roachSpeed * roach->rp->cosine);
+    newY = roach->y - (roachSpeed * roach->rp->sine);
+    
+    if (RoachInRect(roach, (int)newX, (int)newY, 
+			    0, 0, display_width, display_height)) {
+	
+	roach->x = newX;
+	roach->y = newY;
+
+	if (roach->steps-- <= 0) {
+	    TurnRoach(roach);
+	    roach->steps = RandInt(200);
+	}
+
+	for (ii=rx+1; ii<curRoaches; ii++) {
+	    r2 = &roaches[ii];
+	    if (RoachOverRect(roach, (int)newX, (int)newY,
+		r2->intX, r2->intY, r2->rp->width, r2->rp->height)) {
+	
+		TurnRoach(roach);
+	    }
+	}
+    }
+    else {
+	TurnRoach(roach);
+    }
+}
+    
+/*
+   Draw all roaches.
+*/
+void
+DrawRoaches()
+{
+    Roach *roach;
+    int rx;
+    
+    for (rx=0; rx<curRoaches; rx++) {
+	roach = &roaches[rx];
+	
+	if (roach->intX >= 0) {
+	    XClearArea(display, rootWin, roach->intX, roach->intY,
+		roach->rp->width, roach->rp->height, False);
+	}
+    }
+    
+    for (rx=0; rx<curRoaches; rx++) {
+	roach = &roaches[rx];
+	
+	if (!roach->hidden) {
+	    roach->intX = roach->x;
+	    roach->intY = roach->y;
+	    roach->rp = &roachPix[roach->index];
+    
+	    XSetStipple(display, gc, roach->rp->pixmap);
+	    XSetTSOrigin(display, gc, roach->intX, roach->intY);
+	    XFillRectangle(display, rootWin, gc,
+		roach->intX, roach->intY, roach->rp->width, roach->rp->height);
+	}
+	else {
+	    roach->intX = -1;
+	}
+    }
+}
+
+/*
+   Cover root window to erase roaches.
+*/
+void
+CoverRoot()
+{
+    XSetWindowAttributes xswa;
+    long wamask;
+    Window roachWin;
+    
+    xswa.background_pixmap = ParentRelative;
+    xswa.override_redirect = True;
+    wamask = CWBackPixmap | CWOverrideRedirect;
+    roachWin = XCreateWindow(display, rootWin, 0, 0,
+		    display_width, display_height, 0, CopyFromParent,
+		    InputOutput, CopyFromParent, wamask, &xswa);
+    XLowerWindow(display, roachWin);
+    XMapWindow(display, roachWin);
+    XFlush(display);
+}    
+
+#if !GRAB_SERVER
+
+int
+RoachErrors(dpy, err)
+Display *dpy;
+XErrorEvent *err;
+{
+    errorVal = err->error_code;
+    
+    return 0;
+}
+
+#endif /* GRAB_SERVER */
+
+/*
+   Calculate Visible region of root window.
+*/
+int
+CalcRootVisible()
+{
+    Region covered;
+    Region visible;
+    Window *children;
+    int nChildren;
+    Window dummy;
+    XWindowAttributes wa;
+    int wx;
+    XRectangle rect;
+    int winX, winY;
+    unsigned int winHeight, winWidth;
+    unsigned int borderWidth;
+    unsigned int depth;
+    
+    /*
+       If we don't grab the server, the XGetWindowAttribute or XGetGeometry
+       calls can abort us.  On the other hand, the server grabs can make for
+       some annoying delays.
+    */
+#if GRAB_SERVER
+    XGrabServer(display);
+#else
+    XSetErrorHandler(RoachErrors);
+#endif
+
+    /*
+       Get children of root.
+    */
+    XQueryTree(display, rootWin, &dummy, &dummy, &children, &nChildren);
+    
+    /*
+       For each mapped child, add the window rectangle to the covered
+       region.
+    */
+    covered = XCreateRegion();
+    for (wx=0; wx<nChildren; wx++) {
+	if (XEventsQueued(display, QueuedAlready)) return 1;
+	errorVal = 0;
+	XGetWindowAttributes(display, children[wx], &wa);
+	if (errorVal) continue;
+	if (wa.map_state == IsViewable) {
+	    XGetGeometry(display, children[wx], &dummy, &winX, &winY,
+		&winWidth, &winHeight, &borderWidth, &depth);
+	    if (errorVal) continue;
+	    rect.x = winX;
+	    rect.y = winY;
+	    rect.width = winWidth + (borderWidth * 2);
+	    rect.height = winHeight + (borderWidth * 2);
+	    XUnionRectWithRegion(&rect, covered, covered);
+	}
+    }
+    XFree((char *)children);
+
+#if GRAB_SERVER
+    XUngrabServer(display);
+#else
+    XSetErrorHandler((ErrorHandler *)NULL);
+#endif
+    
+    /*
+       Subtract the covered region from the root window region.
+    */
+    visible = XCreateRegion();
+    rect.x = 0;
+    rect.y = 0;
+    rect.width = display_width;
+    rect.height = display_height;
+    XUnionRectWithRegion(&rect, visible, visible);
+    XSubtractRegion(visible, covered, visible);
+    XDestroyRegion(covered);
+    
+    /*
+       Save visible region globally.
+    */
+    if (rootVisible)
+	XDestroyRegion(rootVisible);
+    rootVisible = visible;
+    
+    
+    /*
+       Mark all roaches visible.
+    */
+    for (wx=0; wx<curRoaches; wx++) 
+	roaches[wx].hidden = 0;
+
+    return 0;
+}
+
+/*
+   Mark hidden roaches.
+*/
+int
+MarkHiddenRoaches()
+{
+    int rx;
+    Roach *r;
+    int nVisible;
+    
+    nVisible = 0;
+    for (rx=0; rx<curRoaches; rx++) {
+	r = &roaches[rx];
+	
+	if (!r->hidden) {
+	    if (r->intX > 0 && XRectInRegion(rootVisible, r->intX, r->intY,
+			    r->rp->width, r->rp->height) == RectangleOut) {
+		r->hidden = 1;
+	    }
+	    else {
+		nVisible++;
+	    }
+	}
+    }
+    
+    return nVisible;
+}
+
+/*
+   Allocate a color by name.
+*/
+Pixel
+AllocNamedColor(colorName, dfltPix)
+char *colorName;
+Pixel dfltPix;
+{
+	Pixel pix;
+	XColor scrncolor;
+	XColor exactcolor;
+
+	if (XAllocNamedColor(display, DefaultColormap(display, screen),
+		colorName, &scrncolor, &exactcolor)) {
+		pix = scrncolor.pixel;
+	}
+	else {
+		pix = dfltPix;
+	}
+
+	return pix;
+}
+