Haas Horizontal program advice

New to horizontal programming. Here is what I have came up with so far for a sample pallet change and 4axis program to mill the faces of a tombstone.

Don't have the machine yet so I can't play around and test programs, but I would like to have a head start before it gets here.

Any advice or changes?

%
O10000
( PALLET CHANGE)
( PROGRAM DATE - 6/19/2013)
( PROGRAMMED BY - RW )

M36 P1

M50 P1

M98 P#55551

M36 P2

M50 P2

M98 P#55551

M99
%


O55551
( CUSTOMER - )
( PART NUMBER - TOMBSTONE GRID PATTERN)
( PROGRAM DATE - 9/10/2013)
( PROGRAMMED BY - RW )
( UPDATED - )
( DRAWING REV LEVEL - )

(G54)G10 L2 P1 G90 X0.0 Y0.0 Z0.0 B0.0
(G55)G10 L2 P2 G90 X0.0 Y0.0 Z0.0 B90.0
(G56)G10 L2 P3 G90 X0.0 Y0.0 Z0.0 B180.0
(G57)G10 L2 P4 G90 X0.0 Y0.0 Z0.0 B270.0

G20

(G54 B0.0)

N1
G0 G17 G40 G49 G53 G80 G90 G98 Z0
T1 M6 (T1 Face Mill D 2.0 5 Flute W/.03R)
G0 G90 G54 S3500 M3
M10
B0.0
M11
X-7.075 Y-0.47
G43 Z17.5 H01 M8
Z5.875
G94
G1 X-5.825 F50.0
X5.825
X7.075
G0 Z17.5
X-7.075 Y-2.42
Z5.875
G1 X-5.825
X5.825
X7.075
G0 Z17.5
X-7.075 Y-4.37
Z5.875
G1 X-5.825
X5.825
X7.075
G0 Z17.5
X-7.075 Y-6.32
Z5.875
G1 X-5.825
X5.825
X7.075
G0 Z17.5
X-7.075 Y-8.27
Z5.875
G1 X-5.825
X5.825
X7.075
G0 Z17.5
X-7.075 Y-10.22
Z5.875
G1 X-5.825
X5.825
X7.075
G0 Z17.5
X-7.075 Y-12.17
Z5.875
G1 X-5.825
X5.825
X7.075
G0 Z17.5
X-7.075 Y-14.12
Z5.875
G1 X-5.825
X5.825
X7.075
G0 Z17.5
X-7.075 Y-16.07
Z5.875
G1 X-5.825
X5.825
X7.075
G0 Z17.5
X-7.075 Y-18.02
Z5.875
G1 X-5.825
X5.825
X7.075
G0 Z17.5
X-7.075 Y-19.97
Z5.875
G1 X-5.825
X5.825
X7.075
G0 Z17.5
M9
M5
G0 G90 G53 Z0
G0 G90 G53 X0 Y0
M1

(G55 B90.0)

N11
G0 G17 G40 G49 G53 G80 G90 G98 Z0
T1 M6 (T1 Face Mill D 2.0 5 Flute W/.03R)
G0 G90 G55 S3500 M3
M10
B0.0
M11
X-7.075 Y-0.47
G43 Z17.5 H01 M8
Z5.875
G94
G1 X-5.825 F50.0
X5.825
X7.075
G0 Z17.5
X-7.075 Y-2.42
Z5.875
G1 X-5.825
X5.825
X7.075
G0 Z17.5
X-7.075 Y-4.37
Z5.875
G1 X-5.825
X5.825
X7.075
G0 Z17.5
X-7.075 Y-6.32
Z5.875
G1 X-5.825
X5.825
X7.075
G0 Z17.5
X-7.075 Y-8.27
Z5.875
G1 X-5.825
X5.825
X7.075
G0 Z17.5
X-7.075 Y-10.22
Z5.875
G1 X-5.825
X5.825
X7.075
G0 Z17.5
X-7.075 Y-12.17
Z5.875
G1 X-5.825
X5.825
X7.075
G0 Z17.5
X-7.075 Y-14.12
Z5.875
G1 X-5.825
X5.825
X7.075
G0 Z17.5
X-7.075 Y-16.07
Z5.875
G1 X-5.825
X5.825
X7.075
G0 Z17.5
X-7.075 Y-18.02
Z5.875
G1 X-5.825
X5.825
X7.075
G0 Z17.5
X-7.075 Y-19.97
Z5.875
G1 X-5.825
X5.825
X7.075
G0 Z17.5
M9
M5
G0 G90 G53 Z0
G0 G90 G53 X0 Y0
M1

(G56 B180.0

N111
G0 G17 G40 G49 G53 G80 G90 G98 Z0
T1 M6 (T1 Face Mill D 2.0 5 Flute W/.03R)
G0 G90 G56 S3500 M3
M10
B0.0
M11
X-7.075 Y-0.47
G43 Z17.5 H01 M8
Z5.875
G94
G1 X-5.825 F50.0
X5.825
X7.075
G0 Z17.5
X-7.075 Y-2.42
Z5.875
G1 X-5.825
X5.825
X7.075
G0 Z17.5
X-7.075 Y-4.37
Z5.875
G1 X-5.825
X5.825
X7.075
G0 Z17.5
X-7.075 Y-6.32
Z5.875
G1 X-5.825
X5.825
X7.075
G0 Z17.5
X-7.075 Y-8.27
Z5.875
G1 X-5.825
X5.825
X7.075
G0 Z17.5
X-7.075 Y-10.22
Z5.875
G1 X-5.825
X5.825
X7.075
G0 Z17.5
X-7.075 Y-12.17
Z5.875
G1 X-5.825
X5.825
X7.075
G0 Z17.5
X-7.075 Y-14.12
Z5.875
G1 X-5.825
X5.825
X7.075
G0 Z17.5
X-7.075 Y-16.07
Z5.875
G1 X-5.825
X5.825
X7.075
G0 Z17.5
X-7.075 Y-18.02
Z5.875
G1 X-5.825
X5.825
X7.075
G0 Z17.5
X-7.075 Y-19.97
Z5.875
G1 X-5.825
X5.825
X7.075
G0 Z17.5
M9
M5
G0 G90 G53 Z0
G0 G90 G53 X0 Y0
M1

(G57 B270.0)

N1111
G0 G17 G40 G49 G53 G80 G90 G98 Z0
T1 M6 (T1 Face Mill D 2.0 5 Flute W/.03R)
G0 G90 G57 S3500 M3
M10
B0.0
M11
X-7.075 Y-0.47
G43 Z17.5 H01 M8
Z5.875
G94
G1 X-5.825 F50.0
X5.825
X7.075
G0 Z17.5
X-7.075 Y-2.42
Z5.875
G1 X-5.825
X5.825
X7.075
G0 Z17.5
X-7.075 Y-4.37
Z5.875
G1 X-5.825
X5.825
X7.075
G0 Z17.5
X-7.075 Y-6.32
Z5.875
G1 X-5.825
X5.825
X7.075
G0 Z17.5
X-7.075 Y-8.27
Z5.875
G1 X-5.825
X5.825
X7.075
G0 Z17.5
X-7.075 Y-10.22
Z5.875
G1 X-5.825
X5.825
X7.075
G0 Z17.5
X-7.075 Y-12.17
Z5.875
G1 X-5.825
X5.825
X7.075
G0 Z17.5
X-7.075 Y-14.12
Z5.875
G1 X-5.825
X5.825
X7.075
G0 Z17.5
X-7.075 Y-16.07
Z5.875
G1 X-5.825
X5.825
X7.075
G0 Z17.5
X-7.075 Y-18.02
Z5.875
G1 X-5.825
X5.825
X7.075
G0 Z17.5
X-7.075 Y-19.97
Z5.875
G1 X-5.825
X5.825
X7.075
G0 Z17.5
M9
M5
G0 G90 G53 Z0
G0 G90 G53 X0 Y0
M1
M6
M30
%