added Pascal code for Turbo Pascal (MS-DOS) version