0  BEGIN PGM SW 10 zew MM
1  BLK FORM 0.1 Z  X-15  Y-15  Z+0
2  BLK FORM 0.2  X+15  Y+15  Z+3
3  TOOL CALL 1 Z S3000 DL+0 DR-0.015 ;frez 6
4  L M3
5  L  C+0  A+0 R0 FMAX M126
6  CYCL DEF 10.0 OBROT
7  CYCL DEF 10.1  ROT+0
8  FN 0: Q1 =+10 ; wymiar szesciokata
9  FN 0: Q7 =+4 ; dlugosc szesciokata
10 FN 0: Q9 =+1 ;przybieranie
11 ;obliczenia
12 FN 4: Q2 =+Q1 DIV +2
13 FN 0: Q3 =+0
14 FN 1: Q4 =+Q2 + +15 ; punkt startowy
15 FN 3: Q5 =+Q2 * +1.1547 ; 1,1547 to wartosc 1/cos30
16 FN 1: Q6 =+Q5 + +Q5
17 FN 1: Q8 =+Q7 + +0.01
18 CC  X+0  Y+0
19 L  X-Q4  Y+0 R0 FMAX
20 L  Z+20 FMAX M7
21 L  Z+15 F1000
22 LBL 1
23 LP  PR+Q4  PA+180 R0 FMAX
24 L  Z+Q3 F400
25 LP  PR+Q5  PA+180 RL F1000
26 LP  PA+120
27 LP  PA+60
28 LP  PA+0
29 LP  PA-60
30 LP  PA-120
31 LP  PA+180
32 L  X-Q4  Y+0 R0 FMAX
33 FN 2: Q3 =+Q3 - +Q9
34 FN 1: Q5 =+Q5 + +0
35 FN 11: IF +Q3 GT -Q8 GOTO LBL 1
36 L  Z+10 R0 FMAX
37 L M9
38 L M140 MB MAX F99999
39 L  X+0  Y+0 R0 FMAX M92
40 L M30
41 END PGM SW 10 zew MM