Turbo Pascal code