I think I may have found a pure pascal implemation here - http://www.colosseumbuilders.com/sourcecode.htm

Will need to test it before I give it the thumbs up.