IsPirate()

         Determines if the program is a pirated copy

    Syntax:

         IsPirate() -> lIsPirate

    Description:

         This function determines if the program in execution is a pirated
         copy.  The first time you run the program it will be automarked.
         In this way, you can check this mark on next executions.
         If you execute the program in another system, IsPirate() will
         return .T., otherwise it will return .F.

    Return:

         A logic value indicating if the program in execution is a pirate
         copy.

    Example:

         If IsPirate()
           ? "Don't forget to register"
           Quit
         EndIf