Build WHOJ. Make links for TS TALK, TS WHO, TS WHOJ, TS WHOM, TS USERS.

Makefile

@@ -1,6 +1,6 @@
 EMULATOR ?= simh
 
-SRC = system syseng sysen1 sysen2 sysnet kshack dragon channa midas _teco_ emacs rms klh syshst sra mrc ksc
+SRC = system syseng sysen1 sysen2 sysnet kshack dragon channa midas _teco_ emacs rms klh syshst sra mrc ksc cstacy
 DOC = info _info_ sysdoc kshack _teco_ emacs emacs1
 MINSYS = _ sys sys2 sys3 device emacs _teco_ sysbin inquir
 

README.md

@@ -86,6 +86,7 @@ from scratch.
    - FTPS, FTP Server
    - FTPU, FTP Client
    - NAME, Shows logged in users and locations, aka FINGER
+   - TALK/WHO/WHOJ/WHOM/USERS, list users.
 
 6. A brand new host table is built from the host table source and
    installed into SYSBIN; HOSTS3 > using H3MAKE.

build/build.tcl

@@ -256,6 +256,25 @@ respond "*" ":midas device;jobdev arc_syseng;arcdev\r"
 expect ":KILL"
 respond "*" ":link device;jobdev ar,device;jobdev arc\r"
 
+respond "*" ":midas sysbin;_ar1:cstacy;whoj\r"
+expect ":KILL"
+respond "*" ":print sys1;..new. (udir)\r"
+type ":vk\r"
+respond "*" ":link sys1;ts talk,sysbin;whoj bin\r"
+type ":vk\r"
+respond "*" ":link sys1;ts who,sysbin;whoj bin\r"
+type ":vk\r"
+respond "*" ":link sys1;ts whoj,sysbin;whoj bin\r"
+type ":vk\r"
+respond "*" ":link sys1;ts whom,sysbin;whoj bin\r"
+type ":vk\r"
+respond "*" ":link sys2;ts users,sysbin;whoj bin\r"
+type ":vk\r"
+respond "*" ":link sys1;ts w,sys1;ts who bin\r"
+type ":vk\r"
+respond "*" ":link sys2;ts u,sys2;ts users bin\r"
+type ":vk\r"
+
 respond "*" ":midas channa;atsign taraka_syseng; dragon\r"
 expect ":KILL"
 respond "*" ":link sys; atsign dragon,channa; atsign taraka\r"