0 BEGIN PGM 10601_ES MM 
1 ;Programa con cálculos y desarrollo para el taladrado a
2 ;través de una tubería
3 ;
4 ;Ajustar la velocidad de rotación del taladrado
5 TOOL CALL  SQ8
6 ;
7 ;Cálculos
8 FN 1: Q40 =+Q2 + +Q1 ;Altura posicionamiento previo
9 FN 2: Q41 =+Q2 - +Q5 ;Tubería abajo
10 FN 2: Q20 =+Q2 - +Q4 ;Tubería interior arriba
11 FN 2: Q30 =+Q20 - +Q10 ;Profundidad de taladrado pared superior
12 FN 1: Q21 =+Q41 + +Q4 ;Inicio pared inferior
13 FN 1: Q43 =+Q21 + +Q1 ;Posición inicial pared inferior
14 FN 1: Q24 =+Q41 + +Q3 ;Inicio retardo
15 FN 2: Q42 =+Q41 - +Q10 ;Profundidad de taladrado pared inferior
16 FN 4: Q36 =+Q6 DIV +10 ;Incremento de velocidad
17 FN 4: Q33 =+Q3 DIV +10 ;Incremento de recorrido
18 FN 4: Q27 =+Q7 DIV +4 ;Avance colocación
19 L  Z+Q40 R0 FMAX M3 ;Posicionamiento previo Z
20 L  Z+Q2 FQ27 ;Desplazar Z a la superficie con 25% de avance
21 FN 0: Q23 =+Q2
22 FN 0: Q26 =+0
23 ;
24 ;Aumento del avance y desplazamiento del trayecto de
25 ;aceleración
26 LBL 2
27 FN 1: Q23 =+Q23 + -Q33 ;Z actual
28 FN 1: Q26 =+Q26 + +Q36 ;F actual
29 L  Z+Q23 FQ26
30 CALL LBL 2 REP9
31 ;
32 ;Ajustar la velocidad de rotación del taladrado
33 TOOL CALL  SQ9
34 ;
35 FN 0: Q23 =+Q24
36 L  Z+Q30 FQ6 ;Taladrado a través de la pared superior
37 L  Z+Q43 FQ7 ;Desplazar hasta inicio pared inferior con avance en aire
38 L  Z+Q24 FQ6 ;Taladrar hasta el inicio del trayecto de retardo
39 ;
40 ;Reducción del avance y desplazamiento del trayecto de retardo
41 LBL 3
42 FN 1: Q23 =+Q23 + -Q33
43 FN 1: Q26 =+Q26 + -Q36
44 L  Z+Q23 FQ26
45 CALL LBL 3 REP8
46 L  Z+Q42 ;Taladrar hasta final pared inferior
47 L  Z+Q40 FQ7 ;Desplazar hasta altura de posicionamiento previo
48 ;
49 ;Final del programa
50 END PGM 10601_ES MM