0  BEGIN PGM 209 MM
1  Q195 = Q197  
2  Q197 = 0  
3  FN 9: IF +Q195 EQU +1 GOTO LBL 200
4  Q200 = ABS Q200  
5  Q204 = ABS Q204  
6  Q256 = ABS Q256  
7  Q257 = ABS Q257  
8  Q336 = ABS Q336  
9  LBL 200
10  FN 17: SYSWRITE ID212 = +3
11  FN 10: IF +Q109 NE -1 GOTO LBL 198
12  FN 14: ERROR = 1001
13  LBL 198
14  FN 18: SYSREAD Q13 = ID1000 NR7442
15  FN 10: IF +Q13 NE +0 GOTO LBL 188
16  FN 14: ERROR = 1074
17  LBL 188
18  FN 10: IF +Q257 NE +0 GOTO LBL 199
19  FN 14: ERROR = 1011
20  LBL 199
21  FN 9: IF +Q201 EQU +0 GOTO LBL 254
22  FN 12: IF +Q201 LT +0 GOTO LBL 197
23  FN 0: Q30 = -1
24  FN 9: IF +0 EQU +0 GOTO LBL 194
25  LBL 197
26  FN 0: Q30 = +1
27  LBL 194
28  FN 9: IF +Q195 EQU +1 GOTO LBL 193
29  CALL LBL 11
30  LBL 193
31  FN 1: Q19 = +Q203 + +Q200
32  Q51 = ABS Q200  
33  Q52 = ABS Q204  
34  FN 11: IF +Q51 GT +Q52 GOTO LBL 7
35  FN 1: Q19 = +Q203 + +Q204
36  LBL 7
37  Q14 = 1  
38  Q20 = Q203 + Q200  
39  Q21 = Q200 + Q257  
40  Q22 = Q256 * ABS Q239  
41  FN 10: IF +Q22 NE +0 GOTO LBL 29
42  Q22 = Q21  
43  LBL 29
44  Q24 = Q201 - Q200  
45  Q15 = Q21  
46  Q16 = Q22  
47  L Z+Q20 R0 F MAX
48  FN 11: IF +Q13 GT +0 GOTO LBL 187
49  FN 17: SYSWRITE ID990 NR8 = +Q336
50  FN 9: IF +0 EQU +0 GOTO LBL 186
51  LBL 187
52  CYCL DEF 13.0 ORIENTIERUNG
53  CYCL DEF 13.1 WINKEL Q336
54  L MQ13
55  LBL 186
56  FN 20: WAIT FOR M4000==1 
57  Q51 = ABS Q201  
58  Q52 = ABS Q257  
59  FN 11: IF +Q51 GT +Q52 GOTO LBL 2
60  Q24 = Q201 - Q200  
61  Q25 = Q24  
62  FN 9: IF +0 EQU +0 GOTO LBL 20
63  LBL 2
64  FN 9: IF +Q30 EQU -1 GOTO LBL 50
65  FN 11: IF +Q15 GT +Q24 GOTO LBL 5
66  FN 9: IF +0 EQU +0 GOTO LBL 10
67  LBL 50
68  FN 12: IF +Q15 LT +Q24 GOTO LBL 5
69  FN 9: IF +0 EQU +0 GOTO LBL 10
70  LBL 5
71  CYCL DEF 18.0 GEWINDESCHNEIDEN
72  CYCL DEF 18.1 TIEFE -Q21
73  CYCL DEF 18.2 STEIG +Q239
74  CYCL CALL
75  FN 10: IF +Q22 NE +0 GOTO LBL 30
76  Q16 = Q257 * Q14 + Q200  
77  LBL 30
78  CYCL DEF 18.0 GEWINDESCHNEIDEN
79  CYCL DEF 18.1 TIEFE +Q16
80  CYCL DEF 18.2 STEIG +Q239
81  CYCL CALL
82  Q14 = Q14 + 1  
83  Q15 = -(Q14 * Q257) - Q200  
84  FN 9: IF +Q30 EQU -1 GOTO LBL 40
85  FN 12: IF +Q15 LT +Q24 GOTO LBL 10
86  FN 9: IF +Q15 EQU +Q24 GOTO LBL 10
87  Q21 = Q22 + Q257  
88  FN 10: IF +Q256 NE +0 GOTO LBL 31
89  Q16 = Q257 * Q14 + Q200  
90  Q21 = Q257 * Q14 + Q200  
91  LBL 31
92  FN 9: IF +0 EQU +0 GOTO LBL 5
93  LBL 40
94  FN 11: IF +Q15 GT +Q24 GOTO LBL 10
95  FN 9: IF +Q15 EQU +Q24 GOTO LBL 10
96  Q21 = Q22 + Q257  
97  FN 10: IF +Q256 NE +0 GOTO LBL 32
98  Q16 = Q257 * Q14 + Q200  
99  Q21 = Q257 * Q14 + Q200  
100  LBL 32
101  FN 9: IF +0 EQU +0 GOTO LBL 5
102  LBL 10
103  Q25 = Q24  
104  FN 9: IF +Q256 EQU +0 GOTO LBL 20
105  Q25 = Q24 + (Q257 * (Q14 - 1)) - Q22 + Q200  
106  LBL 20
107  CYCL DEF 18.0 GEWINDESCHNEIDEN
108  CYCL DEF 18.1 TIEFE +Q25
109  CYCL DEF 18.2 STEIG +Q239
110  CYCL CALL
111  LBL 11
112  FN 9: IF +Q195 EQU +1 GOTO LBL 192
113  FN 3: Q200 = +Q200 * +Q30
114  FN 3: Q204 = +Q204 * +Q30
115  FN 3: Q256 = +Q256 * +Q30
116  FN 3: Q257 = +Q257 * +Q30
117  LBL 0
118  LBL 192
119  CYCL DEF 18.0 GEWINDESCHNEIDEN
120  CYCL DEF 18.1 TIEFE -Q24
121  CYCL DEF 18.2 STEIG +Q239
122  CYCL CALL
123  FN 9: IF +Q195 EQU +1 GOTO LBL 254
124  L Z+Q19 R0 F MAX
125  LBL 254
126  END PGM 209 MM
