clone from https://www.ticalc.org/archives/files/fileinfo/319/31951.html - View it on GitHub