0 BEGIN PGM 1060_ES MM 
1 ;Programa para el taladrado pasante de una tubería
2 ;con diferentes velocidades de rotación y avances
3 ;
4 BLK FORM 0.1 Z X+0 Y-20 Z-50
5 BLK FORM 0.2  X+20  Y+20  Z+0
6 ;
7 ;Llamada de herramienta Broca
8 TOOL CALL 225 Z
9 L  Z+100 R0 FMAX
10 ;
11 ;Definición del ciclo para la llamada del programa
12 ;10601_es mediante CyclCall o M99
13 CYCL DEF 12.0 PGM CALL
14 CYCL DEF 12.1 PGM 10601_es
15 ;
16 ;Parámetros de introducción para el taladrado
17 FN 0: Q1 =+2 ;DISTANCIA DE SEGURIDAD
18 FN 0: Q2 =+0 ;PLANO DE COORDENADAS
19 FN 0: Q3 =+2.5 ;LONGITUD DEL TRAYECTO DE ACELERACIÓN/RETARDO
20 FN 0: Q4 =+12 ;ESPESOR DE LA PARED DE LA TUBERÍA
21 FN 0: Q5 =+50 ;DIÁMETRO TUBERÍA
22 FN 0: Q6 =+100 ;AVANCE TALADRADO
23 FN 0: Q7 =+2000 ;AVANCE EN AIRE
24 FN 0: Q8 =+2000 ;VELOCIDAD DE ROTACIÓN TALADRAR
25 FN 0: Q9 =+1000 ;VELOC.ROT.TALADR.
26 FN 0: Q10 =+4 ;SOBREPASO
27 ;
28 ;Hacer la aproximación a la posición de taladrado y llamar ciclo
29 L  X+10  Y+0 R0 FMAX M3 M99
30 ;
31 ;Final del programa
32 L  Z+100 R0 FMAX M2
33 END PGM 1060_ES MM