; -*- 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