Format()

         Formats a floppy

    Syntax:

         Format ( nDisk, nFormat, lQuick ) -> nError

         nDisk   : Disk unit to format. A:=0, B:=1.
         nFormat : Format. 360=1, 720=2, 1.2=3, 1.44=4
         lQuick  : A logica value indicating if you want QuickFormat or no.

    Description:

         Formats a floppy disk with a specified format.

    Return:

         -2 Bad parameters
         -1 Format error
          0 Ok

    Example:

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