set InFolder to "Macintosh HD:Desktop Folder:In:" 
display dialog "Ausgabe:" default answer "" 
set Ausgabe to text returned of result 
tell application "QuarkXPress™" 
activate 
repeat with currentDoc from 1 to count documents 
tell document currentDoc 
set currentChar to last character of (get name) 
repeat with currentPage from 1 to count pages 
set currentName to InFolder & currentChar & currentPage & "_" & Ausgabe & ".eps" 
save page currentPage in currentName as "EPSF" EPS format Mac Color EPS data binary EPS 
end repeat 
end tell 
end repeat 
end tell 

save page currentPage in currentName as "EPSF" EPS format Mac Color EPS data binary EPS [b]scale 100 

set view scale to "100%" 
do updates