%
O9020(REFERANCE+TOLL CATCH)
#100=#4003
IF[#20EQ#0]GOTO200
N100IF[#20EQ#999]GOTO300
G91G28Z0
T#20M6
#999=#20
GOTO300
N200IF[#4120EQ#999]GOTO300
G91G28Z0
T#4120M6
#999=#4120
N300G#100
M99
%
wwwwwwwwwwwwwwwwwwwwwwww
%
O9913(SQUARE)
(G65P9913X-Y-U-V-H-M-A-)
#31=#4001
#33=#4003
#32=#5003
IF[#24EQ#0]GOTO10
GOTO20
N10#24=#5001
N20IF[#24EQ#0]GOTO30
GOTO40
N30#25=#5002
N40IF[[#11*#13]EQ0]GOTO990
IF[#1EQ#0]GOTO50
GOTO60
N50#1=0
N60#1=-#1
#12=FIX[#11]
#14=FIX[#13]
IF[[#11-#12]NE0]GOTO990
IF[[#13-#14]NE0]GOTO990
IF[#11GT1]GOTO70
GOTO80
N70IF[#21EQ#0]GOTO990
N80IF[#13GT1]GOTO90
GOTO100
N90IF[#22EQ#0]GOTO990
N100#100=1
WHILE[#100LE#11]DO1
#27=[#100-1]*#21
#28=0
X[#27*COS[#1]+#28*SIN[#1]+#24]Y[#28*COS[#1]-#27*SIN[#1]+#25]
#100=#100+1
END1
N200#100=2
WHILE[#100LE#13]DO1
#27=[#11-1]*#21
#28=[#100-1]*#22
X[#27*COS[#1]+#28*SIN[#1]+#24]Y[#28*COS[#1]-#27*SIN[#1]+#25]
#100=#100+1
END1
N300#100=#11-1
WHILE[#100GE1]DO1
#27=[#100-1]*#21
#28=[#13-1]*#22
X[#27*COS[#1]+#28*SIN[#1]+#24]Y[#28*COS[#1]-#27*SIN[#1]+#25]
#100=#100-1
END1
N400#100=#13-1
WHILE[#100GE2]DO1
#27=0
#28=[#100-1]*#22
X[#27*COS[#1]+#28*SIN[#1]+#24]Y[#28*COS[#1]-#27*SIN[#1]+#25]
#100=#100-1
END1
G#31G#33F#9
GOTO999
N990#3000=81(DATA-LACK-OR-ERROR-U.V.H.M)
N999M99
wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
%
O9921(SQUARE-UNI-DIR)
(G65P9921X-Y-U-V-D-R-Z-F-E-C-K-Q-)
#31=#4001
#33=#4003
#32=#5003
IF[#24EQ#0]GOTO10
GOTO20
N10#24=#5001
N20IF[#25EQ#0]GOTO30
GOTO40
N30#25=#5002
N40IF[#18EQ#0]GOTO993(R)
IF[[#18-#26]LT0]GOTO993
IF[#26EQ#0]GOTO994(Z)
IF[[#7*#9*#21*#22]EQ0]GOTO990
IF[#21LT0]GOTO990
IF[#22LT0]GOTO990
#10=#[2200+#7]+#[2000+#7](OFFSET-B-TYPE&&OFFSET-NUMBER-LE-200)
IF[#10LE0]GOTO991
IF[#8EQ#0]GOTO50
GOTO60
N50#8=0.60
N60IF[#8GT1]GOTO996
IF[#3EQ#0]GOTO70
GOTO80
N70#3=#10
N80IF[#3LT0]GOTO992
IF[#6EQ#0]GOTO90
GOTO100
N90#6=0
N100#26=#26+#6
IF[#17EQ#0]GOTO110
GOTO120
N110#17=#18-#26
N120IF[#17GT[#18-#26]]GOTO997(Q-GT-[R-Z])
IF[#6GT#17]GOTO998(K-GT-Q)
#27=#24-[#3+#10]
#28=#25+#10*[2*#8-1]
#29=#18-#17
#30=#28
#14=2*#10*#8
DO1
#28=#30
G00X#27Y#28
Z#18
G01Z#29F[#9/2]
DO2
G01X[#21+#3+#10+#24]F#9
#12=#28+#10-#25
IF[#12GE#22]GOTO200
#28=#28+#14
G00Z#18
G00Z#32
G00Y#28X#27
G00Z#18
G01Z#29F[#9/2]
END2
N200#29=#29-#17
IF[#29GE#26]GOTO300
IF[[#29+#17]EQ#26]GOTO400
#29=#26
N300G00G90Z#18
Z#32
END1
N400(***END-OF-CYCLE***)
IF[#6EQ0]GOTO500
#26=#26-#6
G00G90Z#18
Z#32
#28=#30
G00G90X#27Y#28
Z#18
G01Z#26F[#9/2]
DO3
G01X[#21+#3+#10+#24]F#9
#12=#28+#10-#25
IF[#12GE#22]GOTO500
#28=#28+#14
G00Z#18
G00Z#32
G00Y#28X#27
G00Z#18
G01Z#26F[#9/2]
END3
N500(***END-OF-FINISH***)
G00G90Z#18
Z#32
G#31G#33F#9
GOTO999
N990#3000=81(DATA-LACK-OR-ERROR-D.F.U.V.)
N991#3000=82(OFFSET-ERROR)
N992#3000=83(DATA-ERROR-FOR-C.)
N993#3000=84(RAPID-APPROACH-POINT-R.)
N994#3000=85(Z-END-POINT-Z.)
N995#3000=86(CORNER-RADIUS-I.)
N996#3000=87(MODIFY-E.)
N997#3000=88(MODIFY-Q.)
N998#3000=89(MODIFY-K.)
N999M99
%
wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
%
O9931(CIRCLE-OUTSIDE)
(G65P9931I-D-F-R-Z-C-M-X-Y-)
#31=#4001
#33=#4003
#32=#5003
IF[#24EQ#0]GOTO10
GOTO20
N10#24=#5001
N20IF[#25EQ#0]GOTO30
GOTO40
N30#25=#5002
N40IF[#18EQ#0]GOTO993(R)
IF[#26EQ#0]GOTO994(Z)
IF[[#4*#7*#9]EQ0]GOTO990
#10=#[2200+#7]+#[2000+#7](OFFSET-B-TYPE&&OFFSET-NUMBER-LE-200)
IF[#10LE0]GOTO991
IF[#3EQ#0]GOTO50
GOTO60
N50#3=#10*2
N60IF[#13EQ2]GOTO70
IF[#13EQ#0]GOTO70
(***UP-CUTTING***)
G00G90X[#24-[#4+#10]]Y[#25+#3]
Z#18
G01Z#26F[#9/2]
X[#24-[#4+#10]]Y#25F#9
G03I[#4+#10]
G01X[#24-[#4+#10]]Y[#25-#3]
GOTO80
(***DOWN-CUTTING***)
N70G00G90X[#24-[#4+#10]]Y[#25-#3]
Z#18
G01Z#26F[#9/2]
X[#24-[#4+#10]]Y#25F#9
G02I[#4+#10]
G01X[#24-[#4+#10]]Y[#25+#3]
(***END-OF-CYCLE***)
N80G00G90Z#18
Z#32
G#31G#33F#9
GOTO999
N990#3000=81(DATA-LACK-FOR-I.D.F.)
N991#3000=82(OFFSET-ERROR)
N992#3000=83(DATA-ERROR-FOR-C.)
N993#3000=84(RAPID-APPROACH-POINT-R.)
N994#3000=85(Z-END-POINT-Z.)
N999M99
%
wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
%
O9934(SQUARE-INSIDE)
(G65P9934C-D-F-U-V-R-Z-I-S-M-X-Y-)
#31=#4001
#33=#4003
#32=#5003
IF[#24EQ#0]GOTO10
GOTO20
N10#24=#5001
N20IF[#25EQ#0]GOTO30
GOTO40
N30#25=#5002
N40IF[#18EQ#0]GOTO993
IF[#26EQ#0]GOTO994
IF[[#3*#7*#9*#21*#22]EQ0]GOTO990
#10=#[2200+#7]+#[2000+#7](OFFSET-B-TYPE&&OFFSET-NUMBER-LE-200)
IF[#10LE0]GOTO991
IF[#4EQ#0]GOTO50
GOTO60
N50#4=#10
N60IF[#10GT#4]GOTO995(D-GT-I)
IF[#10GT[#21/2]]GOTO991(D-GT-U/2)
IF[#10GT[#22/2]]GOTO991(D-GT-V/2)
IF[#10GT#3]GOTO992(D-GT-C)
IF[#3GT[#21/2]]GOTO992(C-GT-U/2)
IF[#3GT[#22/2]]GOTO992(C-GT-V/2)
IF[#19EQ#0]GOTO70
GOTO80
N70#19=3*#9
N80G00G90X#24Y#25
Z#18
G01Z#26F[#9/2]
IF[#13EQ3]GOTO90
IF[#13EQ#0]GOTO90
(***UP-CUTTING***)
G01X[#24+[#3-#10]]Y[#25-[[#22/2]-#3]]F#19
G02X#24Y[#25-[[#22/2]-#10]]R[#3-#10]F#9
G01X[#24-[[#21/2]-#10]]Y[#25-[[#22/2]-#10]],R[#4-#10]
X[#24-[[#21/2]-#10]]Y[#25+[[#22/2]-#10]],R[#4-#10]
X[#24+[[#21/2]-#10]]Y[#25+[[#22/2]-#10]],R[#4-#10]
X[#24+[[#21/2]-#10]]Y[#25-[[#22/2]-#10]],R[#4-#10]
X#24Y[#25-[[#22/2]-#10]]
G02X[#24-[#3-#10]]Y[#25-[[#22/2]-#3]]R[#3-#10]
G01X#24Y#25F#19
GOTO100
(***DOWN-CUTTING***)
N90G01X[#24-[#3-#10]]Y[#25-[[#22/2]-#3]]F#19
G03X#24Y[#25-[[#22/2]-#10]]R[#3-#10]F#9
G01X[#24+[[#21/2]-#10]]Y[#25-[[#22/2]-#10]],R[#4-#10]
X[#24+[[#21/2]-#10]]Y[#25+[[#22/2]-#10]],R[#4-#10]
X[#24-[[#21/2]-#10]]Y[#25+[[#22/2]-#10]],R[#4-#10]
X[#24-[[#21/2]-#10]]Y[#25-[[#22/2]-#10]],R[#4-#10]
X#24Y[#25-[[#22/2]-#10]]
G03X[#24+[#3-#10]]Y[#25-[[#22/2]-#3]]R[#3-#10]
G01X#24Y#25F#19
(***END-OF-CYCLE***)
N100G00G90Z#18
Z#32
G#31G#33F#9
GOTO999
N990#3000=81(DATA-LACK-FOR-C.D.F.U.V.)
N991#3000=82(OFFSET-ERROR)
N992#3000=83(DATA-ERROR-FOR-C.)
N993#3000=84(RAPID-APPROACH-POINT-R.)
N994#3000=85(Z-END-POINT-Z.)
N995#3000=86(CORNER-RADIUS-I.)
N999M99
%
wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
%
O9941(CIRCLE POCKET)
(G65P9941X-Y-Z-R-H-I-D-F-Q-E-A-C-K-M-S-W620-T-)
#31=#4001
#33=#4003
#32=#5003
IF[#24EQ#0]GOTO10
GOTO20
N10#24=#5001
N20IF[#25EQ#0]GOTO30
GOTO40
N30#25=#5002
N40IF[#18EQ#0]GOTO993(R)
IF[#26EQ#0]GOTO994(Z)
IF[[#7*#9*#4]EQ0]GOTO990
#10=#[2200+#7]+#[2000+#7](OFFSET-B-TYPE&&OFFSET-NUMBER-LE-200)
IF[#10LE0]GOTO991
IF[#1EQ#0]GOTO50
GOTO60
N50#1=0
N60IF[#20EQ#0]GOTO70
GOTO80
N70#20=0
N80IF[#11EQ#0]GOTO989(NO-H.)
IF[#18LT#11]GOTO988(SEQUENCE-R.H.Z.)
IF[#18LT#26]GOTO988(SEQUENCE-R.H.Z.)
IF[#11LT#26]GOTO988(SEQUENCE-R.H.Z.)
IF[#10GT#4]GOTO991
IF[#3EQ#0]GOTO90
GOTO100
N90#3=0
N100IF[#8EQ#0]GOTO110
GOTO120
N110#8=0.60
N120IF[#6EQ#0]GOTO130
GOTO140
N130#6=0
N140IF[[2*#3+#10]GT[#4-#6-[#11-#26]*TAN[#1]]]GOTO992
IF[[#4-[#11-#26]*TAN[#1]]LT#10]GOTO985(A)
#26=#26+#6
#4=#4+#20*[1-COS[#1]]+#20*[1-SIN[#1]]*TAN[#1]
#4=#4-#6
#104=#4
IF[#17EQ#0]GOTO150
GOTO160
N150#17=#11-#26
N160IF[#17GT[#11-#26]]GOTO997(Q)
IF[#6GT#17]GOTO998(K)
IF[#8GT1]GOTO996(E)
IF[#19EQ#0]GOTO170
GOTO180
N170#19=#9/4
N180#29=#11-#17
DO1
#4=#104
(---A-NE-0---)
#4=#104
#30=#11-#29
#27=#30*TAN[#1]
#4=#4-#27
(---END---)
#12=2*#8*#10(SHARE)
#15=[#4-#10]/#12
#2=#15
#15=FIX[#15](COUNTER)
G00G90X#24Y#25
Z#18
G01Z[#29+#17]F[#9/2]
IF[#13EQ#0]GOTO201
GOTO202
N201#13=3
N202IF[#13EQ2]GOTO210
(***DOWN-CUTTING***)
G03I#3Z#29F#19
IF[#23EQ620]GOTO1000
#100=1
WHILE[#100LE#15]DO2
G01X[#24+[#100-1]*#12-0.5]F#9
X[#24+#100*#12]F[#9/2]
G03I-[#100*#12]
X[#24+#100*#12*COS[5]]Y[#25+#100*#12*SIN[5]]R[#100*#12]
G01X[#24+#100*#12-2]Y#25
#100=#100+1
END2
IF[[#2-#15]EQ0]GOTO220
N1000G01X[#24+[#4-#10]-2.5]F#9
X[#24+[#4-#10]]F[#9/2]
G03I-[#4-#10]F#9
X[#24+[#4-#10]*COS[5]]Y[#25+[#4-#10]*SIN[5]]R[#4-#10]
G01X[#24+[#4-#10]-2]Y#25
GOTO220
N210(***UP-CUTTING***)
G02I#3Z#29F#19
IF[#23EQ620]GOTO2000
#100=1
WHILE[#100LE#15]DO2
G01X[#24+[#100-1]*#12-0.5]F#9
X[#24+#100*#12]F[#9/2]
G02I-[#100*#12]
X[#24+#100*#12*COS[5]]Y[#25-#100*#12*SIN[5]]R[#100*#12]
G01X[#24+#100*#12-2]Y#25
#100=#100+1
END2
IF[[#2-#15]EQ0]GOTO220
N2000G01X[#24+[#4-#10]-2.5]F#9
X[#24+[#4-#10]]F[#9/2]
G02I-[#4-#10]
X[#24+[#4-#10]*COS[5]]Y[#25-[#4-#10]*SIN[5]]R[#4-#10]
G01X[#24+[#4-#10]-2]Y#25
N220
#29=#29-#17
IF[#29GE#26]GOTO300
IF[[#29+#17]EQ#26]GOTO400
#29=#26
N300G00G90Z#18
Z#32
END1
N400(***END-OF-CYCLE***)
G00G90Z#18
Z#32
G#31G#33F#9
GOTO999
N985#3000=92(BEVEL-A-TOO-BIG)
N988#3000=90(SEQUENCE-ERROR-R.H.Z.)
N989#3000=91(DATA-LACK-H.)
N990#3000=81(DATA-LACK-OR-ERROR-D.F.I.)
N991#3000=82(OFFSET-ERROR)
N992#3000=83(DATA-ERROR-FOR-C.)
N993#3000=84(RAPID-APPROACH-POINT-R.)
N994#3000=85(Z-END-POINT-Z.)
N995#3000=86(CORNER-RADIUS-I.)
N996#3000=87(MODIFY-E.)
N997#3000=88(MODIFY-Q.)
N998#3000=89(MODIFY-K.)
N999M99
%
wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
%
O9943(TRACK-POCKET)
(G65P9943X-Y-Z-R-H-I-J-U-D-F-Q-E-C-K-M-S-)
#31=#4001
#33=#4003
#32=#5003
IF[#24EQ#0]GOTO10
GOTO20
N10#24=#5001
N20IF[#25EQ#0]GOTO30
GOTO40
N30#25=#5002
N40IF[#18EQ#0]GOTO993(R)
IF[#26EQ#0]GOTO994(Z)
IF[[#7*#9*#21*#4*#5]EQ0]GOTO990
#10=#[2200+#7]+#[2000+#7](OFFSET-B-TYPE&&OFFSET-NUMBER-LE-200)
IF[#10LE0]GOTO991
IF[#11EQ#0]GOTO989(NO-H.)
IF[#18LT#11]GOTO988(SEQUENCE-R.H.Z.)
IF[#18LT#26]GOTO988(SEQUENCE-R.H.Z.)
IF[#11LT#26]GOTO988(SEQUENCE-R.H.Z.)
IF[#10GT#4]GOTO991
IF[#10GT#5]GOTO991
IF[#3EQ#0]GOTO90
GOTO100
N90#3=0
N100IF[#8EQ#0]GOTO110
GOTO120
N110#8=0.60
N120IF[#6EQ#0]GOTO130
GOTO140
N130#6=0
N140IF[[2*#3+#10]GT[#4-#6]]GOTO992
#26=#26+#6
#4=#4-#6
#5=#5-#6
IF[#17EQ#0]GOTO150
GOTO160
N150#17=#11-#26
N160IF[#17GT[#11-#26]]GOTO997(Q)
IF[#6GT#17]GOTO998(K)
IF[#8GT1]GOTO996(E)
IF[#19EQ#0]GOTO170
GOTO180
N170#19=#9/4
N180#16=#11-#17
DO1
#12=2*#8*#10(LONG-AXIS-SHARE)
IF[#4LT#5]GOTO190
#15=[#4-#10]/#12
#2=#15
#14=[#5-#10]/#15(SHORT-AXIS-SHARE)
#15=FIX[#15](COUNTER)
GOTO200
N190#15=[#5-#10]/#12
#2=#15
#14=[#4-#10]/#15(SHORT-AXIS-SHARE)
#15=FIX[#15](COUNTER)
#101=#12
#12=#14
#14=#101
N200
G00G90X#24Y#25
Z#18
G01Z[#16+#17]F[#9/2]
IF[#13EQ#0]GOTO201
GOTO202
N201#13=3
N202IF[#13EQ2]GOTO210
(***DOWN-CUTTING***)
G03I#3Z#16F#19
G01X[#24+#21]F#9
#100=1
WHILE[#100LE#15]DO2
#104=#100*#12
#105=#100*#14
#22=SQRT[#21*#21-[#105-#104]*[#105-#104]]
#23=ATAN[#105-#104]/[#22](ANGLE)
#27=#104*SIN[#23](XA)
#28=#104*COS[#23](YA)
#29=#105*SIN[#23](XB)
#30=#105*COS[#23](YB)
G01X[#24+#21+#100*#14]F#9
G03X[#24+#21-#29]Y[#25+#30]I-#105
G01X[#24-#27]Y[#25+#28]
G03X[#24-#27]Y[#25-#28]I#27J-#28
G01X[#24+#21-#29]Y[#25-#30]
G03X[#24+#21+#100*#14]Y0I#29J#30
X[#24+#21+[#100*#14]*COS[5]]Y[#25+#100*#14*SIN[5]]R[#100*#14]
G01X[#24+#21+[#100*#14]-2]Y#25
#100=#100+1
END2
IF[[#2-#15]EQ0]GOTO220
#22=SQRT[#21*#21-[#5-#4]*[#5-#4]]
#23=ATAN[#5-#4]/[#22](ANGLE)
#27=[#4-#10]*SIN[#23](XA)
#28=[#4-#10]*COS[#23](YA)
#29=[#5-#10]*SIN[#23](XB)
#30=[#5-#10]*COS[#23](YB)
G01X[#24+#21+[#5-#10]]F#9
G03X[#24+#21-#29]Y[#25+#30]I-[#5-#10]
G01X[#24-#27]Y[#25+#28]
G03X[#24-#27]Y[#25-#28]I#27J-#28
G01X[#24+#21-#29]Y[#25-#30]
G03X[#24+#21+[#5-#10]]Y0I#29J#30
X[#24+#21+[#5-#10]*COS[5]]Y[#25+[#5-#10]*SIN[5]]R[#5-#10]
G01X[#24+#21+[#5-#10]-2]Y#25
GOTO220
N210(***UP-CUTTING***)
G02I#3Z#16F#19
#100=1
WHILE[#100LE#15]DO2
#104=#100*#12
#105=#100*#14
#22=SQRT[#21*#21-[#105-#104]*[#105-#104]]
#23=ATAN[#105-#104]/[#22](ANGLE)
#27=#104*SIN[#23](XA)
#28=#104*COS[#23](YA)
#29=#105*SIN[#23](XB)
#30=#105*COS[#23](YB)
G01X[#24+#21+#100*#14]F#9
G02X[#24+#21-#29]Y[#25-#30]I-#105
G01X[#24-#27]Y[#25-#28]
G02X[#24-#27]Y[#25+#28]I#27J#28
G01X[#24+#21-#29]Y[#25+#30]
G02X[#24+#21+#100*#14]Y0I#29J-#30
X[#24+#21+[#100*#14]*COS[5]]Y[#25-#100*#14*SIN[5]]R[#100*#14]
G01X[#24+#21+[#100*#14]-2]Y#25
#100=#100+1
END2
IF[[#2-#15]EQ0]GOTO220
#22=SQRT[#21*#21-[#5-#4]*[#5-#4]]
#23=ATAN[#5-#4]/[#22](ANGLE)
#27=[#4-#10]*SIN[#23](XA)
#28=[#4-#10]*COS[#23](YA)
#29=[#5-#10]*SIN[#23](XB)
#30=[#5-#10]*COS[#23](YB)
G01X[#24+#21+[#5-#10]]F#9
G02X[#24+#21-#29]Y[#25-#30]I-[#5-#10]
G01X[#24-#27]Y[#25-#28]
G02X[#24-#27]Y[#25+#28]I#27J#28
G01X[#24+#21-#29]Y[#25+#30]
G02X[#24+#21+[#5-#10]]Y0I#29J-#30
X[#24+#21+[#5-#10]*COS[5]]Y[#25-[#5-#10]*SIN[5]]R[#5-#10]
G01X[#24+#21+[#5-#10]-2]Y#25
N220
#16=#16-#17
IF[#16GE#26]GOTO300
IF[[#16+#17]EQ#26]GOTO400
#16=#26
N300G00G90Z#18
Z#32
END1
N400(***END-OF-CYCLE***)
G00G90Z#18
Z#32
G#31G#33F#9
GOTO999
N988#3000=90(SEQUENCE-ERROR-R.H.Z.)
N989#3000=91(DATA-LACK-H.)
N990#3000=81(DATA-LACK-FOR-D.F.I.J.U.)
N991#3000=82(OFFSET-ERROR)
N992#3000=83(DATA-ERROR-FOR-C.)
N993#3000=84(RAPID-APPROACH-POINT-R.)
N994#3000=85(Z-END-POINT-Z.)
N995#3000=86(CORNER-RADIUS-I.)
N996#3000=87(MODIFY-E.)
N997#3000=88(MODIFY-Q.)
N998#3000=89(MODIFY-K.)
N999M99
%
arkadaslar çağrı komutlarının anlamlarını ve resımlerını bilgisayara atamadım tarama işlemini hallettıkten sonra (custom macro programıng manuel kıtabını kardeslerimin hizmetine sunacagım sevgilerle)