0  BEGIN PGM Q-KONTURA(ORIGO) MM 
1  BLK FORM 0.1 Z  X-50  Y-50  Z-50
2  BLK FORM 0.2  X+100  Y+100  Z+0
3  ;
4  TOOL CALL 13 Z S2000 F2000
5  ;
6  FN 0: Q30 =+0 ;SOURADNICE POVRCHU
7  FN 0: Q31 =-40 ;HROUBKA FREZOVANI
8  FN 0: Q32 =+20 ;PRIDAVEK PRO STRANU
9  FN 0: Q33 =+2 ;BOCNI UBER
10 ;
11 LBL 10
12 FN 2: Q32 =+Q32 - +Q33
13 CYCL DEF 14.0 OBRYS
14 CYCL DEF 14.1 LBL obrysu1
15 CYCL DEF 25 LINIE OBRYSU ~
    Q1=+Q31  ;HLOUBKA FREZOVANI ~
    Q3=+Q32  ;PRIDAVEK PRO STRANU ~
    Q5=+Q30  ;SOURADNICE POVRCHU ~
    Q7=+50   ;BEZPECNA VYSKA ~
    Q10=+Q31  ;HLOUBKA PRISUVU ~
    Q11=+2000 ;POSUV NA HLOUBKU ~
    Q12= AUTO ;POSUV PRO FREZOVANI ~
    Q15=+1    ;ZPUSOB FREZOVANI
16 M3 M99
17 FN 11: IF +Q32 GT +0 GOTO LBL 10
18 M30
19 LBL 1
20 APPR CT  X+10  Y+10  CCA90 R+15 RL
21 L  Y+90
22 L  X+90
23 L  Y+10
24 L  X+10
25 DEP CT  CCA90 R+15
26 LBL 0
27 END PGM Q-KONTURA(ORIGO) MM