Kod: Zaznacz cały

0 BEGIN PGM kostka MM
1 ;DL X polwyrobu
2 FN 0: Q500 =+100
3 ;DL Y polwyrobu
4 FN 0: Q501 =+100
5 ;Wys. Z polwyrobu
6 FN 0: Q502 =+100
7 BLK FORM 0.1 Z  X+0  Y+0  Z-Q502
8 BLK FORM 0.2  X+Q500  Y+Q501  Z+0
9 TOOL CALL 1 Z S1000 F1000
10 ;Wspol. powierzchni
11 FN 0: Q510 =+0
12 ;Gleboskosc dosuwu
13 FN 0: Q511 =-2
14 ;Liczba powtorzen potrzebna do obrobienia calej wys.
15 Q502 = ( - Q502 / Q511 ) - 1
16 ;Bezp. wysoksc
17 FN 0: Q512 =+50
18 LBL 1
19 FN 1: Q510 =+510 + +Q511
20 L  X-50  Y+0 FMAX
21 L  Z+0 FMAX M3
22 L  X+0  Y+0  Z+Q610 R0
23 L IX+Q500 IY+0
24 L IY+Q501 IX+0
25 L IX-Q500 IY+0
26 L IY-501 IX+0
27 L  Z+Q512 FMAX
28 LBL 0
29 CALL LBL 1 REPQ502
30 L  Z+300 FMAX M2
31 END PGM kostka MM