main.prg

来自「华容道游戏」· PRG 代码 · 共 24 行

SET TALK OFF
set escap off
SET STATUS OFF
SET STATUS BAR OFF
SET CENTURY ON
SET DATE TO ansi
SET READBORDER OFF
SET EXCLUSIVE ON
SET REPROCESS TO 3
SET DELETED ON
SET PROCEDURE TO main.prg
ON SHUTDOWN do pcd_exit
DO FORM main
READ EVENTS 
QUIT 


*------
PROCEDURE pcd_exit
 CLOSE ALL
 QUIT 
ENDPROC
*------