0 BEGIN PGM 10701_NL MM 
1 FN 11: IF +Q8 GT +0 GOTO LBL 199 ;Sprong indien geen bewerking mogelijk is
2 FN 11: IF +Q8 GT +Q2 GOTO LBL 199 ;Sprong indien geen bewerking mogelijk is
3 FN 1: Q21 =+Q1 + +Q2 ;Startpositie absoluut
4 FN 1: Q22 =+Q1 + +Q2 ;Voorboordiepte absoluut
5 FN 1: Q23 =+Q1 + +Q3 ;Hoogte voor verspanen
6 FN 1: Q24 =+Q22 + +Q11 ;Voorboordiepte met veiligheidsafstand
7 FN 1: Q28 =+Q1 + +Q8 ;Einddiepte absoluut
8 FN 1: Q31 =+Q1 + +Q11 ;Veiligheidsafstand absoluut
9 FN 1: Q32 =+Q1 + +Q12 ;2e veiligheidspositie (absoluut)
10 FN 0: Q33 =+0 ;Verplaatsingsteller
11 TOOL CALL  Z SQ14 ;Toerental voor het verplaatsen naar het voorboorgat
12 L  Z+Q31 R0 FMAX M4 ;Verplaatsen naar veiligheidsafstand
13 L  Z+Q24 FQ4 ;Verplaatsen naar startpositie
14 L M5 ;Spilstop
15 TOOL CALL  Z SQ6 ;Toerental boren
16 L  Z+Q22 FQ5 M3 ;Bedrijfstoerental en -aanzet
17 LBL 2 ;Lusbegin
18 FN 1: Q21 =+Q21 + -Q7 ;Nieuwe diepte
19 FN 1: Q30 =+Q21 + +Q10 ;Spaanbreukhoogte
20 FN 1: Q33 =+Q33 + +1 ;Teller spaanbreken
21 FN 1: Q34 =+Q30 + +Q11 ;Z Nieuwe verplaatsing
22 FN 9: IF +Q21 EQU +Q28 GOTO LBL 99 ;Diepte bereikt?
23 FN 12: IF +Q21 LT +Q28 GOTO LBL 99 ;Te laag?
24 L  Z+Q21 FQ5 ;Verplaatsen naar nieuwe diepte
25 L  Z+Q30 FQ4 ;Spaanbreken
26 FN 12: IF +Q33 LT +Q13 GOTO LBL 2 ;Hekwerk van de spaanbreuken
27 FN 0: Q33 =+0 ;Resetten teller
28 L  Z+Q23 FQ4 ;Verplaatsen naar hoogte voor verspanen
29 CYCL DEF 9.0 STILSTANDSTIJD
30 CYCL DEF 9.1 STTIJDQ9
31 L  Z+Q34 FQ4 ;Verplaatsen naar positie voor volgende diepteverplaatsing
32 FN 11: IF +Q21 GT +Q28 GOTO LBL 2 ;Diepte bereikt?
33 LBL 99
34 L  Z+Q28 FQ5 ;Verplaatsen naar einddiepte
35 LBL 100
36 CYCL DEF 9.0 STILSTANDSTIJD
37 CYCL DEF 9.1 STTIJDQ9
38 TOOL CALL  SQ14 ;Toerental voor het terugtrekken
39 L  Z+Q31 FQ4 ;Verplaatsen naar veiligheidsafstand
40 L  Z+Q32 FMAX ;Verplaatsen naar 2e veiligheidsafstand
41 L M5 ;Spilstop
42 LBL 199
43 END PGM 10701_NL MM