tell application "QuarkXPress 6.5" 
  activate 
  my makeBoxes() 
end tell 
 
on makeBoxes() 
  set curVal to 0 
  set y1 to 40 
  tell document 1 of application "QuarkXPress 6.5" 
    repeat with i from 1 to 10 
      set y1 to y1 + 11 
      set x1 to 50 
      set y2 to y1 + 10 
      repeat with j from 1 to 10 
        set curVal to curVal + 1 
        set x2 to x1 + 10 
        make picture box at beginning with properties {bounds:{y1, x1, y2, x2} ¬ 
          , color:"Magenta", shade:curVal} 
        set x1 to x1 + 11 
      end repeat 
    end repeat 
  end tell 
end makeBoxes 

tell application "QuarkXPress 6.5" 
  activate 
  do script {makeBoxes} 
end tell 
 
script makeBoxes 
  set curVal to 0 
  set y1 to 40 
  tell document 1 of application "QuarkXPress 6.5" 
    repeat with i from 1 to 10 
      set y1 to y1 + 11 
      set x1 to 50 
      set y2 to y1 + 10 
      repeat with j from 1 to 10 
        set curVal to curVal + 1 
        set x2 to x1 + 10 
        make picture box at beginning with properties {bounds:{y1, x1, y2, x2} ¬ 
          , color:"Magenta", shade:curVal} 
        set x1 to x1 + 11 
      end repeat 
    end repeat 
  end tell 
end script