0  BEGIN PGM kostka-gabaryt-2 MM
1  BLK FORM 0.1 Z  X-40  Y-20  Z-28
2  BLK FORM 0.2  X+40  Y+20  Z+0
3  TOOL CALL 16 Z S3200 DL-0.1 DR-0.005
4  M13
5  FN 0: Q21 =+74 ; WYMIAR X
6  FN 0: Q22 =+36 ; WYMIAR Y
7  FN 0: Q3 =+0 ; Z  POCZATKOWY
8  FN 0: Q4 =+3 ;skok w Z
9  FN 0: Q5 =+27.01 ; Z KONCOWY
10 FN 0: Q7 =+5 ; NADDATEK MATERIALU
11 Q1 = Q21 / 2
12 Q2 = Q22 / 2
13 Q10 = Q1 + Q108 + Q7 ;PKT.STARTU X
14 Q11 = Q2 + Q108 + Q7 ;PKT.STARTU Y
15 L M13
16 L  X+Q10  Y+Q11 R0 FMAX
17 L  Z+10 FMAX
18 L  Z+1 R0 F1000
19 LBL 1
20 L  Z+Q3 R0 F800
21 L  X+Q1 RL F500
22 L  Y-Q2
23 L  X-Q1
24 L  Y+Q2
25 L  X+Q10
26 L  Y+Q11 R0
27 FN 2: Q3 =+Q3 - +Q4
28 FN 11: IF +Q3 GT -Q5 GOTO LBL 1
29 L  Z+200 R0 FMAX M30
30 END PGM kostka-gabaryt-2 MM