diff --git a/build/misc.tcl b/build/misc.tcl
index 373ffcf9..d27518db 100644
--- a/build/misc.tcl
+++ b/build/misc.tcl
@@ -1498,6 +1498,8 @@ build_c_program "cprog/ralp" "sys2/ts.ralp"
 
 build_c_program "cprog/shell" "sys2/ts.shell" {clib/c10job.stk}
 
+build_c_program "cprog/search" "sys2/ts.search"
+
 # Versatec spooler
 # This has some harmless unresolved symbols (FOO, XE4).
 respond "*" ":midas sys3;ts versa_dcp; versa\r"
diff --git a/build/timestamps.txt b/build/timestamps.txt
index 5bf61602..e4de6911 100644
--- a/build/timestamps.txt
+++ b/build/timestamps.txt
@@ -221,6 +221,7 @@ comlap/st_fas.20 198201251844.23
 common/lins.463 199003180412.46
 common/yow.22 198902131056.27
 cprog/ralp.c 197801091731.46
+cprog/search.c 197704190853.24
 cprog/shell.c 197710221249.25
 c/phase.args 197608191750.12
 c/recipe.text 197608280859.25
diff --git a/doc/programs.md b/doc/programs.md
index 3e2ef819..ac467153 100644
--- a/doc/programs.md
+++ b/doc/programs.md
@@ -304,6 +304,7 @@
 - SCRAM, encrypt/decrypt file.
 - SCRIMP, XGP unspooler.
 - SCRMBL/UNSCR, scramble/unscramble file.
+- SEARCH, search for string in files.
 - SEND/REPLY, replacements for DDT :SEND.
 - SENDS, Chaosnet SEND server.
 - SENSOR, an alternate message receiver.
diff --git a/src/cprog/search.c b/src/cprog/search.c
new file mode 100644
index 00000000..33957b7c
--- /dev/null
+++ b/src/cprog/search.c
@@ -0,0 +1,76 @@
+# include "c.defs"
+
+char pattern[200];
+
+main (argc, argv)
+	char *argv[];
+
+	{int i, prf();
+	char *s;
+
+	if (argc<3)
+		{cprint ("usage: search  string file ...\n");
+		return;
+		}
+
+	stcpy (argv[1], pattern);
+	i = 2;
+	while (i<argc)
+		{s = argv[i++];
+		if (magic (s)) mapdir (s, prf);
+		else prfs (s);
+		}
+	}
+
+magic (s)	/* does it contain magic pattern chars? */
+	char *s;
+
+	{int c, flag;
+
+	flag = FALSE;
+	while (c = *s++) switch (c) {
+		case '?':
+		case '*':	flag = TRUE; continue;
+		case '/':	flag = FALSE; continue;
+		case '\\':	if (*s) ++s; continue;
+		}
+	return (flag);
+	}
+
+prf (fs)
+	filespec *fs;
+
+	{char buf[50];
+
+	prfile (fs, buf);
+	prfs (buf);
+	}
+
+prfs (s)
+	char *s;
+
+	{char buf[500];
+	int f, line, ocin;
+	extern int cin;
+
+	ocin = cin;
+	cprint ("%s:\n", s);
+	f = copen (s, 'r');
+	if (f<0)
+		{cprint ("\tcan't open\n");
+		return;
+		}
+	cin = f;
+	line = 0;
+	while (TRUE)
+		{gets (buf);
+		if (ceof (cin)) break;
+		++line;
+		if (sindex (pattern, buf) >= 0)
+			cprint ("%d: %s\n", line, buf);
+		}
+	cclose (cin);
+	cin = ocin;
+	}
+
+
\ No newline at end of file