0  BEGIN PGM 1060_DE MM 
1  ;Programm zum Durchbohren eines Rohres mit
2  ;unterschiedlichen Drehzahlen und Vorschueben
3  ;
4  BLK FORM 0.1 Z X+0 Y-20 Z-50
5  BLK FORM 0.2  X+20  Y+20  Z+0
6  ;
7  ;Werkzeugaufruf Bohrer
8  TOOL CALL 225 Z
9  L  Z+100 R0 FMAX
10 ;
11 ;Zyklus definition zum Aufruf vom Programm
12 ;10601-de mittels CyclCall oder M99
13 CYCL DEF 12.0 PGM CALL
14 CYCL DEF 12.1 PGM 10601_de
15 ;
16 ;Eingabeparameter fuers Bohren
17 FN 0: Q1 =+2 ;SICHERHEITSABSTAND
18 FN 0: Q2 =+0 ;KOORDINATEN OBERFLAECHE
19 FN 0: Q3 =+2.5 ;LAENGE BESCHLEUNIGUNGS-/VERZOEGERUNGSSTRECKE
20 FN 0: Q4 =+12 ;WANDSTAERKE ROHR
21 FN 0: Q5 =+50 ;DURCHMESSER ROHR
22 FN 0: Q6 =+100 ;VORSCHUB BOHREN
23 FN 0: Q7 =+2000 ;VORSCHUB IN LUFT
24 FN 0: Q8 =+2000 ;DREHZAHL ANBOHREN
25 FN 0: Q9 =+1000 ;DREHZAHL BOHREN
26 FN 0: Q10 =+4 ;UEBERFAUF
27 ;
28 ;Bohrposition anfahren und Zyklus aufrufen
29 L  X+10  Y+0 R0 FMAX M3 M99
30 ;
31 ;Programmende
32 L  Z+100 R0 FMAX M2
33 END PGM 1060_DE MM