// Declare and initialize the variables
FileNameAndPath is string
FileID is int
SizeWritten is int = 0
ResCloseFile is int

// Select the file name and path
FileNameAndPath = "C:\MyDirectories\File.txt"

// Open file
FileID = fOpen(FileNameAndPath, foReadWrite)

// Display an error message if no file was opened
IF FileID = -1 THEN
	Error(ErrorInfo(errMessage))
ELSE
	// Read the first record
	HReadFirst(Customer, CustomerID)
	// More records to read? Write error?
	WHILE HOut() = False AND SizeWritten <> -1
		// Write the data into the file
		SizeWritten = fWrite(FileID, ...
			Customer.CustomerLastName + TAB + ...
			Customer.CustomerFirstName + TAB + Customer.RealAge + CR)
		// Read the next records
		HReadNext(Customer, CustomerID)
	END
	// Display an error message if the writing was not performed
	IF SizeWritten = -1 THEN Error(ErrorInfo(errMessage))
	// Close the file
	ResCloseFile = fClose(FileID)
	IF ResCloseFile = -1 THEN
		// Display an error message if the closing was not performed
		Error(ErrorInfo(errMessage))
	END
END