C
C UAC.INC
C
C Include file for UAC program.
C
C Modifications:
C V1.0	05-Mar-84  FJN	Created
C V2.0	16-Mar-84  FJN	Added extra text field
C
	INTEGER*4 UAC_K_RECMAX		!Maximum size of access file record
	INTEGER*4 UAC_K_KEYMAX		!Maximum size of access file key
	INTEGER*4 UAC_K_PWDMAX		!Maximum size of password text
	INTEGER*4 UAC_K_TXTMAX		!Maximum size of extra text
	PARAMETER (UAC_K_KEYMAX = 32, UAC_K_PWDMAX = 255)
	PARAMETER (UAC_K_TXTMAX = 80)
	PARAMETER (UAC_K_RECMAX = UAC_K_KEYMAX + UAC_K_TXTMAX + 8)
	INTEGER*4 UAC_L_ACNT		!Offset to access count
	INTEGER*4 UAC_L_HPWD		!Offset to hashed password
	INTEGER*4 UAC_T_NAME		!Offset to username key
	PARAMETER (UAC_L_ACNT = 1, UAC_L_HPWD = 5, UAC_T_NAME = 9)
	INTEGER*4 UAC_B_MPWL		!Offset to minimum password length
	INTEGER*4 UAC_B_LCPW		!Offset to lowercase password flag
	INTEGER*4 UAC_B_XTSZ		!Offset to extra text length
	PARAMETER (UAC_B_MPWL = UAC_L_HPWD, UAC_B_LCPW = UAC_B_MPWL + 2)
	PARAMETER (UAC_B_XTSZ = UAC_B_MPWL + 1)
C
C File open flag/unit number and file parameters:
C
	COMMON /FILE/ uacfile, namelen, reclen, minpwdlen, lcpwd,
	1	      textlen, textbeg, keyend, count_access
C
	INTEGER*2 uacfile		!File open flag/unit number
	INTEGER*2 namelen		!Length of space-filled username
	INTEGER*2 reclen		!Length of UACFILE record
	INTEGER*2 minpwdlen		!Minimum allowed password length
	LOGICAL*2 lcpwd			!Lowercase password flag
	INTEGER*2 textlen		!Length of extra text field
	INTEGER*2 textbeg		!Offset to extra text in record string
	INTEGER*2 keyend		!End of key field in record string
	LOGICAL*2 count_access		!Flag to increment record access count
C
	COMMON /RECORD/ record
	CHARACTER*(UAC_K_RECMAX) record	!Record buffer
C