0 BEGIN PGM 10601_NL MM 
1 ;Programma met berekeningen en procedure
2 ;voor boren via een pijp
3 ;
4 ;Instellen van het aanboortoerental
5 TOOL CALL  SQ8
6 ;
7 ;Berekeningen
8 FN 1: Q40 =+Q2 + +Q1 ;Hoogte voorpositionering
9 FN 2: Q41 =+Q2 - +Q5 ;Buis onder
10 FN 2: Q20 =+Q2 - +Q4 ;Buis binnen boven
11 FN 2: Q30 =+Q20 - +Q10 ;Boordiepte bovenste wand
12 FN 1: Q21 =+Q41 + +Q4 ;Begin onderste wand
13 FN 1: Q43 =+Q21 + +Q1 ;Startpositie onderste wand
14 FN 1: Q24 =+Q41 + +Q3 ;Begin vertraging
15 FN 2: Q42 =+Q41 - +Q10 ;Boordiepte onderste wand
16 FN 4: Q36 =+Q6 DIV +10 ;Snelheidsincrement
17 FN 4: Q33 =+Q3 DIV +10 ;Baanincrement
18 FN 4: Q27 =+Q7 DIV +4 ;Opzet-aanzet
19 L  Z+Q40 R0 FMAX M3 ;Z voorpositioneren
20 L  Z+Q2 FQ27 ;Z met 25% aanzet op oppervlak verplaatsen
21 FN 0: Q23 =+Q2
22 FN 0: Q26 =+0
23 ;
24 ;Verhoging van de aanzet en verplaatsing van
25 ;het versnellingstraject
26 LBL 2
27 FN 1: Q23 =+Q23 + -Q33 ;Z actueel
28 FN 1: Q26 =+Q26 + +Q36 ;F actueel
29 L  Z+Q23 FQ26
30 CALL LBL 2 REP9
31 ;
32 ;Instellen van het boortoerental
33 TOOL CALL  SQ9
34 ;
35 FN 0: Q23 =+Q24
36 L  Z+Q30 FQ6 ;Boren door bovenste wand
37 L  Z+Q43 FQ7 ;Verplaatsen naar start onderste wand met aanzet in lucht
38 L  Z+Q24 FQ6 ;Boren tot het begin van het vertragingstraject
39 ;
40 ;Vermindering van de aanzet en het verplaatsen van het
41 ;vertragingstraject
42 LBL 3
43 FN 1: Q23 =+Q23 + -Q33
44 FN 1: Q26 =+Q26 + -Q36
45 L  Z+Q23 FQ26
46 CALL LBL 3 REP8
47 L  Z+Q42 ;Boren tot einde onderste wand
48 L  Z+Q40 FQ7 ;Verplaatsen naar voorpositiehoogte
49 ;
50 ;Einde van programma
51 END PGM 10601_NL MM