#MACRO CEP DUVAR FİNİSH (DİŞİ)#
%
O0402(CEP DUVAR FINIS)(DISI)
(PARCA SIFIRI ORTAYA GORE)
#19=2000(DEVIR)
#9=5000(ILERLEME)
#24=50(X PARCA BOYU)
#25=100(Y PARCA BOYU)
#26=5.25(Z TPLM DERINLIK)
#23=1(Z PASO)
#7=10(TAKIM CAPI)
#18=15(PARCA KOSE RADUSU)
(BRDN SONRSINI ELLEME)
IF[#18LT#7/2]GOTO5010
IF[#24LT#7*3]GOTO5009
IF[#25LT#7*3]GOTO5009
IF[#24LT#18*2]GOTO5008
IF[#25LT#18*2]GOTO5008
IF[#24LT#7]GOTO5007
IF[#25LT#7]GOTO5007
IF[#18EQ0]THEN#18=[#7/2]
#21=50
#100=[[#24-#25]/2](BSLNGC)
#101=[#21/100]*[#7](TKM R)
#102=[[#24-#7]/2](X BTS)
#103=[[#25-#7]/2](Y BTS)
#104=[[[[#18*2]-#7]/2]](P.RDS)
#105=[#7/2]
#106=[[[#24-#7]/2]-#105](X)
#107=[[[#25-#7]/2]-#105](Y)
#108=[#7*2]
#109=[[#25-#24]/2]
#116=[#26]*[-1]
IF[#105GT#18]GOTO5005
IF[#21GT90]GOTO5004
IF[#21LT20]GOTO5011
IF[#26LT#23]GOTO5003
IF[#21EQ0]GOTO5002
IF[#19EQ0]GOTO5001
IF[#19LT0]GOTO5000
IF[#24LT0]GOTO5000
IF[#25LT0]GOTO5000
IF[#26LT0]GOTO5000
IF[#23LT0]GOTO5000
IF[#21LT0]GOTO5000
IF[#18LT0]GOTO5000
IF[#7LT0]GOTO5000
IF[#9LT0]GOTO5000
IF[#24GE#25]GOTO35
#3006=1(TKM BOYUNU H50 KAYDET)
M3S#19
G0G90G54G43H50X0.Y0.Z100.
IF[#24LT#25]GOTO36
N35M3S#19
G0G90G54G43H50X0.Y0.Z100
N36G0Z2.
G1Z0.F200
IF[#24GE#25]GOTO66
G1Y0.F#9
IF[#25GE#25]GOTO68
N66G1X0.F#9
N68#30=[#23]
N50G1X-[#102-#105]Z-#30F#9
G3Y-#105X-#102R#105
N60G1Y-[#103-#104]F#9
N70G3X-[#102-#104]Y-#103R#104Z-#30F#9
G1X[#102-#104]F#9
G3Y-[#103-#104]X#102R#104
G1Y[#103-#104]
G3Y[#103]X[#102-#104]R#104
G1X-[#102-#104]
G3X-[#102]Y[#103-#104]R#104
G1Y-[#103-#104]
#30=[#30+#23]
IF[#5003EQ#116]GOTO490
IF[#30GT#26]THEN#30=#26
GOTO70
N490G3X-[#102-#104]Y-#103R#104
G1Y-[#103-#105]X0.
N500G0Z20
G0G91G28Z0.
G0G91G28Y0.
M30
N5000#3000=1(EKSI(-) DEGER GIRILEMEZ)
M99
N5001#3006=1(DEVIR YAZILMADI)
M99
N5002#3006=1(TAKIM TALAS YUZDELIK YZLMDI)
M99
N5003#3006=1(DRNLIK YADA PASO HATALI)
M99
N5004#3006=1(TKM TALAS YZDELIGI FAZLA)
M99
N5005#3006=1(TKM RDSU KOSE RDSNDN BYK)
M99
N5006#3006=1(KOSE RADUSU BYK HSP HATASI=#18)
M99
N5007#3006=1(TAKIM CAPI X.&Y,DEN FAZLA)
M99
N5008#3006=1(PARCA RADUSU FAZLA)
M99
N5009#3006=1(HESAP HATASI)
M99
N5010#3006=1(PARCA RADUSU KUCUK YAZILDI)
M99
N5011#3006=1(TAKIM TALAS YUZDELIGI AZ)
M99
%