Thanks you two, hope everything works ok. Otherwise PM me.

@nfs42:
Cool, thanks for adding it. But: The version is A7 C-Script, not lite-C.
As requested is the snippet written in C-Script, but it can easily be converted to lite-C