<pre>on consultationRapideDessins  set name of the target to "Arrter consultation"  global browsingMarkedCards  if browsingMarkedCards then    repeat until the mouseClick      go next marked cd    end repeat  else    repeat until the mouseClick      go next cd    end repeat  end if  set name of the target to "Consultation rapide"end consultationRapideDessins</pre>