Old Pascal code from the 90's