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

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

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"

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