Direk dalarak dışı ölçüye getiren parametrik proğram

Q1=Toplam X boyu
Q2=Toplam Y boyu
Q3=Dalma Z derinliği
Q4=Köse Radusu

0 BEGIN PGM 1111 MM
1 FN 0 : Q1 = +170,000
2 FN 0 : Q2 = +170,000
3 FN 0 : Q66 = -8,000
4 FN 0 : Q99 = +25,500
5 BLK FORM 0.1 Z X-200,000 Y-200,000 Z-10,000
6 BLK FORM 0.2 X+200,000 Y+200,000 Z+2,000
7 TOOL CALL 0 Z S
8 FN 0 : Q8 = +5,000
9 TOOL DEF 1 L+0,000 R+Q8
10 TOOL CALL 1 Z S 600
11 FN 4 : Q3 = +Q1 DIV +2,000
12 FN 3 : Q4 = +Q2 * +0,500
13 L Z+150,000 R0 F4000 M05
14 L X+0,000 Y+Q4 RR F4000 M05
15 L Z+2,000 R F1000 M13
16 L Z+Q66 R F100 M03
17 L X+Q3 Y+Q4 R F300 M
18 RND RQ99 F
19 L Y-Q4 R F M
20 RND RQ99 F
21 L X-Q3 R F M
22 RND RQ99 F
23 L Y+Q4 R F M
24 RND RQ99 F
25 L X+10,000 R F M09
26 L Z+150,000 R F4000 M02
27 END PGM 1111 MM