// Using CA-dBFast to talk to ProgMan to create a program group and icon.

// Establish DDE link between CA-dBFast and the Program Manager
talk to progman about progman

// Determine if contact was made.
if contact()
	// Create the program group.
	// 'Test Group' is the group title.
	execute"[CreateGroup(Test Group)]"
	// Create the program item (icon).
	// 'c:\dbf20b3\dbfast.exe' is the command line, and 'dBFast' is the icon title.
	execute"[AddItem(c:\dbf20b3\dbfast.exe,dBFast)]"
	// Terminate the DDE link.
	terminate
	? 'Program group and item created.'
else
	? 'Could not establish contact.'
endif
	
wait