%REZBA-27
N1G1G53Z0F2000H0M41
N2G1G54G64G90X0Y0
N3S200M3
N4#10=1.29 $GLUBINA ZUBA REZB
N5 #11=0 $#11(.1 (-.1))KOREKTOR POLNOT REZB
N6#1=90 $ UGOL NACHALA REZB
N7#12=1.85 $ SHAG REZB
N8#13=.5 $ GLUBINA REZA ZA 1 PROHOD
N9#14=13.32 $ DIAMETR FREZ
N10#15=0 $ KOMPENSACIYA IZNOSA FREZ NA DIAMETR
N11#16=21.32 $ DIAMETR REZB
N12#17=18.4 $ DLINA REZB
N13#18=1 $ RASTOYANIE OT NIGNEGO VITKA DO DNA (SM #17)
N14#19=1.20 $ KOMPENSACIYA INSTRUMENTA PO PROFILYU REZB
N15#20=1.2 $ KOMPENSACIYA PRIVYAZKI INSTRUMENTA 
N16#21=(1) $ RASTOYANIE DO PERVOGO VITKA
N17#22=1.5 $ KONUSNOST REZB NA STORONU
N02IF(#10=(#10-#13)<=0)#10=0
N4#1=90 #4=-(#17-#18-#19+#20+#11) #2=(#12/360) #3=-(#21+#19+#20+#11)  #7=(#14-#15)$15
N5#5=((#7/2)+#10) #6=((#16/2)-#5) 
N5Z2
N7Z#3
N8G1X0Y0F100
N01IF((#3=(#3-#2)<=#4)AND(#1=(#1-1)))#3=#4
N25#23=(#3*(TAN(#22))) #24=(#6+#23)
N8X(#24*COS(#1))Y(#24*SIN(#1))Z#3F100
N11IF(#3>#4)N1
N12G1X0Y0F2000
N15Z2
N16IF(#10>0)N2
N13Z50F2000M5
N14G0G53Z0
M2
%%