I've try that
code:
 
break on
$nul=open(1,"c:\scriptlogic\kix2001.402\users.txt")
$line=readline(1)
while not @error
for each $user in split($line)
gosub calculate
next
$line=readline(1)
loop
exit

:calculate
Kent's code here

and received the same error. Unless, I'm doing wrong?

Additional comment: Kent's code works perfectly if a specified username is given. It generates the error when a variable ($user) is used for the username..

[ 01 August 2002, 21:58: Message edited by: Jake ]