0 BEGIN PGM 7065-NL MM 
1 ;Programma voor bewerking aan binnenzijde van
2 ;een cilindervlak met een kogelfrees.
3 ;De cilinderas ligt parallel aan de Y-as. De
4 ;bewerking vindt plaats in hoogtelijnen,
5 ;zodat de freesbaan in Y-richting ligt en de
6 ;verplaatsing in de X- en Z-as wordt uitgevoerd.
7 ;
8 BLK FORM 0.1 Z X-35 Y+0 Z-50
9 BLK FORM 0.2  X+35  Y+100  Z+0
10 ;
11 ;Invoer parameters
12 FN 0: Q1 =+0 ;CILINDERMIDDELPUNT OP DE X-AS
13 FN 0: Q2 =+0 ;CILINDERMIDDELPUNT OP DE Z-AS
14 FN 0: Q3 =+0 ;STARTPUNT OP DE Y-AS
15 ;            ;MINIMALE COÖRDINAAT
16 FN 0: Q4 =+100 ;EINDPUNT OP DE Y-AS
17 ;            ;MAXIMALE COÖRDINAAT
18 FN 0: Q5 =+100 ;VERDELING
19 ;            ;AANTAL HOOGTELIJNEN
20 FN 0: Q6 =+30 ;CILINDERRADIUS
21 FN 0: Q7 =+90 ;STARTHOEK IN HET VLAK X/Y
22 FN 0: Q8 =+270 ;EINDHOEK IN HET VLAK X/Z
23 FN 0: Q9 =+10 ;VEILIGE HOOGTE
24 FN 0: Q10 =+300 ;AANZET FREZEN
25 ;Einde parameterinvoer
26 ;
27 ;Gereedschapsoproep kogelfrees
28 TOOL CALL 157 Z S8000
29 TOOL CALL  DL-Q108 ;Lengteverandering in het middelpunt van de kogel
30 ;
31 ;
32 ;Berekeningen
33 FN 2: Q13 =+Q3 - +Q108 ;Startpositie Y
34 FN 1: Q14 =+Q4 + +Q108 ;Eindpositie Y
35 FN 1: Q26 =+Q6 + -Q108 ;Effectieve radius tot het middelpunt van het gereedschap
36 FN 2: Q27 =+Q8 - +Q7 ;Hoekbereik
37 FN 4: Q28 =+Q27 DIV +Q5 ;Hoekstap
38 FN 1: Q29 =+Q9 + +Q108 ;Voorpositionering in Z
39 FN 0: Q30 =+0 ;Teller
40 ;Berekeningen voltooid
41 ;
42 ;Baanbewegingen
43 L  Z+100 R0 FMAX ;Naar veilige hoogte verplaatsen
44 L  Y+Q13  X+Q1 R0 F9999 M3 ;Voorpositioneren X/Y
45 L  Z+Q29 R0 FMAX ;Voorpositioneren Z
46 CC  Z+Q2  X+Q1 ;Cilindermiddelpunt
47 LP  PR+Q26  PA+Q7 FQ10 ;Eerste hoogte benaderen
48 LBL 1 ;Sprongmerkteken
49 CP IPA+Q28 DR+ FQ10 ;Diepteverplaatsing
50 L  Y+Q14 FQ10 ;Freesbaan
51 FN 1: Q30 =+Q30 + +1 ;Teller
52 FN 9: IF +Q30 EQU +Q5 GOTO LBL 99 ;Vergelijking of verdeling bereikt
53 CP IPA+Q28 DR+ FQ10 ;Diepteverplaatsing
54 L  Y+Q13 FQ10 ;Freesbaan
55 FN 1: Q30 =+Q30 + +1 ;Teller
56 FN 12: IF +Q30 LT +Q5 GOTO LBL 1 ;Vergelijking of teller bereikt
57 LBL 99
58 ;
59 ;Vrijzetten en programma-einde
60 L  Z+50 R0 FMAX M2
61 END PGM 7065-NL MM