0 BEGIN PGM 8270_ES MM 
1 ;Programa NC para activar un punto de
2 ;referencia y simular un mecanizado.
3 ;En este programa de ejemplo, el
4 ;mecanizado se simula mediante un tiempo
5 ;de espera. A continuación, el control
6 ;numérico llama otro programa NC para
7 ;escribir valores en una tabla de
8 ;protocolo.
9 ;Tras la ejecución del programa NC
10 ;llamado, el control numérico finaliza
11 ;dicho programa NC.
12 BLK FORM 0.1 Z X-25 Y-25 Z-70
13 BLK FORM 0.2  X+25  Y+25  Z+0
14 ;
15 ;Activar punto de referencia
16 CYCL DEF 247 BEZUGSPUNKT SETZEN ~
   Q339=+2    ;BEZUGSPUNKT-NUMMER
17 ;
18 ;Llamada a la herramienta
19 TOOL CALL 3 Z S10000 F300
20 ;
21 ;Retirar la hta.
22 L  Z+100 R0 FMAX M3
23 ;
24 ;Simulación de un mecanizado mediante un
25 ;tiempo de espera
26 CYCL DEF 9.0 VERWEILZEIT
27 CYCL DEF 9.1 V.ZEIT120
28 ;
29 ;Llamada del programa NC 82701_es.h para
30 ;escribir valores de este programa NC en
31 ;una tabla de protocolo
32 CALL PGM 82701_es.h
33 ;
34 ;Final del programa
35 M30
36 END PGM 8270_ES MM