hand：=1 ；

?

if?? KD1??? and?? EXTGBDATA(STKLABEL&'KD1')=0? then? begin
??? Tbuy(1,hand,MKT),ORDERQUEUE;
??? EXTGBDATASET(STKLABEL&'KD1',1);
??? end

?

if? PD1?? and? pd1<>kd1? and EXTGBDATA(STKLABEL&'KD1')>0 then begin
?? TSell( 1,hand,MKT),ORDERQUEUE;
?? EXTGBDATASET(STKLABEL&'KD1',0);
?? end

?

?

if?? kk1? and?? EXTGBDATA(STKLABEL&'KK1')=0? then? begin
??? TBUYSHORT(1,hand,MKT),ORDERQUEUE;
??? EXTGBDATASET(STKLABEL&'KK1',1);
??? end

?

if? PK1?? and? KK1<>PK1? and EXTGBDATA(STKLABEL&'KK1')>0 then begin
?? TSellSHORT( 1,hand,MKT),ORDERQUEUE;
?? EXTGBDATASET(STKLABEL&'KK1',0);
?? end

?

?

語(yǔ)法上沒(méi)有錯(cuò)誤