<pre>on scoopAllResources  toComputer  put "All scooped res" into filename  open file filename  put liste("piles") into allStacks  put the long name of hyperCard & return after allStacks  put disk() & ":System:System" & return after allStacks  ---------------------------------------------------------------------------  repeat with x = 1 to the number of lines of allStacks    put "Scooping stack" && quote & line x of allStacks & quote    put resList (line x of allStacks) into allResOfStack    if allResOfStack is empty then next repeat    repeat with y = 1 to the number of lines of allResOfStack      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 3 of line y of allResOfStack & tab to file filename      write item 4 of line y of allResOfStack & tab to file filename      write line x of allStacks & return to file filename    end repeat  end repeat  ---------------------------------------------------------------------------  close file filename  beep 3  open filename with disk() & ":Excel:Excel"end scoopAllResources</pre>