*** seed and ignore the first returned value m.zfilename = intrandrange(00000000, 99999999, 87654321) FOR m.zusercount = 1 TO m._vsomaxuser *** get an integer for use as a filename m.zfilename = ALLTRIM(STR(intrandrange(00000000, 99999999))) + ".acu" m.zfh = FCREATE(m.zfilename) wait window "1" + str(m.zusercount) + " " + m.zfilename + str(m.zfh) IF m.zfh > -1 *** Person is no longer using the application and did not *** log out properly, now that we have the open handle keep it *** open and exit EXIT ENDIF ENDFOR wait window "2" + str(m.zusercount) + " " + m.zfilename + str(m.zfh) IF (!m.nomore) AND (m._vsolan AND m.zusercount > m._vsomaxuser AND m._vsomaxusers > 0) * WARNING !!! Maximum * users Allowed; Close Idle Instances of this Applcation before * ReStarting; If a Node was Hanged or ReBooted Please ReStart ALL * Instances again m.nomore = .T. ENDIF