.enable substitution,control-z,escape,global
	.disable display,lowercase,timeout

	.sett system
	.setf user

	directory/br/out=temp.tmp [0,0]*.dir

	.open #1 lb:[sysmgr]user.dat
	.openr #2 temp.tmp

.loop:
	.read #2 temp
	.ift <eof> .goto done
	.test temp "."
	.if <strlen> = 0 .goto loop
	.sets direct temp[3:<strlen>-1]
	.gosub check
	.iff user .goto loop
	.data #1 'direct'
	.goto loop
.done:
	.close #1
	.close #2
	delete temp.tmp;*
	.exit
.;
.check:
	.setf user
	.iff system .goto c1
	.if direct ne "MICUPDATE" .return
	.setf system
	.return

.c1:	.sets group direct[1:3]
	.if group eq "005" .return
	.sett user
	.return