0 BEGIN PGM 4035_ES MM 
1 ;Programa para fabricar un cono inclinando el eje
2 ;B y girando el eje C. El programa se ha escrito
3 ;para una máquina con cabezal basculante B y mesa
4 ;giratoria C. Con la función M128, la herramienta
5 ;se mueve en la trayectoria programada, incluso
6 ;si la pieza no está fijada en el centro de la
7 ;mesa giratoria C.
8 ;
9 BLK FORM 0.1 Z X-5 Y-5 Z-8
10 BLK FORM 0.2  X+5  Y+5  Z+0
11 ;
12 ;Llamada a la herramienta
13 TOOL CALL 6 Z S5000 F500
14 ;
15 ;Datos introducidos
QL100 = - 7 ;PROFUNDIDAD
QL101 = 10 ;DIÁMETRO PARTE INFERIOR
QL102 = 28.1786 ;ÁNGULO
16 ;
17 ;variables
QL200 = ABS QL100 - SIN ABS QL102 * Q108 ;Profundidad para el centro de la herramienta
QL201 = COS ABS QL102 * Q108 + QL101 / 2 ;Radio para el centro de la herramienta
QL300 = Q108 * 2 + QL101 / 2 ;Posicionamiento previo
18 ;
19 L  X+QL300  Y+0 R0 FMAX M3
20 L  Z+2 R0 FMAX
21 L  Z+0 R0
22 L  B-QL102 R0 M128 ;Inclinar el eje B con M128
23 L  Z-QL200 R0
24 L  X+QL201 R0
25 CC  X+0  Y+0
26 CP IPA+360 IC+360 DR+ ;Girar el eje C 360 grados con M128 activa
27 L  X+QL300 R0 FMAX
28 L  B+0 R0 FMAX M129 ;Desplazar el eje B a 0 grados y desactivar M128
29 L  Z+250 R0 FMAX M30
30 END PGM 4035_ES MM