Tu podaje przykład programu

0 BEGIN PGM PROMIEN W OTWORZE R20 PIERWIASTEK MM
1 BLK FORM 0.1 Z X-80 Y-80 Z-65
2 BLK FORM 0.2 X+80 Y+80 Z+0
3 TOOL CALL 2 Z S1200
4 L Z+100 R0 FMAX M3
5 L X+0 Y+0 R0 FMAX
6 L Z+0 R0 FMAX
7 FN 0: Q1 =+25 ;GLEBOKOSC OTWORU
8 FN 0: Q4 =+140 ;SREDNICA OTWORU
9 FN 0: Q10 =+40 ;ILOSC POWT.
10 FN 4: Q1 =+Q1 DIV +Q10
11 FN 4: Q4 =+Q4 DIV +2
12 L X+Q4 RL F1500
13 LBL 1
14 CC X+0 Y+0
15 CP IPA+360 IZ-Q1 DR+ F1500
16 FN 1: Q10 =+Q10 + -1
17 FN 11: IF +Q10 GT +0 GOTO LBL 1
18 C IX+0 IY+0 DR+ F1500
19 L X+0 Y+0 R0
20 LBL 0
21 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
22 ;STOZEK 20/20
23 FN 0: Q1 =+20 ;GLEBOKOKOSC FAZY
24 FN 0: Q2 =+20 ;SZER. FAZY
25 FN 0: Q10 =+70 ;ILOSC POWT.
26 FN 0: Q4 =+70 ;PROMIEN NAJAZDU X
27 FN 3: Q10 =+Q10 * +2
28 FN 4: Q1 =+Q1 DIV +Q10
29 FN 4: Q2 =+Q2 DIV +Q10
30 CC X+0 Y+0
31 L Z-25 R0 F5000
32 LP PR+Q4 PA+90 RL F1500
33 LBL 3
34 CC X+0 Y+Q2
35 CP IPA+180 IZ-Q1 DR+ F1500
36 CC X+0 Y+0
37 CP IPA+180 IZ-Q1 DR+
38 FN 1: Q10 =+Q10 + -2
39 FN 10: IF +Q10 NE +0 GOTO LBL 3
40 CC X+0 Y+0
41 CP IPA+360 DR+
42 L X+0 Y+0 R0
43 LBL 0
44 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
45 ;PROMIEN R20
46 LBL 10
47 CC X+0 Y+0
48 FN 1: Q30 =+400 + -Q20
49 FN 5: Q40 = SQRT +Q30
50 FN 1: Q5 =+50 + +Q40 ;DOJAZD X
51 FN 1: Q6 =+Q15 + +25 ;DOJAZD Z
52 FN 3: Q20 =+Q15 * +Q15
53 L Z-Q6 F8000
54 L X+Q5 RL F5000
55 CP IPA+360 DR+ F10000
56 L X+0 R0
57 FN 1: Q15 =+Q15 + +0.2
58 FN 12: IF +Q20 LT +400 GOTO LBL 10
59 LBL 0
60 END PGM PROMIEN W OTWORZE R20 PIERWIASTEK MM

Robiłem często takie promienie mam taki programik jutro
go tu zapodam