3 interface
23 implementation
25 const
28 var
33 begin
39 begin
50 begin
55 begin
60 begin
65 var
68 begin
70 begin
72 exit;
81 begin
83 begin
85 exit;
91 var
95 begin
106 else
111 else
117 begin
119 exit;
123 begin
129 begin
138 var
141 begin
148 begin
150 begin
152 exit;
158 var
160 begin
169 begin
172 begin
176 break;
179 else
181 begin
184 begin
188 break;
194 begin
200 else
205 else
210 begin
215 else
223 begin
226 begin
233 var
235 begin
238 begin
241 begin
244 break;
247 else
250 begin
253 begin
256 break;
262 else
268 var
270 begin
273 begin
276 begin
279 break;
282 else
285 begin
288 begin
291 break;
297 else
303 begin
308 begin
313 begin
318 begin
323 begin
328 begin
329 calcX;
332 begin
333 calcGravity;
334 fixVYdown;
336 else
337 calcY;