REQ: Code for counting the number of floppy-drives

Hi together,
can anybody give me some support for my little programming-problem.
I'm looking for a code (Turbo Pascal 6.0 for DOS) to get the number of
active Floppy-Diskdrives, no matter wether a disk is in or not. The inbuild
commands like DISKFREE or anything else only work when a disk is in the
drive.

Please send me a code.

Greetings from Germany
Volker