<pre>on createCards theCards  toComputer  if theCards is empty then exit createCards  put the number of lines of theCards into limit  repeat with x = 1 to limit    put limit-x    put line x of theCards into targetCard    if there is not a cd targetCard then      doMenu "New card"      put targetCard into fld "fileType"      set the name of this cd to targetCard    end if  end repeatend createCards</pre>