0  BEGIN PGM 200 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  LBL 200
8  FN 17: SYSWRITE ID 212 =+3
9  FN 18: SYSREAD Q0 = ID1000 NR7441
10 Q0 = 2 * FRAC ( Q0 / 2 )
11 FN 9: IF +Q0 EQU +1 GOTO LBL 199
12 FN 9: IF +Q110 EQU +0 GOTO LBL 199
13 FN 9: IF +Q110 EQU +1 GOTO LBL 199
14 FN 14: ERROR= 1000
15 LBL 199
16 FN 18: SYSREAD Q0 = ID1000 NR7441
17 Q0 = 8 * FRAC ( Q0 / 8 )
18 FN 12: IF +Q0 LT +4 GOTO LBL 206
19 FN 12: IF +Q201 LT +0 GOTO LBL 206
20 FN 9: IF +Q201 EQU +0 GOTO LBL 206
21 FN 14: ERROR= 1077
22 LBL 206
23 FN 10: IF +Q109 NE -1 GOTO LBL 198
24 FN 14: ERROR= 1001
25 LBL 198
26 FN 9: IF +Q201 EQU +0 GOTO LBL 254
27 FN 12: IF +Q201 LT +0 GOTO LBL 197
28 FN 0: Q30 =-1
29 FN 9: IF +0 EQU +0 GOTO LBL 196
30 LBL 197
31 FN 0: Q30 =+1
32 LBL 196
33 FN 9: IF +Q195 EQU +1 GOTO LBL 194
34 CALL LBL 14
35 LBL 194
36 FN 1: Q19 =+Q203 + +Q200
37 Q51 = ABS Q200
38 Q52 = ABS Q204
39 FN 11: IF +Q51 GT +Q52 GOTO LBL 2
40 FN 1: Q19 =+Q203 + +Q204
41 LBL 2
42 FN 10: IF +Q202 NE +0 GOTO LBL 21
43 FN 14: ERROR= 1030
44 LBL 21
45 FN 10: IF +Q395 NE +1 GOTO LBL "Drill_Depth_On_Shank"
46 FN 18: SYSREAD QL0 = ID1000 NR7260
47 FN 9: IF +QL0 EQU +0 GOTO LBL "ERROR"
48 FN 18: SYSREAD Q0 = ID1000 NR7224 IDX0
49 Q0 = 8 * FRAC ( Q0 / 8 )
50 FN 11: IF +Q0 GT +3 GOTO LBL "ERROR"
51 FN 18: SYSREAD QL0 = ID50 NR32 IDX0
52 FN 11: IF +QL0 GT +0 GOTO LBL "Of_Read_Error"
53 LBL "ERROR"
54 FN 14: ERROR= 1087
55 LBL "Of_Read_Error"
56 QL201 = ( SGN Q201 * ( Q108 / ( TAN ( QL0 / 2 ) ) ) )
57 LBL "Drill_Depth_On_Shank"
58 FN 1: Q20 =+Q203 + +Q200
59 FN 0: Q23 =+Q203
60 FN 0: Q27 =+Q202
61 FN 0: Q31 =+Q200
62 LBL 4
63 Q24 = Q203 + Q201 + QL201
64 L  Z+Q20 R0 FMAX
65 Q51 = ABS Q201
66 Q52 = ABS Q202
67 FN 9: IF +Q51 EQU +Q52 GOTO LBL 14
68 LBL 6
69 FN 1: Q23 =+Q23 + -Q27
70 FN 1: Q22 =+Q23 + +Q31
71 FN 10: IF +Q30 NE -1 GOTO LBL 30
72 FN 11: IF +Q23 GT +Q24 GOTO LBL 14
73 FN 9: IF +Q23 EQU +Q24 GOTO LBL 14
74 FN 9: IF +0 EQU +0 GOTO LBL 31
75 LBL 30
76 FN 12: IF +Q23 LT +Q24 GOTO LBL 14
77 FN 9: IF +Q23 EQU +Q24 GOTO LBL 14
78 LBL 31
79 L  Z+Q23 FQ206
80 L  Z+Q20 FMAX
81 FN 9: IF +Q210 EQU +0 GOTO LBL 180
82 CYCL DEF 9.0 VERWEILZEIT
83 CYCL DEF 9.1 V.ZEITQ210
84 LBL 180
85 L  Z+Q22 FMAX
86 FN 10: IF +Q30 NE -1 GOTO LBL 32
87 FN 12: IF +Q23 LT +Q24 GOTO LBL 6
88 FN 11: IF +0 GT +0 GOTO LBL 14
89 LBL 32
90 FN 11: IF +Q23 GT +Q24 GOTO LBL 6
91 LBL 14
92 FN 9: IF +Q195 EQU +1 GOTO LBL 193
93 FN 3: Q200 =+Q200 * +Q30
94 FN 3: Q202 =+Q202 * +Q30
95 FN 3: Q204 =+Q204 * +Q30
96 LBL 0
97 LBL 193
98 L  Z+Q24 R0 FQ206
99 FN 9: IF +Q211 EQU +0 GOTO LBL 181
100 CYCL DEF 9.0 VERWEILZEIT
101 CYCL DEF 9.1 V.ZEITQ211
102 LBL 181
103 L  Z+Q20 FMAX
104 FN 9: IF +Q195 EQU +1 GOTO LBL 254
105 L  Z+Q19 FMAX
106 LBL 254
107 END PGM 200 MM 
