0  BEGIN PGM 203 MM 
1  Q195 = Q197
2  Q197 = 0
3  FN 9: IF +Q195 EQU +1 GOTO LBL 200
4  Q200 = ABS Q200
5  Q202 = ABS Q202
6  Q204 = ABS Q204
7  Q205 = ABS Q205
8  Q212 = ABS Q212
9  Q213 = ABS Q213
10 LBL 200
11 FN 17: SYSWRITE ID 212 =+3
12 FN 18: SYSREAD Q0 = ID1000 NR7441
13 Q0 = 2 * FRAC ( Q0 / 2 )
14 FN 9: IF +Q0 EQU +1 GOTO LBL 199
15 FN 9: IF +Q110 EQU +0 GOTO LBL 199
16 FN 9: IF +Q110 EQU +1 GOTO LBL 199
17 FN 14: ERROR= 1000
18 LBL 199
19 FN 18: SYSREAD Q0 = ID1000 NR7441
20 Q0 = 8 * FRAC ( Q0 / 8 )
21 FN 12: IF +Q0 LT +4 GOTO LBL 206
22 FN 12: IF +Q201 LT +0 GOTO LBL 206
23 FN 9: IF +Q201 EQU +0 GOTO LBL 206
24 FN 14: ERROR= 1077
25 LBL 206
26 FN 10: IF +Q109 NE -1 GOTO LBL 198
27 FN 14: ERROR= 1001
28 LBL 198
29 FN 12: IF +Q205 LT +Q202 GOTO LBL 170
30 Q205 = Q202
31 LBL 170
32 FN 9: IF +Q201 EQU +0 GOTO LBL 254
33 FN 12: IF +Q201 LT +0 GOTO LBL 197
34 FN 0: Q30 =-1
35 FN 9: IF +0 EQU +0 GOTO LBL 196
36 LBL 197
37 FN 0: Q30 =+1
38 LBL 196
39 FN 9: IF +Q212 EQU +0 GOTO LBL 195
40 FN 10: IF +Q205 NE +0 GOTO LBL 195
41 FN 14: ERROR= 1031
42 LBL 195
43 FN 9: IF +Q195 EQU +1 GOTO LBL 194
44 CALL LBL 14
45 LBL 194
46 FN 10: IF +Q256 NE +0 GOTO LBL 192
47 Q256 = Q200
48 LBL 192
49 FN 1: Q19 =+Q203 + +Q200
50 Q51 = ABS Q200
51 Q52 = ABS Q204
52 FN 11: IF +Q51 GT +Q52 GOTO LBL 2
53 FN 1: Q19 =+Q203 + +Q204
54 LBL 2
55 FN 10: IF +Q202 NE +0 GOTO LBL 21
56 FN 14: ERROR= 1030
57 LBL 21
58 FN 10: IF +Q395 NE +1 GOTO LBL "Drill_Depth_On_Shank"
59 FN 18: SYSREAD QL0 = ID1000 NR7260
60 FN 9: IF +QL0 EQU +0 GOTO LBL "ERROR"
61 FN 18: SYSREAD Q0 = ID1000 NR7224 IDX0
62 Q0 = 8 * FRAC ( Q0 / 8 )
63 FN 11: IF +Q0 GT +3 GOTO LBL "ERROR"
64 FN 18: SYSREAD QL0 = ID50 NR32 IDX0
65 FN 11: IF +QL0 GT +0 GOTO LBL "Of_Read_Error"
66 LBL "ERROR"
67 FN 14: ERROR= 1087
68 LBL "Of_Read_Error"
69 QL201 = ( SGN Q201 * ( Q108 / ( TAN ( QL0 / 2 ) ) ) )
70 LBL "Drill_Depth_On_Shank"
71 FN 1: Q20 =+Q203 + +Q200
72 FN 0: Q23 =+Q203
73 FN 0: Q26 =+Q206
74 FN 9: IF +Q208 EQU +0 GOTO LBL 3
75 FN 0: Q26 =+Q208
76 LBL 3
77 FN 0: Q27 =+Q202
78 FN 0: Q31 =+Q256
79 FN 0: Q25 =+0
80 Q24 = Q203 + Q201 + QL201
81 L  Z+Q20 R0 FMAX
82 Q51 = ABS Q201
83 Q52 = ABS Q202
84 FN 9: IF +Q51 EQU +Q52 GOTO LBL 14
85 LBL 6
86 FN 9: IF +Q205 EQU +0 GOTO LBL 8
87 FN 9: IF +Q212 EQU +0 GOTO LBL 8
88 FN 9: IF +Q30 EQU -1 GOTO LBL 9
89 FN 11: IF +Q27 GT +Q205 GOTO LBL 8
90 FN 0: Q27 =+Q205
91 FN 9: IF +0 EQU +0 GOTO LBL 8
92 LBL 9
93 FN 12: IF +Q27 LT +Q205 GOTO LBL 8
94 FN 0: Q27 =+Q205
95 LBL 8
96 FN 1: Q23 =+Q23 + -Q27
97 FN 1: Q22 =+Q23 + +Q31
98 FN 2: Q27 =+Q27 - +Q212
99 FN 10: IF +Q30 NE -1 GOTO LBL 30
100 FN 11: IF +Q23 GT +Q24 GOTO LBL 14
101 FN 9: IF +Q23 EQU +Q24 GOTO LBL 14
102 FN 9: IF +0 EQU +0 GOTO LBL 31
103 LBL 30
104 FN 12: IF +Q23 LT +Q24 GOTO LBL 14
105 FN 9: IF +Q23 EQU +Q24 GOTO LBL 14
106 LBL 31
107 L  Z+Q23 FQ206
108 FN 12: IF +Q25 LT +Q213 GOTO LBL 10
109 L  Z+Q20 FQ26
110 FN 9: IF +Q210 EQU +0 GOTO LBL 180
111 CYCL DEF 9.0 VERWEILZEIT
112 CYCL DEF 9.1 V.ZEITQ210
113 LBL 180
114 FN 0: Q25 =-1
115 LBL 10
116 L  Z+Q22 FMAX
117 FN 1: Q25 =+Q25 + +1
118 FN 10: IF +Q30 NE -1 GOTO LBL 32
119 FN 12: IF +Q23 LT +Q24 GOTO LBL 6
120 FN 11: IF +0 GT +0 GOTO LBL 14
121 LBL 32
122 FN 11: IF +Q23 GT +Q24 GOTO LBL 6
123 LBL 14
124 FN 9: IF +Q195 EQU +1 GOTO LBL 193
125 FN 3: Q200 =+Q200 * +Q30
126 FN 3: Q202 =+Q202 * +Q30
127 FN 3: Q204 =+Q204 * +Q30
128 FN 3: Q205 =+Q205 * +Q30
129 FN 3: Q212 =+Q212 * +Q30
130 FN 3: Q256 =+Q256 * +Q30
131 LBL 0
132 LBL 193
133 L  Z+Q24 R0 FQ206
134 FN 9: IF +Q211 EQU +0 GOTO LBL 181
135 CYCL DEF 9.0 VERWEILZEIT
136 CYCL DEF 9.1 V.ZEITQ211
137 LBL 181
138 L  Z+Q20 FQ26
139 FN 9: IF +Q195 EQU +1 GOTO LBL 254
140 L  Z+Q19 R0 FMAX
141 LBL 254
142 END PGM 203 MM 
