[ghenne]

Here is the code in an App Studio project:

http://blog.nsbasic.com/?p=1060

Runs fine on an iPhone 5!