You mean you want me to write it for you

try this:
O30
(THIS IS THE SUB TO CUT FACE)
G91 G1Y[#1005] (Increment over in Y)
G90 X[#1000]F80. (Cut across part)
G0 Z.25 (GO UP TO CLEAR PART FACE)
X0 (BACK TO STARTING SIDE)
G1 Z[#1004] (MOVE BACK DOWN TO CUT DEPTH)
G91 Y[#1005] (again increment over)
G90 X[#1000] (Cut across part)
M99