0 BEGIN PGM CASE_1_en MM
1 ; Section with loaded values
2 Q1 = +6 ; Number of operations
3 Q2 = Q1 - +1 ; Calculation of repetitions
4 Q3 = -60 ; Starting angle
5 ; Beginning of main program
6 BLK FORM 0.1 Z X-50 Y-50 Z-50 
7 BLK FORM 0.2 X+50 Y+50 Z+0
8 TOOL CALL 5 Z S2000 F200
9 L X+0 Y+0 Z+200 A+0 C+0 R0 FMAX
10 ;
11 ; Program-section repeat
12 LBL 9
13 ; Shift the datum of the rotary axis to the calculated angle
14 CYCL DEF 7.0 NULLPUNKT
15 CYCL DEF 7.1 CQ3
16 ; Rotate the reference system
17 CYCL DEF 10.0 DREHUNG
18 CYCL DEF 10.1 ROTQ3
19 M128 ; Automatically compensate for tool inclination
20 L X+0 Y+10 Z+50 A-80 C+0 FMAX ; Pre-postion and incline the tool
21 L X+0 Y+10 Z+10 F2000 ; Tool infeed
22 L X+0 Y+90 Z-20 A-15 C+0 ; Machine the contour and change the inclination
23 L X+0 Y+90 Z+50 ; Retract the tool
24 L X+0 Y+10 Z+50 FMAX ; Pre-position the tool
25 M129 ; Deactivate M128
26 Q3 = Q3 + ( +360 / Q1 ) ; Calculate angle for next machining operation
27 CALL LBL 9 REPQ2
28 ;
29 ; End the program, including resetting and retraction
30 * - ...
31 CALL LBL "RESET"
32 ;
33 M30
34 ;
35 * - LBL RESET
36 LBL "RESET"
37 M129
38 CALL LBL "SAFE"
39 CYCL DEF 8.0 SPIEGELUNG
40 CYCL DEF 8.1
41 CYCL DEF 10.0 DREHUNG
42 CYCL DEF 10.1 ROT+0
43 PLANE RESET TURN FMAX
44 CYCL DEF 7.0 NULLPUNKT
45 CYCL DEF 7.1 X+0
46 CYCL DEF 7.2 Y+0
47 CYCL DEF 7.3 Z+0
48 LBL 0
49 ;
50 * - LBL SAFE
51 LBL "SAFE"
52 M140 MB MAX M3
53 L Z+300 R0 FMAX M91
54 L X+400 Y-300 R0 FMAX M91
55 LBL 0
56 END PGM CASE_1_en MM