以下内容为程序代码:

1 variable:flag=0 ;
2
3 if flag=0 and holding=0 then begin
4     buy(1,1,limitr,askprice);
5     debugfile2(\'c:\\log.txt\',\'beforea%.0f\',flag,1);
6     flag:=1;
7     debugfile2(\'c:\\log.txt\',\'aftera%.0f\',flag,1);
8 end;
9
10 if flag=1 and holding＞0 then begin
11     sell(1,1,limitr,bidprice);
12     debugfile2(\'c:\\log.txt\',\'beforeb%.0f\',flag,1);
13     flag:=0;
14     debugfile2(\'c:\\log.txt\',\'beforeb%.0f\',flag,1);
15 end;
16