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