!
	! Account (Read in from file)
	!
	COMMON /ACCOUNT_AREA/ ACCOUNT

	CHARACTER*151	ACCOUNT
	CHARACTER*5	ACCTNO
	EQUIVALENCE (ACCOUNT(1:), ACCTNO)
	CHARACTER*7	ACCDATES
	EQUIVALENCE (ACCOUNT(6:), ACCDATES)
	CHARACTER*20	LAST
	EQUIVALENCE (ACCOUNT(13:), LAST)
	CHARACTER*15	FIRST
	EQUIVALENCE (ACCOUNT(33:), FIRST)
	CHARACTER*15	MIDDLE
	EQUIVALENCE (ACCOUNT(48:), MIDDLE)
	CHARACTER*30	STREET
	EQUIVALENCE (ACCOUNT(63:), STREET)
	CHARACTER*20	CITY
	EQUIVALENCE (ACCOUNT(93:), CITY)
	CHARACTER*2	STATE
	EQUIVALENCE (ACCOUNT(113:), STATE)
	CHARACTER*5	ZIP
	EQUIVALENCE (ACCOUNT(115:), ZIP)
	CHARACTER*10	HOMEPH
	EQUIVALENCE (ACCOUNT(120:), HOMEPH)
	CHARACTER*10	WORKPH
	EQUIVALENCE (ACCOUNT(130:), WORKPH)
	CHARACTER*12	OPW
	EQUIVALENCE (ACCOUNT(140:), OPW)

	CHARACTER*15	TRIM_FIRST
	CHARACTER*15	TRIM_CITY