main.bak

简单易用的软件

local lcsys16,icprogram
lcsys16=sys(16)
icprogram=substr(lcsys16,at(":",lcsys16)-1)
cd left(icprogram,rat("\",icprogram))
do \进销存系统\progs\setting
do form \进销存系统\forms\dl
read events
_screen.left=-10000
do \进销存系统\progs\resett