* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: MAIN.PRG(主文件) <-- 本文件由 UnFoxAll 創建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


 LCLASTSETTALK = SET('TALK')
 SET TALK OFF
 LCLASTSETPATH = SET('PATH')
 SET PATH TO ;DATA;LIBS;FORMS;IMG;HELP;MENUS;PROGS
 SET DELETED ON
 SET SAFETY OFF
 SET DATE TO long
 SET SECONDS OFF
 CLEAR SCREEN
 CLOSE ALL
 OPEN DATABASE xiyu SHARE
 DO FORM main
 READ EVENTS 
 CLOSE DATABASES 
 SET SYSMENU TO DEFAULT
*