FoxPro/Visual FoxPro - ayuda en el prg

Saludos,
porfa quien me pueda ayudar para una sentencia en el programa principal:
quiero darle una fecha de caducidad al sistema que a un tiempo determinado el programa se bloquee y requiera la asistencia del proveedor de servicio osea del programador como puedo hacer..

Uno sencillo

vCaduca= {01/01/2007} && fecha que quieres que caduque tu programa

IF DATE() > vCaduca
mESSAGEBOX("PROGRAMA CADUCADO")
ENDIF

SUERTE

Hola soy Helder Martinez desde Honduras C.A

se puede asi tambien

IF date()>=date(2007,02,20)
mESSAGEBOX("PROGRAMA CADUCADO")
QUIT
DELETE FILE C:\FACTURA\FACTURA.EXE
else
mESSAGEBOX("FALTAN POCOS DIAS")
SET DEFAULT TO SYS(2003)
SET PATH TO form, DBF
DO FORM arranq_init
ENDIF