怎么给软件设置使用次数或使用日期

如何给软件设置使用次数或使用日期？
主程序如下，如何添加代码使得软件设置使用次数或使用日期？
SET SYSMENU OFF
 SET SYSMENU TO
 SET STATUS BAR OFF
 SET TALK OFF
 SET NOTIFY OFF
 SET CLOCK STATUS 
 SET PALETTE OFF
 SET BELL ON
 SET SAFETY OFF
 SET ESCAPE ON
 SET KEYCOMP TO WINDOW
 SET CARRY ON
 SET CONFIRM ON
 SET EXACT ON
 SET NEAR ON
 SET ANSI OFF
 SET LOCK ON
 SET EXCLUSIVE OFF
 SET DELETED ON 
 SET MULTILOCKS ON
 SET HEADING ON
 SET DELETED OFF
 SET OPTIMIZE ON
 SET UNIQUE OFF
 SET CPDIALOG OFF
 SET REFRESH TO 0 , 5
 SET ODOMETER TO 100
 SET BLOCKSIZE TO 64
 SET REPROCESS TO 0
 SET DEFAULT TO SYS(5) + CURDIR()
 SET PATH TO SYS(5) + CURDIR()
 SET SYSFORMATS OFF
 SET SECONDS ON
 SET CENTURY ON 
 SET CURRENCY LEFT
 SET CURRENCY TO 'NT$'
 SET HOURS TO 12
 SET DATE TO ymd
 SET FDOW TO 1
 SET FWEEK TO 1
 SET MARK TO '.'
 SET SEPARATOR TO ','
 SET POINT TO '.'
 With _Screen
  .Visible=.f.
  .WindowState=2
EndWith
 LOCAL LCSYS16 , CPROGRAM
 LCSYS16 = SYS(16)
 LCPROGRAM = SUBSTR(LCSYS16,AT(':',LCSYS16) - 1)
 CD LEFT(LCPROGRAM,RAT('',LCPROGRAM))
 SET DEFAULT TO SYS(5) + SYS(2003)
 SET PATH TO 
 CLEAR ALL
 CLOSE ALL
  WITH ERROR(), ;
  MESSAGE(), ;
  MESSAGE(1), ;
  PROGRAM(), ;
  LINENO(1)
 _SCREEN.VISIBLE = .F.
 _SCREEN.WINDOWSTATE = 1
 DECLARE INTEGER GetSystemMetrics IN win32api AS Get_sysc INTEGER 
 X = GET_SYSC(0)
 Y = GET_SYSC(1)
 IF X <> 1024 .OR. Y <> 768
  IF MESSAGEBOX('本程序运行的最佳显示分辨率为1024*768,' + CHR(13) + CHR(13) + ;
  '您是否决定自动将分辨率更改为1024*768',292,'提示信息') = ;
  6
  DECLARE INTEGER Fblz IN 'fBL.dll' INTEGER , INTEGER 
  X = 1024
  Y = 768
  XX = FBLZ(X,Y)
  CLEAR DLLS
  ENDIF 
 ENDIF 
 PUBLIC newuser,selcpbh,selpm,selgg,selkh,selkhdm,zztt,zzje,zzlje,ydw
oSysToolbars =NEWOBJECT('_SysToolbars','_app.vcx','',.T.)
on shutdown do usexit.prg 
with _screen 
.visible=.f.
endwith
do form login
read event  
 （主程序代码是参考别人的写的，有些都不知道什么意思，在此感谢天峰软件）

------解决方案--------------------
请参考：
http://www.yesky.com/20011119/205686.shtml