This question popped up on the newsgroup today and it is something I have seen asked from time to time and the solution is quite straight forward. I always forget to make a note of it though and figured this was an opportunity. With permission from Mike, here is his implementation as posted to comp.lang.clarion:
Since this is a public gist, any comments or suggestions please let me know and I will update the gist or we can move it to a github repo or whatever. If you have your own implementation please share it as well!