Click above to get retro games delivered to your door ever month!

PP_EXPIRED()
Is this application expired?
------------------------------------------------------------------------------

Syntax
  PP_EXPIRED()  .  lResult

Returns
  .T. if the application is expired or the control file is corrupted,
  .F. otherwise.

Description
  Checks to see if first the current date is greater than the expire
  date.  If the expire type is set to "E", it checks to make sure that
  the execution count is greater than the execution count limit.  If
  either of these conditions is true, the function returns .T..

Example

NOTE that if it has expired (by date) it is important to perform a
pp_upddate() (described later) so that the combination of the date
checking and the expiration date checking prohibit unauthorized use
of your application.

if pp_expired()
    ? "Sorry, but the demo for this product has expired... Please"
    ? "call and order from C.R.S. at 412-471-7638"
    ?
    pp_upddate()
    cancel
endif