0  BEGIN PGM 8190_EN MM 
1  ;NC-program for determining the exact
2  ;positions of several holes, writing them to
3  ;a point table and then executing another
4  ;machining operation at these positions.
5  ;The measuring cycle is not to be called at
6  ;the programmed positions, for this purpose,
7  ;it is defined in a separate program that is
8  ;called with Cycle 12. The control writes the
9  ;results of the measuring cycle to a point
10 ;table. The program uses this point table
11 ;as a pattern definition for reworking.
12 ;
13 BLK FORM 0.1 Z X-50 Y-70 Z-40
14 BLK FORM 0.2  X+50  Y+70  Z+0
15 ;
16 ;Tool call for touch probe
17 TOOL CALL 500 Z
18 ;
19 Q0 = 0 ;Reset counter
20 ;
21 ;Definition of program 81902_en.h for
22 ;measuring the hole as a cycle
23 CYCL DEF 12.0 PGM CALL
24 CYCL DEF 12.1 PGM 81902_en.h
25 ;
26 ;Call program 81901_en.i with positions
27 ;and cycle call
28 CALL PGM 81901_en.i
29 ;
30 ;Tool call for rework
31 TOOL CALL 5 Z S1234 F500
32 ;
33 ;Definition of point table 81903_en.pnt
34 ;as point pattern
35 SEL PATTERN "81903_en.pnt"
36 ;
37 ;Definition of program 81904_en.h for
38 ;reworking the hole as cycle
39 CYCL DEF 12.0 PGM CALL
40 CYCL DEF 12.1 PGM 81904_en.h
41 ;
42 ;Cycle call at the positions defined in the
43 ;point pattern
44 CYCL CALL PAT FMAX M3
45 ;
46 ;Retract
47 L  Z+100 R0 FMAX
48 ;
49 ;End of program
50 M30
51 END PGM 8190_EN MM