主题：高手帮忙调试一下程序

INPUT:LOTS(1,1,50,1);
long1:=REF(CLOSE>OPEN,1);
long2:=REF(CLOSE<OPEN,1);
long3:=CLOSE>=TENTERPRICE+5*MINDIFF;
//多头开仓
IF long1 THEN
BEGIN
MYPRICE:=OPEN;
TBUY(HOLDING=0，LOTS,LIMITR,MYPRICE)
END

//空头开仓
IF long2 THEN
BEGIN
MYPRICE:=OPEN;
TBUYSHORT(HOLDING=0,LOTS,LIMITR,MYPRICE)
END

//平仓以及信号延迟确认
SELL1:=false;
IF ISLASTBAR THEN
BEGIN
IF long3 THEN
BEGIN
//将当前信号周期置全局变量数据库
//数据名字前加信号周期，标记周期位置
CRTEMP:='TEMP1'&NUMTOSTR( BARPOS, 0);
 //读取原有变量的时间，判断是否到延时时间
 SELLTIME1:=EXTGBDATA(CRTEMP);
 SELLTIME2:=TIMETOT0(CURRENTTIME);
 DEBUGOUT('D1 %.0f',SELLTIME1);
 IF SELLTIME1 > 1 THEN //第一次信号的原数据库读取会得到0值
 BEGIN
 DEBUGOUT('D2 %.0f',SELLTIME2 - SELLTIME1);
 IF SELLTIME2 - SELLTIME1 > 1 THEN
 BEGIN
 //大于15秒的延迟，表示信号已经得到确认
 SELL1:=TRUE;
 END
 END
 ELSE
 BEGIN
 //第一次信号位置记录
 EXTGBDATASET(CRTEMP,TIMETOT0(CURRENTTIME));
 END
 END
ELSE
BEGIN
//否则表示信号中间消失了
CRTEMP:='TEMP1'&NUMTOSTR(BARPOS,0);
EXTGBDATASET(CRTEMP,0);
END
END
TSELL(SELL1&&HOLDING>0,0,MKT);
TSELLSHORT(SELL1&&HOLDING<0,0,MKT);

//15秒到时即平仓
IF TENTERBARS()=1 THEN
TSELL(HOLDING>0,0,MKT);
TSELLSHORT(HOLDING<0,0,MKT);

//收盘平仓
IF TIME=151000 THEN
BEGIN
SELL(HOLDING>0,0,LIMITR,OPEN);
SELLSHORT(HOLDING<0,0,LIMITR,OPEN);
END