以下内容为程序代码:

1 RUNMODE:0;
2 GLOBALVARIABLE:paix=0,zhibiaozhi=0;
3 最:zhibiaozhi,linethick0;
4 if islastbar then
5 BEGIN
6 if paix=0 then
7     begin
8         stkcnt:=10,linethick0;
9      for ih=1 to stkcnt do
10      BEGIN        
11          zhibiaozhi0:=ih;
12          zhibiaozhi:=if(zhibiaozhi0＞zhibiaozhi,zhibiaozhi0,zhibiaozhi);
13          MSGOUT(1,\'指标值＞＞\'&numtostr(zhibiaozhi0,2)&\'最高值:\'&numtostr(zhibiaozhi,2));
14      end;
15      paix:=1;
16 end;
17 最高:zhibiaozhi,linethick0;    
18 end;
19