0  BEGIN PGM 8190_IT MM 
1  ;Programma NC per determinare la posizione
2  ;esatta di diversi fori, scriverla in una
3  ;tabella punti e quindi eseguire una
4  ;successiva lavorazione in queste posizioni.
5  ;Il ciclo di misura deve essere richiamato
6  ;nelle posizioni programmate e a tale scopo
7  ;è definito in un programma separato che
8  ;viene richiamato con un ciclo 12.
9  ;I risultati del ciclo di misura vengono
10 ;scritti dal controllo numerico in una
11 ;tabella di punti. Il programma la utilizza
12 ;come definizione del modello per la ripresa.
13 ;
14 ;
15 BLK FORM 0.1 Z X-50 Y-70 Z-40
16 BLK FORM 0.2  X+50  Y+70  Z+0
17 ;
18 ;Chiamata utensile tastatore
19 TOOL CALL 500 Z
20 ;
21 Q0 = 0 ;Reset contatore
22 ;
23 ;Definizione del programma 81902_it.h per la
24 ;misurazione del foro come ciclo
25 CYCL DEF 12.0 PGM CALL
26 CYCL DEF 12.1 PGM 81902_it.h
27 ;
28 ;Chiamata del programma 81901_it.i con
29 ;posizioni e chiamata ciclo
30 CALL PGM 81901_it.i
31 ;
32 ;Chiamata utensile per ripresa
33 TOOL CALL 5 Z S1234 F500
34 ;
35 ;Definizione della tabella di punti
36 ;81903_it.pnt come sagoma di punti
37 SEL PATTERN "81903_it.pnt"
38 ;
39 ;Definizione del programma 81904_it.h per la
40 ;ripresa del foro come ciclo
41 CYCL DEF 12.0 PGM CALL
42 CYCL DEF 12.1 PGM 81904_it.h
43 ;
44 ;Chiamata ciclo nelle posizioni definite nella
45 ;sagoma di punti
46 CYCL CALL PAT FMAX M3
47 ;
48 ;Disimpegno
49 L  Z+100 R0 FMAX
50 ;
51 ;Fine programma
52 M30
53 END PGM 8190_IT MM