Appendix 1. Registering and Editing Fixed Cycle Programs
Appendix 1.5 Standard Fixed Cycle Subprogram
G75
Straight cutting pattern cycle
O750
STRAIGHT-PATC
G.1
IF[ABS[#1]GT0]GOTO10
#14=1
N10#13=#4
IF[#15NE0]GOTO11
#13=#4-#5
N11#16=0
DO1
#10=0
#11=#3
DO2
#10=#10+#3
IF[ABS[#10]GE[ABS[#2]]]GOTO1
G01Y#11
G00Y#6
#11=#3-#6
END2
N1G01Y#2-#10+#11
IF[#15EQ0]GOTO20
IF[#16EQ0]GOTO21
N20G00X#5
N21#16=1
G00Y-#2
IF[#14]GOTO3
#12=#12+#4
IF[ABS[#12]LT[ABS[#1]]]GOTO2
#14=1
#13=#1-#12+#13
N2G00X#13
#13=#4-#5
END1
N3G00X-#1-#5
M99
IV - 3