I use this to clean off the back side of the stock when not cut through.
Also for general pockets.
 


(Raster Rectangle Pocket 06-08-2008 JDS)
(Set X0 and Y0 central)
G40G80G90
G0Z.2
( --- EDIT THESE --- )
#1=5.0(X Dim)
#2=2.(Y Dim)
#3=-.05(Step Over NEG NUMB)
#4=-.05(Z Depth NEG NUMB)
#5=15.(Feed Rate)
( --- DO NOT EDIT THESE --- )
#6=[#1/2](X+)
#7=[0-#6](X-)
#8=[#2/#3](Number of Steps)
#9=[#2/2]
#10=#9(Y Loc)


M6T1(.125 END MILL)
M3S5000
G0X#7Y#9

H1D1Z.1
G1F3.Z#4

G1F#5X#6
#10=[#10+#3]
G1Y#10
G1X#7
#12=ABS[#8]
#12=[#12/2]
#12=[#12-1.]
M98P123L#12

G0Z.1
M30

O123(SUB PROG DO 2 LINES)
#10=[#10+#3]
G1Y#10
G1X#6
#10=[#10+#3]
G1Y#10
G1X#7

M99

Hey....that's pretty handy Steinie !
I'll keep that in my bag of tricks. I'm sure I will use it in the future.
Thanks for sharing it.
RC