Okuma Mill Program

I ran this program today still trying to get a grasp on the can cycles. Can someone take a look at it and tell me what they think.

N0001 (3.000" DIA 3 SLOTTED HUB)
N0002 ()
N0003 (REVISED ON 3/30/2013 RAT)
N0004 (2.015" BORE X 4.00" LONG)
( X0 Y0 IS CENTER OF PART)
N0005 (1/4" WIDTH 1/4" DP. SLOT)
N0006 (MAT: 316 STAIMLESS STEEL)
N0007 (PROGRAM IS AT PEAK S.F.M)
N0008 (H1 X OFFSET 8.7856)
N0009 (H1 Y OFFSET 2.4535)
N0010 ()
N0015 G00 G90 Z20.
N0016 X-10. Y20.
N0017 M01
NAT14 (1/4" DIA. END MILL .2500)
(4 FLUTE CARBIDE CENTER CUTTING)
N1400 G111 T02 M6
N1401 G15 H01
N1402 G56 H02 M03 S1848
N1403 G00 X.704 Y1.044 A0.
N1404 Z.1 M08
N1405 CALL OMIL1
N1406 G00 X.704 Y1.044 A120.
N1407 Z.1
N1408 CALL OMIL1
N1409 G00 X.704 Y1.044 A240.
N1410 Z.1
N1411 CALL OMIL1
N1412 G00 Z20. M09
N1413 X-10. Y20. M05
N1210 M19
N1211 M30
(********* SUB PROGRAMS ********)
OMIL1 (1/4" WIDE SLOT PROFILE)
G01 Z-.025 F50.
X-.704 Y-1.044 F7.6
Z-.05 F100.
X.704 Y1.044 F7.6
Z-.075 F100.
X-.704 Y-1.044 F7.6
Z-.1 F100.
X.704 Y1.044 F7.6
Z-.125 F100.
X-.704 Y-1.044 F7.6
Z-.15 F100.
X.704 Y1.044 F7.6
Z-.175 F100.
X-.704 Y-1.044 F7.6
Z-.2 F100.
X.704 Y1.044 F7.6
Z-.225 F100.
X-.704 Y-1.044 F7.6
Z-.25 F100.
X.704 Y1.044 F7.6
Z.5 F100.
RTS
(********* END OF SUBS *********)