var
  User
  UserFields
  UserFileHandle
  LoginName
  NewUser
  UserFileName = 'V:\USER.BTD'

Qualifier
  RecNum
  Name
  From
  Password
  Access
  Flags
  FirstCall
  LastCall
  Calls
  Phone
  Company
  ExpDate

Procedure OpenDataBase
   UserFields[1] = Set['RecNum','Auto','Key']
   UserFields[2] = Set['Name','String',35,'Key','Mod','Dup','Upper']

   BtrvReset
   UserFileHandle = BtrvOpen(UserFileName,UserFields)
   if UserFileHandle = 0
      ExitMenu
   endif
EndProc
