想请教一下大家这个问题的原因是什么，怎样解决呢


附主程序代码：
CLOSE all
SET TALK off
set sysmenu off        
set cent on   
_screen.FontSize=24      
_screen.windowstate=0
_screen.icon="picture\ico.ico"   
_screen.maxbutton=.t.
_screen.minbutton=.t.
_screen.closable=.f.
modify window screen noclose
MODIFY WINDOW SCREEN TITLE " 自行车购买查询系统  "
ZOOM WINDOW SCREEN MAX
mypath=LEFT(SYS(16),RAT("\",SYS(16)))   
SET DEFA TO SYS(5)+SYS(2003)            
SET PATH TO  SYS(5)+SYS(2003);FORMs,DATA,menu,prog,report,libs
do form forms\admin
read events
clear
close all
return

挺急的马上要上交了，希望能有高手解答！万分感谢

是在连编的电脑上运行的

这是我自己编的小程序的试做版，希望能找到编译的错误。谢谢各位！