diff --git a/bin/_teco_/mod928.177114 b/bin/_teco_/mod928.177114
new file mode 100755
index 00000000..990300e3
Binary files /dev/null and b/bin/_teco_/mod928.177114 differ
diff --git a/bin/_teco_/modedf.177 b/bin/_teco_/modedf.177
new file mode 100755
index 00000000..48b31783
Binary files /dev/null and b/bin/_teco_/modedf.177 differ
diff --git a/bin/_teco_/modeta.114 b/bin/_teco_/modeta.114
new file mode 100755
index 00000000..af7f2bb2
Binary files /dev/null and b/bin/_teco_/modeta.114 differ
diff --git a/bin/_teco_/tecpur.928 b/bin/_teco_/tecpur.928
new file mode 100755
index 00000000..7b926586
Binary files /dev/null and b/bin/_teco_/tecpur.928 differ
diff --git a/bin/_teco_/ts.rmode b/bin/_teco_/ts.rmode
new file mode 120000
index 00000000..66bfe1ff
--- /dev/null
+++ b/bin/_teco_/ts.rmode
@@ -0,0 +1 @@
+_teco_/mod928.>
\ No newline at end of file
diff --git a/build/emacs.tcl b/build/emacs.tcl
index f78baa64..5526651a 100644
--- a/build/emacs.tcl
+++ b/build/emacs.tcl
@@ -138,3 +138,6 @@ respond "*" ":move turnip; ts view, sys3;\r"
 
 # VDIR
 respond "*" ":link sys3; ts vdir, ts view\r"
+
+# RMODE
+respond "*" ":link sys1; ts rmode, .teco.;\r"
diff --git a/doc/programs.md b/doc/programs.md
index d00d947a..d268c99e 100644
--- a/doc/programs.md
+++ b/doc/programs.md
@@ -265,6 +265,7 @@
 - REDRCT, redirect IP routing.
 - RIPDEV, replacement for MLDEV for no-longer-existing machines.
 - RMAIL, mail reading client.
+- RMODE, text editor.
 - RMTDEV, MLDEV for non-ITS hosts.
 - RUG, PDP-11 debugger.
 - SALV, old file system tool for KA and KL.