<pre>on emptyCard where  set cursor to 4  lock screen  if where is in "Card cd" then    repeat with F = 1 to the number of card fields      put empty into card field F    end repeat  else    repeat with F = 1 to the number of fields      put empty into field F    end repeat  end if  unlock screenend emptyCard</pre>