Cancel a repeat with a button

[Ludovic Thébault]

Hello,

How interrupt a repeat loop by a button ?
While a copy of a lot of files with rev, i want the user can cancel  
the copy.

  repeat for each line l in it
           if char 1 of l <> "." then
             put convertpath(tstack&"/"&l) into tpath1
             put convertpath(tlibrary&"/") into tpath2
             get shell("cp "&tpath1&&tpath2)
	end if
end repeat

Thanks.