0  BEGIN PGM 8190_DE MM 
1  ;NC-Programm um die exakte Position mehrerer
2  ;Bohrungen zu ermitteln, in eine Punktetabelle
3  ;zu schreiben und anschliessend an diesen
4  ;Positionen eine weitere Bearbeitung
5  ;durchzufuehren.
6  ;Der Messzyklus soll an den programmierten
7  ;Positionen aufgerufen werden, dazu ist er in
8  ;einem separaten Programm definiert, welches
9  ;mit einem Zyklus 12 aufgerufen wird.
10 ;Die Ergebnisse des Messzyklus schreibt
11 ;die Steuerung in eine Punktetabelle. Diese
12 ;nutzt das Programm als Musterdefinition
13 ;fuer die Nacharbeit.
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 ;Werkzeugaufruf Taster
19 TOOL CALL 500 Z
20 ;
21 Q0 = 0 ;Zaehler zuruecksetzen
22 ;
23 ;Definition des Programms 81902_de.h zum
24 ;Messen der Bohrung als Zyklus
25 CYCL DEF 12.0 PGM CALL
26 CYCL DEF 12.1 PGM 81902_de.h
27 ;
28 ;Aufruf des Programms 81901_de.i mit
29 ;Positionen und Zyklusaufruf
30 CALL PGM 81901_de.i
31 ;
32 ;Werkzeugaufruf fuer Nacharbeit
33 TOOL CALL 5 Z S1234 F500
34 ;
35 ;Definition der Punktetabelle 81903_de.pnt
36 ;als Punktemuster
37 SEL PATTERN "81903_de.pnt"
38 ;
39 ;Definition des Programms 81904_de.h zum
40 ;Nacharbeiten der Bohrung als Zyklus
41 CYCL DEF 12.0 PGM CALL
42 CYCL DEF 12.1 PGM 81904_de.h
43 ;
44 ;Zyklusaufruf an den im Punktemuster
45 ;definierten Positionen
46 CYCL CALL PAT FMAX M3
47 ;
48 ;Freifahren
49 L  Z+100 R0 FMAX
50 ;
51 ;Programmende
52 M30
53 END PGM 8190_DE MM