How to give user feedback during long shell script

I found a script on the Econ technologies website to have the Finder burn a CD. I will use a modified version to burn a long audio file CD from within Filemaker Pro 9.

My question is…

Is there a way to give the user feedback that the script is running fine since it can take 3 to 4 minutes to burn the CD?

Below is the script.

The Problem is how to give feedback after the “do shell script” is executed.

(*

Burn CD ROM Script
Copyright (c) 2004
Econ Technologies, Inc.
All rights reserved
[url=http://www.econtechnologies.com]www.econtechnologies.com[/url]

This script may be freely distributed provided it retains this copyright notice.
Modifications of this script must contain 
the comment: "Based on Burn CD ROM Script Script by Econ Technologies, Inc."

*)

– Change to using a file instead of a folder and see if works
–change docName to client name
–then change to get info from filemaker database the file and docName
set myFileName to choose file with prompt “choose the file you want to burn to a CD…”
– Name of the DMG that will be created prior to burning to CD
set docName to “AllynMiller.dmg”
–set cell to burn in filemaker to “UserCanceled” in case they click cancel in next dialog box
display dialog "Making CD ROM from file: " & myFileName

– Verify file exists through finder
tell application “Finder”
set workingFile to file myFileName
if exists workingFile then
set fileStatus to true
set fileSize to size of workingFile
– set folderPath to quoted form of POSIX path of myFileName
set filePath to POSIX path of (workingFile as alias)
else
set fileStatus to false
end if
end tell

– Create the CD
if fileStatus is equal to true then
set dataSize to ((fileSize / 1000) / 1000)
if dataSize > 692.0 then
display dialog “The size of the folder, " & dataSize & " MB, is larger than a typical writable CD.” & return & “Do you wanto to continue?”
end if

-- Execute shell command to create intermediate DMG
do shell script "cd ~; hdiutil create -srcfolder " & quoted form of filePath & " " & quoted form of docName

-- Execute shell command to burn DMG
display dialog "Please insert a blank, writable CD."
do shell script "cd ~; hdiutil burn " & quoted form of docName

-- Delete DMG
do shell script "cd ~; rm -f " & quoted form of docName

display dialog "CD Complete" buttons {"OK"} default button "OK"

end if

Model: Intel iMac
Browser: Safari 525.27.1
Operating System: Mac OS X (10.4)