<pre>function laTPS N,T  global tauxTPS  if T is in "FTX" then get ((N * tauxTPS) / 100) else get 0  return itend laTPS</pre>