d c. {DO}	TELL
È c.		Tell who is on the terminals
,c.
c.	outputs(unit=6) term, pid, user, acct, owner
ôc.
Xc. -end.of.info-
¼c.	This uses jjterm, that returns the jid, member, and group
 c.	the file W H O . T E M can be copied to define the users.
„c.
è	parameter nuser=400	!! Maximum number of users
Lc.
°	integer*2 uic(2*nuser)
	character*12 user(nuser),userf
x	character*8 acct(nuser),acctf
Ü	character*20 owne(nuser),ownef
@c.................................................Insert who.tem here
¤c..................................................End 
	character*4 tnam(18)
l	data tnam/'OPA0','TTA0','TTA1','TTA2','TTA3'
Ð	1	,'TTA4','TTA5','TTA6','TTA7'
4	1	,'TTB0','TTB1','TTB2','TTB3'
˜	1	,'TTB4','TTB5','TTB6','TTB7'
ü	1	,' '/
`		integer*2 idef(2), member, group
Ä		equivalence( member,idef(1)),( group,idef(2))
ö		character*24 day
(
c===
Œ
	open(unit=6,carriagecontrol='list')
ð
c.
ú
	call date( day )
	call time( day(12:) )
T	write(6,110)'          pid   Usr            Acct      Owner    ',day
¸110	format(132a)
	do 290 ii=1,17
€	  call jjterm( tnam(ii), jid, idef )
ä	  if( jid.ne.0 ) then
H	    do 250 nn=1,nuser,2
¬	      if(uic(nn).eq.0 .and.uic(nn+1).eq.0) goto 255
	      if(group.eq.uic(nn).and.member.eq.uic(nn+1) ) then
t	        userf = user(nn/2+1)
Ø	        if( uic(nn).eq.1 .and.uic(nn+1).eq.4 )
<	1         userf = 'SCI'		!!special user
 	        acctf = acct(nn/2+1)
	        ownef = owne(nn/2+1)
h	        goto 275
Ì	      endif
0250	    continue
”255	continue
ø	    encode(12,260,userf)group,member
\260	    format(o3,o3)
À	    do 265 mm=1,6
$	      if(userf(mm:mm).eq.' ')userf(mm:mm)='0'
ˆ265	    continue
ì	    acctf = ' '
P	    ownef = ' '
´c.
275	continue
|	write(6,280) tnam(ii),jid,userf,acctf,ownef
à280	format( 1x,a4, 1x,z8,1x, a12,3x, a8,2x, a20 )
c.	           c2     c6     c15     c30    c40
D	  endif
¨290	continue
		end