Pascal codes from http://wolfgang-ehrhardt.de/ , found in WebArchive - View it on GitHub