Konu : Çap Programı
0 BEGIN PGM CAP MM
1 BLK FORM 0.1 Z X-200 Y-200 Z-50
2 BLK FORM 0.2 X+200 Y+200 Z+0
3 TOOL CALL 1 Z S4000
4 CYCL DEF 8.0 MIRROR IMAGE
5 CYCL DEF 8.1
6 L Z+50 F8000 M3
7 CYCL DEF 7.0 DATUM SHIFT
8 CYCL DEF 7.1 X+0
9 CYCL DEF 7.2 Y+0
10 CALL LBL 2
11 L Z+50 F8000 M2
12 CYCL DEF 7.0 DATUM SHIFT
13 CYCL DEF 7.1 X+105
14 CYCL DEF 7.2 Y+0
15 CALL LBL 2
16 L Z+50 F8000 M2
17 CYCL DEF 7.0 DATUM SHIFT
18 CYCL DEF 7.1 X-125
19 CYCL DEF 7.2 Y-70,3
20 CALL LBL 2
21 L Z+50 F8000
22 CYCL DEF 7.0 DATUM SHIFT
23 CYCL DEF 7.1 X-230
24 CYCL DEF 7.2 Y-70,3
25 CALL LBL 2
26 L Z+50 F8000 M2
27 LBL 2
28 FN 0: Q1 =+3
29 FN 2: Q2 =+8,25 - +Q1
30 FN 0: Q10 =+3
31 LBL 1
32 CALL LBL 10
33 CALL LBL 11
34 FN 1: Q10 =+Q10 + +0,1
35 FN 12: IF +Q10 LT +2,1 GOTO LBL 1
36 L Z+50 F8000
37 LBL 0
38 LBL 10
39 FN 3: Q11 =+Q10 * +0
40 FN 2: Q12 =+Q2 - +Q11
41 LBL 0
42 LBL 11
43 L X+0 Y+0 F10000
44 L Z-Q10 F1000
45 CC Y+0 X+0
46 LP PR+Q12 PA+0 F2000
47 CP PA+360 DR+ F2000
48 L X+0 Y+0
49 LBL 0
50 END PGM CAP MM