// Declare and initialize the variables
DirectoryName is string
ArchiveName is string = "MyArchive"
CreationErrorCode is int
AdditionErrorCode is int

// Create an archive
CreationErrorCode = zipCreate(ArchiveName, "C:\MyDirectory\MyArchives\PdfArchive.wdz")

// Display an error message if the archive was not created
IF CreationErrorCode = 0 THEN
	// Select the directory
	DirectoryName = fSelectDir("", "", "Directory to add")

	// Adds "BMP" files from the selected directory
	// and subdirectories to the archive
	AddErrorCode = zipAddDirectory(ArchiveName, DirectoryName, True, "", ...
		 zipDrive, zipAddDirectory_Callback)

	// Display an error message if the files have not been added
	IF AdditionErrorCode <> 0 THEN
		 Error(zipMsgError(AdditionErrorCode))
	END
ELSE
	Error(zipMsgError(CreationErrorCode))
END

INTERNAL PROCEDURE zipAddDirectory_Callback(FileName is string)
	IF fExtractPath(FileName, fExtension) ~= ".gif" THEN
		RETURN True
	ELSE
		RETURN False
	END
END