!
	! Register data.
	! It would be most convenient to be able to define an array
	! of structures for the register, but it can't be done
	! in FORTRAN (it can be done for some other languages).  What's one
	! instead is to define a single structure into which to put data via
	! structure names and also an array of strings.  After data has been
	! put into the structure, it is copied to the array for convenience
	! in scrolling.
	!
	COMMON/REGISTER/ REGARRAY,	! REGISTER DATA array
	1		 REGITEM,	! Individual register structure
	2		 LASTREGNUM,	! Last number used in the register (1...REGSIZE)
	3		 LASTCHNUM,	! Last check number used
	4		 BALANCE,	! Balance in account, numeric
	5		 SBALANCE,	! Starting balance
	6		 TOTDEP,	! Total deposits made in this session
	7		 TOTPAY,	! Total checks payed in this session
	8		 CURLINE,
	9		 MAXWINDOW,
	1		 MINWINDOW



	INTEGER REGSIZE
	PARAMETER (REGSIZE = 30)
	CHARACTER*64	REGARRAY(REGSIZE)

	CHARACTER*64	REGITEM
	CHARACTER*4	RI_NUM
	EQUIVALENCE (REGITEM(1:), RI_NUM)
	CHARACTER*7	RI_DATE
	EQUIVALENCE (REGITEM(5:), RI_DATE)
	CHARACTER*35	RI_MEMPAYTO
	EQUIVALENCE (REGITEM(12:), RI_MEMPAYTO)
	CHARACTER*6	RI_AMTDEP
	EQUIVALENCE (REGITEM(47:), RI_AMTDEP)
	CHARACTER*6	RI_AMTPAY
	EQUIVALENCE (REGITEM(53:), RI_AMTPAY)
	CHARACTER*6	RI_BALANCE
	EQUIVALENCE (REGITEM(59:), RI_BALANCE)
	
	INTEGER LASTREGNUM,LASTCHNUM,BALANCE,SBALANCE,TOTDEP,TOTPAY,
	1	CURLINE, MAXWINDOW, MINWINDOW