Pascal code from the days of yore - View it on GitHub