From 9c77401d88530097fda4cefd233e754690ea3645 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Mon, 12 Nov 2018 14:33:04 +0100
Subject: [PATCH] VIEW - view file.

---
 build/emacs.tcl  | 14 ++++++++++++++
 doc/programs.md  |  1 +
 src/kmp/ts.dumpt |  1 +
 3 files changed, 16 insertions(+)
 create mode 120000 src/kmp/ts.dumpt

diff --git a/build/emacs.tcl b/build/emacs.tcl
index 323a953e..19870d42 100644
--- a/build/emacs.tcl
+++ b/build/emacs.tcl
@@ -112,3 +112,17 @@ respond "\n" "\030\023"
 respond "Write File" "info; info 48\r"
 respond "Written" "\030\003"
 respond "*" ":kill\r"
+
+# VIEW
+respond "*" ":emacs\r"
+respond "EMACS Editor" "\033xload\033purify\r"
+respond "\n" "\033x& compress file\033turnip; view >\r"
+respond "Compressing file" "\030\003"
+respond "*" ":kill\r"
+respond "*" ":tctyp aaa\r"
+respond "*" ":cwd kmp\r"
+respond "*" "kmp\033\023"
+respond "*" ":dumpt \033turnip;view\r"
+expect "Dumped to"
+respond "*" ":tctyp la36\r"
+respond "*" ":move turnip; ts view, sys3;\r"
diff --git a/doc/programs.md b/doc/programs.md
index 2c00b05f..455e52db 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.
+- VIEW, view file.
 - VT07, GT40 Datapoint emulator and Lisp display slave.
 - VTTIME, display running time on the terminal.
 - VV/VJ/DETREE, list jobs.
diff --git a/src/kmp/ts.dumpt b/src/kmp/ts.dumpt
new file mode 120000
index 00000000..83ce1a72
--- /dev/null
+++ b/src/kmp/ts.dumpt
@@ -0,0 +1 @@
+sys/ts.nt
\ No newline at end of file