zx.bak

来自「适用初学者」· BAK 代码 · 共 76 行

*主程序
************************
*系统参数初试化
************************
 
 SET TALK OFF
 SET ESCAPE OFF
 SET CONSOLE ON
 SET DATE ansi
 SET SCOREBOARD OFF
 
 SET STATUS BAR ON
 SET CENTURY ON
 SET DELETED ON
 SET SYSMENU TO
 SET FULLPATH OFF
 SET SAFETY OFF
 CLEAR ALL
 
***********************
*变量
***********************


*变量初试化

 
 ***********************
 *默认路径设置*搜索路径设置
 ***********************

 
 
 ***********************
 **  设置屏幕 (_SCREEN) 属性
 ************************
 
 WITH _SCREEN  
 .VISIBLE = .F.
 ENDWITH 
 
 ************************
 *系统文件\目录完整性检查
 ************************


 *****************系统目录检查  重建

 ********************
 *出错处理
 ********************
 



ON SHUTDOWN  do tc


***********************
*&&登录 欢迎窗口
***********************

*********************
* &&&进入系统
********************* 
 DO FORM video 
 READ EVENTS 
 RETURN 


*******************
*环境恢复
*******************

ON SHUTDOWN quit