0 BEGIN PGM 10652_ES MM 
1 FN 11: IF +Q8 GT +0 GOTO LBL 199 ;Salto cuando no es posible ningún mecanizado
2 FN 11: IF +Q8 GT +Q2 GOTO LBL 199 ;Salto cuando no es posible ningún mecanizado
3 FN 1: Q21 =+Q1 + +Q2 ;Posición inicial absoluta
4 FN 1: Q22 =+Q1 + +Q2 ;Profundidad de pretaladrado absoluta
5 FN 1: Q23 =+Q1 + +Q3 ;Altura para la retirada de viruta
6 FN 1: Q24 =+Q22 + +Q11 ;Profundidad de pretaladrado con distancia de seguridad
7 FN 1: Q28 =+Q1 + +Q8 ;Profundidad final absoluta
8 FN 1: Q31 =+Q1 + +Q11 ;Distancia de seguridad absoluta
9 FN 1: Q32 =+Q1 + +Q12 ;2.ª posición de seguridad absoluta
10 FN 0: Q33 =+0 ;Contador de aproximaciones
11 TOOL CALL  Z S100 ;Velocidad de rotación para el desplazamiento al taladrado piloto
12 L  Z+Q31 R0 FMAX M4 ;Ir a la distancia de seguridad
13 L  Z+Q24 FQ4 ;Ir a posición inicial
14 L M5 ;Parada del cabezal
15 TOOL CALL  Z SQ6 ;Velocidad de rotación taladrar
16 L  Z+Q22 FQ5 M3 ;Velocidad de rotación de trabajo y avance de trabajo
17 LBL 2 ;Comienzo del pulido
18 FN 1: Q21 =+Q21 + -Q7 ;Nueva profundidad
19 FN 1: Q30 =+Q21 + +Q10 ;Altura de la rotura de viruta
20 FN 1: Q33 =+Q33 + +1 ;Contador de rotura de viruta
21 FN 1: Q34 =+Q30 + +Q11 ;Nueva aproximación Z
22 FN 9: IF +Q21 EQU +Q28 GOTO LBL 99 ;Profundidad alcanzada?
23 FN 12: IF +Q21 LT +Q28 GOTO LBL 99 ;Demasiado profundo?
24 L  Z+Q21 FQ5 ;Ir a nueva profundidad
25 L  Z+Q30 FQ4 ;Romper viruta
26 FN 12: IF +Q33 LT +Q13 GOTO LBL 2 ;Recuento de las roturas de viruta
27 FN 0: Q33 =+0 ;Resetear contador
28 L  Z+Q23 FQ4 ;Ir a la altura para la retirada de viruta
29 CYCL DEF 9.0 TIEMPO ESPERA
30 CYCL DEF 9.1 T.ESPRQ9
31 L  Z+Q34 FQ4 ;Ir a la posición para la siguiente profundidad de aproximación
32 FN 11: IF +Q21 GT +Q28 GOTO LBL 2 ;Profundidad alcanzada?
33 LBL 99
34 L  Z+Q28 FQ5 ;Ir a profundidad final
35 LBL 100
36 CYCL DEF 9.0 TIEMPO ESPERA
37 CYCL DEF 9.1 T.ESPRQ9
38 TOOL CALL  SQ14 ;Velocidad para la salida
39 L  Z+Q31 FQ4 ;Ir a la distancia de seguridad
40 L  Z+Q32 FMAX ;Ir a la 2.ª distancia de seguridad
41 L M5 ;Parada del cabezal
42 LBL 199
43 END PGM 10652_ES MM