ChkDsk()

         Checks a floppy format

    Syntax:

         ChkDsk ( nDisk ) -> nFormat

         nDisk : Disk unit to ckeck. A: -> 0, B: -> 1.

    Description:

         Checks a floppy disk format and returns a numerical value.

    Return:

         -2 Bad parameters
         -1 Format error
          0 Unknown format
          1 360 kb   5. DD
          2 720 kb   3. DD
          3 1.2 mb   5. HD
          4 1.44 mb  3. HD

    Example:

         nFormat := ChkDsk ( 0 )
         If nFormat > 0
           Format ( 0, nFormat, .T. )
         Else
           Warning ( "Unknown format" )
         EndIf