0  BEGIN PGM D10naD8 hl6mm MM 
1  BLK FORM 0.1 Z  X-6  Y-6  Z-6
2  BLK FORM 0.2  X+6  Y+6  Z+0
3  * - vr-7
4  TOOL CALL 4 Z S3000
5  M3 M7
6  CYCL DEF 200 VRTANI ~
    Q200=+2    ;BEZPEC. VZDALENOST ~
    Q201=-9    ;HLOUBKA ~
    Q206=+300  ;POSUV NA HLOUBKU ~
    Q202=+9    ;HLOUBKA PRISUVU ~
    Q210=+0    ;CAS.PRODLEVA NAHORE ~
    Q203=+0    ;SOURADNICE POVRCHU ~
    Q204=+50   ;2. BEZPEC.VZDALENOST ~
    Q211=+0    ;CAS. PRODLEVA DOLE
7  L  X+0  Y+0  Z+50 R0 FMAX M99
8  M9
9  * - fr-6
10 TOOL CALL 3 Z S8000 F200
11 M13
12 L  X+0  Y+0  Z+50 R0 FMAX
13 FN 0: Q1 =+0 ; pociatok v Z-te
14 FN 0: Q2 =+5 ; pociatok v X-e
15 FN 0: Q6 =+9.46 ; uhol
16 FN 0: Q16 =+0.1 ; uber v Z-te
17 LBL 1
18 FN 6: Q10 = SIN +Q6
19 FN 7: Q11 = COS +Q6
20 FN 4: Q12 =+Q10 DIV +Q11
21 FN 3: Q13 =+Q12 * +Q16
22 CC  X+0  Y+0
23 L  Z+Q1 R0 FMAX
24 APPR LCT  X+Q2  Y+0 R0.5 RL F AUTO
25 C  X+Q2 DR+
26 DEP LCT  X+0  Y+0 R0.5
27 FN 2: Q1 =+Q1 - +Q16
28 FN 1: Q2 =+Q2 + -Q13
29 FN 11: IF +Q1 GT -6.1 GOTO LBL 1
30 LBL 0
31 L  Z+50 R0 FMAX
32 M2
33 END PGM D10naD8 hl6mm MM