UFIND - find users on all machines.

src/syseng/ufind.41

@@ -0,0 +1,46 @@
+; -*- Midas -*-
+
+title UFIND to check for user on all machines
+
+char=1
+jclptr=2
+valptr=3
+
+jcllen==10.
+jclbuf:	block jcllen
+
+;;; make this a multiple of 5, please!
+valbeg: ascii /:kill
+:charfs REAGAN NAME   /
+
+valcon: block jcllen+1
+
+go:	.break 12,[..rjcl,,jclbuf]
+	skipn jclbuf
+lost:	 .value [ascii /: Usage is :UFIND <username>KILL
+/]
+	move jclptr,[440700,,jclbuf]
+loop:	ildb char,jclptr
+	caie char,40
+	 cain char,^I
+	  jrst loop
+	caie char,^C
+	 cain char,^_
+	  jrst lost
+	cain char,^M
+	 jrst lost
+	move valptr,[440700,,valcon]
+coplop:	idpb char,valptr
+	ildb char,jclptr
+	caie char,^C
+	 cain char,^_
+	  jrst copdon
+	caie char,^M
+	 jrst coplop
+copdon:	movei char,^M
+	idpb char,valptr
+	movei char,^V		;turn on typeout!
+	idpb char,valptr
+	.value valbeg
+
+end go