this code will only work on 16-bit applications (only DOS).
I don't remember if Free Pascal compiles for DOS, or Windows 32bit Console application:?

I'm shure this stuff must work on Turbo Pascal