IsHardDisk()

         Determines if the current disk is a hard disk

    Syntax:

         IsHardDisk() -> lHard

    Description:

         Determines if the current disk is a hard disk.

    Return:

         A logic value indicating if it's hard disk.

    Example:

         If IsHardDisk()
           Warning( "You have a hard disk" )
         EndIf