main.prg

来自「彩票排列」· PRG 代码 · 共 16 行

CLEAR 
CLEAR ALL
SET TALK OFF 
SET ESCAPE OFF
lj=SYS(5)+SYS(2003)
SET PATH TO "&lj"
SET CENTURY on
SET DATE ansi
SET SAFETY OFF
SET SYSMENU OFF
SET EXCLUSIVE on


DO FORM main

READ events