IsHerc()

         Detects if an Hercules card exists

    Syntax:

         IsHerc() -> lHerc

    Description:

         Detects if an Hercules card exists in the system and it returns a
         logic indicating the result.

    Return:

         .T. if it exists and .F. if not.

    Example:

         If IsHerc()
           ? "There's a Hercules Card"
         EndIf