0  BEGIN PGM 8190_ES MM 
1  ;Programa NC para calcular la posición
2  ;exacta de varios taladros, grabarla en
3  ;una tabla de puntos y, a continuación,
4  ;ejecutar un mecanizado adicional en
5  ;estas posiciones.
6  ;El ciclo de medición debe llamarse en
7  ;las posiciones programadas, para ello,
8  ;en un programa separado se define en
9  ;un programa separado que se llama con
10 ;el ciclo 12.
11 ;El control numérico graba los
12 ;resultados del ciclo de medición en una
13 ;tabla de puntos. Este utiliza el
14 ;programa como definición de patrones
15 ;para el retoque.
16 ;
17 BLK FORM 0.1 Z X-50 Y-70 Z-40
18 BLK FORM 0.2  X+50  Y+70  Z+0
19 ;
20 ;Llamada de herramienta palpador
21 TOOL CALL 500 Z
22 ;
23 Q0 = 0 ;Reiniciar el contador
24 ;
25 ;Definición del programa 81902_es.h para
26 ;medir el taladro como ciclo
27 CYCL DEF 12.0 PGM CALL
28 CYCL DEF 12.1 PGM 81902_es.h
29 ;
30 ;Llamada del programa 81901_es.i con
31 ;posiciones y llamada de ciclo
32 CALL PGM 81901_es.i
33 ;
34 ;Llamada de herramienta para el retoque
35 TOOL CALL 5 Z S1234 F500
36 ;
37 ;Definición de la tabla de puntos
38 ;81903_es.pnt como patrón de puntos
39 SEL PATTERN "81903_es.pnt"
40 ;
41 ;Definición del programa 81904_es.h
42 ;para retocar el taladro como ciclo
43 CYCL DEF 12.0 PGM CALL
44 CYCL DEF 12.1 PGM 81904_es.h
45 ;
46 ;Llamada de ciclo en las posiciones
47 ;definidas en el patrón de puntos
48 CYCL CALL PAT FMAX M3
49 ;
50 ;Retirar la hta.
51 L  Z+100 R0 FMAX
52 ;
53 ;Final del programa
54 M30
55 END PGM 8190_ES MM