#MACRO CEP BOŞALTMA (KARE+ DİKDÖRTGEN)#
%
O0401(CEP BOSALTMA/KARE/DKDRTGEN)
(PARCA SIFIRI ORTAYA GORE)
#19=2000(DEVIR)
#9=3000(ILERLEME)
#24=50(X PARCA BOYU)
#25=50(Y PARCA BOYU)
#26=3(Z TPLM DERINLIK)
#23=2.25(Z PASO MIKTARI)
#7=6(TAKIM CAPI)
#18=3(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
#21=50
IF[#18EQ0]THEN#18=[#7/2]
#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]
#115=[#7*2]
IF[#18GT#108]GOTO5006
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.Y-[#109-#115]Z100.
IF[#24LT#25]GOTO36
N35M3S#19
G0G90G54G43H50X-[#100-#115]Y0.Z100
N36G0Z2.
G1Z0.F200
#30=#23
N200IF[#24GE#25]GOTO37(X)
IF[#24LT#25]GOTO38(Y)
N37G1X-#100Z-#30F#9(X)
G1X#100F#9
IF[#24GE#25]GOTO39
N38G1Y-#109Z-#30F#9(Y)
G1Y#109F#9
IF[#24LT#25]GOTO40
N39(X)
#111=#100(X)
#113=#100(X)
IF[#24GE#25]GOTO100
N40(Y)
#110=#109
#112=#109
#110=[#110+#101](Y1)
N100G1Y#110F#9
#111=[#111+#101]
IF[#111GT#106]GOTO20
G1X-#111F#9
#112=[#112+#101]
IF[#112GT#107]GOTO30
G1Y-#112F#9
#113=[#113+#101]
IF[#113GT#106]GOTO40
G1X#111F#9
#110=[#110+#101]
IF[#110GT#107]GOTO10
GOTO100
N10G1Y[#110-#101]F#9
GOTO50
N20G1X-[#111-#101]F#9
GOTO60
N30G1Y-[#112-#101]F#9
GOTO70
N40G1X[#113-#101]F#9
GOTO80
N50G1X-#102,R#104F#9
N60G1Y-#103,R#104F#9
N70G1X#102,R#104F#9
N80G1Y#103,R#104F#9
N90G1X-#102,R#104F#9
G1Y-#103,R#104F#9
G1X0.
IF[#24EQ#25]GOTO46
IF[#24LT#25]GOTO45
G0Y0.F#9
G0X-[#100-#115]Z-[#30-2]
G0Z-[#30-0.5]
G1Z-#30F#9
IF[#24GT#25]GOTO46
N45
G0X0.Z-[#30-2]
Y-[#109-#115]
G0Z-[#30-0.5]
G1Z-#30F#9
N46
#110=0
#111=0
#112=0
#113=0
IF[#30EQ#26]GOTO500
#30=[#30+#23]
IF[#30GE#26]THEN#30=#26
IF[#24NE#25]GOTO51
G0Y0.Z-[#5003+2]
X-#7
G0Z-[#5003+1.5]
N51GOTO200
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
%
http://m.youtube.com/watch?v=f4ruMqhU_a8
FAYDALI OLMASI DİLEĞİYLE...