0 BEGIN PGM 10351_NL MM 
1 ;Berekeningen en bewegingsverloop voor boren
2 ;met exponentieel toenemende
3 ;diepte-instelling
4 FN 0: Q19 =+0 ;Teller
5 FN 0: Q20 =+Q6 ;Voorpositionering
6 FN 1: Q21 =+Q6 + +Q7 ;Hoogte 2e veiligheidsafstand
7 FN 10: IF +Q7 NE +0 GOTO LBL 3
8 FN 2: Q21 =+Q6 - +Q1 ;Voorpositionering
9 LBL 3
10 FN 12: IF +Q3 LT +Q2 GOTO LBL 100
11 FN 1: Q23 =+Q6 + +Q1 ;Voorpositionering
12 FN 1: Q24 =+Q6 + +Q2 ;Voorpositionering
13 FN 1: Q25 =+Q6 + +Q1 ;Startpositie
14 FN 0: Q15 =+1 ;Deelfactor voor diepte-instelling
15 L  Z+Q25 R0 F9998 ;Verplaatsen naar startpositie
16 LBL 1
17 FN 5: Q12 = SQRT +Q15 ;Berekening diepte-instelling
18 FN 4: Q13 =+Q3 DIV +Q12 ;Berekening diepte-instelling
19 FN 12: IF +Q13 LT +Q10 GOTO LBL 4 ;Vergelijking minimale diepte-instelling
20 FN 0: Q13 =+Q10 ;Diepte-instelling = minimale diepte-instelling
21 LBL 4
22 FN 1: Q20 =+Q20 + +Q13 ;Z-coördinaat
23 FN 1: Q22 =+Q20 + +Q1 ;Voorpositioneren naar volgende verplaatsing
24 FN 1: Q19 =+Q19 + +1 ;Teller
25 FN 12: IF +Q20 LT +Q24 GOTO LBL 99 ;Vergelijking einddiepte
26 L  Z+Q20 R0 FQ5 ;Diepteverplaatsing
27 FN 9: IF +Q20 EQU +Q24 GOTO LBL 99 ;Vergelijking einddiepte
28 FN 12: IF +Q19 LT +Q9 GOTO LBL 2 ;Vergelijking teller terugtrekken
29 L  Z+Q23 R0 F9998
30 ;Terugtrekken
31 CYCL DEF 9.0 STILSTANDSTIJD
32 CYCL DEF 9.1 STTIJDQ4
33 FN 0: Q19 =+0 ;Teller terugzetten
34 L  Z+Q22 R0 F9998 ;Verplaatsen naar hoogte vóór volgende verplaatsing
35 LBL 2
36 L  Z+Q22 R0 FQ5 ;Terugtrekking naar hoogte vóór volgende verplaatsing
37 FN 1: Q15 =+Q15 + +Q8 ;Deelfactor voor grootte van de verplaatsing
38 FN 11: IF +Q20 GT +Q24 GOTO LBL 1 ;Vergelijking einddiepte
39 LBL 99
40 L  Z+Q24 R0 FQ5 ;Verplaatsen naar einddiepte
41 CYCL DEF 9.0 STILSTANDSTIJD
42 CYCL DEF 9.1 STTIJDQ11
43 LBL 100
44 L  Z+Q21 R0 F9998 ;Verplaatsen naar 2e veiligheidsafstand
45 END PGM 10351_NL MM