以下内容为程序代码:

1 if strcmp(marketlabel,\'SQ\')=0 then begin
2     x:=strleft(stklabel,2);
3     
4     if strcmp(x,\'ZN\')=0 then begin
5         p:=30;
6         n:=30;
7         f:=2;
8         goto s@;
9     end;
10     
11     if strcmp(x,\'RU\')=0 then begin
12         p:=50;
13         n:=50;
14         f:=3;
15         goto s@;
16     end;
17     
18     if strcmp(x,\'CU\')=0 then begin
19         p:=80;
20         n:=30;
21         f:=1;
22         goto s@;
23     end;
24     
25     if strcmp(x,\'RB\')=0 then begin
26         p:=45;
27         n:=15;
28         f:=2;
29         goto s@;
30     end;
31     
32     if strcmp(x,\'AU\')=0 then begin
33         p:=35;
34         n:=35;
35         f:=3;
36         goto s@;
37     end;
38     
39     if strcmp(x,\'AL\')=0 then begin
40         p:=85;
41         n:=20;
42         f:=3;
43         goto s@;
44     end;
45     
46     if strcmp(x,\'FU\')=0 then begin
47         p:=45;
48         n:=45;
49         f:=3;
50         goto s@;
51     end;
52     
53     if strcmp(x,\'WR\')=0 then begin
54         p:=60;
55         n:=30;
56         f:=2;
57         goto s@;
58     end;
59 end;
60
61 if strcmp(marketlabel,\'ZQ\')=0 then begin
62     x:=strleft(stklabel,2);
63     
64     if strcmp(x,\'SR\')=0 then begin
65         p:=60;
66         n:=15;
67         f:=3;
68         goto s@;
69     end;
70     
71     if strcmp(x,\'TA\')=0 then begin
72         p:=75;
73         n:=20;
74         f:=2;
75         goto s@;
76     end;
77     
78     if strcmp(x,\'CF\')=0 then begin
79         p:=65;
80         n:=15;
81         f:=2;
82         goto s@;
83     end;
84     
85     if strcmp(x,\'RO\')=0 then begin
86         p:=45;
87         n:=20;
88         f:=2;
89         goto s@;
90     end;
91     
92     if strcmp(x,\'ER\')=0 then begin
93         p:=90;
94         n:=25;
95         f:=3;
96         goto s@;
97     end;
98     
99     if strcmp(x,\'WS\')=0 then begin
100         p:=60;
101         n:=30;
102         f:=2;
103         goto s@;
104     end;
105     
106     if strcmp(x,\'WT\')=0 then begin
107         p:=60;
108         n:=30;
109         f:=2;
110         goto s@;
111     end;
112 end;
113
114 if strcmp(marketlabel,\'DQ\')=0 then begin
115     x:=strleft(stklabel,1);
116     
117     if strcmp(x,\'Y\')=0 then begin
118         p:=40;
119         n:=40;
120         f:=3;
121         goto s@;
122     end;
123     
124     if strcmp(x,\'L\')=0 then begin
125         p:=70;
126         n:=25;
127         f:=3;
128         goto s@;
129     end;
130     
131     if strcmp(x,\'A\')=0 then begin
132         p:=30;
133         n:=20;
134         f:=2;
135         goto s@;
136     end;
137     
138     if strcmp(x,\'B\')=0 then begin
139         p:=60;
140         n:=30;
141         f:=2;
142         goto s@;
143     end;
144     
145     if strcmp(x,\'M\')=0 then begin
146         p:=90;
147         n:=25;
148         f:=3;
149         goto s@;
150     end;
151     
152     if strcmp(x,\'C\')=0 then begin
153         p:=60;
154         n:=30;
155         f:=2;
156         goto s@;
157     end;
158     
159     if strcmp(x,\'V\')=0 then begin
160         p:=60;
161         n:=30;
162         f:=2;
163         goto s@;
164     end;
165     
166     if strcmp(x,\'P\')=0 then begin
167         p:=40;
168         n:=40;
169         f:=1;
170         goto s@;
171     end;
172 end;
173
174 if strcmp(marketlabel,\'ZJ\')=0 then begin
175     x:=strleft(stklabel,2);
176     
177     if strcmp(x,\'IF\')=0 then begin
178         p:=60;
179         n:=30;
180         f:=2;
181         goto s@;
182     end;
183 end;
184
185 s@;