<pre>on popCard  global traceCartes  put the number of lines of traceCartes into x  if x is 0 then go to stack pile("Moteur")  else    go to last line of traceCartes    delete last line of traceCartes  end ifend popCard</pre>