1
0
mirror of https://github.com/PDP-10/its.git synced 2026-01-29 05:11:14 +00:00

VIEW - view file.

This commit is contained in:
Lars Brinkhoff
2018-11-12 14:33:04 +01:00
parent 792e326469
commit 9c77401d88
3 changed files with 16 additions and 0 deletions

View File

@@ -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"