0 BEGIN PGM 8190_NL MM 
1 ;NC-programma om de exacte positie van meerdere
2 ;boringen te bepalen, naar een puntentabel te
3 ;schrijven en vervolgens op deze posities
4 ;verder te bewerken.
5 ;De meetcyclus moet op de geprogrammeerde
6 ;posities worden opgeroepen. Daarvoor is deze
7 ;in een afzonderlijk programma gedefinieerd
8 ;dat met een cyclus 12 wordt opgeroepen.
9 ;De resultaten van de meetcyclus worden door
10 ;de besturing in een puntentabel geschreven.
11 ;Deze gebruikt het programma als
12 ;patroondefinitie voor de nabewerking.
13 ;
14 BLK FORM 0.1 Z X-50 Y-70 Z-40
15 BLK FORM 0.2  X+50  Y+70  Z+0
16 ;
17 ;Gereedschapsoproep taster
18 TOOL CALL 500 Z
19 ;
Q0 = 0 ;Teller resetten
20 ;
21 ;Definitie van het programma 81902_nl.h voor het
22 ;meten van de boring als cyclus
23 CYCL DEF 12.0 PGM CALL
24 CYCL DEF 12.1 PGM 81902_nl.h
25 ;
26 ;Programma 81901_nl.i oproepen met posities en
27 ;cyclusoproep
28 CALL PGM 81901_nl.i
29 ;
30 ;Gereedschapsoproep voor nabewerken
31 TOOL CALL 5 Z S1234 F500
32 ;
33 ;Definitie van puntentabel 81903_nl.pnt als
34 ;puntenpatroon
35 SEL PATTERN "81903_nl.pnt"
36 ;
37 ;Definitie van het programma 81904_nl.h voor
38 ;het nabewerken van de boring als cyclus
39 CYCL DEF 12.0 PGM CALL
40 CYCL DEF 12.1 PGM 81904_nl.h
41 ;
42 ;Cyclusoproep op de in het puntenpatroon
43 ;gedefinieerde posities
44 CYCL CALL PAT FMAX M3
45 ;
46 ;Vrijzetten
47 L  Z+100 R0 FMAX
48 ;
49 ;Einde van programma
50 M30
51 END PGM 8190_NL MM