E99=1
;---------------SFA----------------------------------------
;--------  ६---------------------------
; Z1 न 砫 㣨   
E30 = PL1
;X1  砫 㣨   न
E31 = PL2
;Z2 न  㣨    
E32 = PL3
;X2   㣨   न 
E33 = PL4
;I न 業 㣨    
E34 = PL5
;B  ⮢ 㣨   न
E35 = PL6
;c  樨 
E36 = PL7
;T  ୮ 㬥
E10 = PL8
;K ਭ ୮ 㬥 
E37 = PL9
;K
E98 = PL10
;t  ⮢ 㬥
E11 = PL11
;A  ⮢ 㬥
E38 = PL12
;R ࠤ ०饩 ஬ ⮢ 㬥
E39 = PL13
;Zt न 窨 ᬥ ୮ 㬥  
E40 = PL14
;Xt न 窨 ᬥ ୮ 㬥  न
E41 = PL15
;u   ਯ  ⮢ 
E42 = PL16
;F  ୮ ࠡ⪨
E25 = PL17
;S  饭 诨 p p⪨
E26 = PL18
;f  ⮢ ࠡ⪨
E27 = PL19
;s  饭 诨 ⮢ p⪨
E28 = PL20
;M ࠢ 饭 诨
E1 = PL21
   (BGT,E27,0,1)
   E27=E25
     "1"
   (BGT,E28,0,2)
   E28=E26 
     "2"
;----- ࠡ⪨ -----
G0G97G40G90
(DPI,$PS1, $PS2)
FE25 SE26 ME1
;-------------------------
;RAZCHET TOCHKI FIKSAZII PO OSI Z1+K + U
E49 = E30 + E37 + E42
;RAZCHET TOCHKI FIKSAZII PO OSI X+2*U+2MM
E50 = E35+2*E42+2
;---------
;---- 㣫
E43 = ABS(E34 - E30)
;E44 = ART((E31/2) / E43)
E44 = ART((E31) / E43)
;--- 
E45 = (E30 - E34) / COS(E44)
;---- X  
;E46 = 2*(E45 + E42) * SIN(E44)
E46 =(E45 + E42) * SIN(E44)
;----PRIPUSK Z
E47 = E34 + (E45 + E42) * COS(E44)
;-----
;E48 = 2*(E45 + E42)
E48 =(E45 + E42)
;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
(BLT,E34,E30,5)
;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
;-----PROVERKA KONZA
(BLT,E30,E34,4)
;------Z1 > I
;E88 = 100
E51 = E47
E53 = E31
;----ZIKL NACHALO
"8"
;----
;--------
G0 ZE51 XE50
G1 ZE51 XE53
G0 ZE51 XE50
 
E51 = E51 - E37
E52 = ARC((E34-E51)/(E45+E42))
E53 = (E45+E42) * SIN(E52)
;-----
(BLE,E32,E51,8)
E51 = E32 
E52 = ARC((E34-E51)/(E45+E42))
E53 = (E45+E42) * SIN(E52)
G0 ZE51 XE50
G1 ZE51 XE53
G0 ZE51 XE50
;---PREDCHIST
;---NACHALNAY TOCHKA
;---EXP
;
E69 = ARC((E32-E34)/(E45+E42))
;X2  
E68 = (E45+E42) * SIN(E69)
;Z2
E51 = E32
;---EXP
G0 ZE47 XE31
G3 ZE51 XE68 IE34 J0
G0 ZE51 XE50
 
;-----Z2 > I
(BNC,END)
;!!!!!!!!!!!!!!!!
"5"
;!!!!!!!!!!!!!!!!!!!
;-----Z2<I
E51 = E47
E53 = E31
;----ZIKL NACHALO
"6"
;----
;--------
G0 ZE51 XE50
G1 ZE51 XE53
G0 ZE51 XE50
 
;E51 = E51 - E37
E51 = E51 - E98
E52 = ARC((E34-E51)/(E45+E42))
E53 = (E45+E42) * SIN(E52)
;-----
(BLE,E34,E51,6)
 
E51 = E34
E53 = E45 + E42
G0 ZE51 XE50
G1 ZE51 XE53
G0 ZE51 XE50
;----ZIKL KONEZ
 
;RAZCHET TOCHKI FIKSAZII PO OSI Z1-K - U
E54 = E32 - E37 - E42
;RAZCHET TOCHKI FIKSAZII PO OSI X+2*U+2MM
E50 = E50
;---------
;---- 㣫
E55 = ABS(E34 - E32 - E37)
;E56 = ART((E33/2) / E55)
E56 = ART((E33) / E55)
;--- 
E64 = ABS(E42 * SIN(E56))
E57 = (E34- E32-E37+E64) / COS(E44)
;---- X  
;E58 = 2*(E45 + E42) * SIN(E56)
E58 =(E57 + E42+E37) * COS(E56)
;----PRIPUSK Z
E59 = E34 - (E57 + E42+E37) * COS(E57)
;-----
;E60 = 2*(E57 + E42)
E60 =(E57 + E42)
 
;----- 2 KVADRANT
 
;---- 
E55 = SQR((E34 - E32)*(E34 - E32) + E33*E33)
;  
E56 = ARS(E33/(E55+E42))
; Z = Z+U
E57 = E34 - (E55 + E42) * COS(E56)
;Z
E58 = E34 - E37
;Z  G02
;E70 = E58
;X
E59 = E55 + E42
G0 ZE58 XE50
G1 ZE58 XE59
G0 ZE58 XE50
E57 = E34 
"77" 
;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
E57 = E57 - E98
E61 = ARC((E34-E57)/(E55+E42))
;Z
E58 = E57 - E37
;X
E63 = (E55 + E42)*SIN(E61)
;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
G0 ZE58 XE50
G1 ZE58 XE63
G0 ZE58 XE50
 
E64 = E32 - 2 * E37 + E42 * COS(E61) + E98
;-----
(BGT,E58,E64,77)
;X
E53 = E33
 
E61 = ARS((E33)/(E55+E42))
;Z
E64 =E34 - (E55+E42) * COS(E61) - E37
G0 ZE64 XE50
G1 ZE64 XE53
(BNC,END)
G0 ZE64 XE50
 
 
 
 
 
 
 
 
 
 
;----PREDCHIST
E51 = E34-E37
E53 = E45 + E42
E54 = E32 - E42 * COS(E44) 
G0 ZE54 XE50
G0 ZE70 XE33
;G2 ZE51 XE53 IE51 J0
;!!!!!!!!!!!!
G2 ZE51 XE53 IE34 J0
G0 ZE51 XE50
G0 ZE30 XE50
G1 ZE47 XE46
G3 ZE34 XE48 IE34 J0
G0 ZE34 XE50
ZE30 XE50
;----
G0 ZE47 XE31
G1 ZE30 XE31
G3 ZE34 XE45 IE34 J0
G0 ZE34 XE50
(BNC,END)
;!!!!!!!!!!!!!!!
"4"
(DIS,"4")
;!!!!!!!!!!!!!!!!
;"5"
;-----Z1<I
;----- 2 KVADRANT
 
;---- 
E55 = SQR((E34 - E32)*(E34 - E32) + E33*E33)
;  
E56 = ARS((E34-E30)/(E55+E42))
; Z = Z1-K
;Z
;!!!!!!
E58 = E30 - E37
;!!!!!
;Z  G02
;E70 = E58
;X
;!!!!!!!
E59 = (E55 + E42) * COS(E56)
G0 ZE58 XE50
G1 ZE58 XE59
G0 ZE58 XE50
;!!!!!!!!!!
E57 = E30
;!!!!!!!!
"76" 
;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
E57 = E57 - E98
E61 = ARC((E34-E57)/(E55+E42))
;Z
E58 = E57 - E37
;X
E63 = (E55 + E42)*SIN(E61)
;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
G0 ZE58 XE50
G1 ZE58 XE63
G0 ZE58 XE50
 
E64 = E32 - 2 * E37 + E42 * COS(E61) + E98
;-----
(BGT,E58,E64,76)
;X
E53 = E33
 
E61 = ARS((E33)/(E55+E42))
;Z
E64 =E34 - (E55+E42) * COS(E61) - E37
G0 ZE64 XE50
G1 ZE64 XE53
(BNC,END)
G0 ZE64 XE50
 
;-----Z1>I
;----PROVERKA KONZA ZAKONCHENA
"END"
