0  BEGIN PGM 50101_ES MM 
1  ;Programa para el fresado previo del cilindro
2  ;
3  L  Y-Q108 R0 F9999 M3 ;Posicionamiento previo del eje Y
4  CC  X+0  Z+0 ;Centro del cilindro
5  FN 1: Q26 =+Q6 + +Q108 ;Cálculo del radio al que se desplaza el centro de la herramienta
6  LP  PR+Q26  PA+0 ;Desplazamiento a la posición en X y Z
7  LBL 1
8  CP IPA-1 DR- F200 ;Sincronizar ángulo
9  L IY+Q8 F500 ;Desplazamiento en Y
10 CP IPA-1 DR- F200 ;Sincronizar ángulo
11 L  Y-Q108 F500 ;Desplazamiento en Y
12 CALL LBL 1 REP44 ;Repetición de la sincronización del ángulo y de las trayectorias Y
13 L  Z+50 R0 FMAX ;Retirar la hta.
14 END PGM 50101_ES MM