XA:=MA(CLOSE,SHORT); 
XB:=MA(CLOSE,LONG);

condiction1:=ref(cross(XA,XB),1);
condiction2:=ref(cross(XB,XA),1); 
drawicon(condiction1,low,4); 
drawicon(condiction2,high,5); 
buyentry:=barslast(condiction1); 
sellentry:=barslast(condiction2); 

if numtostr(buyentry,0) <> '0' and numtostr(sellentry,0) <> '0' then 
begin
whichCondition:=if(buyentry<sellentry,buyentry,sellentry); 
end; 
else begin 
whichCondition:=if(buyentry>sellentry,buyentry,sellentry); 
end;
drawtext(condiction1,low - 10,'買進');
drawtext(condiction2,high + 10,'賣出'); 
LongCondition := if(ref(buyentry,whichCondition),1,0); 
ShortCondition := if(ref(sellentry,whichCondition),1,0); 

Position:=if(ShortCondition,'-1','1'); 
Position:=if(LongCondition,'1','-1');
{註解：定義Position控制策略的「倉位」變化} 

PriceType:=’0’;
{註解：定義PriceType控制策略訊號的「價格種類」（0代表限價單）} 

Price:= NUMTOSTR(DYNAINFO(11),2)
{註解：定義Price控制訊號委託的「價格」} 

cur_cmd:=NUMTOSTR(YEAR,0)+'/'+NUMTOSTR(MONTH,0)+'/'+NUMTOSTR(DAY,0)+' '+NUMTOSTR(HOUR,0) 
+':'+NUMTOSTR(MINUTE,0)+':'+'00'+' '+Position+' '+PriceType+' '+Price;
{註解：將交易訊號轉換成StarBridge可讀取的文字格式 
依照證券商品文字格式：日期 時間 倉位 價格種類 價格}

<% 
on error resume next
Dim fso, MyFile 
cur_cmd = FFL.VarData("cur_cmd") 
Set fso = CreateObject("Scripting.FileSystemObject") 
Set MyFile= fso.CreateTextFile("C:\signalTXT.txt ", True)
MyFile.WriteLine(cur_cmd) 
MyFile.Close 
err.clear
%> 
{註解：當交易訊號出現時主動寫入檔案中，C:\signalTXT.txt表示文字訊號檔的「儲存位置」及「檔案名稱」}