0 BEGIN PGM 100 MM
1 BLK FORM 0.1 Z X-75 Y-17.5 Z-2.5
2 BLK FORM 0.2 X+75 Y+17.5 Z+0
3 TOOL CALL 1 Z S1250
4 L Z+100 R0 FMAX M3
5 FN 0: Q1 =+1
6 FN 0: Q2 =+10
7 FN 0: Q3 =+200
8 FN 0: Q4 =-2
9 CYCL DEF 7.0 PUNKT BAZOWY
10 CYCL DEF 7.1 X-64.3
11 CYCL DEF 7.2 Y-8
12 CALL PGM 90
13 CYCL DEF 7.0 PUNKT BAZOWY
14 CYCL DEF 7.1 X-46.55
15 CYCL DEF 7.2 Y-8
16 CALL PGM 91
17 CYCL DEF 7.0 PUNKT BAZOWY
18 CYCL DEF 7.1 X-39.99
19 CYCL DEF 7.2 Y-1.51
20 CALL PGM 92
21 L Z+100 RO F MAX M30

0 BEGIN PGM 90 MM
1 LBL 2
2 L X+6 Y+2 Z+10 R0 FMAX
3 L Z+0 R0 F200
4 FN 0: Q5 =+0
5 LBL 1
6 FN 2: Q5 =+Q5 - +Q1
7 L Z+Q5 R0 FQ2
.
.
.
.
.

38 FN 11: IF +Q5 GT +Q4 GOTO LBL 1
39 L Z+2 R0 F200
40 LBL 0

0 BEGIN PGM 91MM
1 LBL 3
2 L X+6 Y+2 Z+10 R0 FMAX
3 L Z+0 R0 F200
4 FN 0: Q5 =+7
5 LBL 1
6 FN 2: Q5 =+Q5 - +Q1
7 L Z+Q5 R0 FQ2
.
.

16 L X+6
17 L Y+2 R0
.
.
39 L Z+2 R0 F200
40 LBL 0