From 57ac2b1b70b0f2fd81391f487d0ccd960428e08b Mon Sep 17 00:00:00 2001
From: Eric Swenson <eric@swenson.org>
Date: Tue, 20 Dec 2016 17:10:17 -0800
Subject: [PATCH] Added ACOUNT. This is a dummy account program that allows
 users people coming from "safe" sites to login without an account. Resolves
 #285.

Source code from AR9: KMP; DUMMY ACOUNT.
---
 README.md           |  1 +
 build/build.tcl     |  4 ++++
 src/sysen3/acount.1 | 34 ++++++++++++++++++++++++++++++++++
 3 files changed, 39 insertions(+)
 create mode 100644 src/sysen3/acount.1

diff --git a/README.md b/README.md
index 6ba1118b..ea06db7e 100644
--- a/README.md
+++ b/README.md
@@ -100,6 +100,7 @@ A list of [known ITS machines](doc/machines.md).
 
    - 11SIM, PDP-11 emulator.
    - @, cross reference generation tool.
+   - ACOUNT, dummy account program used for users from safe sites.
    - ARCCPY, copies and old-format archive, converting to new format.
    - ARCDEV, transparent file system access to archive files.
    - ARCSAL, archive salvager.
diff --git a/build/build.tcl b/build/build.tcl
index 8b39cefd..5ea9a7b8 100644
--- a/build/build.tcl
+++ b/build/build.tcl
@@ -802,6 +802,10 @@ expect ":KILL"
 respond "*" ":midas sys1;ts arcsal_sysen1;arcsal\r"
 expect ":KILL"
 
+# acount
+respond "*" ":midas sys;ts acount_sysen3;acount\r"
+expect ":KILL"
+
 # timsrv
 respond "*" ":midas sysbin;timsrv bin_sysnet;timsrv\r"
 expect ":KILL"
diff --git a/src/sysen3/acount.1 b/src/sysen3/acount.1
new file mode 100644
index 00000000..6d6a009d
--- /dev/null
+++ b/src/sysen3/acount.1
@@ -0,0 +1,34 @@
+title ACOUNT - Dummy ACOUNT program
+
+a=:1
+b=:2
+
+ttyo=:3
+
+define syscal op,args
+.call [setz ? sixbit /op/ ? args ((setz))]
+termin
+
+define type &string
+	movei a,<.length string>
+	move b,[440700,,[ascii string]]
+	syscal SIOT,[%climm,,ttyo ? b ? a]
+	  .lose %lsfil
+termin
+
+logo:	syscal OPEN,[ %clbit,,.uao\%tjdis ? %climm,,ttyo  ;open TTY for output
+		      [sixbit /TTY/]]
+	  .lose %lsfil
+	type "AYou don't need an account to log in, since you are coming from a safe
+place such as inside a lab at Tech Square.  The :LOGIN command will
+work for you from inside without a password.  Once you have logged
+in, the only registration you need to do is run the :INQUIR program
+to tell us who you are, if you have not done so already.
+
+If you need an account for accessing the machine from outside the
+laboratory, first make yourself known using INQUIR, and then send
+mail to USER-ACCOUNTS asking to be fixed up.
+"
+	.logout 1,
+
+end logo