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

PP_CRPPP()
Create a new control file with blank data
------------------------------------------------------------------------------

Syntax
  PP_CRPPP()  .  lResult

Returns
  .T. always

Description
  If the control file (.ppp file) gets erased and the master diskettes
  were lost, this function can be used to create a dummy control
  file with blank string data, serial number 1, demo expire type,
  and date()+15 day expire date.  This could be used temporarily
  until a new control file is received.  If your product initially
  goes out as a demo and gets unlocked, you might want to
  destroy (overwrite, not just erase) the control file (.PPP) from
  the floppy upon initialization.  This is so that the smart user
  can't copy it over (in the case of execution-count limiting) and
  have more time with the demo than desired.

Example

This is most often implemented in one of the hidden user-code
positions.  Refer to PP_UCODE() for more information on integrating.

get_code=0
@ 20,10 say "Enter code: " get get_code
read

&& define 5 as the "create blank ppp file" code
if pp_ucode(get_code)=5
    pp_crppp()
endif