CODE SNIPITS

Forget That Calculator!!

N1 (4.0 FACE MILL)
#1=450     (SFM)
#2=0.036 (FPR)
#3=4.0     (CUTTER DIA)
M3 S[[#1*3.82]/#3]
G1 X? F[#4119*#2]
........
........
M30

Macro

:9111(ROUND POCKET DEEP CUTTING)
(FORMAT-G65 P9111 I D Q Z W F S)
(I=RADIUS)
(D=CUTTER DIA OFFSET #)
(Q=WODTH OF CUT PER PASS)
(Z=DEPTH OF POCKET)
(W=DEPTH OF CUT)
(F=FEED RATE)
(S=FEED INFEED)
#27=#4001
#28=#4003
#29=#4107
IF[#4EQ#0]GOTO30
IF[#7EQ#0]GOTO30
IF[#17EQ#0]GOTO30
#30=ABS[#[2000+#7]]
IF[#4LE#30)GOTO35
IF[#19EQ#0]GOTO1
GOTO2
N1#19=#9/2
N2#31=ABS[#26]
#8=#31
IF[#23EQ#0]GOTO3
#23=ABS[#23]
GOTO4
N3#23=#31
N4#21=#4-#30
IF[#8LT#23]GOTO5
DO1
#10=0
#10=#10+#17
G91G1Z-#23F#19
WHILE[#10LT#21]DO2
X#17F#9
G3I-#10
#10=#10+#17
END2
#22=#21-[#10-#17]
G1X#22F#9
G3I-#21
G1X-#21F[#9*3]
#8=#8-#23
IF[#8LE#23]GOTO5
END1
N5IF[#8LE0]GOTO20
G91G1Z-#8F#19
#10=0
#10=#10+#17
WHILE[#10LT#21]DO1
X#17F#9
G3I-#10
#10=#10+#17
END1
#22=#21-[#10-#17]
GlX#22F#9
G3I-#21
G1X-#21F[#9*3]
N20G0Z#31
GOTO40
N30#3000=140(ARGUMENT IS NOT ASSIGNED)
N35#3000=141(OVERSIZE OFFSET VALUE)
N40G#27G#28D#29
M99