<pre>on scoopSelectedStack  toComputer  answer file "`Which stack to scoop ?" of type "STAK"  if it is empty or it is "Cancel" then exit scoopSelectedStack  put it into stackToScoop  put "Scooping stack" && quote & stackToScoop & quote  put resList (stackToScoop) into allResOfStack  if allResOfStack is empty then exit scoopSelectedStack  ---------------------------------------------------------------------------  put disk() & ":Lauzon conduite:New resources" into filename  open file filename  repeat with y = 1 to the number of lines of allResOfStack    write "" & tab to file filename    write item 1 of line y of allResOfStack & tab to file filename    write item 2 of line y of allResOfStack & tab to file filename    write item 2 of line y of allResOfStack & tab to file filename    write item 3 of line y of allResOfStack & tab to file filename    write item 4 of line y of allResOfStack & tab to file filename    write stackToScoop & return to file filename  end repeat  close file filename  ---------------------------------------------------------------------------  open filename with disk() & ":Excel:Excel"end scoopSelectedStack</pre>