Co do wiercenia to uważam ze najprościej będzie tak

0 BEGIN PGM 0 MM
1 ; ****************************
2 * - nawiertak
3 TOOL CALL 1 Z S1200
4 ; ****************************
5 L X+0 Y+0 Z+100 R0 FMAX
6 L Z+50 R0 FMAX M13
7 CYCL DEF 203 UNIWERSL WIERC. ~
Q200=+2 ;BEZPIECZNA WYSOKOSC ~
Q201=-35 ;GLEBOKOSC ~
Q206=+100 ;WARTOSC POSUWU WGL. ~
Q202=+1 ;GLEBOKOSC DOSUWU ~
Q210=+0 ;PRZER. CZAS.NA GORZE ~
Q203=+0 ;WSPOLRZEDNE POWIERZ. ~
Q204=+50 ;2-GA BEZPIECZNA WYS. ~
Q212=+0 ;WART. ZMNIEJ. DOSUWU ~
Q213=+100 ;LICZBA LAMAN WIORA ~
Q205=+0 ;MIN. GLEBOK. DOSUWU ~
Q211=+0 ;PRZERWA CZAS. DNIE ~
Q208=+99999 ;POSUW RUCHU POWROTN. ~
Q256=+0,2 ;WYCOF.DLA ZLAM.WIORA
8 CALL LBL 1
9 L Z+100 R0 FMAX M5
10 STOP M30
11 * - ###################
12 LBL 1
13 * - LBL1 otwory 6H7
14 L X+40 Y+40 R0 FMAX M99
15 L X+40 Y-40 R0 FMAX M99
16 L X-40 Y-40 R0 FMAX M99
17 L X-40 Y+40 R0 FMAX M99
18 LBL 0

natomiast jeżeli chodzi o kontur to tu masz dość uniwersalny program

0 BEGIN PGM kontur-fi20 MM
1 BLK FORM 0.1 Z X+0 Y+0 Z-20
2 BLK FORM 0.2 X+200 Y+200 Z+0
3 ; ****************************
4 * - glowiczka-20
5 TOOL CALL 9 Z S4000 DR+0,05
6 ; ****************************
7 FN 0: Q1 =+0
8 FN 0: Q2 =+2400
9 L X-20 Y-20 Z+100 R0 FMAX
10 L Z+2 R0 FMAX M3 M7
11 LBL 20
12 FN 1: Q1 =+Q1 + +1
13 CALL LBL 100
14 CALL LBL 20 REP20
15 L Z+200 R0 FMAX M5
16 STOP M30
17 LBL 100
18 L Z-Q1 R0 F5000
19 L X+0 RL FQ2
20 L Y+50
21 CHF 0,6
22 L X+50
23 CHF 0,6
24 L Y+0
25 CHF 0,6
26 L X+0,6
27 L IX-10 IY+10
28 L Z+2 R0 FMAX
29 L X-20 Y-20 R0 FMAX
30 LBL 0