%
O1728(DELIK VE KADEMELI DELIK BARALAMA)

#1=0(**X**)
#2=0(**Y**)
#3=10(DELIK YARI CAP ON BOS)
#4=30(BUYUK YARI CAP)
#5=30(BUYUK DELIK DERINLIK)
#6=50(TAM DERINLIK)
#7=25(KUCUK YARI CAP)
#9=3(*X**Y* DE PASO)
#10=3(**Z** DE PASO)

(*****SABIT*****)
#30=#10
#31=#9

N10M6T9
M03S2000
G55
G0B0
G52X#1Y#2
G43X0Y0Z10H9D9M08

N20
#9=0
#4=#4-#3
#7=#7-#3

N30
#9=#9+#31(X PASO)
#10=0
IF[#9GE#4]THEN#9=#4

N40
#10=#10+#30(Z PASO)
IF[#10GE#5]THEN#10=#5

N50
G1Z-#10X0Y0F500
G41X-[#3+#9]
G3X[#3+#9]Y0J0I[#3+#9]
G3X-[#3+#9]Y0J0I-[#3+#9]

IF[#10EQ#5]GOTO60
GOTO40

N60
G40G1X0Y0
G0Z10
IF[#9EQ#4]GOTO70
GOTO30

N70
#9=0

N80
#9=#9+#31(X PASO)
#10=#5
IF[#9GE#7]THEN#9=#7

N90
#10=#10+#30(Z PASO)
IF[#10GE#6]THEN#10=#6

N100
G1Z-#10X0Y0F500
G41G1X-[#3+#9]
G3X[#3+#9]Y0J0I[#3+#9]
G3X-[#3+#9]Y0J0I-[#3+#9]
IF[#10EQ#6]GOTO110
GOTO90

N110
G40G1X0Y0
G0Z-[#5-5]
IF[#9EQ#7]GOTO200
GOTO80

N200
G40G1X0Y0
G0Z200
G52X0Y0
M05
M09

M30

%