Some fun code 4 u (got bored)lol

[davef2f]

hi got bored & started playing w\ macro variables. Wrote this face milling program. should save sum redunant programing in the future or @ least speed up sum fast milling. use @ your own risk, of course. if you like it, improve it, or have a better idea let me know! just don't blame me! lol
dave

O0010(FACE MILL SUB)
G90 G20 G40 G80 G94 G50 G17
(WORK X&Y DATUM TOP LEFT CORNER Z0 FINISH SURFACE)
(EXTRA Y MOVE @ END)
M98P8000
#1=4.(STOCK SIZE X)
#2=5.(STOCK SIZE Y)
#3=0.01(DEPTH OF CUT STOCK ON 0. IF FINISH CUT)
#4=3(# OF PASS REPEATS IN Y 1PASS =0)
#5=54(G54-G59)
#14=1(P # OF WC)
#6=5(TOOL NUMB.)
#7=1.5(TOOL RAD.)
#8=650(SFPM)
#9=7(CUTTER FLUKES)
#10=.003(CHIP LOAD)
#13=0.2(CLEARANCE FOR X & Z)
G10L2P1X-2.Y-2.Z-3.
(-----------CALCS-----)
G10G91L2P#14X[#1/2]Y[#2/2](SHIFTS WC TO CENTER OF PART)
G90
#11=[#8/[#7*2]/.262](RPM)
#12=[#11*#10*#9](FPM)
T#6M6
G#5G90G0X0Y0S#11M3
G0X[0.0-[#1/2]-#7-#13]Y[0.+[#2/2]-#13](START POS)
G43G0Z.5H#6M8
G1Z[0.+#3]F#12.
M98P0090L#4
G90
G0Z#13
M98P8000
M30
O0090
G1Z[0.+#3]F#12.
G91
G1X[#1+[#7*2]+[#13*2]]
G0G90Z#13
G91
X[0.-#1-[#7*2]-[#13*2]]
Y[0.-[#7*2]+[#13*2]]
G90
M99
O8000(SAFE CHANGE MILL)
M5
M9
G17
G28.1
G90 G40 G80 G50 G20 G49 G94
M1
M99