	program INIT_IDX
cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
c
c	UBBS utilities  -  INIT_IDX
c	This routine will initialize the FILES.IDX file for a download area.
c	Dale Miller - UALR
c
c
c	Rev. 4.3  01-Aug-1986
c
cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
	implicit none
	include 'bbs_inc.for'
	integer istat
	integer sys$gettim

	record/file_description/ fd

c	Open the new indexed file.
	open(unit=4,		shared,
	1   file='files.idx',
	2   status='new',	organization='indexed',
	3   access='keyed',	form='unformatted',
	4   recl=128,		recordtype='fixed',
	5			key=(1:18:character))


	fd.file_name='$Header'
	istat=sys$gettim(fd.upload_date)
	fd.upload_name=' '
	fd.upload_text=' '
	fd.keywords=' '
	write(4)fd
	close(4)
	end
