main.prg

华容道游戏

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
*------