#100 = 20; (COUNTER)
#101 = 2; (STEP X)
#102 = 9; (STEP Y)
#103 = 1; (DEPTH Z)
#104 = 25; (START X)
#105 = 15; (START Y)
#106 = 100; (LEN. X)
#107 = 3; (COUNTER 2)
#108 = 10; (MINUS - LEN)
#109 = #107;
G17 G21 G90 G54 G80 G49 G40;
M06 T1;
M03 S18000;
G43 H1;
G00 X#104 Y#105 Z10.;
Z5.;
N50 IF [#100 EQ 0] GOTO 100;
N55 IF [#107 EQ 0] GOTO 200;
G00 X#104 Y#105;
G01 Z-#103 F1500;
X[#104+#106];
#104=#104+#101;
#105=#105+#102;
#100=#100-1;
#107=#107-1;
GOTO 50;

N100 M05;
G91 G28 Z0.;
G28 X0.Y0.;
G90;
M30;

N200
#106=#106-#108;
#107=#109;
GOTO 50;

------------------------

#100 = 20; (COUNTER)
#101 = 2; (STEP X)
#102 = 9; (STEP Y)
#103 = 1; (DEPTH Z)
#104 = 25; (START X)
#105 = 15; (START Y)
#106 = 510; (LEN. X)
#107 = 3; (COUNTER 2)
#108 = 25; (MINUS - LEN)
#109 = #107;
#110 = #104+#106;
G17 G21 G90 G54 G80 G49 G40;
M06 T1;
M03 S18000;
G43 H1;
G00 X#104 Y#105 Z10.;
Z5.;
N50 IF [#100 EQ 0] GOTO 100;
N55 IF [#107 EQ 0] GOTO 200;
G00 X#104 Y#105;
G01 Z-#103 F1500;
X#110;
#104=#104+#101;
#105=#105+#102;
#100=#100-1;
#107=#107-1;
GOTO 50;

N100 M05;
G91 G28 Z0.;
G28 X0.Y0.;
G90;
M30;

N200
#110=#110-#108
#107=#109;
GOTO 50;