3 interface
23 implementation
25 const
28 var
33 begin
39 begin
50 begin
56 var
59 begin
66 begin
68 begin
70 exit;
76 var
80 begin
91 else
96 else
102 begin
104 exit;
108 begin
114 begin
123 var
126 begin
133 begin
135 begin
137 exit;
143 var
145 begin
154 begin
157 begin
161 break;
164 else
166 begin
169 begin
173 break;
179 begin
185 else
190 else
195 begin
200 else
208 begin
211 begin
218 var
220 begin
223 begin
226 begin
229 break;
232 else
235 begin
238 begin
241 break;
247 else
253 var
255 begin
258 begin
261 begin
264 break;
267 else
270 begin
273 begin
276 break;
282 else
288 begin
293 begin
298 begin
303 begin
308 begin
313 begin
314 calcX;
317 begin
318 calcGravity;
319 fixVYdown;
321 else
322 calcY;