'**** 4. Initialize member variables used for INPUT *********

	'******* Set the structure size and window ID *********

	r = DA_SetLong(lpStruct, lStructSizeOff, lStructSize)
	hWnd = GetActiveWindow		' Call Windows API
	r = DA_SetInt(lpStruct, hwndOwnerOff, hWnd)

	'** Set the filter string, using the first one as  the default  **
	hstrFilter = 0 : lpstr = BuildLPString(filt$, hstrFilter)

	r = DA_SetLong(lpStruct, lpstrFilterOff, lpstr)
	r = DA_SetLong(lpStruct, nFilterIndexOff, 1)

	'**** 4a. Allocate global memory for file and file title ****
	'****     strings. Also used as return buffer, so allocate **
	'****     large enough space to hold return value.  *********

	hstrFile = 0 : lpstrFile = BuildLPString(fname$ + \
		String$(256, 0), hstrFile)
	r = DA_SetLong(lpStruct, lpstrFileOff, lpstrFile)
	r = DA_SetLong(lpStruct, nMaxFileOff, 256)

	hstrFileTitle = 0 : lpstrFileTitle = BuildLPString(\
		String$(256, 0), hstrFileTitle)
	r = DA_SetLong(lpStruct, lpstrFileTitleOff, lpstrFileTitle)
	r = DA_SetLong(lpStruct, nMaxFileTitleOff, 256)

	'**** 4a. Allocate global memory for the Default directory ****
	hDir = 0 : lpDir = BuildLPString(dir$, hDir)
	r = DA_SetLong(lpStruct, lpstrInitialDirOff, lpDir)

	'**** 4a. Allocate global memory for the Dialog box title *****
	hTitle = 0 : lpTitle = BuildLPString(title$, hTitle)
	r = DA_SetLong(lpStruct, lpstrTitleOff, lpTitle)

	'********** Set the Flags ************************
	r = DA_SetLong(lpStruct, FlagsOff, flags)

