0 BEGIN PGM 7055-NL MM 
1 ;Programma voor de bewerking aan de buitenzijde
2 ;van een cilindervlak met een stiftfrees.
3 ;De cilinderas ligt parallel aan de Y-as.
4 ;De bewerking vindt plaats in een cirkelbaan
5 ;om een middelpunt op de X- en Z-as, en de
6 ;verplaatsing zijdelings op de Y-as.
7 ;De cilinder wordt aan beide zijden van onder
8 ;naar boven bewerkt. De verdeling geeft aan in
9 ;hoeveel banen elke zijde wordt verdeeld. De
10 ;besturing berekent daaruit hoe groot de
11 ;zijdelingse verplaatsing moet zijn.
12 ;Het gereedschap wordt aan het begin met
13 ;gecorrigeerde radius gepositioneerd en wordt aan
14 ;het einde ook zo ver over de aangegeven positie
15 ;heen verplaatst.
16 ;
17 BLK FORM 0.1 Z X-55 Y+0 Z-55
18 BLK FORM 0.2  X+55  Y+100  Z+0
19 ;
20 ;Invoer parameters
21 FN 0: Q1 =+0 ;CILINDERMIDDELPUNT OP DE X-AS
22 FN 0: Q2 =-50.1 ;CILINDERMIDDELPUNT OP DE Z-AS
23 FN 0: Q3 =+0 ;STARTPUNT OP DE Y-AS
24 ;            ;MINIMALE COÖRDINAAT
25 FN 0: Q4 =+100 ;EINDPUNT OP DE Y-AS
26 ;            ;MAXIMALE COÖRDINAAT
27 FN 0: Q5 =+50 ;VERDELING
28 ;            ;AANTAL FREESBANEN PER ZIJDE
29 FN 0: Q6 =+50 ;CILINDERRADIUS
30 FN 0: Q7 =+10 ;VEILIGE HOOGTE
31 FN 0: Q8 =+600 ;AANZET FREZEN
32 FN 0: Q9 =+300 ;AANZET DIEPTEVERPLAATSING
33 ;Einde parameterinvoer
34 ;
35 ;Gereedschapsoproep schachtfrees
36 TOOL CALL 8 Z S8000
37 ;
38 ;
39 ;Berekeningen
40 FN 1: Q10 =+Q1 + +Q108 ;CC X 1e zijde
41 FN 2: Q11 =+Q1 - +Q108 ;CC X 2e zijde
42 FN 2: Q13 =+Q3 - +Q108 ;Startpunt
43 FN 1: Q14 =+Q4 + +Q108 ;Eindpunt
44 FN 2: Q15 =+Q14 - +Q13 ;Baan
45 FN 4: Q16 =+Q15 DIV +Q5 ;Stapgrootte
46 FN 2: Q17 =+Q5 - +1 ;Aantal herhalingen
47 FN 1: Q18 =+Q6 + +Q108 ;Voorpositionering
48 FN 1: Q19 =+Q1 + +Q18 ;Voorpositionering 1e zijde
49 FN 2: Q20 =+Q1 - +Q18 ;Voorpositionering 2e zijde
50 ;Einde berekeningen
51 ;
52 L  Z+100 R0 FMAX ;Vrijzetten
53 ;
54 ;1.Seite
55 L  X+Q19  Y+Q13 R0 FMAX M3 ;Voorpositioneren 1e zijde
56 L  Z+Q7 R0 FMAX ;Verplaatsen naar veilige hoogte
57 CC  X+Q10  Z+Q2 ;Midden van de cirkelbaan
58 LBL 1
59 L  X+Q19 R0 FMAX
60 LP  PR+Q6  PA+90 FQ9 ;Insteken
61 L IY+Q16 R0 FQ8 ;Zijdelingse verpl.
62 CP IPA-90 DR- FQ8 ;Cirkelbaan
63 L  Z+Q7 R0 FMAX ;Verplaatsen naar veilige hoogte
64 CALL LBL 1 REPQ17 ;Herhaling
65 ;
66 ;2. Pagina
67 L  X+Q20  Y+Q14 R0 FMAX ;Voorpositioneren 2e zijde
68 CC  X+Q11  Z+Q2 ;Midden van de cirkelbaan
69 LBL 2
70 L  X+Q20 R0 FMAX
71 LP  PR+Q6  PA-90 FQ9 ;Insteken
72 L IY-Q16 R0 FQ8 ;Zijdelingse verpl.
73 CP IPA+90 DR+ FQ8 ;Cirkelbaan
74 L  Z+Q7 R0 FMAX ;Verplaatsen naar veilige hoogte
75 CALL LBL 2 REPQ17 ;Herhaling
76 ;
77 ;Vrijzetten en programma-einde
78 L  Z+100 R0 FMAX M30
79 END PGM 7055-NL MM