<pre>on emptyFields where  set cursor to 4  lock screen  if where is in "Card cd" then    repeat with F = 1 to the paramCount      put empty into card field ID (the param of F)    end repeat  else    repeat with F = 1 to the paramCount      put empty into field ID (the param of F)    end repeat  end if  unlock screenend emptyFields</pre>