Newbie My first full program

My first full program tell me what you think


(RING REV A 6/6/13)
(BY:BGM)
(PROTOTYPE)
(3 OPS)
(T1 1/2x90^ DRILL)
(T2 1/4 FLATENDMILL)
(T3 1/4x90^ CHAMFER)
(T4 1/8x90^ DRILL)
(T5 9/50 FLATENDMILL)

M21
G80 G40 G90 G94 G17

(PREDRILLING)
M6 T1(1ST OP)
M3 S2000
G54
G0 X0.0 Y0.0
Z1.0
G1 G43 H3 Z0.0 F8.0 M8
G83 X0.0 Y0.0 Z-.450 R0.1 Q.05 P50
G40
G1 X0.0 Y0.0 Z.5
G0 Z1.0
G55(2ND OP)
G0 X0.0 Y0.0 Z1.0
G1 G43 H3 Z0.0 F8.0
G83 X0.0 Y0.0 Z-.450 R0.1 Q.05 R50
G40
G1 X0.0 Y0.0 Z.5
G0 Z1.0
M9
M5
G74
M00(END OF PREDRILL)

(FACING)
M6 T2
G54(1ST OP)
M3 S2000
G0 X-1.0 Y1.0
Z0.5 M8
G1 G43 H1 Z-.0625 F8.0
M98 P101 L1
M00(END 1ST OP)
G55(2ND OP)
G0 X-1.0 Y1.0
Z.5 M8
G1 G43 H1 Z-.0625 F8.0
M98 P101 L1
G0 Z1.0
M9
M5
G74
M00(END OF FACING)

(RING OD)
G54(1ST OP)
M3 S2000
G0 X-1.0 Y1.0
Z0.5 M8
G1 G43 H2 Z-.125 F8.0
G1 G41 D2 X-.5 Y.4127 F16.0
M98 P102 L1
G1 G43 H2 Z-.25 F8.0
G1 G41 D2 X-.5 Y.4127 F16.0
M98 P102 L1
M00
G55(2ND OP)
M3 S2000
G0 X-1.0 Y1.0
Z0.5 M8
G1 G43 H2 Z-.125 F8.0
G1 G41 D2 X-.5 Y.4127 F16.0
M98 P102 L1
G1 G43 H2 Z-.350 F8.0
G1 G41 D2 X-.5 Y.4127 F16.0
M98 P102 L1
M9
M5
G74
M00(END OF OD)

(RING ID)
G54(1ST OP)
M3 S2000
G0 X0.0 Y0.0 Z.5 M8
G1 G43 H1 Z-.125 F8.0
M98 P103 L1
G1 G43 H1 Z-.375 F8.0
M98 P103 L1
G1 Z.5 F8.0
G0 Z1.0
M00
G55(2ND OP)
G0 X0.0 Y0.0 Z.5 M8
G1 G43 H1 Z-.125 F8.0
M98 P103 L1
G1 G43 H1 Z-.350 F8.0
M98 P103 L1
G1 Z.5 F8.0
G0 Z1.0
M5
M8
G74
M00

(1ST OP FINISH CUT)
G54
M3 S2000
G0 X-.5 Y-1.0
Z.5 M8
G1 G43 H2 Z-.25 F8.0
G1 G41 D2 X-.5 Y-.5 F16.0
G1 Y-1.0
X.5
Y-.5
Y-1.0
G40
G1 Z1.0
M5
M9
G74
M00(END FINISH PASS)

(CHAMFER)
G54(1ST OP)
M6 T3
M3 S2000
G0 X-.5 Y.5 Z0.0
G1 Z-.08 F8.0
M98 P104 L1
G0 Z.5
M00
G55(2ND OP)
G0 X-.5 Y.5 Z0.0
G1 Z-.08 F8.0
M98 P104 L1
G0 Z.5
M5
M9
G74
M00(END CHAMFER)

(SPOTDRILL)
G56(OP 3)
G0 X0.0 Y0.0 Z1.0
M3 S2000
G1 G43 H3 Z0.25 F8.0 M8
G83 X0.0 Y.2178 Z-.375 R.1 Q.05 P100
X0.0 Y-.2178 Z-.375 R.1 Q.05 P100
G1 Z.25
G0 Z1.0
G80 G40
M5
M9
G74
M00(END SPOTDRILL)

(THRU HOLE)
M6 T4
M3 S2000
G0 X0.0 Y.2178
Z.5
G1 G43 H4 Z0.0 F8.0 M8
G83 X0.0 Y.2178 Z-.990 R.1 Q.125 P100
X0.0 Y-.2178 Z-.990 R.1 Q.125 P100
G1 Z.25
G0 Z1.0
G80 G40
M5
M9
G74
M00(END THRU HOLE)

(COUNTER SINK)
M6 T5
G0 X0.0 Y.2178
Z.5
G1 G43 H5 Z0.0 F8.0 M8
G1 Z-.746
Z.125
G0 X0.0 Y-.2178
G1 Z-.746 F8.0
Z.125
M5
M9
G74
M00(END COUNTER SINK)

G28
M20
M30(PROGRAM END)

O101(RING FFACING SUBROUTINE)
G1 G41 D1 X-.5 Y.5 F16.0
Y-.625
X-.375
Y.5
X-.25
Y-.5
X-.125
Y.5
X0.0
Y-.5
X.125
Y.5
X.25
Y-.5
X.375
Y.5
X.5
X1.0 Y1.0
G40
M99

O102(RING OD SUBBROUTINE)
G1 X.4127
Y0.0
G2 X0.0 Y-.4127 I-.4127
G2 X-.4127 Y0.0 J.4127
G1 Y.4127
X-1.0 Y1.0
G40
M99

O103(RING ID SUBROUTINE)
G1 G42 D1 X.3 Y0.0 F16.0
G2 X0.0 Y-.3 I-.3
G2 X-.3 Y0.0 J.3
G2 X0.0 Y.3 I.3
G2 X.3 Y0.0 J-.3
G1 G40 X0.0 Y0.0 Z0.0
M99

O104(CHAMFER SUBROUTINE)
G1 X.4127 F16.0
Y0.0
G2 X0.0 Y-.4127 I-.4127
G2 X-.4127 Y0.0 J.4127
G1 Y.4127
Z0.0
G0 Z.5
X0.0 Y0.0
G1 Z-.08 F8.0
G1 X.3 Y0.0 F16.0
G2 X0.0 Y-.3 I-.3
G2 X-.3 Y0.0 J.3
G2 X0.0 Y.3 I.3
G2 X.3 Y0.0 J-.3
G1 G40 X0.0 Y0.0 Z0.0
M99