0 BEGIN PGM 1110_NL MM 
1 ;Programma voor het definiëren van een
2 ;puntenpatroon in de vorm van een cirkel.
3 ;In dit voorbeeld, gecombineerd met een
4 ;tweede programma waarin de boringen door
5 ;middel van boorfrezen worden gemaakt, waarbij
6 ;in dit programma de helixbewegingen zijn
7 ;geprogrammeerd en er geen cyclus wordt
8 ;gebruikt.
9 ;Na de definitie van alle benodigde parameters
10 ;en het gereedschap wordt de bewerkingscyclus
11 ;gedefinieerd. In dit voorbeeld wordt met
12 ;cyclus 12 het tweede programma opgeroepen.
13 ;Vervolgens worden de afzonderlijke posities
14 ;genaderd en de cyclus wordt opgeroepen.
15 ;
16 ;Parameterinvoer gatencirkel
17 FN 0: Q31 =+40 ;RADIUS GATENCIRKEL
18 FN 0: Q32 =+0 ;STARTHOEK
19 FN 0: Q33 =+50 ;MIDDELPUNT GATENCIRKEL OP DE X-AS
20 FN 0: Q34 =+50 ;MIDDELPUNT GATENCIRKEL OP DE Y-AS
21 FN 0: Q35 =+30 ;HOEKSTAP
22 FN 0: Q36 =+12 ;AANTAL BEWERKINGEN
23 ;Parameterinvoer gatencirkel einde
24 ;Parameterinvoer boringen
25 FN 0: Q40 =+10 ;BORINGSDIAMETER
26 FN 0: Q41 =-30 ;DIEPTE
27 FN 0: Q42 =+25 ;AANTAL HELIXBANEN
28 FN 0: Q43 =+2 ;VEILIGHEIDSAFSTAND
29 FN 0: Q44 =+1200 ;AANZET FREZEN
30 ;Parameterinvoer boringen einde
31 ;
32 ;Berekeningen
33 ;Gatencirkel
34 FN 2: Q37 =+Q36 - +2 ;Aantal herhalingen
35 ;Boringen
36 FN 4: Q45 =+Q40 DIV +2 ;Boringsradius
37 FN 3: Q46 =+Q42 * +360 ;Hoek van de helixbaan
38 ;Einde berekeningen
39 ;
40 BLK FORM 0.1 Z X+0 Y+0 Z-40
41 BLK FORM 0.2  X+100  Y+100  Z+0
42 ;
43 ;Einde berekeningen
44 TOOL CALL 4 Z S8000
45 ;
46 ;Vrijzetten
47 L  Z+100 R0 FMAX M3
48 ;
49 ;Definitie van programma 11101_nl.h als cyclus
50 CYCL DEF 12.0 PGM CALL
51 CYCL DEF 12.1 PGM 11101_nl.h
52 ;
53 CALL LBL 1 ;Oproep posities
54 ;
55 ;Terugtrekken en programma-einde
56 L  Z+50 R0 F9999 M2
57 ;
58 ;Subprogramma posities
59 LBL 1
60 CC  X+Q33  Y+Q34 ;Middelpunt gatencirkel
61 LP  PR+Q31  PA+Q32 R0 F9999 ;Eerste positie
62 CYCL CALL
63 LBL 2
64 CC  X+Q33  Y+Q34 ;Middelpunt gatencirkel
65 LP IPA+Q35 F9999 M99 ;Hoekstap
66 CALL LBL 2 REPQ37
67 LBL 0
68 END PGM 1110_NL MM