#500=0;(COORD X)
#501=0;(COORD Y)
#502=150;(LEN)
#503=100;(WID)
#504=1.2;(MAX DEPTH)
#505=3;(COUNTER CUTS)
#506=5;(STEP X/Y)
#507=FIX[#503/[2*#506]]+1;(MAX COUNTER)
G17 G21 G90 G54 G40 G49 G80
M06 T1
G43 H1
M03 S6000
G00 X#500 Y#501 Z10.
Z5.
G01 Z-#504 F100.
N50 IF [#507 EQ 0] GOTO 1000
G01 X#500 Y#501 F250.
X[#500+#502];(1)
Y[#501+#503];(2)
X#500;(3)
Y[#501+#506];(4)
#500=#500+#506;
#501=#501+#506;
#502=#502-[#506*2];
#503=#503-[#506*2];
#507=#507-1;
GOTO 50
N1000 M05
G91 G28 Z0.
G90
M30

-----

#504=0.25;(MAX DEPTH)
#505=1;(COUNTER CUTS)
#506=3;(STEP X/Y)
#508=#504/#505;
#509=#508;
G17 G21 G90 G54 G40 G49 G80
M06 T1
G43 H1
M03 S6000
G00 X#500 Y#501 Z10.
Z5.

N30 IF [#505 EQ 0] GOTO 1000
#500=0;(COORD X)
#501=0;(COORD Y)
#502=225;(LEN)
#503=126;(WID)
#507=FIX[#503/[2*#506]]+1;(MAX COUNTER)
N50 IF [#507 EQ 0] GOTO 500
G01 X#500 Y#501 Z-#509 F250.
X[#500+#502];(1)
Y[#501+#503];(2)
X#500;(3)
Y[#501+#506];(4)
#500=#500+#506;
#501=#501+#506;
#502=#502-[#506*2];
#503=#503-[#506*2];
#507=#507-1;
GOTO 50
N500 #505=#505-1;
#509=#509+#508;
G00 Z10.
GOTO 30 

N1000 M05
G91 G28 Z0.
G90
M30