ufile$="USER"+CHR$(ASC("S")+128)+".SYS"
	open ufile$ recl 128 as 1
	for i%=1 to 250
		read #1, i%; ufn$,uln$,uct$,uac$,udt$,utm$,upw$,udl$
		if udt$=date$ then print ufn$;" ";uln$;" at ";utm$
	next i%
	end