diff --git a/Makefile b/Makefile
index 0271c153..33b5d1f4 100644
--- a/Makefile
+++ b/Makefile
@@ -40,7 +40,7 @@ DOC = info _info_ sysdoc sysnet syshst kshack _teco_ emacs emacs1 c kcc \
 BIN = sys sys1 sys2 emacs _teco_ lisp liblsp alan inquir sail comlap \
       c decsys graphs draw datdrw fonts fonts1 fonts2 games macsym \
       maint _www_ gt40 llogo bawden sysbin -pics- lmman r shrdlu imlac \
-      pdp10 madman
+      pdp10 madman survey
 MINSRC = midas system $(DDT) $(SALV) $(KSFEDR) $(DUMP)
 
 # These are not included on the tape.
diff --git a/bin/survey/atsign.sursnd b/bin/survey/atsign.sursnd
new file mode 100644
index 00000000..3328b6ab
Binary files /dev/null and b/bin/survey/atsign.sursnd differ
diff --git a/build/dm.tcl b/build/dm.tcl
index e382e1fe..6b8ebcee 100644
--- a/build/dm.tcl
+++ b/build/dm.tcl
@@ -33,3 +33,7 @@ respond "*" ":midas survey; atsign surgiv_surgiv\r"
 expect ":KILL"
 respond "*" ":link sys; atsign surgiv, survey;\r"
 type ":vk\r"
+
+# Survey sender demon.
+respond "*" ":link sys; atsign sursnd, survey;\r"
+type ":vk\r"
diff --git a/build/timestamps.txt b/build/timestamps.txt
index 16b84aaf..d51cd765 100644
--- a/build/timestamps.txt
+++ b/build/timestamps.txt
@@ -1730,6 +1730,7 @@ shrdlu/ts.twdemo 197110312144.38
 sra/usefmt.9 198905011833.08
 stan_k/3406.40 197411302122.54
 _/@.stink 197306120431.21
+survey/atsign.sursnd 197610191929.05
 survey/surgiv.mmb012 197606212141.59
 survey/survey.msg207 197801272221.28
 sys1/ts.speedy 197408060500.00
diff --git a/doc/programs.md b/doc/programs.md
index 7bb4da9b..f75100f5 100644
--- a/doc/programs.md
+++ b/doc/programs.md
@@ -321,6 +321,7 @@
 - SUPARD, draw ARDS graphics to SUPDUP.
 - SUPDUP, Supdup client.
 - SURGIV, survey giver demon.
+- SURSND, Arpanet survey sender demon.
 - SURVEY, survey Arpanet hosts.
 - SWAR, Imlac Spacewar.
 - SYSCHK, check up on system job.