0  BEGIN PGM 8225_ES MM 
1  ;Programa NC con un mecanizado sencillo.
2  ;Tras el mecanizado, el control
3  ;numérico llama a otro programa. En
4  ;este, calcula posteriormente un contador,
5  ;compara la hora actual con una hora
6  ;definida por usted en el programa
7  ;8220_es.h y, después, reinicia el
8  ;contador a cero o retrocede a este
9  ;programa según el resultado de la
10 ;comparación.
11 ;
12 BLK FORM 0.1 Z X-50 Y-50 Z-20
13 BLK FORM 0.2  X+50  Y+50  Z+0
14 ;
15 ;Llamada a la herramienta
16 TOOL CALL 8 Z S9000 F1000
17 L  Z+100 R0 FMAX M3
18 ;
19 ;Mecanizado de ejemplo
20 CYCL DEF 252 CAJERA CIRCULAR ~
    Q215=+0    ;TIPO MECANIZADO ~
    Q223=+50   ;DIAMETRO CIRCULO ~
    Q368=+0    ;SOBREMEDIDA LATERAL ~
    Q207=+500  ;AVANCE DE FRESADO ~
    Q351=+1    ;TIPO DE FRESADO ~
    Q201=-18   ;PROFUNDIDAD ~
    Q202=+5    ;PASO PROFUNDIZACION ~
    Q369=+0    ;SOBREMEDIDA PROFUND. ~
    Q206=+150  ;AVANCE PROFUNDIDAD ~
    Q338=+0    ;PASADA PARA ACABADO ~
    Q200=+2    ;DISTANCIA SEGURIDAD ~
    Q203=+0    ;COORD. SUPERFICIE ~
    Q204=+50   ;2A DIST. SEGURIDAD ~
    Q370=+1    ;SOLAPAM. TRAYECTORIA ~
    Q366=+1    ;PUNZONAR ~
    Q385=+500  ;AVANCE ACABADO ~
    Q439=+0    ;REFER. AVANCE
21 L  X+0  Y+0 R0 FMAX M99
22 ;
23 ;Llamada de programa volver a calcular el
24 ;contador y comparar las horas
25 CALL PGM 82251_es.h
26 ;
27 ;Final del programa
28 M30
29 END PGM 8225_ES MM