From b3b643d7f71e2d4a4684d37fdc2caba65b50b7c4 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Tue, 13 Nov 2018 07:44:00 +0100
Subject: [PATCH] VDIR - view directory.

---
 build/emacs.tcl | 3 +++
 doc/programs.md | 1 +
 2 files changed, 4 insertions(+)

diff --git a/build/emacs.tcl b/build/emacs.tcl
index 19870d42..40ef918d 100644
--- a/build/emacs.tcl
+++ b/build/emacs.tcl
@@ -126,3 +126,6 @@ respond "*" ":dumpt \033turnip;view\r"
 expect "Dumped to"
 respond "*" ":tctyp la36\r"
 respond "*" ":move turnip; ts view, sys3;\r"
+
+# VDIR
+respond "*" ":link sys3; ts vdir, ts view\r"
diff --git a/doc/programs.md b/doc/programs.md
index 455e52db..d47be112 100644
--- a/doc/programs.md
+++ b/doc/programs.md
@@ -289,6 +289,7 @@
 - URUG, GT40 debugger.
 - USQ/TYPESQ, unsqueeze/uncram or type a file.
 - VERSA/SPOOLR, Versatec/Gould printer spooler.
+- VDIR, view directory.
 - VIEW, view file.
 - VT07, GT40 Datapoint emulator and Lisp display slave.
 - VTTIME, display running time on the terminal.