From a84196168f3ea43db57800a5120af58599298581 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Thu, 27 Sep 2018 16:36:19 +0200
Subject: [PATCH] CTN - networking "supdup" CRTSTY.

---
 build/basics.tcl | 10 ++++++++++
 doc/programs.md  |  1 +
 2 files changed, 11 insertions(+)

diff --git a/build/basics.tcl b/build/basics.tcl
index 5ca00469..4f3dcb0e 100644
--- a/build/basics.tcl
+++ b/build/basics.tcl
@@ -82,6 +82,16 @@ respond " BIN" "\r"
 respond "*" ":kill\r"
 respond "*" ":link sys3;ts crtsty,sysbin;crtsty bin\r"
 
+# CTN, networking "supdup" CRTSTY
+respond "*" ":midas /t sysbin;ctn bin_syseng; crtsty\r"
+respond "with ^C" "NET==1\r\003"
+expect ":KILL"
+respond "*" ":job ctn\r"
+respond "*" ":load sysbin; ctn bin\r"
+respond "*" "purify\033g"
+respond " BIN" "sys3; ts ctn\r"
+respond "*" ":kill\r"
+
 respond "*" ":midas /t sysbin;_sysen2;peek\r"
 peek_switches
 expect ":KILL"
diff --git a/doc/programs.md b/doc/programs.md
index b7096963..3fac17cc 100644
--- a/doc/programs.md
+++ b/doc/programs.md
@@ -56,6 +56,7 @@
 - CRTSTY, provide display support for additional terminal types.
 - CTIMES, Chaosnet time server.
 - CTIMSR, Chaosnet time server.
+- CTN, networking "supdup" CRTSTY.
 - D, SUDS drawing program
 - DATE, print date and time.
 - DATSRV, server for RFC 867 Daytime protocol.