<pre>function randomAccessCode codeLength  ---  put "ABCDEFGHIJKLMNOPQRSTUVWXYZ" into charsPool  repeat    repeat with x = 1 to codeLength      put char (the random of 25) of charsPool after accessCode    end repeat    if there is not anAccessCode(accessCode) then return accessCode  end repeat  ---end randomAccessCodefunction anAccessCode accessCode  return there is a card accessCode -- if cards are being randomly named.  return there is a file prefsFolder() & accessCode -- if each random access code creates a file.end anAccessCode</pre>