Konu : Parametrik Divizör Taksimatlı delik proğramı
0 BEGIN PGM 2 MM
1 BLK FORM 0.1 Z X-100,000 Y-100,000 Z-165,000
2 BLK FORM 0.2 X+100,000 Y+100,000 Z+0,000
3 FN 0 : Q1 = +20,000 DELİK SAYISI
4 FN 0 : Q2 = +80,000 DELİK EKSENİ YARI ÇAPI
5 FN 0 : Q3 = +0,000 İLK DELİK BAŞLAMA AÇISI
6 LBL 1
7 TOOL CALL 0 Z S
8 L Z+150,000 R0 F2000 M05
9 X+80,000 R F2000 M
10 Y+0,000 R F2000 M
11 LBL 0
12 TOOL DEF 1 L+0,000 R+9,000
13 TOOL DEF 2 L-1,845 R+10,000
14 FN 4 : Q11 = +360,000 DIV +Q1
15 STOP M06
16 TOOL CALL 1 Z S 600
17 CYCL DEF 1.0 PECKING
18 CYCL DEF 1.1 SET UP-5,000
19 CYCL DEF 1.2 DEPTH -7,300
20 CYCL DEF 1.3 PECKG -7,300
21 CYCL DEF 1.4 DWELL 0,000
22 CYCL DEF 1.5 F30
23 CALL LBL 10 REP
24 CALL LBL 1 REP
25 STOP M06
26 TOOL CALL 2 Z S 600
27 CYCL DEF 1.0 PECKING
28 CYCL DEF 1.1 SET UP-5,000
29 CYCL DEF 1.2 DEPTH -2,200
30 CYCL DEF 1.3 PECKG -2,200
31 CYCL DEF 1.4 DWELL 0,000
32 CYCL DEF 1.5 F70
33 CALL LBL 10 REP
34 CALL LBL 1 REP
35 STOP M02
36 LBL 10
37 L Z+5,000 R F2000 M03
38 CC X+0,000 Y+0,000
39 CALL LBL 99 REP
40 LBL 0
41 LBL 99
42 FN 0 : Q13 = +Q3
43 LBL 20
44 LP PR+Q2 PA+Q13 R0 F2000 M99
45 FN 1 : Q13 = +Q13 + +Q11
46 FN 12 : IF +Q13 LT +360,000 GOTO LBL 20
47 LBL 0
48 END PGM 2 MM