diff --git a/README.md b/README.md
index e0f16fae..7e810a89 100644
--- a/README.md
+++ b/README.md
@@ -118,6 +118,7 @@ from scratch.
    - RMTDEV, MLDEV for non-ITS hosts
    - IDLE, list idle users
    - SPELL, ESPELL spell checker
+   - DCROCK, digital watch.
 
 6. A brand new host table is built from the host table source and
    installed into SYSBIN; HOSTS3 > using H3MAKE.
diff --git a/build/build.tcl b/build/build.tcl
index 5068911e..b6306460 100644
--- a/build/build.tcl
+++ b/build/build.tcl
@@ -345,6 +345,10 @@ respond "*" ":link channa; rakash pfthmg,dragon; rakash pfthmg\r"
 
 respond "*" ":link sys; ts p,sys; ts peek\r"
 
+respond "*" ":midas sys1;ts dcrock_sysen1;dcrock\r"
+respond "System?" "ITS\r"
+expect ":KILL"
+
 respond "*" ":midas sys1;ts dir_bawden;dir^k\r"
 expect ":KILL"
 
diff --git a/src/sysen1/dcrock.40 b/src/sysen1/dcrock.40
new file mode 100755
index 00000000..93f6e0f5
Binary files /dev/null and b/src/sysen1/dcrock.40 differ
diff --git a/src/sysen1/system.999999 b/src/sysen1/system.999999
new file mode 120000
index 00000000..0e152f79
--- /dev/null
+++ b/src/sysen1/system.999999
@@ -0,0 +1 @@
+syseng/system.>
\ No newline at end of file