Zmodyfikowałem tak na szybko. Oto chodziło?

0 BEGIN PGM PRZYKL-FORUM MM
1 BLK FORM 0.1 Z X+0 Y-9 Z-25
2 BLK FORM 0.2 X+210 Y+150 Z+0
3 TOOL CALL 1 Z S1200
4 FN 0: Q1 =+0 ;Q1= WARTOSC POCZATKOWA Y
5 LBL 1
6 CYCL DEF 7.0 PUNKT BAZOWY
7 CYCL DEF 7.1 IZ-2
8 L X+50 Y+Q1 Z+150 FMAX M13
9 L Z+0 FMAX
10 L X+200 F600
11 L Z+150 FMAX
12 CALL LBL 1 REP5
13 LBL 0
14 LBL 2
15 Q1 = Q1 + 7
16 CALL LBL 11
17 CALL LBL 1
18 Q1 = Q1 + 7
19 CALL LBL 11
20 CALL LBL 1
21 LBL 0
22 LBL 11
23 CYCL DEF 7.0 PUNKT BAZOWY
24 CYCL DEF 7.1 Z+0
25 LBL 0
26 FN 0: Q1 =+0 ;Q1= WARTOSC POCZATKOWA Y
27 CYCL DEF 10.0 OBROT
28 CYCL DEF 10.1 ROT+25
29 CALL LBL 1
30 CALL LBL 2
31 CALL LBL 11
32 FN 0: Q1 =+0 ;Q1= WARTOSC POCZATKOWA Y
33 CALL LBL 11
34 CYCL DEF 10.0 OBROT
35 CYCL DEF 10.1 IROT+35
36 CALL LBL 1
37 CALL LBL 2
38 CALL LBL 11
39 L Z+200 R0 FMAX M5 M9
40 M30
41 END PGM PRZYKL-FORUM MM

Jeżeli przesuwasz zero przyrostowo to musisz je przed powtórką odwołać
(zawartość LBL11).




Jeżeli maszyna nie posiada TABELI punktów zerowych więc ich nie używaj.