/* $Revision Header built automatically *************** (do not edit) ************
**
** © Copyright by Dirk Federlein
**
** File             : dfa2dif.dfa
** Created on       : Sonntag, 30.04.95 21:59:12
** Created by       : Dirk Federlein
** Current revision : V1.0
**
**
** Purpose
** -------
**     Export script for dif formatted files (e.g. 'Datamat')
**
** Revision V1.0
** --------------
** created on Sonntag, 30.04.95 21:59:12  by  Dirk Federlein.   LogMessage :
**     --- Initial release ---
**
*********************************************************************************/

options results

tabchar = '09'X
cr		= '0A'X
lf		= '0D'X
quote	= '22'X

exportfile = 't:dfa_export.dif'

if ~show(ports, DFA) then
do
	exit 10
end

if open('exfh',exportfile,'W') then
do
	address 'DFA'

	FIRST STEM ADR.
	
	do while RC = 0
		writech('exfh', ADR.ADDRESS.1||tabchar||ADR.ADDRESS.2||tabchar||ADR.ADDRESS.6||cr||lf)

		NEXT STEM ADR.
	end

	close ('exfh')

end