Программа 1.

%
O0001;
G17 G90 G54 G21 G49 G40 G80;
M06 T1;
M03 S10000;
G43 H1;
G00 X0.Y0.Z20.;
G41 X0.Y0. D1 ;
Z5.;
M08;
G01 Z-1. F250.;
Y100. F350.;
X100.;
Y0.;
X0.;
G01 Z-2. F250.;
Y100. F350.;
X100.;
Y0.;
X0.;
G01 Z-3. F250.;
Y100. F350.;
X100.;
Y0.;
X0.;
G01 Z-4. F250.;
Y100. F350.;
X100.;
Y0.;
X0.;
G01 Z-5. F250.;
Y100. F350.;
X100.;
Y0.;
X0.;
G00 Z20.;
M09;
M05;
G91 G28 Z0.;
G28 X0. Y0.;
G90;
M30;

%

Программа 2.

%
O0001;
G17 G90 G54 G21 G49 G40 G80;
M06 T1;
M03 S10000;
G43 H1;
G00 X0.Y0.Z20.;
G41 X0.Y0. D1 ;
Z5.;
M08;
G01 Z0. F250.;
M98 P0002 L12;
G00 Z20.;
M09;
M05;
G91 G28 Z0.;
G28 X0. Y0.;
G90;
M30;

O0002;
G91;
G01 Z-2. F250.;
G90;
Y100. F350.;
X100.;
Y0.;
X0.;
M99;
%

Программа 3.

%
O0001;
#100 = 22;
#101 = 2; (2 - O0002 ,3 - 0003)
#103 = 0.3; (STEP DEPTH.)
G17 G90 G54 G21 G49 G40 G80;
M06 T1;
M03 S10000;
G43 H1;
G00 X0.Y0.Z20.;
G41 X0.Y0. D1 ;
Z5.;
M08;
G01 Z0. F250.;
IF [#101 EQ 2] THEN #102 = 0002;
IF [#101 EQ 3] THEN #102 = 0003;
M98 P#102 L#100;
G00 Z20.;
M09;
M05;
G91 G28 Z0.;
G28 X0. Y0.;
G90;
M30;

O0002;
G91;
G01 Z-#103 F250.;
G90;
Y100. F350.;
X100.;
Y0.;
X0.;
M99;

O0003;
G91;
G01 Z-#103 F250.;
G90;
Y50. F350.;
X50.;
Y0.;
X0.;
M99;
%

Программа 4.

%
O0001;
#100 = 72; (L)
#101 = 39; (W)
#102 = 25; (ST.X)
#103 = 35; (ST.Y)
#104 = 0.2; (- Z DEP.)
#105 = 7.5; (- TH. MAX MM)
G17 G90 G54 G21 G49 G40 G80;
M06 T1;
M03 S10000;
G43 H1;
#106 = FIX[#105/#104];
#107 = 0; (ACT INC STEP)
#108 = #104; (ACT Z)
G00 X#102 Y#103 Z20.;
Z5.;
M08;
G01 Z0. F250.;
N40 IF [#107 EQ #106] GOTO 50;
G01 Z-#108 F100.; 
Y[#103+#101] F250;
X[#102+#100];
Y#103;
X#102;
#107=#107+1;
#108=#108+#104;
GOTO 40
N50
G00 Z20.;
M09;
M05;
G91 G28 Z0.;
G28 X0. Y0.;
G90;
M30;