SYVAR185.15CH="    1.02"
                                            ;
                                            ;==᫮===============================
G0G97G94G40
                                            ;======᫥  ==============
(BGE,SK25,80,5)
(BGE,SK25,80,4)
(BGE,SK25,80,3)
(BGE,SK25,80,2)
E15=0
(BNC,PROEND)
"2"
E15=1
(BNC,PROEND)
"3"
E15=2
(BNC,PROEND)
"4"
E15=3
(BNC,PROEND)
"5"
E15=4
"PROEND"
E16=(10+26*E15)*32+9
                                            ;=======================
                                            ;==砫 ᫮====
;8&Axis& &1&0&                  
;A
$PS10=$PS1
;Orient 1;2;3;4;8
E11=PL2
;Z0
E125=PL7
;r
E9=PL8
;R
E33=PL9
;Xmaxi
E103=PL5
;Zmaxi
E104=PL6
                                            ;
                                            ;⨫ (ਭ ஭)
E34=20
                                            ;
                                            ;=== ᥩ============
$PS1=$INAX1
$PS2=$INAX2
                                            ;
                                            ;। ࠫ쭮
                                            ; 
(GTA,$INAX2,111,E1)
                                            ;த쭠    
                                            ;ࠫ쭮
(BEQ,E1,1,ERR)
(GTA,$INAX1,111,E1)
E35=2
(BEQ,E1,1,DIAM)
E35=1
"DIAM"
                                            ;=====
                                            ;
(GTA,$INAX1,4,E14)
(GTA,$INAX2,4,E17)
(BNE,E14,E17,END2)
                                            ;
(TRD,E12,E13)
#SN(E16).BL=1
(DLY,0.01)
TE12M6
#SN(E16).BL=0
(DLY,0.01)
                                            ;
E10=99
(UAO,E10)
                                            ;
E200=DPMS
E25=DPMF
(DPT,DPMA,E200,E25)
                                            ;====================
               ;O8 O1
               ;X -  ७
;(1) Z   
;E882=DPMA+Z0
E882=DPMA+E30
                                            ;
;(2) X   
;E881=(-⨫/2-DPMA-Z0)*E35
E881=(-E34/2-DPMA-E30)*E35
                                            ;
;(3) Z   
;E883=-E34/2-Zx
E883=-E34/2-E104
E884=-E34/2*E35
                                            ;
                                            ;(1)
G0ZE882
                                            ;(2)
XE881
                                            ;(3)
ZE883
               ;Z -  ७
;(1) Z   
;E882=DPMA+ZL+Z0
;E885=DPMA+E32+E30
                                            ;
;(2) X   
;E881=(-⨫/2-DPMA-XL-20)*E35
;E886=-(E31-E103)*E35

                                            ;(1)
;G0ZE885
                                            ;(2)
;XE886
;====================================================
                                            ;
                                            ;(BEQ,E11,8,888)
                                            ;(BEQ,E11,4,444)
                                            ;(BEQ,E11,3,333)
                                            ;(BEQ,E11,2,222)
                                            ;(BEQ,E11,1,111)
                                            ;
                                            ;"888"
(BEQ,$PS10,$PS1,XXX)
(BEQ,$PS10,$PS2,ZZZ)
                                            ;
                                            ;
#SN329.BL=1
                                            ;
G0 $PS1 E51
   $PS2 E52
   $PS1 0
                                            ;
                                            ;G74 $PS2 E62 E73
#SN(E16).BL=0
E72=0
(BEQ,E9,1,DDD11)
(BEQ,E9,2,DDD12)
G74 $PS2 E62 RE200 E59
E72=E59
"DDD12"
G74 $PS2 E62 RE200 E59
E72=(E72+E59)/(E9-1)
"DDD11"
G74 $PS2 E62 E59
E72=(E72*(E9-1)+E59)/E9
                                            ;
#SN(E16).BL=1
G0 $PS2 E52
   $PS1 E51
   $PS2 0
                                            ;
                                            ;G72 $PS1 E61 E73
#SN(E16).BL=0
E71=0
(BEQ,E9,1,DDD21)
(BEQ,E9,2,DDD22)
G74 $PS1 E61 RE200 E59
E71=E59
"DDD22"
G74 $PS1 E61 RE200 E59
E71=(E71+E59)/(E9-1)
"DDD21"
G74 $PS1 E61 E59
E71=(E71*(E9-1)+E59)/E9
                                            ;
#SN(E16).BL=1
G0 $PS1 E51
   $PS2 E30
                                            ;
(BNC,END)
                                            ;
                                            ;
"555"
#SN329.BL=1
                                            ;
G0 $PS1 E53
   $PS2 E54
   $PS1 0
                                            ;   
                                            ; 
                                            ;G74 $PS2 E64 E73
#SN(E16).BL=0
E72=0
(BEQ,E9,1,DDD31)
(BEQ,E9,2,DDD32)
G74 $PS2 E64 RE200 E59
E72=E59
"DDD32"
G74 $PS2 E64 RE200 E59
E72=(E72+E59)/(E9-1)
"DDD31"
G74 $PS2 E64 E59
E72=(E72*(E9-1)+E59)/E9
                                            ;
#SN(E16).BL=1
G0 $PS2 E54
   $PS1 E53
   $PS2 0
                                            ;
                                            ;
                                            ;G72 $PS1 E63 E73
#SN(E16).BL=0
E71=0
(BEQ,E9,1,DDD41)
(BEQ,E9,2,DDD42)
G74 $PS1 E63 RE200 E59
E71=E59
"DDD42"
G74 $PS1 E63 RE200 E59
E71=(E71+E59)/(E9-1)
"DDD41"
G74 $PS1 E63 E59
E71=(E71*(E9-1)+E59)/E9
                                            ;
#SN(E16).BL=1
G0 $PS1 E53
   $PS2 E30
                                            ;
(BNC,END)
                                            ;
                                            ;
"777"
                                            ;
                                            ;
#SN329.BL=1
                                            ;
G0 $PS1 E55
   $PS2 E56
   $PS1 0
                                            ;   
                                            ; 
                                            ;G74 $PS2 E66 E73
#SN(E16).BL=0
E72=0
(BEQ,E9,1,DDD51)
(BEQ,E9,2,DDD52)
G74 $PS2 E66 RE200 E59
E72=E59
"DDD52"
G74 $PS2 E66 RE200 E59
E72=(E72+E59)/(E9-1)
"DDD51"
G74 $PS2 E66 E59
E72=(E72*(E9-1)+E59)/E9
                                            ;
#SN(E16).BL=1
G0 $PS2 E56
   $PS1 E55
   $PS2 0
                                            ;
                                            ;
                                            ;G72 $PS1 E65 E73
#SN(E16).BL=0
E71=0
(BEQ,E9,1,DDD61)
(BEQ,E9,2,DDD62)
G74 $PS1 E65 RE200 E59
E71=E59
"DDD62"
G74 $PS1 E65 RE200 E59
E71=(E71+E59)/(E9-1)
"DDD61"
G74 $PS1 E65 E59
E71=(E71*(E9-1)+E59)/E9
                                            ;
#SN(E16).BL=1
G0 $PS1 E53
   $PS2 E30
                                            ;   
                                            ;
(BNC,END)
                                            ;
                                            ;
"111"
                                            ;
                                            ;
#SN329.BL=1
                                            ;
G0 $PS1 E57
   $PS2 E58
   $PS1 0
                                            ;   
                                            ; 
                                            ;G74 $PS2 E68 E73
#SN(E16).BL=0
E72=0
(BEQ,E9,1,DDD71)
(BEQ,E9,2,DDD72)
G74 $PS2 E68 RE200 E59
"DDD72"
E72=E59
G74 $PS2 E68 RE200 E59
E72=(E72+E59)/(E9-1)
"DDD71"
G74 $PS2 E68 E59
E72=(E72*(E9-1)+E59)/E9
                                            ;
#SN(E16).BL=1
                                            ;
G0 $PS2 E58
   $PS1 E57
   $PS2 0
                                            ;
                                            ;
                                            ;G72 $PS1 E67 E73
#SN(E16).BL=0
E71=0
(BEQ,E9,1,DDD81)
(BEQ,E9,2,DDD82)
G74 $PS1 E67 RE200 E59
E71=E59
"DDD82"
G74 $PS1 E67 RE200 E59
E71=(E71+E59)/(E9-1)
"DDD81"
G74 $PS1 E67 E59
E71=(E71*(E9-1)+E59)/E9
                                            ;
#SN(E16).BL=1
G0 $PS1 E51
   $PS2 E30
                                            ;
                                            ;
(BNC,END)
                                            ;
"444"
#SN329.BL=1
                                            ;
G0 $PS1 E51
   $PS2 E52
   $PS1 0
                                            ;   
                                            ; 
                                            ;G74 $PS2 E62 E73
#SN(E16).BL=0
E72=0
(BEQ,E9,1,DDD91)
(BEQ,E9,2,DDD92)
G74 $PS2 E62 RE200 E59
E72=E59
"DDD92"
G74 $PS2 E62 RE200 E59
E72=(E72+E59)/(E9-1)
"DDD91"
G74 $PS2 E62 E59
E72=(E72*(E9-1)+E59)/E9
                                            ;
#SN(E16).BL=1
G0 $PS2 E52
   $PS1 E30
E71=0
                                            ;
                                            ;
(BNC,END)
                                            ;
"666"
#SN329.BL=1
G0 $PS1 E53
   $PS2 0
                                            ;
                                            ;G72 $PS1 E63 E73
#SN(E16).BL=0
E71=0
(BEQ,E9,1,DDD101)
(BEQ,E9,2,DDD102)
G74 $PS1 E63 RE200 E59
E71=E59
"DDD102"
G74 $PS1 E63 RE200 E59
E71=(E71+E59)/(E9-1)
"DDD101"
G74 $PS1 E63 E59
E71=(E71*(E9-1)+E59)/E9
                                            ;
#SN(E16).BL=1
G0 $PS1 E53
   $PS2 E30
E72=0
                                            ;
(BNC,END)
                                            ;
"888"
#SN329.BL=1
                                            ;
G0 $PS1 E55
   $PS2 E56
   $PS1 0
                                            ;   
                                            ; 
                                            ;G74 $PS2 E66 E73
#SN(E16).BL=0
E72=0
(BEQ,E9,1,DDD111)
(BEQ,E9,2,DDD112)
G74 $PS2 E66 RE200 E59
E72=E59
"DDD112"
G74 $PS2 E66 RE200 E59
E72=(E72+E59)/(E9-1)
"DDD111"
G74 $PS2 E66 E59
E72=(E72*(E9-1)+E59)/E9
                                            ;
#SN(E16).BL=1
G0 $PS2 E56
   $PS1 E55
   $PS2 E30
                                            ;
E71=0 
                                            ;
(BNC,END)
                                            ;
"222"
#SN329.BL=1
                                            ;
G0 $PS1 E51
   $PS2 0
                                            ;
                                            ;G72 $PS1 E67 E73
#SN(E16).BL=0
E71=0
(BEQ,E9,1,DDD121)
(BEQ,E9,2,DDD122)
G74 $PS1 E67 RE200 E59
E71=E59
"DDD122"
G74 $PS1 E67 RE200 E59
E71=(E71+E59)/(E9-1)
"DDD121"
G74 $PS1 E67 E59
E71=(E71*(E9-1)+E59)/E9
                                            ;
#SN(E16).BL=1
G0 $PS1 E51
   $PS2 E30
                                            ;
                                            ;
E72=0 
                                            ;
(BNC,END)
                                            ;
"END"
E71=- E71
E72=- E72
(DIS,E71," ",E72)
                                            ;
                                            ;===== ࠬ஢=========
                                            ;
(BEQ,E1,1,PQ1)
(RQR,E12,E13,X,c0,m E32)
(RQR,E12,E13,Z,c0,m E31)
(RQP,E12,E13,XE71)
(RQP,E12,E13,ZE72)
(BNC,END1)
"PQ1"
(RQU,E12,E13,XE71)
(RQU,E12,E13,ZE72)
"END1"
                                            ;
"ERR"
(UAO,E14)
