39 LBL 2
40 LP PR+Q6 PA+Q24 FQ12
41 Q24 = +Q24 - +Q14
42 FN 11: IF +Q24 GT +Q5 GOTO LBL 2
43 LP PR+Q6 PA+Q5
44 L Z+Q23 R0 F1000
45 L X+Q26 R0 FMAX
46 Q28 = +Q28 + +Q18
47 Q24 = +Q4
48 CYCL DEF 10.0 GIRO
49 CYCL DEF 10.0 ROT+Q28
50 FN 12: IF +Q28 LT +Q9 GOTO LBL 1
51 FN 9: IF +Q28 EQU +Q9 GOTO LBL 1
52 CYCL DEF 10.0 GIRO
53 CYCL DEF 10.1 ROT+0
54 CYCL DEF 7.0 PUNTO CERO
55 CYCL DEF 7.1 X+0
56 CYCL DEF 7.2 Y+0
57 CYCL DEF 7.3 Z+0
58 LBL 0
59 END PGM CILINDRO MM
368
Desplazar hacia arriba el "arco" aproximado
Actualización del ángulo en el espacio
Pregunta si el arco está terminado, si no retroceso a LBL 2
Llegada al ángulo final en el espacio
Retroceso según el eje de la hta.
Posicionamiento previo para el siguiente arco
Actualización de la posición de giro en el plano
Anular el ángulo en el espacio
Activar la nueva posición de giro
Pregunta si no está terminado, en caso afirmativo salto al LBL 1
Anular el giro
Anular el desplazamiento del punto cero
Final del subprograma
Programación: Parámetros Q