0  BEGIN PGM 10601_DE MM 
1  ;Programm mit Berechnungen und Ablauf
2  ;fuer das Bohren durch ein Rohr
3  ;
4  ;Einstellen der Anbohrdrehzahl
5  TOOL CALL  SQ8
6  ;
7  ;Berechnungen
8  FN 1: Q40 =+Q2 + +Q1 ;Hoehe Vorpositionierung
9  FN 2: Q41 =+Q2 - +Q5 ;Rohr Unten
10 FN 2: Q20 =+Q2 - +Q4 ;Rohr innen oben
11 FN 2: Q30 =+Q20 - +Q10 ;Bohrtiefe obere Wandung
12 FN 1: Q21 =+Q41 + +Q4 ;Anfang untere Wandung
13 FN 1: Q43 =+Q21 + +Q1 ;Startposition untere Wandung
14 FN 1: Q24 =+Q41 + +Q3 ;Beginn Verzoegerung
15 FN 2: Q42 =+Q41 - +Q10 ;Bohrtiefe untere Wandung
16 FN 4: Q36 =+Q6 DIV +10 ;Geschwindigkeitsinkrement
17 FN 4: Q33 =+Q3 DIV +10 ;Weginkrement
18 FN 4: Q27 =+Q7 DIV +4 ;Aufsetz-Vorschub
19 L  Z+Q40 R0 FMAX M3 ;Z vorpositionieren
20 L  Z+Q2 FQ27 ;Z mit 25% Vorschub auf Oberflaeche fahren
21 FN 0: Q23 =+Q2
22 FN 0: Q26 =+0
23 ;
24 ;Erhoehung der Vorschubs und fahren
25 ;der Beschleunigungsstrecke
26 LBL 2
27 FN 1: Q23 =+Q23 + -Q33 ;Z akt.
28 FN 1: Q26 =+Q26 + +Q36 ;F akt.
29 L  Z+Q23 FQ26
30 CALL LBL 2 REP9
31 ;
32 ;Einstellen der Bohrdrehzahl
33 TOOL CALL  SQ9
34 ;
35 FN 0: Q23 =+Q24
36 L  Z+Q30 FQ6 ;Bohren durch obere Wandung
37 L  Z+Q43 FQ7 ;Faheren auf Start untere Wandung mit Vorschub in Luft
38 L  Z+Q24 FQ6 ;Bohren bis Beginn der Verzoegerungsstrecke
39 ;
40 ;Reduzierung des Vorschubs und Fahren der Verzoegerungsstrecke
41 LBL 3
42 FN 1: Q23 =+Q23 + -Q33
43 FN 1: Q26 =+Q26 + -Q36
44 L  Z+Q23 FQ26
45 CALL LBL 3 REP8
46 L  Z+Q42 ;Bohren bis Ende untere Wandung
47 L  Z+Q40 FQ7 ;Fahren auf Vorpositionierhoehe
48 ;
49 ;Programmende
50 END PGM 10601_DE MM