<pre>function currentBeats offsetToGMT  subtract 1 from offsetToGMT -- turn this into offset to CET  put 86.4 into secsPerBeat  put the long time into currTime  convert currTime to dateItems  put (item 4 of currTime) *60 *60 into vSeconds  subtract offsetToGMT *60 *60 from vSeconds -- convert to CET  add (item 5 of currTime) *60 to vSeconds  add (item 6 of currTime) to vSeconds  return vSeconds div secsPerBeatend currentBeats</pre>