0  BEGIN PGM 8270_DE MM 
1  ;NC-Programm um einen Bezugspunkt zu 
2  ;aktivieren und eine Bearbeitung zu
3  ;simulieren. Die Bearbeitung wird in diesem
4  ;Beispielprogramm durch eine Verweilzeit
5  ;simuliert. Anschliessend ruft die Steuerung
6  ;ein weiteres NC-Programm, um Werte in eine
7  ;Protokolltabelle zu schreiben.
8  ;Nach dem Abarbeiten des gerufenen
9  ;NC-Programms beendet die Steuerung dieses
10 ;NC-Programm.
11 BLK FORM 0.1 Z X-25 Y-25 Z-70
12 BLK FORM 0.2  X+25  Y+25  Z+0
13 ;
14 ;Bezugspunkt aktivieren
15 CYCL DEF 247 BEZUGSPUNKT SETZEN ~
    Q339=+2    ;BEZUGSPUNKT-NUMMER
16 ;
17 ;Werkzeug aufrufen
18 TOOL CALL 3 Z S10000 F300
19 ;
20 ;Freifahren
21 L  Z+100 R0 FMAX M3
22 ;
23 ;Simulation einer Bearbeitung durch eine
24 ;Verweilzeit
25 CYCL DEF 9.0 VERWEILZEIT
26 CYCL DEF 9.1 V.ZEIT120
27 ;
28 ;Aufruf vom NC-Programm 82701_de.h, um Werte
29 ;aus diesem NC-Programm in eine
30 ;Protokolltabelle zu schreiben
31 CALL PGM 82701_de.h
32 ;
33 ;Programmende
34 M30
35 END PGM 8270_DE MM