991 ks2= 44 0 if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then if v940^a:'6' or p(v940^x)then '^i'v940^d,if &unifor('Av900^b#1')<>''then '^h'&unifor('Av900^b.2#1')else if &unifor('Av920#1')='NJ'then '^h02'fi fi fi fi/)fi/ 44^J 11 if ref(mfn,(if p(v940) then if &uf('+97',v940^v)='v991' then if val(v940^x,|1|n940^x)>0 then'1' fi fi fi)):'1' then'1'fi/ 44^K 11 if v940^v:'v991' then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x,' 0'),0,0) fi fi/) fi/ 44^+ 12 if v940^v:'v991' then if &unifor('DCMPL,"KS2=','v991','",v888^F')<>'' then (if p(v940) then if &uf('+97',v940^v)='v991' then f((val(v940^x,|1;|n940^x,' 0'))*val(&unifor('DCMPL,"KS2=','v991','",v888^F')),0,2) fi fi/) else (if p(v940) then if &uf('+97',v940^v)='v991' then if p(v940^e)then if p(v940^c)then if &unifor('Kizc.mnu|'v940^c.6)<>''then f(val(f(val(v940^e)*val(&unifor('Kizc.mnu|'v940^c.6)),0,2))*(val(v940^x,|1;|n940^x,' 0')),0,2)else if &unifor('Kizc.mnu|'v940^c.4)<>''then f(val(f(val(v940^e)*val(&unifor('Kizc.mnu|'v940^c.4)),0,2))*(val(v940^x,|1;|n940^x,' 0')),0,2) else f(val(f(val(v940^e)*val(&unifor('Kizc.mnu|1980')),0,2))*(val(v940^x,|1;|n940^x,' 0')),0,2)fi fi else f(val(v940^e)*(val(v940^x,|1;|n940^x,' 0')),0,2)fi else if p(v940^c) then if &unifor('Kizc.mnu|'v940^c.6)<>''then f(val(f(val(&unifor('Av10^d#1'),' 0')*val(&unifor('Kizc.mnu|'v940^c.6)),0,2))*(val(v940^x,|1;|n940^x,' 0')),0,2) else if &unifor('Kizc.mnu|'v940^c.4)<>''then f(val(f(val(&unifor('Av10^d#1'),' 0')*val(&unifor('Kizc.mnu|'v940^c.4)),0,2))*(val(v940^x,|1;|n940^x,' 0')),0,2) else f(val(f(val(&unifor('Av10^d#1'),' 0')*val(&unifor('Kizc.mnu|1980')),0,2))*(val(v940^x,|1;|n940^x,' 0')),0,2) fi fi else f(val(&unifor('Av10^d#1'),' 0')*(val(v940^x,|1;|n940^x,' 0')),0,2) fi fi fi fi/) fi fi/ 44^A 11 if '03 04 05 07 ':v900^b.2 and (a(v900^t) or v900^t:'a1'or v900^t:'a2'or v900^t:'b'or 'a 1 2 3':v900^t) then if s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'98'or p(v215^y)then else if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi fi/ 44^B 11 if v940^v:'v991' then if s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'98' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi/ 44^C 11 if (v920:'NJ' or v920:'Spec' and p(v933)) then if ref(l("I="v933),v110^b)='a'then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi fi/ 44^M 11 if v940^v:'v991' then if (v920:'NJ' or v920:'Spec' and p(v933)) then if ref(l("I="v933),if p(v102) then if v102:&unifor('Korg.mnu|1')then'1' fi fi)='1'then '1' fi else if v920<>'NJ' then if p(v102) then if v102:&unifor('Korg.mnu|1') then '1' fi fi fi fi fi/ 44^N 11 if v940^v:'v991' then if (v920:'NJ' or v920:'Spec' and p(v933)) then if ref(l("I="v933),if p(v102) then if v102:&unifor('Korg.mnu|1')then'1' fi fi)='1'then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi else if v920<>'NJ' then if p(v102) then if v102:&unifor('Korg.mnu|1') then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi fi fi fi/ 44^O 11 if v940^v:'v991' then if (v920:'NJ' or v920:'Spec' and p(v933)) then if ref(l("I="v933),if p(v102) then if v102:&unifor('Korg.mnu|1')then'1' fi fi)='1'then else '1' fi else if v920<>'NJ' then if p(v102) then if v102:&unifor('Korg.mnu|1') then else '1' fi fi fi fi fi/ 44^P 11 if v940^v:'v991' then if (v920:'NJ' or v920:'Spec' and p(v933)) then if ref(l("I="v933),if p(v102) then if v102:&unifor('Korg.mnu|1')then'1' fi fi)='1'then else (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi else if v920<>'NJ' then if p(v102) then if v102:&unifor('Korg.mnu|1') then else (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi fi fi fi/ 44^D 11 if (v920:'NJ' or v920:'Spec' and p(v933)) then if ref(l("I="v933),if p(v110^t) then if 'g i j':v110^t then'1' fi fi)='1'then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi else if v900^t:'g1'or v900^t:'g2' or v900^t:'g3'or v900^t:'i'or v900^t:'j' then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi fi/ 44^E 11 if (v920:'NJ' or v920:'Spec' and p(v933)) then if ref(l("I="v933),if p(v110^t) then if 'e f':v110^t then'1' fi fi)='1'then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi else if'e f':v900^t then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi fi/ 44^F 11 if (v920:'NJ' or v920:'Spec' and p(v933)) then if ref(l("I="v933),if p(v110^t) then if 'c d':v110^t then'1' fi fi)='1'then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi else if'c d':v900^t then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi fi/ 44^G 11 if (v920:'NJ' or v920:'Spec' and p(v933)) then if ref(l("I="v933),if p(v110^t) then if 'l' :v110^t or p(v230) then'1' fi fi)='1'then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi else if 'l':v900^t or p(v230) then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi fi/ 44^Q 11 if (v920:'NJ' or v920:'Spec' and p(v933)) then if ref(l("I="v933),if p(v101) then if &unifor('Av101#1'):'rus' then'1' fi fi)='1'then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi else if &unifor('Av101#1'):'rus' then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi fi/ 44^R 11 if (v920:'NJ' or v920:'Spec' and p(v933)) then if ref(l("I="v933),if p(v101) then if &unifor('Av101#1'):&unifor('Korg.mnu|6') then'1' fi fi)='1'then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi else if &unifor('Korg.mnu|6'):&unifor('Av101#1')then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi fi/ 44^S 11 if (v920:'NJ' or v920:'Spec' and p(v933)) then if ref(l("I="v933),if p(v101) then if &unifor('Av101#1'):&unifor('Korg.mnu|6') or &unifor('Av101#1'):'rus' then'1' fi fi)='1'then else if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi else if &unifor('Av101#1'):&unifor('Korg.mnu|6') or &unifor('Av101#1'):'rus' then else if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi fi/ 44^1 11 if (v920:'NJ' or v920:'Spec' and p(v933)) then if ref(l("I="v933),if p(v60) then if v60='1' then'1' fi fi)='1'then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi else if v60='1' then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi fi/ 44^2 11 if (v920:'NJ' or v920:'Spec' and p(v933)) then if ref(l("I="v933),if p(v60) then if v60='2' then'1' fi fi)='1'then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi else if v60='2' then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi fi/ 44^3 11 if (v920:'NJ' or v920:'Spec' and p(v933)) then if ref(l("I="v933),if p(v60) then if v60='3' then'1' fi fi)='1'then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi else if v60='3' then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi fi/ 44^4 11 if (v920:'NJ' or v920:'Spec' and p(v933)) then if ref(l("I="v933),if p(v60) then if v60='4' then'1' fi fi)='1'then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi else if v60='4' then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi fi/ 44^5 11 if (v920:'NJ' or v920:'Spec' and p(v933)) then if ref(l("I="v933),if p(v60) then if v60='5' then'1' fi fi)='1'then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi else if v60='5' then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi fi/ 44^6 11 if (v920:'NJ' or v920:'Spec' and p(v933)) then if ref(l("I="v933),if p(v60) then if v60='6' then'1' fi fi)='1'then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi else if v60='6' then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi fi/ 44^7 11 if (v920:'NJ' or v920:'Spec' and p(v933)) then if ref(l("I="v933),if p(v60) then if v60='7' then'1' fi fi)='1'then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi else if v60='7' then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi fi/ 44^8 11 if (v920:'NJ' or v920:'Spec' and p(v933)) then if ref(l("I="v933),if p(v60) then if v60='8' then'1' fi fi)='1'then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi else if v60='8' then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi fi/ 44^9 11 if (v920:'NJ' or v920:'Spec' and p(v933)) then if ref(l("I="v933),if p(v60) then if v60='9' then'1' fi fi)='1'then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi else if v60='9' then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi fi/ 44^T 11 if (v920:'NJ' or v920:'Spec' and p(v933)) then if ref(l("I="v933),if p(v60) then if v60='10' then'1' fi fi)='1'then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi else if v60='10' then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi fi/ 44^U 11 if (v920:'NJ' or v920:'Spec' and p(v933)) then if ref(l("I="v933),if p(v60) then if v60='11' then'1' fi fi)='1'then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi else if v60='11' then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi fi/ 44^V 11 if (v920:'NJ' or v920:'Spec' and p(v933)) then if ref(l("I="v933),if p(v60) then if v60='12' then'1' fi fi)='1'then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi else if v60='12' then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi fi/ 44^W 11 if (v920:'NJ' or v920:'Spec' and p(v933)) then if ref(l("I="v933),if p(v60) then if v60='13' then'1' fi fi)='1'then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi else if v60='13' then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi fi/ 44^X 11 if '03 04 05 07 ':v900^b.2 and (v900^t:'a1'or v900^t:'a2'or v900^t:'b'or 'a 1 2 3 c d e f ':v900^t or v900^t:'g1'or v900^t:'g2'or v900^t:'g3'or ' i j l ':v900^t or a(v900^t)) or v920='NJ'then else if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi/ 44^Y 11 if (v920:'NJ' or v920:'Spec' and p(v933)) then if ref(l("I="v933),if p(v60) then if v60='14' then'1' fi fi)='1'then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi else if v60='14' then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi fi/ 44^Z 11 if (v920:'NJ' or v920:'Spec' and p(v933)) then if ref(l("I="v933),if p(v60) then if v60='15' then'1' fi fi)='1'then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi else if v60='15' then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi fi/ 44^0 11 if (v920:'NJ' or v920:'Spec' and p(v933)) then if ref(l("I="v933),if p(v60) then if v60.1:'2' or v60.1:'3' or v60.1:'4' or v60.1:'5' or v60.1:'6' or v60.1:'7' or v60.1:'8' or v60.1:'9' or v60.2:'10' or v60.2:'11' or v60.2:'12' or v60.2:'13' or v60.2:'14' or v60.2:'15' or v60='1' then else '1' fi fi)='1'then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi else if p(v60)then if '2 3 4 5 6 7 8 9':v60.1 or '10 11 12 13 14 15':v60.2 or v60='1' then else if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi fi fi/ 744 0 if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then if v940^a:'6' or p(v940^x)then '^i'v940^d,if &unifor('Av900^b#1')<>''then '^h'&unifor('Av900^b.2#1')else if &unifor('Av920#1')='NJ'then '^h02'fi fi fi fi/)fi/ 744^A 11 if v215:'^y' or (v920:'NJ' or v920:'Spec' and p(v933)) then else if ref(mfn,(if p(v940) then if &uf('+97',v940^v)='v991' then if val(v940^x,|1|n940^x)>0 then'1'fi fi fi)):'1' then'1'fi fi/ 744^B 11 if v215:'^y' or (v920:'NJ' or v920:'Spec' and p(v933)) then else if v940^v:'v991' then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi fi/) fi fi/ 744^+ 12 if v215:'^y' or (v920:'NJ' or v920:'Spec' and p(v933)) then else if v940^v:'v991' then if &unifor('DCMPL,"KS2=','v991','",v888^F')<>'' then (if p(v940) then if &uf('+97',v940^v)='v991' then f((val(v940^x,|1;|n940^x,' 0'))*val(&unifor('DCMPL,"KS2=','v991','",v888^F')),0,2) fi fi/) else (if p(v940) then if &uf('+97',v940^v)='v991' then if p(v940^e)then if p(v940^c)then if &unifor('Kizc.mnu|'v940^c.6)<>''then f(val(f(val(v940^e)*val(&unifor('Kizc.mnu|'v940^c.6)),0,2))*(val(v940^x,|1;|n940^x,' 0')),0,2)else if &unifor('Kizc.mnu|'v940^c.4)<>''then f(val(f(val(v940^e)*val(&unifor('Kizc.mnu|'v940^c.4)),0,2))*(val(v940^x,|1;|n940^x,' 0')),0,2) else f(val(f(val(v940^e)*val(&unifor('Kizc.mnu|1980')),0,2))*(val(v940^x,|1;|n940^x,' 0')),0,2)fi fi else f(val(v940^e)*(val(v940^x,|1;|n940^x,' 0')),0,2)fi else if p(v940^c) then if &unifor('Kizc.mnu|'v940^c.6)<>''then f(val(f(val(&unifor('Av10^d#1'),' 0')*val(&unifor('Kizc.mnu|'v940^c.6)),0,2))*(val(v940^x,|1;|n940^x,' 0')),0,2) else if &unifor('Kizc.mnu|'v940^c.4)<>''then f(val(f(val(&unifor('Av10^d#1'),' 0')*val(&unifor('Kizc.mnu|'v940^c.4)),0,2))*(val(v940^x,|1;|n940^x,' 0')),0,2) else f(val(f(val(&unifor('Av10^d#1'),' 0')*val(&unifor('Kizc.mnu|1980')),0,2))*(val(v940^x,|1;|n940^x,' 0')),0,2) fi fi else f(val(&unifor('Av10^d#1'),' 0')*(val(v940^x,|1;|n940^x,' 0')),0,2) fi fi fi fi/) fi fi fi/ 744^C 11 if v215:'^y' or (v920:'NJ' or v920:'Spec' and p(v933)) then if ref(mfn,(if p(v940) then if &uf('+97',v940^v)='v991' then if val(v940^x,|1|n940^x) >0 then'1'fi fi fi)):'1' then'1'fi fi/ 744^D 11 if v215:'^y' or (v920:'NJ' or v920:'Spec' and p(v933)) then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi/ 744^E 12 if v215:'^y' or (v920:'NJ' or v920:'Spec' and p(v933)) then if v940^v:'v991' then if &unifor('DCMPL,"KS2=','v991','",v888^F')<>'' then (if p(v940) then if v940^v='v991' then then f((val(v940^x,|1|n940^x,' 0'))*val(&unifor('DCMPL,"KS2=','v991','",v888^F')),0,2) fi fi/) else (if p(v940) then if &uf('+97',v940^v)='v991' then if p(v940^e)then if p(v940^c)then if &unifor('Kizc.mnu|'v940^c.6)<>''then f(val(f(val(v940^e)*val(&unifor('Kizc.mnu|'v940^c.6)),0,2))*(val(v940^x,|1|n940^x,' 0')),0,2) else if &unifor('Kizc.mnu|'v940^c.4)<>''then f(val(v940^e)*val(&unifor('Kizc.mnu|'v940^c.4))*(val(v940^x,|1|n940^x,' 0')),0,2) else f(val(v940^e)*val(&unifor('Kizc.mnu|1980'))*(val(v940^x,|1|n940^x,' 0')),0,2)fi fi else f(val(v940^e)*(val(v940^x,|1|n940^x,' 0')),0,2)fi else if p(v940^c)then if &unifor('Kizc.mnu|'v940^c.6)<>''then f(val(&unifor('Av10^d#1'),' 0')*val(&unifor('Kizc.mnu|'v940^c.6))*(val(v940^x,|1|n940^x,' 0')),0,2)else if &unifor('Kizc.mnu|'v940^c.4)<>''then f(val(&unifor('Av10^d#1'),' 0')*val(&unifor('Kizc.mnu|'v940^c.4))*(val(v940^x,|1|n940^x,' 0')),0,2) else f(val(&unifor('Av10^d#1'),' 0')*val(&unifor('Kizc.mnu|1980'))*(val(v940^x,|1|n940^x,' 0')),0,2)fi fi else f(val(&unifor('Av10^d#1'),' 0')*(val(v940^x,|1|n940^x,' 0')),0,2) fi fi fi fi/)fi fi fi/ 744^F 11 if (v920:'NJ' or v920:'Spec' and p(v933))then if ref(l("I="v933),v110^b)='c'then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi fi/ 744^G 11 if v940^v:'v991' then if s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'62'or s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'63'or s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):''or s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'k'or s(v900^c.1' 'v900^2.1' 'v900^3.1' 'v900^4.1' 'v900^5.1' 'v900^6.1):'g'or s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'l'then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi 744^8 11 if v940^v:'v991' then if s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'l'then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi/ 744^9 11 if v940^v:'v991' then if s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'m'then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi/ 744^J 11 if ('03 04 05 07 ':v900^b.2 and (a(v900^t) or v900^t:'a1'or v900^t:'a2'or v900^t:'b'or 'a 1 2 3':v900^t)) or s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'98' or s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'62' or s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'63' or s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'k' or s(v900^c.1' 'v900^2.1' 'v900^3.1' 'v900^4.1' 'v900^5.1' 'v900^6.1):'g' or s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'l' or s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'m' or ((v920:'NJ' or v920:'Spec' and p(v933)) and (ref(L("I="v933),v110^b)='a' or ref(L("I="v933),v110^b)='c' or '98 62 63 k g i m ':ref(L("I="v933),v110^g) or '98 62 63 k g i m ':ref(L("I="v933),v110^k) or '98 62 63 k g i m ':ref(L("I="v933),v110^l))) then else if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi/ 744^K 11 if (v920:'NJ' or v920:'Spec' and p(v933)) then if ref(l("I="v933),if s(v110^g,v110^k,v110^l):'58' then '1' fi)='1'then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi else if v940^v:'v991' then if s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'58' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi fi/ 744^L 11 if (v920:'NJ' or v920:'Spec' and p(v933)) then if ref(l("I="v933),if s(v110^g,v110^k,v110^l):'j' then '1' fi)='1'then if ref(mfn,(if p(v940) then if &uf('+97',v940^v)='v991' then if val(v940^x,|1|n940^x)>0 then'1'fi fi fi)):'1' then'1'fi fi else if s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'j'then if ref(mfn,(if p(v940) then if &uf('+97',v940^v)='v991' then if val(v940^x,|1;|n940^x)>0 then'1'fi fi fi)):'1' then'1'fi fi fi/ 744^M 11 if (v920:'NJ' or v920:'Spec' and p(v933)) then if ref(l("I="v933),if s(v110^g,v110^k,v110^l):'j' then '1' fi)='1'then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi else if v940^v:'v991' then if s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'j' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi fi/ 744^N 11 if (v920:'NJ' or v920:'Spec' and p(v933)) then if ref(l("I="v933),if s(' 'v110^g' 'v110^k' 'v110^l):' 20' then '1' fi)='1'then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi else if v940^v:'v991' then if s(' 'v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):' 20' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi fi/ 744^O 11 if (v920:'NJ' or v920:'Spec' and p(v933)) then if ref(l("I="v933),if s(' 'v110^g' 'v110^k' 'v110^l):' 11' then '1' fi)='1'then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi else if v940^v:'v991' then if s(' 'v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):' 11' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi fi/ 744^P 11 if s(v700v701v702):'^y'then if s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'58'then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi fi/ 744^Q 11 if s(v700v701v702):'^y'then if s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'21'then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi fi/ 744^R 11 if s(v700v701v702):'^y'then if s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'51'then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi fi/ 744^S 11 if '03 04 05 07 ':v900^b.2 then if v940^v:'v991' then if p(v102)then if v102:&unifor('Korg.mnu|1') then else (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi fi fi/ 744^T 11 if v940^v:'v991' then if (v920:'NJ' or v920:'Spec' and p(v933)) then if ref(l("I="v933),if p(v102) and v102:&unifor('Korg.mnu|1')then'1' fi)='1' then else (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi fi/ 744^U 11 if v940^v:'v991' then if (v920:'NJ' or v920:'Spec' and p(v933)) then if ref(l("I="v933),if p(v102) then if v102:&unifor('Korg.mnu|1')then'1' fi fi)='1'then else (if p(v940) then if &uf('+97',v940^v)='v991' then if p(v940^l) or &unifor('Av10#1'):'^c' then f(val(v940^x,|1|n940^x,' 0'),0,0) fi fi fi/) fi else if v920<>'NJ' then if p(v102) then if v102:&unifor('Korg.mnu|1') then else (if p(v940) then if &uf('+97',v940^v)='v991' then if p(v940^l) or &unifor('Av10#1'):'^c' then f(val(v940^x,|1|n940^x,' 0'),0,0) fi fi fi/) fi fi fi fi fi/ 744^V 11 if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then if v940^d:'ÎÔ' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi fi/) fi/ 744^W 11 if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then if v940^d:'ÔÐÊ'then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi fi/) fi/ 744^X 11 if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then if v940^d:'ÄÔ' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi fi/) fi/ 744^Y 11 if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then if v940^d:'ÐÔ' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi fi/) fi/ 744^Z 11 if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then if v940^d:'ÎÎÍ'then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi fi/) fi/ 744^1 11 if (v920:'NJ' or v920:'Spec' and p(v933)) then if ref(l("I="v933),if p(v215^1) then if v215^1='ìêôø.' then '1' fi fi)='1'then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0')*val(&uf('Av215^a#1')),0,0) fi/) fi fi else if v940^v:'v991' then if v215^1='ìêôø.'then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0')*val(&uf('Av215^a#1')),0,0) fi/) fi fi fi/ 744^2 11 if (v920:'NJ' or v920:'Spec' and p(v933)) then if ref(l("I="v933),if p(v215^1) then if v215^1='ìêô.' then '1' fi fi)='1' then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0')*val(&uf('Av215^a#1')),0,0) fi/) fi fi else if v940^v:'v991' then if v215^1='ìêô.'then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0')*val(&uf('Av215^a#1')),0,0) fi/) fi fi fi/ 744^3 11 if (v920:'NJ' or v920:'Spec' and p(v933)) then if ref(l("I="v933),if p(v110^t) then if ('l':v110^t or p(v230)) and v215^1='ìä.' then'1' fi fi)='1'then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0')*val(&uf('Av215^a#1')),0,0) fi/) fi fi else if ('l':v900^t or p(v230)) and v215^1='ìä.'then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0')*val(&uf('Av215^a#1')),0,0) fi/) fi fi fi/ 744^4 11 if (v920:'NJ' or v920:'Spec' and p(v933)) then if ref(l("I="v933),if p(v110^t) then if ('l':v110^t or p(v230)) and v215^1='CD-ROM' then'1' fi fi)='1'then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0')*val(&uf('Av215^a#1')),0,0) fi/) fi fi else if ('l':v900^t or p(v230)) and v215^1='CD-ROM'then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0')*val(&uf('Av215^a#1')),0,0) fi/) fi fi fi/ 744^5 11 if (v920:'NJ' or v920:'Spec' and p(v933)) then if ref(l("I="v933),if p(v110^t) then if 'l':v110^t and v215^1='ìì.' then'1' fi fi)='1'then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi else if 'l':v900^t and v215^1='ìì.'then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi fi/ 744^6 11 if (v920:'NJ' or v920:'Spec' and p(v933)) then if ref(l("I="v933),if p(v101) then if &unifor('Av101#1'):'rus' then'1' fi fi)='1'then else if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi else if &unifor('Av101#1'):'rus'then else if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0'),0,0) fi/) fi fi fi/ 145 2 145^A 21 if v215^y<>''or (v920:'NJ' or v920:'Spec' and p(v933))then else if rsum((if p(v940) then if &uf('+97',v940^v)='v991' then if val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then |1|n940^z fi)>0 then'1;'else'0;'fi fi fi))>0 then'1'fi fi/ 145^B 21 if v215^y<>''or (v920:'NJ' or v920:'Spec' and p(v933))then else (if p(v940) then if &uf('+97',v940^v)='v991' then if a(v940^4) then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi fi/)fi/ 145^C 22 if v215^y<>''or (v920:'NJ' or v920:'Spec' and p(v933))then else (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^e,if a(v940^e) then &unifor('Av10^d#1') fi,' 0')*val(f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0),' 0')*val(if p(v940^c)then if &unifor('Kizc.mnu|'v940^c.6)<>''then &unifor('Kizc.mnu|'v940^c.6) else if &unifor('Kizc.mnu|'v940^c.4)<>''then &unifor('Kizc.mnu|'v940^c.4) else if &unifor('Kizc.mnu|1980')<>''then &unifor('Kizc.mnu|1980') else '1'fi fi fi fi,' 1'),0,2)fi fi/) fi 145^D 21 if (v920:'NJ' or v920:'Spec' and p(v933)) then else if v215^y<>''then if rsum((if p(v940) then if &uf('+97',v940^v)='v991' then if val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi)>0 then'1;'else'0;'fi fi fi))>0 then'1'fi else if v215^y='' and (not(v920:'NJ' or v920:'Spec' and p(v933))) and s(v940^4)<>'' then if rsum((if p(v940) then if &uf('+97',v940^v)='v991' and p(v940^4) then if val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi)>0 then'1;'else'0;'fi fi fi))>0 then'1'fi fi fi fi/ 145^E 21 if v215^y<>''or (v920:'NJ' or v920:'Spec' and p(v933)) then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/) else if v215^y=''and (not(v920:'NJ' or v920:'Spec' and p(v933))) and s(v940^4)<>'' then (if p(v940) then if &uf('+97',v940^v)='v991' then if p(v940^4) then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi fi/)fi fi/ 145^F 22 if v215^y<>''or (v920:'NJ' or v920:'Spec' and p(v933)) then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(if &unifor('DCMPL,"KS2=','v991','",v888^F')<>''then &unifor('DCMPL,"KS2=','v991','",v888^F') else v940^e,if a(v940^e) then &unifor('Av10^d#1')fi fi,' 0')*val(f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0),' 0')*val(if p(v940^c)then if &unifor('Kizc.mnu|'v940^c.6)<>''then &unifor('Kizc.mnu|'v940^c.6) else if &unifor('Kizc.mnu|'v940^c.4)<>''then &unifor('Kizc.mnu|'v940^c.4) else if &unifor('Kizc.mnu|1980')<>''then &unifor('Kizc.mnu|1980') else '1'fi fi fi fi,' 1'),0,2)fi fi/) else if v215^y=''and (not(v920:'NJ' or v920:'Spec' and p(v933))) and s(v940^4)<>'' then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^e,if a(v940^e)then &unifor('Av10^d#1')fi,' 0')*val(if p(v940^4)then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi,' 0')*val(if p(v940^c)then if &unifor('Kizc.mnu|'v940^c.6)<>''then &unifor('Kizc.mnu|'v940^c.6) else if &unifor('Kizc.mnu|'v940^c.4)<>''then &unifor('Kizc.mnu|'v940^c.4) else if &unifor('Kizc.mnu|1980')<>''then &unifor('Kizc.mnu|1980') else '1'fi fi fi fi,' 1'),0,2)fi fi/)fi fi/ /* 145^G=180^I /* Âûáûëî íàèìåíîâàíèé âñåãî áåç ïåðèîäèêè - ïî äàííîìó ÊÑÓ, íå ïîëíîñòüþ, åñëè âñå ïåðåäàíî, òî âûáûòèå íå ñ÷èòàåòñÿ 145^G 21 if (v920:'NJ' or v920:'Spec' and p(v933)) then else if rsum((if p(v940) then if &uf('+97',v940^v)='v991' then if val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi)>0 then'1;'else'0;'fi fi fi))>0 then'1'fi fi/ 145^H 21 (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/)/ 145^I 22 (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(if &unifor('DCMPL,"KS2=','v991','",v888^F')<>''then &unifor('DCMPL,"KS2=','v991','",v888^F') else v940^e,if a(v940^e) then &unifor('Av10^d#1')fi fi,' 0')*val(f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0),' 0')*val(if p(v940^c)then if &unifor('Kizc.mnu|'v940^c.6)<>''then &unifor('Kizc.mnu|'v940^c.6) else if &unifor('Kizc.mnu|'v940^c.4)<>''then &unifor('Kizc.mnu|'v940^c.4) else if &unifor('Kizc.mnu|1980')<>''then &unifor('Kizc.mnu|1980') else '1'fi fi fi fi,' 1'),0,2)fi fi/) 145^J 21 if s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'98'then else if '03 04 05 07 ':v900^b.2 and (a(v900^t) or 'a 1 2 3 b':v900^t or v900^t:'a1' or v900^t:'a2') then if rsum((if p(v940) then if &uf('+97',v940^v)='v991' then if val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi)>0 then '1;'fi fi fi))>0 then '1' fi fi fi/ 145^K 21 if s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'98'then else if '03 04 05 07 ':v900^b.2 and (a(v900^t) or 'a 1 2 3 b':v900^t or v900^t:'a1' or v900^t:'a2') then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/) fi fi/ 145^L 21 if s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'98'then else if '03 ':v900^b.2 and (a(v900^t) or 'a 1 2 3 b':v900^t or v900^t:'a1' or v900^t:'a2') then if rsum((if p(v940) then if &uf('+97',v940^v)='v991' then if val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi)>0 then '1;'fi fi fi))>0 then '1' fi fi fi/ 145^M 21 if s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'98'then else if '03 ':v900^b.2 and (a(v900^t) or 'a 1 2 3 b':v900^t or v900^t:'a1' or v900^t:'a2') then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/) fi fi/ 145^N 21 if s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'98'then else if '04 ':v900^b.2 and (a(v900^t) or 'a 1 2 3 b':v900^t or v900^t:'a1' or v900^t:'a2') then if rsum((if p(v940) then if &uf('+97',v940^v)='v991' then if val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi)>0 then '1;'fi fi fi))>0 then '1' fi fi fi/ 145^O 21 if s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'98'then else if '04 ':v900^b.2 and (a(v900^t) or 'a 1 2 3 b':v900^t or v900^t:'a1' or v900^t:'a2') then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/) fi fi/ 145^P 21 if s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'98'then else if '05 ':v900^b.2 and (a(v900^t) or 'a 1 2 3 b':v900^t or v900^t:'a1' or v900^t:'a2') then if rsum((if p(v940) then if &uf('+97',v940^v)='v991' then if val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi)>0 then '1;'fi fi fi))>0 then '1' fi fi fi/ 145^Q 21 if s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'98'then else if '05 ':v900^b.2 and (a(v900^t) or 'a 1 2 3 b':v900^t or v900^t:'a1' or v900^t:'a2') then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/) fi fi/ 145^R 21 if s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'98'then else if '07 ':v900^b.2 and (a(v900^t) or 'a 1 2 3 b':v900^t or v900^t:'a1' or v900^t:'a2') then if rsum((if p(v940) then if &uf('+97',v940^v)='v991' then if val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi)>0 then '1;'fi fi fi))>0 then '1' fi fi fi/ 145^S 21 if s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'98'then else if '07 ':v900^b.2 and (a(v900^t) or 'a 1 2 3 b':v900^t or v900^t:'a1' or v900^t:'a2') then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/) fi fi/ 145^T 21 if s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'98'then if rsum((if p(v940) then if &uf('+97',v940^v)='v991' then if val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi)>0 then '1;'fi fi fi))>0 then '1' fi fi/ 145^U 21 if s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'98'then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/) fi/ 145^V 21 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),v110^b)='a'then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/)fi/ 145^W 21 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),v110^b' 'v110^f)='a 541'then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/)fi/ 145^X 21 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),v110^b)='c'then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/)fi/ 146 2 146^A 21 if s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'m2' then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/)fi/ 146^B 21 if s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'m2' then else if s(v900^c.1' 'v900^2.1' 'v900^3.1' 'v900^4.1' 'v900^5.1' 'v900^6.1):'m'then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/) fi fi/ 146^C 21 if s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'62'or s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'63'or s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'k'or s(v900^c.1' 'v900^2.1' 'v900^3.1' 'v900^4.1' 'v900^5.1' 'v900^6.1):'g' and s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'63'or s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'l'then(if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/)fi/ 146^D 21 if s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'l' then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/)fi/ 146^E 21 if s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'62' then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/)fi/ 146^F 21 if s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'k' then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/)fi/ 146^G 21 if s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'63' then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/)fi/ 146^H 21 if s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'63'and s(v900^c.1' 'v900^2.1' 'v900^3.1' 'v900^4.1' 'v900^5.1' 'v900^6.1):'g'then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/)fi/ 146^I 21 if s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'97' then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/)fi/ 146^J 21 if s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'06' then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/)fi/ 146^K 21 if s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'61' then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/)fi/ 146^L 21 if s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'611'then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/)fi/ 146^M 21 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),if p(v110^t) and 'e f':v110^t then'1'fi)='1' OR v920<>'NJ'and 'e f':v900^t then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/) fi / 146^N 21 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),if p(v106) and v106='z3' then'1'fi)='1' OR v920<>'NJ'and v106='z3' then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/) fi/ 146^Z 21 if ('03 04 05 07 ':v900^b.2 and (a(v900^t) or 'a 1 2 3 b e f i j k L m r':v900^t or v900^t:'a1' or v900^t:'a2' or v900^t:'m2' or v106='z3'or v900^t:'g1' or v900^t:'g2' or v900^t:'g3') or s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'98' or s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'62' or s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'63' or s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'k' or s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'l' or s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'m' or s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'97' or p(v230)) or ((v920:'NJ' or v920:'Spec' and p(v933)) and ref(L("I="v933),if v110^b='a' or v110^b='c' or 'a 1 2 3 b c d e f g i j k l m r a1 a2 m2 g1 g2 g3':v110^t or v106='z3' or '98 62 63 k g l m 97':v110^g or '98 62 63 k g l m 97':v110^k or '98 62 63 k g l m 97':v110^l or p(v230) then '1' else '0' fi) :'1') then else (if p(v910)then if v910^u='v991' then v910^1,|1|n910^1 fi fi/)fi/ 147 2 147^A 21 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),if p(v110^t) and 'i j':v110^t then'1'fi)='1' OR v920<>'NJ'and 'i j':v900^t then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi)*val(&uf('Av215^a#1')),0,0) fi fi/) fi/ 147^B 21 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),if p(v110^t) and 'g':v110^t then'1'fi)='1' OR v920<>'NJ'and (v900^t:'g1'or v900^t:'g2' or v900^t:'g3') then (if p(v940) then if &uf('+97',v940^v)='v991' then f((val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi))*val(&uf('Av215^a#1')),0,0) fi fi/) fi/ 147^C 21 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),if p(v110^t) and ('l m2 ':v110^t or p(v230)) then'1'fi)='1' OR v920<>'NJ'and ('l m2 ':v900^t or p(v230)) then (if p(v940) then if &uf('+97',v940^v)='v991' then f((val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi))*val(&uf('Av215^a#1')),0,0) fi fi/) fi/ 147^D 21 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),if p(v110^t) and v110^t:'m2' then'1'fi)='1' OR v920<>'NJ'and v900^t:'m2' then (if p(v940) then if &uf('+97',v940^v)='v991' then f((val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi))*val(&uf('Av215^a#1')),0,0) fi fi/) fi/ 147^E 21 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),if p(v110^t) and ('l':v110^t or p(v230)) and (v215^1.2:'j='or v215^1:'ìä') then'1'fi):'1' OR v920<>'NJ'and ('l':v900^t or p(v230)) and (v215^1.2='j=' or v215^1:'ìä') then (if p(v940) then if &uf('+97',v940^v)='v991' then f((val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi))*val(&uf('Av215^a#1')),0,0) fi fi/) fi/ 147^F 21 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),if p(v110^t) and ('l':v110^t or p(v230)) and (v215^1.2:'o='or v215^1:'CD-ROM')then'1'fi):'1'OR v920<>'NJ'and ('l':v900^t or p(v230)) and (v215^1.2='o=' or v215^1:'CD-ROM')then (if p(v940) then if &uf('+97',v940^v)='v991' then f((val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi))*val(&uf('Av215^a#1')),0,0) fi fi/) fi/ 147^G 21 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),if p(v215^1) and v215^1='ìêôø.'then'1'fi)='1'OR v920<>'NJ'and v215^1='ìêôø.'then (if p(v940) then if &uf('+97',v940^v)='v991' then f((val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi))*val(&uf('Av215^a#1')),0,0) fi fi/) fi/ 147^H 21 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),if p(v215^1) and v215^1='ìêô.' then'1'fi)='1'OR v920<>'NJ'and v215^1='ìêô.' then (if p(v940) then if &uf('+97',v940^v)='v991' then f((val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi))*val(&uf('Av215^a#1')),0,0) fi fi/) fi/ 147^I 21 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),if p(v110^t) and 'c d':v110^t then'1'fi)='1' OR v920<>'NJ'and 'c d':v900^t then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/) fi/ 147^J 21 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),if p(v215^1) and (v215^1:'äï'or v215^1:'äô'or v215^1:'êô')then'1'fi):'1' OR v920<>'NJ' and v215^1:'äï'or v215^1:'äô'or v215^1:'êô'then (if p(v940) then if &uf('+97',v940^v)='v991' then f((val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi))*val(&uf('Av215^a#1')),0,0) fi fi/) fi/ 147^K 21 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),if p(v215^1) and v215^1='ãðï' then'1'fi):'1'OR v920<>'NJ'and v215^1='ãðï' then (if p(v940) then if &uf('+97',v940^v)='v991' then f((val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi))*val(&uf('Av215^a#1')),0,0) fi fi/) fi/ 147^Z 21 if ('03 04 05 07 ':v900^b.2 and (a(v900^t) or 'a 1 2 3 b':v900^t or v900^t:'a1' or v900^t:'a2' or 'c d e f i j l ':v900^t or v900^t:'g1' or v900^t:'g2' or v900^t:'g3') or p(v230)) or (v920:'NJ' or v920:'Spec' and p(v933)) then else (if p(v940) then if &uf('+97',v940^v)='v991' then f((val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi))*val(&uf('Av215^a#1')),0,0) fi fi/) fi/ 148 2 148^A 21 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),v110^g' 'v110^k' 'v110^l):'58'or v920<>'NJ'and s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'58'then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/) fi/ 148^1 21 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),v110^g' 'v110^k' 'v110^l):'58'and (ref(l("I="v933),&uf('Av101#1'))=&unifor('Korg.mnu|6') or &unifor('Korg.mnu|6'):'sibir'and &unifor('Ksibir.mnu|'ref(l("I="v933),&uf('Av101#1')))<>'') OR v920<>'NJ'and s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'58'and (&uf('Av101#1')=&unifor('Korg.mnu|6') or &unifor('Korg.mnu|6'):'sibir' and &unifor('Ksibir.mnu|'&uf('Av101#1'))<>'') then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/) fi/ 148^B 21 if (v920:'NJ' or v920:'Spec' and p(v933))then else if s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'j'then if rsum((if p(v940) then if &uf('+97',v940^v)='v991' then if val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi)>0 then'1;'else'0;'fi fi fi))>0 then'1'fi fi fi/ 148^2 21 if (v920:'NJ' or v920:'Spec' and p(v933))then else if s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'j'and (&uf('Av101#1')=&unifor('Korg.mnu|6') or &unifor('Korg.mnu|6'):'sibir' and &unifor('Ksibir.mnu|'&uf('Av101#1'))<>'') then if rsum((if p(v940) then if &uf('+97',v940^v)='v991' then if val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi)>0 then'1;'else'0;'fi fi fi))>0 then'1'fi fi fi/ 148^C 21 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),v110^g' 'v110^k' 'v110^l):'j' OR v920<>'NJ'and s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'j' then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/) fi/ 148^3 21 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),v110^g' 'v110^k' 'v110^l):'j' and (ref(l("I="v933),&uf('Av101#1'))=&unifor('Korg.mnu|6') or &unifor('Korg.mnu|6'):'sibir'and &unifor('Ksibir.mnu|'ref(l("I="v933),&uf('Av101#1')))<>'') OR v920<>'NJ'and s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'j' and (&uf('Av101#1')=&unifor('Korg.mnu|6') or &unifor('Korg.mnu|6'):'sibir' and &unifor('Ksibir.mnu|'&uf('Av101#1'))<>'') then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/) fi/ 148^D 21 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),' 'v110^g' 'v110^k' 'v110^l):' 11'OR v920<>'NJ'and s(' 'v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):' 11'then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/) fi/ 148^4 21 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),' 'v110^g' 'v110^k' 'v110^l):' 11'and (ref(l("I="v933),&uf('Av101#1'))=&unifor('Korg.mnu|6') or &unifor('Korg.mnu|6'):'sibir'and &unifor('Ksibir.mnu|'ref(l("I="v933),&uf('Av101#1')))<>'') OR v920<>'NJ'and s(' 'v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):' 11'and (&uf('Av101#1')=&unifor('Korg.mnu|6') or &unifor('Korg.mnu|6'):'sibir' and &unifor('Ksibir.mnu|'&uf('Av101#1'))<>'') then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/) fi/ 148^E 21 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),' 'v110^g' 'v110^k' 'v110^l):' 20'OR v920<>'NJ'and s(' 'v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):' 20'then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/) fi/ 148^5 21 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),' 'v110^g' 'v110^k' 'v110^l):' 20'and (ref(l("I="v933),&uf('Av101#1'))=&unifor('Korg.mnu|6') or &unifor('Korg.mnu|6'):'sibir'and &unifor('Ksibir.mnu|'ref(l("I="v933),&uf('Av101#1')))<>'') OR v920<>'NJ'and s(' 'v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):' 20'and (&uf('Av101#1')=&unifor('Korg.mnu|6') or &unifor('Korg.mnu|6'):'sibir' and &unifor('Ksibir.mnu|'&uf('Av101#1'))<>'') then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/) fi/ 148^F 21 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),v110^g.1' 'v110^k.1' 'v110^l.1):'g'OR v920<>'NJ'and s(v900^c.1' 'v900^2.1' 'v900^3.1' 'v900^4.1' 'v900^5.1' 'v900^6.1):'g' then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/) fi/ 148^6 21 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),v110^g.1' 'v110^k.1' 'v110^l.1):'g'and (ref(l("I="v933),&uf('Av101#1'))=&unifor('Korg.mnu|6') or &unifor('Korg.mnu|6'):'sibir'and &unifor('Ksibir.mnu|'ref(l("I="v933),&uf('Av101#1')))<>'') OR v920<>'NJ'and s(v900^c.1' 'v900^2.1' 'v900^3.1' 'v900^4.1' 'v900^5.1' 'v900^6.1):'g' and (&uf('Av101#1')=&unifor('Korg.mnu|6') or &unifor('Korg.mnu|6'):'sibir' and &unifor('Ksibir.mnu|'&uf('Av101#1'))<>'')then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/) fi/ 148^G 21 if (v920:'NJ' or v920:'Spec' and p(v933))and (ref(l("I="v933),v110^g' 'v110^k' 'v110^l):'21' or ref(l("I="v933),v110^g' 'v110^k' 'v110^l):'j50') OR v920<>'NJ'and (s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'21'or s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'j50')then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/) fi/ 148^7 21 if (v920:'NJ' or v920:'Spec' and p(v933))and (ref(l("I="v933),v110^g' 'v110^k' 'v110^l):'21' or ref(l("I="v933),v110^g' 'v110^k' 'v110^l):'j50')and (ref(l("I="v933),&uf('Av101#1'))=&unifor('Korg.mnu|6') or &unifor('Korg.mnu|6'):'sibir'and &unifor('Ksibir.mnu|'ref(l("I="v933),&uf('Av101#1')))<>'') OR v920<>'NJ'and (s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'21' or s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'j50') and (&uf('Av101#1')=&unifor('Korg.mnu|6') or &unifor('Korg.mnu|6'):'sibir' and &unifor('Ksibir.mnu|'&uf('Av101#1'))<>'')then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/) fi/ 148^H 21 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),v110^g' 'v110^k' 'v110^l):'67'OR v920<>'NJ'and s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'67'then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/) fi/ 148^8 21 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),v110^g' 'v110^k' 'v110^l):'67'and (ref(l("I="v933),&uf('Av101#1'))=&unifor('Korg.mnu|6') or &unifor('Korg.mnu|6'):'sibir'and &unifor('Ksibir.mnu|'ref(l("I="v933),&uf('Av101#1')))<>'') OR v920<>'NJ'and s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'67'and (&uf('Av101#1')=&unifor('Korg.mnu|6') or &unifor('Korg.mnu|6'):'sibir' and &unifor('Ksibir.mnu|'&uf('Av101#1'))<>'')then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/) fi/ 148^I 21 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),v110^g' 'v110^k' 'v110^l):'19'OR v920<>'NJ'and s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'19'then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/) fi/ 148^9 21 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),v110^g' 'v110^k' 'v110^l):'19'and (ref(l("I="v933),&uf('Av101#1'))=&unifor('Korg.mnu|6') or &unifor('Korg.mnu|6'):'sibir'and &unifor('Ksibir.mnu|'ref(l("I="v933),&uf('Av101#1')))<>'') OR v920<>'NJ'and s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'19'and (&uf('Av101#1')=&unifor('Korg.mnu|6') or &unifor('Korg.mnu|6'):'sibir' and &unifor('Ksibir.mnu|'&uf('Av101#1'))<>'')then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/) fi/ 148^J 21 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),v110^g' 'v110^k' 'v110^l):'88'OR v920<>'NJ'and s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'88'then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/) fi/ 148^0 21 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),v110^g' 'v110^k' 'v110^l):'88'and (ref(l("I="v933),&uf('Av101#1'))=&unifor('Korg.mnu|6') or &unifor('Korg.mnu|6'):'sibir'and &unifor('Ksibir.mnu|'ref(l("I="v933),&uf('Av101#1')))<>'') OR v920<>'NJ'and s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'88'and (&uf('Av101#1')=&unifor('Korg.mnu|6') or &unifor('Korg.mnu|6'):'sibir' and &unifor('Ksibir.mnu|'&uf('Av101#1'))<>'')then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/) fi/ 148^K 21 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),v110^g' 'v110^k' 'v110^l):'39'OR v920<>'NJ'and s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'k'then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/) fi/ 148^! 21 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),v110^g' 'v110^k' 'v110^l):'39'and (ref(l("I="v933),&uf('Av101#1'))=&unifor('Korg.mnu|6') or &unifor('Korg.mnu|6'):'sibir'and &unifor('Ksibir.mnu|'ref(l("I="v933),&uf('Av101#1')))<>'') OR v920<>'NJ'and s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'K'and (&uf('Av101#1')=&unifor('Korg.mnu|6') or &unifor('Korg.mnu|6'):'sibir' and &unifor('Ksibir.mnu|'&uf('Av101#1'))<>'')then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/) fi/ 149 2 149^A 21 if (v920:'NJ' or v920:'Spec' and p(v933))then else if v102=&unifor('Korg.mnu|1') then if rsum((if p(v940) then if &uf('+97',v940^v)='v991' then if val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi)>0 then'1;'else'0;'fi fi fi))>0 then'1'fi fi fi/ 149^B 21 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),v102)=&unifor('Korg.mnu|1') OR v920<>'NJ'and v102=&unifor('Korg.mnu|1') then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/) fi/ 149^C 21 if (v920:'NJ' or v920:'Spec' and p(v933)) then else if v102<>&unifor('Korg.mnu|1') then if rsum((if p(v940) then if &uf('+97',v940^v)='v991' then if val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi)>0 then'1;'else'0;'fi fi fi))>0 then'1'fi fi fi/ 149^D 21 if s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'98'then else if v102<>&unifor('Korg.mnu|1') then if '03 04 05 07 ':v900^b.2 and (a(v900^t) or 'a 1 2 3 b':v900^t or v900^t:'a1' or v900^t:'a2') then if rsum((if p(v940) then if &uf('+97',v940^v)='v991' then if val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi)>0 then'1;'else'0;'fi fi fi))>0 then'1'fi fi fi fi/ 149^E 21 if s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'98'then if v102<>&unifor('Korg.mnu|1') then if rsum((if p(v940) then if &uf('+97',v940^v)='v991' then if val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi)>0 then'1;'else'0;'fi fi fi))>0 then'1'fi fi fi/ 149^F 21 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),v102)<>&unifor('Korg.mnu|1') OR v102<>&unifor('Korg.mnu|1') and (not(v920:'NJ' or v920:'Spec' and p(v933))) then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/) fi/ 149^G 21 if s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'98'then else if v102<>&unifor('Korg.mnu|1') then if '03 04 05 07 ':v900^b.2 and (a(v900^t) or 'a 1 2 3 b':v900^t or v900^t:'a1' or v900^t:'a2') then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/) fi fi fi/ 149^H 21 if s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'98'then if v102<>&unifor('Korg.mnu|1') then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/) fi fi/ 149^I 21 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),v110^b)='a'and ref(l("I="v933),v102)<>&unifor('Korg.mnu|1')then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/) fi/ 149^J 21 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),v110^b)='c'and ref(l("I="v933),v102)<>&unifor('Korg.mnu|1')then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/) fi/ 149^K 21 if v920<>'NJ'and v102=&unifor('Korg.mnu|1') and p(v10^c) then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/) fi/ 149^K 21 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),v102)<>&unifor('Korg.mnu|1') and s(v940^l)<>''then (if p(v940) then if &uf('+97',v940^v)='v991' and p(v940^l) then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/) fi 149^L 22 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),v102)<>&unifor('Korg.mnu|1') OR v920<>'NJ'and v102<>&unifor('Korg.mnu|1') then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^e,if a(v940^e)then &unifor('Av10^d#1')fi,' 0')*val(f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0),' 0')*val(if p(v940^c)then if &unifor('Kizc.mnu|'v940^c.6)<>''then &unifor('Kizc.mnu|'v940^c.6) else if &unifor('Kizc.mnu|'v940^c.4)<>''then &unifor('Kizc.mnu|'v940^c.4) else if &unifor('Kizc.mnu|1980')<>''then &unifor('Kizc.mnu|1980') else '1'fi fi fi fi,' 1'),0,2)fi fi/) fi/ 149^M 21 if v215^y<>''or (v920:'NJ' or v920:'Spec' and p(v933))then else if v102<>&unifor('Korg.mnu|1') then if rsum((if p(v940) then if &uf('+97',v940^v)='v991' then if val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi)>0 then'1;'else'0;'fi fi fi))>0 then'1'fi fi fi 149^N 21 if v215^y<>''or (v920:'NJ' or v920:'Spec' and p(v933))then else if v102<>&unifor('Korg.mnu|1') then (if p(v940) then if &uf('+97',v940^v)='v991' then if a(v940^4) then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi fi/)fi fi/ 149^O 22 if v215^y<>''or (v920:'NJ' or v920:'Spec' and p(v933))then else if v102<>&unifor('Korg.mnu|1') then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^e,if a(v940^e)then &unifor('Av10^d#1')fi,' 0')*val(if p(v940^4)then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi,' 0')*val(if p(v940^c)then if &unifor('Kizc.mnu|'v940^c.6)<>''then &unifor('Kizc.mnu|'v940^c.6) else if &unifor('Kizc.mnu|'v940^c.4)<>''then &unifor('Kizc.mnu|'v940^c.4) else if &unifor('Kizc.mnu|1980')<>''then &unifor('Kizc.mnu|1980') else '1'fi fi fi fi,' 1'),0,2)fi fi/)fi fi/ 149^P 21 if (v920:'NJ' or v920:'Spec' and p(v933)) then else if (v215^y<>''or s(v940^4)<>'') and v102<>&unifor('Korg.mnu|1') then if rsum((if p(v940) then if &uf('+97',v940^v)='v991' then if val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi)>0 then'1;'else'0;'fi fi fi))>0 then'1'fi fi fi/ 149^Q 21 if v215^y<>''and v102<>&unifor('Korg.mnu|1') OR (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),v102)<>&unifor('Korg.mnu|1') then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/) else if v215^y='' and (not(v920:'NJ' or v920:'Spec' and p(v933))) and s(v940^4)<>''then if v102<>&unifor('Korg.mnu|1') then (if p(v940) then if &uf('+97',v940^v)='v991' then if p(v940^4) then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi fi/)fi fi fi/ 149^R 22 if v215^y<>''and v102<>&unifor('Korg.mnu|1') OR (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),v102)<>&unifor('Korg.mnu|1') then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^e,if a(v940^e) then &unifor('Av10^d#1')fi,' 0')*val(f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0),' 0')*val(if p(v940^c)then if &unifor('Kizc.mnu|'v940^c.6)<>''then &unifor('Kizc.mnu|'v940^c.6) else if &unifor('Kizc.mnu|'v940^c.4)<>''then &unifor('Kizc.mnu|'v940^c.4) else if &unifor('Kizc.mnu|1980')<>''then &unifor('Kizc.mnu|1980') else '1'fi fi fi fi,' 1'),0,2)fi fi/) else if v215^y='' and (not(v920:'NJ' or v920:'Spec' and p(v933))) and s(v940^4)<>''then if v102<>&unifor('Korg.mnu|1') then(if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^e,if a(v940^e)then &unifor('Av10^d#1')fi,' 0')*val(if p(v940^4)then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi,' 0')*val(if p(v940^c)then if &unifor('Kizc.mnu|'v940^c.6)<>''then &unifor('Kizc.mnu|'v940^c.6) else if &unifor('Kizc.mnu|'v940^c.4)<>''then &unifor('Kizc.mnu|'v940^c.4) else if &unifor('Kizc.mnu|1980')<>''then &unifor('Kizc.mnu|1980') else '1'fi fi fi fi,' 1'),0,2)fi fi/)fi fi fi/ 149^S 21 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),&uf('Av101#1'))= 'rus'OR &unifor('Av101#1')= 'rus' and (not(v920:'NJ' or v920:'Spec' and p(v933))) then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/) fi/ 149^T 21 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),&uf('Av101#1'))<>'rus'OR &unifor('Av101#1')<>'rus' and (not(v920:'NJ' or v920:'Spec' and p(v933))) then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/) fi/ 149^U 21 if (v920:'NJ' or v920:'Spec' and p(v933))and (ref(l("I="v933),&uf('Av101#1'))=&unifor('Korg.mnu|6') or &unifor('Korg.mnu|6'):'sibir'and &unifor('Ksibir.mnu|'ref(l("I="v933),&uf('Av101#1')))<>'') OR ((&unifor('Av101#1')=&unifor('Korg.mnu|6') or &unifor('Korg.mnu|6'):'sibir'and &unifor('Ksibir.mnu|'&unifor('Av101#1'))<>'')and (not(v920:'NJ' or v920:'Spec' and p(v933)))) then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/) fi/ 149^V 21 if (v920:'NJ' or v920:'Spec' and p(v933))and (ref(l("I="v933),&uf('Av101#1'))=&unifor('Korg.mnu|6') or ref(l("I="v933),&uf('Av101#1'))='rus' or &unifor('Korg.mnu|6'):'sibir'and &unifor('Ksibir.mnu|'ref(l("I="v933),&uf('Av101#1')))<>'') OR ((&unifor('Av101#1')='rus' or &unifor('Av101#1')=&unifor('Korg.mnu|6') or &unifor('Korg.mnu|6'):'sibir'and &unifor('Ksibir.mnu|'&unifor('Av101#1'))<>'')and (not(v920:'NJ' or v920:'Spec' and p(v933)))) then else (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/) fi/ 149^1 21 if (v920:'NJ' or v920:'Spec' and p(v933))then if ref(l("I="v933),if p(v101)then if 'eng':&unifor('Av101#1')then'1'fi fi)='1'then(if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0)fi fi/) fi else if 'eng':&unifor('Av101#1')then(if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/)fi fi/ 149^2 21 if (v920:'NJ' or v920:'Spec' and p(v933))then if ref(l("I="v933),if p(v101)then if 'fre':&unifor('Av101#1')then'1'fi fi)='1'then(if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0)fi fi/) fi else if 'fre':&unifor('Av101#1')then(if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/)fi fi/ 149^3 21 if (v920:'NJ' or v920:'Spec' and p(v933))then if ref(l("I="v933),if p(v101)then if 'ger':&unifor('Av101#1')then'1'fi fi)='1'then(if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0)fi fi/) fi else if 'ger':&unifor('Av101#1')then(if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/)fi fi/ 149^4 21 if (v920:'NJ' or v920:'Spec' and p(v933))then if ref(l("I="v933),if p(v101)then if 'spa':&unifor('Av101#1')then'1'fi fi)='1'then(if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0)fi fi/) fi else if 'spa':&unifor('Av101#1')then(if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/)fi fi/ 149^5 21 if (v920:'NJ' or v920:'Spec' and p(v933))and (ref(l("I="v933),&uf('Av101#1'))=&unifor('Korg.mnu|6') or 'rus eng fre ger spa ':ref(l("I="v933),&uf('Av101#1')) or &unifor('Korg.mnu|6'):'sibir'and &unifor('Ksibir.mnu|'ref(l("I="v933),&uf('Av101#1')))<>'') OR v920<>'NJ'and ('rus eng fre ger spa ':&unifor('Av101#1') or &unifor('Av101#1')=&unifor('Korg.mnu|6') or &unifor('Korg.mnu|6'):'sibir'and &unifor('Ksibir.mnu|'&unifor('Av101#1'))<>'') then else (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/) fi/ 155 5 155^V 51 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),v110^b)='a' then if p(v940) then if rsum((if p(v910)then if '2 6 7':v910^a then'0;'else'1;'fi fi))>0 then else if rsum((if p(v940) then if &uf('+97',v940^v)='v991' then if val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then |1|n940^z fi)>0 then'1;'else'0;'fi fi fi))>0 then v933 fi fi fi fi/ 155^! 51 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),v110^b)='a' then if p(v940) then if rsum((if p(v940) then if &uf('+97',v940^v)='v991' then if val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then |1|n940^z fi)>0 then'1;'else'0;'fi fi fi))>0 then v933 fi fi fi/ 155^W 51 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),v110^b,' 'v110^f)='a 541' then if p(v940) then if rsum((if p(v910)then if '2 6 7':v910^a then'0;'else'1;'fi fi))>0 then else if rsum((if p(v940) then if &uf('+97',v940^v)='v991' then if val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then |1|n940^z fi)>0 then'1;'else'0;'fi fi fi))>0 then v933 fi fi fi fi/ 155^X 51 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),v110^b)='c' then if p(v940) then if rsum((if p(v910)then if '2 6 7':v910^a then'0;'else'1;'fi fi))>0 then else if rsum((if p(v940) then if &uf('+97',v940^v)='v991' then if val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then |1|n940^z fi)>0 then'1;'else'0;'fi fi fi))>0 then v933 fi fi fi fi/ 155^? 51 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),v110^b)='c' then if p(v940) then if rsum((if p(v940) then if &uf('+97',v940^v)='v991' then if val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then |1|n940^z fi)>0 then'1;'else'0;'fi fi fi))>0 then v933 fi fi fi/ 155^B 51 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),v110^g' 'v110^k' 'v110^l):'j'then if p(v940) then if rsum((if p(v910)then if '2 6 7':v910^a then'0;'else'1;'fi fi))>0 then else if rsum((if p(v940) then if &uf('+97',v940^v)='v991' then if val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then |1|n940^z fi)>0 then'1;'else'0;'fi fi fi))>0 then v933 fi fi fi fi/ 155^2 51 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),v110^g' 'v110^k' 'v110^l):'j'and (ref(l("I="v933),&uf('Av101#1'))=&unifor('Korg.mnu|6') or &unifor('Korg.mnu|6'):'sibir'and &unifor('Ksibir.mnu|'ref(l("I="v933),&uf('Av101#1')))<>'') then if p(v940) then if rsum((if p(v910)then if '2 6 7':v910^a then'0;'else'1;'fi fi))>0 then else if rsum((if p(v940) then if &uf('+97',v940^v)='v991' then if val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then |1|n940^z fi)>0 then'1;'else'0;'fi fi fi))>0 then v933 fi fi fi fi/ 155^A 51 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),v102)=&unifor('Korg.mnu|1') then if p(v940) then if rsum((if p(v910)then if '2 6 7':v910^a then'0;'else'1;'fi fi))>0 then else if rsum((if p(v940) then if &uf('+97',v940^v)='v991' then if val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then |1|n940^z fi)>0 then'1;'else'0;'fi fi fi))>0 then v933 fi fi fi fi/ 155^C 51 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),v102)<>&unifor('Korg.mnu|1') then if p(v940) then if rsum((if p(v910)then if '2 6 7':v910^a then'0;'else'1;'fi fi))>0 then else if rsum((if p(v940) then if &uf('+97',v940^v)='v991' then if val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then |1|n940^z fi)>0 then'1;'else'0;'fi fi fi))>0 then v933 fi fi fi fi/ 155^M 51 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),v102)<>&unifor('Korg.mnu|1') and ref(l("I="v933),v110^b)='a'then if p(v940) then if rsum((if p(v910)then if '2 6 7':v910^a then'0;'else'1;'fi fi))>0 then else if rsum((if p(v940) then if &uf('+97',v940^v)='v991' then if val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then |1|n940^z fi)>0 then'1;'else'0;'fi fi fi))>0 then v933 fi fi fi fi/ 155^P 51 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),v102)<>&unifor('Korg.mnu|1') and ref(l("I="v933),v110^b)='c'then if p(v940) then if rsum((if p(v910)then if '2 6 7':v910^a then'0;'else'1;'fi fi))>0 then else if rsum((if p(v940) then if &uf('+97',v940^v)='v991' then if val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then |1|n940^z fi)>0 then'1;'else'0;'fi fi fi))>0 then v933 fi fi fi fi/ 155^4 51 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),v110^b)='a' then if p(v940) then if rsum((if p(v910)then if '2 6 7':v910^a then'0;'else'1;'fi fi))>0 then else if rsum((if p(v940) then if &uf('+97',v940^v)='v991' then if val(v940^x,|1|n940^x)>0 then'1;'else'0;'fi fi fi))>0 then v933 fi fi fi fi/ 155^5 51 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),v110^b)='c' then if p(v940) then if rsum((if p(v910)then if '2 6 7':v910^a then'0;'else'1;'fi fi))>0 then else if rsum((if p(v940) then if &uf('+97',v940^v)='v991' then if val(v940^x,|1|n940^x)>0 then'1;'else'0;'fi fi fi))>0 then v933 fi fi fi fi/ 155^6 51 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),v110^b)='a' then if rsum((if p(v940) then if &uf('+97',v940^v)='v991' then if val(v940^k)>0 then'1;'else'0;'fi fi fi))>0 then v933 fi fi/ 155^7 51 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),v110^b)='c' then if rsum((if p(v940) then if &uf('+97',v940^v)='v991' then if val(v940^k)>0 then'1;'else'0;'fi fi fi))>0 then v933 fi fi/ 155^8 51 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),v110^b)='a' then if rsum((if p(v940) then if &uf('+97',v940^v)='v991' then if val(v940^z,if p(v940^w)then|1|n940^z fi)>0 then'1;'else'0;'fi fi fi))>0 then v933 fi fi/ 155^9 51 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),v110^b)='c' then if rsum((if p(v940) then if &uf('+97',v940^v)='v991' then if val(v940^z,if p(v940^w)then|1|n940^z fi)>0 then'1;'else'0;'fi fi fi))>0 then v933 fi fi/ 150 2 150^A 21 if s(v700v701v702v961v926v600):'^y'or s(v925^z,v925^n,v922^z,v922^n,v330^z,v330^n)<>''then if s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'58'then(if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/)fi fi/ 150^1 21 if s(v700v701v702v961v926v600):'^y'or s(v925^z,v925^n,v922^z,v922^n,v330^z,v330^n)<>''then if s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'58'then if &unifor('Av101#1')=&unifor('Korg.mnu|6') or &unifor('Korg.mnu|6'):'sibir'and &unifor('Ksibir.mnu|'&unifor('Av101#1'))<>''then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/)fi fi fi/ 150^B 21 if s(v700v701v702v961v926v600):'^y'or s(v925^z,v925^n,v922^z,v922^n,v330^z,v330^n)<>''then if s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'21'then(if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/)fi fi/ 150^2 21 if s(v700v701v702v961v926v600):'^y'or s(v925^z,v925^n,v922^z,v922^n,v330^z,v330^n)<>''then if s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'21'then if &unifor('Av101#1')=&unifor('Korg.mnu|6') or &unifor('Korg.mnu|6'):'sibir'and &unifor('Ksibir.mnu|'&unifor('Av101#1'))<>''then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/)fi fi fi/ 150^C 21 if s(v700v701v702v961v926v600):'^y'or s(v925^z,v925^n,v922^z,v922^n,v330^z,v330^n)<>''then if s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'51'then(if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/)fi fi/ 150^3 21 if s(v700v701v702v961v926v600):'^y'or s(v925^z,v925^n,v922^z,v922^n,v330^z,v330^n)<>''then if s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'51'then if &unifor('Av101#1')=&unifor('Korg.mnu|6') or &unifor('Korg.mnu|6'):'sibir'and &unifor('Ksibir.mnu|'&unifor('Av101#1'))<>''then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/)fi fi fi/ 150^D 21 if s(v700v701v702v961v926v600):'^y'or s(v925^z,v925^n,v922^z,v922^n,v330^z,v330^n)<>''then if s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6): 'j'then(if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/)fi fi/ 150^4 21 if s(v700v701v702v961v926v600):'^y'or s(v925^z,v925^n,v922^z,v922^n,v330^z,v330^n)<>''then if s(v900^c' 'v900^2' 'v900^3): 'j'then if &unifor('Av101#1')=&unifor('Korg.mnu|6') or &unifor('Korg.mnu|6'):'sibir'and &unifor('Ksibir.mnu|'&unifor('Av101#1'))<>''then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/)fi fi fi/ 150^E 21 (if p(v940)then if &uf('+97',v940^v)='v991' then if v940^d:'ÎÔ' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi fi /)/ 150^F 21 (if p(v940)then if &uf('+97',v940^v)='v991' then if v940^d:'ÔÐÊ'then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi fi/)/ 150^G 21 (if p(v940)then if &uf('+97',v940^v)='v991' then if v940^d:'ÄÔ' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi fi/)/ 150^H 21 (if p(v940)then if &uf('+97',v940^v)='v991' then if v940^d:'ÐÔ' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi fi/)/ 150^I 21 (if p(v940)then if &uf('+97',v940^v)='v991' then if v940^d:'ÎÎÍ'then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi fi/)/ 151 2 151^1 21 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),v60)='1' OR v920<>'NJ'and v60='1' then(if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/)fi/ 151^2 21 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),v60)='2' OR v920<>'NJ'and v60='2' then(if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/)fi/ 151^3 21 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),v60)='3' OR v920<>'NJ'and v60='3' then(if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/)fi/ 151^4 21 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),v60)='4' OR v920<>'NJ'and v60='4' then(if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/)fi/ 151^5 21 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),v60)='5' OR v920<>'NJ'and v60='5' then(if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/)fi/ 151^6 21 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),v60)='6' OR v920<>'NJ'and v60='6' then(if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/)fi/ 151^7 21 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),v60)='7' OR v920<>'NJ'and v60='7' then(if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/)fi/ 151^8 21 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),v60)='8' OR v920<>'NJ'and v60='8' then(if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/)fi/ 151^9 21 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),v60)='9' OR v920<>'NJ'and v60='9' then(if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/)fi/ 151^0 21 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),v60)='10'OR v920<>'NJ'and v60='10'then(if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/)fi/ 151^A 21 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),v60)='11'OR v920<>'NJ'and v60='11'then(if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/)fi/ 151^B 21 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),v60)='12'OR v920<>'NJ'and v60='12'then(if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/)fi/ 151^C 21 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),v60)='13'OR v920<>'NJ'and v60='13'then(if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/)fi/ 151^D 21 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),v60)='14'OR v920<>'NJ'and v60='14'then(if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/)fi/ 151^E 21 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),v60)='15'OR v920<>'NJ'and v60='15'then(if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/)fi/ 151^X 21 if (v920:'NJ' or v920:'Spec' and p(v933))and ref(l("I="v933),if p(v60) and (not('2 3 4 5 6 7 8 9':v60.1 or '10 11 12 13 14 15':v60.2 or v60='1'))then'1'fi)='1' OR v920<>'NJ'and p(v60) and (not('2 3 4 5 6 7 8 9':v60.1 or '10 11 12 13 14 15':v60.2 or v60='1')) then (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then|1|n940^z fi),0,0) fi fi/) fi/ 45 2 45^A 21 if '03 04 05 07 ':v900^b.2 and (a(v900^t) or 'a 1 2 3 b':v900^t or v900^t:'a1' or v900^t:'a2') and (not(v215:'^y'))then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0')-val(v940^z,' 0'),0,0) fi/) fi fi / 45^B 21 if '03 04 05 07 ':v900^b.2 and (a(v900^t) or 'a 1 2 3 b':v900^t or v900^t:'a1' or v900^t:'a2') and v215:'^y'then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0')-val(v940^z,' 0'),0,0) fi/) fi fi/ 45^C 21 if (v920:'NJ' or v920:'Spec' and p(v933))then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0')-val(v940^z,' 0'),0,0) fi/) fi fi/ 45^D 21 if 'i j':v900^t or v900^t:'g1' or v900^t:'g2' or v900^t:'g3' then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0')-val(v940^z,' 0'),0,0) fi/) fi fi/ 45^E 21 if 'e f':v900^t then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0')-val(v940^z,' 0'),0,0) fi/) fi fi/ 45^F 21 if 'c d':v900^t then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0')-val(v940^z,' 0'),0,0) fi/) fi fi/ 45^G 21 if 'l':v900^t then if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0')-val(v940^z,' 0'),0,0) fi/) fi fi/ 45^X 21 if ('03 04 05 07 ':v900^b.2 and (a(v900^t) or 'a 1 2 3 b c d e f i j l':v900^t or v900^t:'a1' or v900^t:'a2' or v900^t:'g1' or v900^t:'g2' or v900^t:'g3')) or (v920:'NJ' or v920:'Spec' and p(v933)) or s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'98'then else if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0')-val(v940^z,' 0'),0,0) fi/) fi fi/ 45^1 21 if &unifor('Av101#1'):'rus'then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0')-val(v940^z,' 0'),0,0) fi/) fi/ 45^2 21 if &unifor('Korg.mnu|6'):&unifor('Av101#1')then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0')-val(v940^z,' 0'),0,0) fi/) fi/ 45^3 21 if 'rus':&unifor('Av101#1') or &unifor('Korg.mnu|6'):&unifor('Av101#1')then else if (v920:'NJ' or v920:'Spec' and p(v933))then else (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0')-val(v940^z,' 0'),0,0) fi/) fi fi/ 45^4 21 if v940^v:'v991' then'1'fi/ 45^5 21 if v940^v:'v991' then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0')-val(v940^z,' 0'),0,0) fi/) fi/ 45^6 22 if v940^v:'v991' then if &unifor('DCMPL,"KS2=','v991','",v888^F')<>'' then f(rsum((if p(v940) then if v940^v='v991' then if v940^A='6' then if a(v940^w)then f(val(&unifor('DCMPL,"KS2=','v991','",v888^F'),' 0'),0,2),';' else '0;' fi else if p(v940^w)then f((val(v940^x,' 0')-val(v940^z,' 0'))*val(&unifor('DCMPL,"KS2=','v991','",v888^F')),0,2),';' else f(val(v940^x,' 0')*val(&unifor('DCMPL,"KS2=','v991','",v888^F')),0,2),';' fi fi else '0;' fi fi/)),0,2) else f(rsum((if p(v940)then if &uf('+97',v940^v)='v991' then if p(v940^e)then if p(v940^c)then if &unifor('Kizc.mnu|'v940^c.6)<>''then f(val(v940^e|;|)*val(&unifor('Kizc.mnu|'v940^c.6))*val(v940^x,|1;|n940^x,' 0'),0,2) else if &unifor('Kizc.mnu|'v940^c.4)<>''then f(val(v940^e|;|)*val(&unifor('Kizc.mnu|'v940^c.4))*val(v940^x,|1;|n940^x,' 0'),0,2) else f(val(v940^e|;|)*val(&unifor('Kizc.mnu|1980'))*val(v940^x,|1;|n940^x,' 0'),0,2) fi fi else f(val(v940^e|;|)*val(v940^x,|1;|n940^x,' 0'),0,2)fi else if p(v940^c) then if &unifor('Kizc.mnu|'v940^c.6)<>''then f(val(&unifor('Av10^d#1'),' 0')*val(&unifor('Kizc.mnu|'v940^c.6))*val(v940^x,|1;|n940^x,' 0'),0,2)';'else if &unifor('Kizc.mnu|'v940^c.4)<>''then f(val(&unifor('Av10^d#1'),' 0')*val(&unifor('Kizc.mnu|'v940^c.4))*val(v940^x,|1;|n940^x,' 0'),0,2)';'else f(val(&unifor('Av10^d#1'),' 0')*val(&unifor('Kizc.mnu|1980'))*val(v940^x,|1;|n940^x,' 0'),0,2)';'fi fi else f(val(&unifor('Av10^d#1'),' 0')*val(v940^x,|1;|n940^x,' 0'),0,2)';'fi fi fi fi/)),0,2) fi fi/ 45^: 21 if v215:'^y' or (v920:'NJ' or v920:'Spec' and p(v933))then if v940^v:'v991' then '1' fi fi/ 45^J 21 if v940^v:'v991' then '1' fi/ 45^( 21 if v940^v:'v991' then if s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'j' then '1' fi fi/ 47 2 47^1 21 if v60='1'then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0')-val(v940^z,' 0'),0,0) fi/) fi/ 47^2 21 if v60='2'then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0')-val(v940^z,' 0'),0,0) fi/) fi/ 47^3 21 if v60='3'then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0')-val(v940^z,' 0'),0,0) fi/) fi/ 47^4 21 if v60='4'then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0')-val(v940^z,' 0'),0,0) fi/) fi/ 47^5 21 if v60='5'then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0')-val(v940^z,' 0'),0,0) fi/) fi/ 47^6 21 if v60='6'then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0')-val(v940^z,' 0'),0,0) fi/) fi/ 47^7 21 if v60='7'then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0')-val(v940^z,' 0'),0,0) fi/) fi/ 47^8 21 if v60='8'then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0')-val(v940^z,' 0'),0,0) fi/) fi/ 47^9 21 if v60='9'then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0')-val(v940^z,' 0'),0,0) fi/) fi/ 47^A 21 if v60='10'then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0')-val(v940^z,' 0'),0,0) fi/) fi/ 47^B 21 if v60='11'then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0')-val(v940^z,' 0'),0,0) fi/) fi/ 47^C 21 if v60='12'then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0')-val(v940^z,' 0'),0,0) fi/) fi/ 47^D 21 if v60='13'then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0')-val(v940^z,' 0'),0,0) fi/) fi/ 47^E 21 if v60='14'then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0')-val(v940^z,' 0'),0,0) fi/) fi/ 47^F 21 if v60='15'then (if &uf('+97',v940^v)='v991' then f(val(v940^x,|1;|n940^x,' 0')-val(v940^z,' 0'),0,0) fi/) fi/ 47^X 21 if p(v60)then if '2 3 4 5 6 7 8 9':v60.1 or '10 11 12 13 14 15':v60.2 or v60='1' then else f(rsum((if &uf('+97',v940^v)='v991' then if p(v940^w)then f(val(v940^x,' 0')-val(v940^z,' 0'),0,0),';'else f(val(v940^x|;|,|1;|n940^x,' 0'),0,0)fi fi/)),0,0) fi fi/ 48 2 48^1 21 if a(v60) and p(v675)then if '1 2 3 9':&unifor('Av675.1#1') or '3K'=&unifor('Av675.2#1') then f(rsum((if &uf('+97',v940^v)='v991' then if p(v940^w)then f(val(v940^x,' 0')-val(v940^z,' 0'),0,0),';'else f(val(v940^x|;|,|1;|n940^x,' 0'),0,0)fi fi/)),0,0) fi fi/ 48^2 21 if a(v60) and p(v675)then if &unifor('Av675.1#1'):'5' or &unifor('Av675.2#1')='5A' or &unifor('Av675.2#1')='61' then f(rsum((if &uf('+97',v940^v)='v991' then if p(v940^w)then f(val(v940^x,' 0')-val(v940^z,' 0'),0,0),';'else f(val(v940^x|;|,|1;|n940^x,' 0'),0,0)fi fi/)),0,0) fi fi/ 48^3 21 if a(v60) and p(v675)then if &unifor('Av675.1#1'):'6' and (not(&unifor('Av675.2#1')='61'or &unifor('Av675.2#1')='63'))then f(rsum((if &uf('+97',v940^v)='v991' then if p(v940^w)then f(val(v940^x,' 0')-val(v940^z,' 0'),0,0),';'else f(val(v940^x|;|,|1;|n940^x,' 0'),0,0)fi fi/)),0,0) fi fi/ 48^4 21 if a(v60) and p(v675)then if &unifor('Av675.2#1'):'63' then f(rsum((if &uf('+97',v940^v)='v991' then if p(v940^w)then f(val(v940^x,' 0')-val(v940^z,' 0'),0,0),';'else f(val(v940^x|;|,|1;|n940^x,' 0'),0,0)fi fi/)),0,0) fi fi/ 48^X 21 if a(v60) and p(v675)then if'1 2 3 5 6 9':&unifor('Av675.1#1') or &unifor('Av675.2#1')='3K' or &unifor('Av675.2#1')='5A'or &unifor('Av675.2#1')='61' or &unifor('Av675.2#1')='63' or &unifor('Av675.2#1')='7A' then else f(rsum((if &uf('+97',v940^v)='v991' then if p(v940^w)then f(val(v940^x,' 0')-val(v940^z,' 0'),0,0),';'else f(val(v940^x|;|,|1;|n940^x,' 0'),0,0)fi fi/)),0,0) fi fi/ 49 2 49^1 21 if a(v60) and a(v675) and p(v621)then if &unifor('Av621.2#1')='60' or &unifor('Av621.2#1')='63' or &unifor('Av621.2#1')='66' then f(rsum((if &uf('+97',v940^v)='v991' then if p(v940^w)then f(val(v940^x,' 0')-val(v940^z,' 0'),0,0),';'else f(val(v940^x|;|,|1;|n940^x,' 0'),0,0)fi fi/)),0,0) fi fi/ 49^2 21 if a(v60) and a(v675)then if &unifor('Av621.1#1'):'2' then f(rsum((if &uf('+97',v940^v)='v991' then if p(v940^w)then f(val(v940^x,' 0')-val(v940^z,' 0'),0,0),';'else f(val(v940^x|;|,|1;|n940^x,' 0'),0,0)fi fi/)),0,0) fi fi/ 49^3 21 if a(v60) and a(v675)then if &unifor('Av621.1#1'):'3' then f(rsum((if &uf('+97',v940^v)='v991' then if p(v940^w)then f(val(v940^x,' 0')-val(v940^z,' 0'),0,0),';'else f(val(v940^x|;|,|1;|n940^x,' 0'),0,0)fi fi/)),0,0) fi fi/ 49^4 21 if a(v60) and a(v675)then if'4 5':&unifor('Av621.1#1')then f(rsum((if &uf('+97',v940^v)='v991' then if p(v940^w)then f(val(v940^x,' 0')-val(v940^z,' 0'),0,0),';'else f(val(v940^x|;|,|1;|n940^x,' 0'),0,0)fi fi/)),0,0) fi fi/ 49^5 21 if a(v60) and a(v675) and p(v621)then if &unifor('Av621.2#1')='75' or &unifor('Av621.2#1')='85' then f(rsum((if &uf('+97',v940^v)='v991' then if p(v940^w)then f(val(v940^x,' 0')-val(v940^z,' 0'),0,0),';'else f(val(v940^x|;|,|1;|n940^x,' 0'),0,0)fi fi/)),0,0) fi fi/ 49^6 21 if a(v60) and a(v675) and p(v621)then if &unifor('Av621.2#1')='81' or &unifor('Av621.2#1')='83' then f(rsum((if &uf('+97',v940^v)='v991' then if p(v940^w)then f(val(v940^x,' 0')-val(v940^z,' 0'),0,0),';'else f(val(v940^x|;|,|1;|n940^x,' 0'),0,0)fi fi/)),0,0) fi fi/ 49^7 21 if a(v60) and a(v675) and p(v621)then if &unifor('Av621.2#1')='84' then f(rsum((if &uf('+97',v940^v)='v991' then if p(v940^w)then f(val(v940^x,' 0')-val(v940^z,' 0'),0,0),';'else f(val(v940^x|;|,|1;|n940^x,' 0'),0,0)fi fi/)),0,0) fi fi/ 49^8 21 if a(v60) and a(v675) and p(v621)then if &unifor('Av621.2#1')='65' or &unifor('Av621.2#1')='67' then f(rsum((if &uf('+97',v940^v)='v991' then if p(v940^w)then f(val(v940^x,' 0')-val(v940^z,' 0'),0,0),';'else f(val(v940^x|;|,|1;|n940^x,' 0'),0,0)fi fi/)),0,0) fi fi/ 49^X 21 if a(v60) and a(v675) and p(v621)then if '2 3 4 5':v621.1 or &unifor('Av621.2#1')='60' or &unifor('Av621.2#1')='63' or &unifor('Av621.2#1')='66' or &unifor('Av621.2#1')='75' or &unifor('Av621.2#1')='85' or &unifor('Av621.2#1')='81' or &unifor('Av621.2#1')='83' or &unifor('Av621.2#1')='84' or &unifor('Av621.2#1')='65' or &unifor('Av621.2#1')='67' then else f(rsum((if &uf('+97',v940^v)='v991' then if p(v940^w)then f(val(v940^x,' 0')-val(v940^z,' 0'),0,0),';'else f(val(v940^x|;|,|1;|n940^x,' 0'),0,0)fi fi/)),0,0) fi fi/ 18 2 /* Âûáûëî èç ôîíäà ÏÎËÍÎÑÒÜÞ (íåò ñâîá.ýêç-îâ) - ïî äàííîìó ÊÑÓ, , åñëè âñå ïåðåäàíî, òî âûáûòèå íå ñ÷èòàåòñÿ 18^1 21 if (v920:'NJ' or v920:'Spec' and p(v933))then else if p(v940) then if rsum((if p(v910)then if '2 6 7':v910^a then'0;'else'1;'fi fi))>0 then else if rsum((if p(v940)then if &uf('+97',v940^v)='v991' then if val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then |1|n940^z fi)>0 then '1;' else '0;'fi fi fi))>0 then '1' fi fi fi fi/ 18^2 21 if (v920:'NJ' or v920:'Spec' and p(v933))then else if s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'98'then else if '03 04 05 07 ':v900^b.2 and (a(v900^t) or 'a 1 2 3 b':v900^t or v900^t:'a1' or v900^t:'a2') then if p(v940) then if rsum((if p(v910)then if '2 6 7':v910^a then'0;'else'1;'fi fi))>0 then else if rsum((if p(v940)then if &uf('+97',v940^v)='v991' then if val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then |1|n940^z fi)>0 then '1;' else '0;'fi fi fi))>0 then '1' fi fi fi fi fi fi/ 18^3 21 if (v920:'NJ' or v920:'Spec' and p(v933))then else if s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'98'then else if '05 ':v900^b.2 and (a(v900^t) or 'a 1 2 3 b':v900^t or v900^t:'a1' or v900^t:'a2') then if p(v940) then if rsum((if p(v910)then if '2 6 7':v910^a then'0;'else'1;'fi fi))>0 then else if rsum((if p(v940)then if &uf('+97',v940^v)='v991' then if val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then |1|n940^z fi)>0 then '1;' else '0;'fi fi fi))>0 then '1' fi fi fi fi fi fi/ 18^4 21 if (v920:'NJ' or v920:'Spec' and p(v933))then else if s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'98'then if p(v940) then if rsum((if p(v910)then if '2 6 7':v910^a then'0;'else'1;'fi fi))>0 then else if rsum((if p(v940)then if &uf('+97',v940^v)='v991' then if val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then |1|n940^z fi)>0 then '1;' else '0;'fi fi fi))>0 then '1' fi fi fi fi fi/ 18^5 21 if (v920:'NJ' or v920:'Spec' and p(v933))then else if s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'98'then else if '03 ':v900^b.2 and (a(v900^t) or 'a 1 2 3 b':v900^t or v900^t:'a1' or v900^t:'a2') then if p(v940) then if rsum((if p(v910)then if '2 6 7':v910^a then'0;'else'1;'fi fi))>0 then else if rsum((if p(v940)then if &uf('+97',v940^v)='v991' then if val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then |1|n940^z fi)>0 then '1;' else '0;'fi fi fi))>0 then '1' fi fi fi fi fi fi/ 18^6 21 if (v920:'NJ' or v920:'Spec' and p(v933))then else if v102=&unifor('Korg.mnu|1') then if p(v940) then if rsum((if p(v910)then if '2 6 7':v910^a then'0;'else'1;'fi fi))>0 then else if rsum((if p(v940)then if &uf('+97',v940^v)='v991' then if val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then |1|n940^z fi)>0 then '1;' else '0;'fi fi fi))>0 then '1' fi fi fi fi fi/ 18^7 21 if (v920:'NJ' or v920:'Spec' and p(v933)) then else if v102<>&unifor('Korg.mnu|1') then if p(v940) then if rsum((if p(v910)then if '2 6 7':v910^a then'0;'else'1;'fi fi))>0 then else if rsum((if p(v940)then if &uf('+97',v940^v)='v991' then if val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then |1|n940^z fi)>0 then '1;' else '0;'fi fi fi))>0 then '1' fi fi fi fi fi/ 17 2 17^1 21 if v215^y<>''or (v920:'NJ' or v920:'Spec' and p(v933))then else if p(v940) then if rsum((if p(v910)then if '2 6 7':v910^a then'0;'else'1;'fi fi))>0 then else if rsum((if p(v940) then if &uf('+97',v940^v)='v991' then if val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then |1|n940^z fi)>0 then'1;'else'0;'fi fi fi))>0 then'1'fi fi fi fi/ 17^2 21 if v215^y<>'' then if p(v940) then if rsum((if p(v910)then if '2 6 7':v910^a then'0;'else'1;'fi fi))>0 then else if rsum((if p(v940) then if &uf('+97',v940^v)='v991' then if val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then |1|n940^z fi)>0 then'1;'else'0;'fi fi fi))>0 then'1'fi fi fi fi/ 17^B 21 if (v920:'NJ' or v920:'Spec' and p(v933))then if v215^y<>'' then if p(v940) then if rsum((if p(v910)then if '2 6 7':v910^a then'0;'else'1;'fi fi))>0 then else if rsum((if p(v940) then if &uf('+97',v940^v)='v991' then if val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then |1|n940^z fi)>0 then'1;'else'0;'fi fi fi))>0 then'1'fi fi fi fi fi/ 17^3 21 if (v920:'NJ' or v920:'Spec' and p(v933))then else if s(v900^c' 'v900^2' 'v900^3' 'v900^4' 'v900^5' 'v900^6):'j' then if p(v940) then if rsum((if p(v910)then if '2 6 7':v910^a then'0;'else'1;'fi fi))>0 then else if rsum((if p(v940) then if &uf('+97',v940^v)='v991' then if val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w) then |1|n940^z fi)>0 then'1;'else'0;'fi fi fi))>0 then'1'fi fi fi fi fi/ /* Âûáûëî ïîëíîñòüþ âñåãî (íåò ñâîá.ýêç-îâ) - ïî äàííîìó ÊÑÓ 17^A 21 if (v920:'NJ' or v920:'Spec' and p(v933))then else if p(v940) then if rsum((if p(v910)then if '2 6 7':v910^a then'0;'else'1;'fi fi))>0 then else if rsum((if p(v940) then if &uf('+97',v940^v)='v991' then if val(v940^x,|1|n940^x)>0 then'1;'else'0;'fi fi fi))>0 then'1'fi fi fi fi/ 17^D 21 if (v920:'NJ' or v920:'Spec' and p(v933))then else if rsum((if p(v940) then if &uf('+97',v940^v)='v991' then if val(v940^k)>0 then'1;'else'0;'fi fi fi))>0 then'1'fi fi/ 17^F 21 if (v920:'NJ' or v920:'Spec' and p(v933))then else if rsum((if p(v940) then if &uf('+97',v940^v)='v991' then if val(v940^z,if p(v940^w)then|1|n940^z fi)>0 then'1;'else'0;'fi fi fi))>0 then'1'fi fi/ 180 2 180^A 21 if (v920:'NJ' or v920:'Spec' and p(v933))then else if rsum((if p(v940) then if &uf('+97',v940^v)='v991' then if val(v940^x,|1|n940^x)>0 then'1;'else'0;'fi fi fi))>0 then'1'fi fi/ 180^B 21 (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x),0,0) fi fi/)/ 180^C 22 (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(f(val(if &unifor('DCMPL,"KS2=','v991','",v888^F')<>''then &unifor('DCMPL,"KS2=','v991','",v888^F') else v940^e,if a(v940^e) then &unifor('Av10^d#1')fi fi,' 0')*val(if p(v940^c)then if &unifor('Kizc.mnu|'v940^c.6)<>''then &unifor('Kizc.mnu|'v940^c.6) else if &unifor('Kizc.mnu|'v940^c.4)<>''then &unifor('Kizc.mnu|'v940^c.4) else if &unifor('Kizc.mnu|1980')<>''then &unifor('Kizc.mnu|1980') else '1'fi fi fi fi,' 1'),0,2))*val(f(val(v940^x,|1|n940^x),0,0),' 0'),0,2)fi fi/) 180^D 21 if (v920:'NJ' or v920:'Spec' and p(v933))then else if rsum((if p(v940) then if &uf('+97',v940^v)='v991' then if val(v940^k)>0 then'1;'else'0;'fi fi fi))>0 then'1'fi fi/ 180^E 21 (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^k),0,0) fi fi/)/ 180^F 21 if (v920:'NJ' or v920:'Spec' and p(v933))then else if rsum((if p(v940) then if &uf('+97',v940^v)='v991' then if val(v940^z,if p(v940^w)then|1|n940^z fi)>0 then'1;'else'0;'fi fi fi))>0 then'1'fi fi/ 180^G 21 (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^z,if p(v940^w)then|1|n940^z fi),0,0) fi fi/)/ 180^H 22 (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(f(val(if &unifor('DCMPL,"KS2=','v991','",v888^F')<>''then &unifor('DCMPL,"KS2=','v991','",v888^F') else v940^e,if a(v940^e) then &unifor('Av10^d#1')fi fi,' 0')*val(if p(v940^c)then if &unifor('Kizc.mnu|'v940^c.6)<>''then &unifor('Kizc.mnu|'v940^c.6) else if &unifor('Kizc.mnu|'v940^c.4)<>''then &unifor('Kizc.mnu|'v940^c.4) else if &unifor('Kizc.mnu|1980')<>''then &unifor('Kizc.mnu|1980') else '1'fi fi fi fi,' 1'),0,2))*val(f(val(v940^z,if p(v940^w)then|1|n940^z fi),0,0),' 0'),0,2)fi fi/) /* 180^I=145^G 180^I 21 if (v920:'NJ' or v920:'Spec' and p(v933))then else if rsum((if p(v940) then if &uf('+97',v940^v)='v991' then if val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w)then|1|n940^z fi)>0 then'1;'else'0;'fi fi fi))>0 then'1'fi fi/ 180^J 21 (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w)then|1|n940^z fi),0,0) fi fi/)/ 180^K 22 (if p(v940) then if &uf('+97',v940^v)='v991' then f(val(f(val(if &unifor('DCMPL,"KS2=','v991','",v888^F')<>''then &unifor('DCMPL,"KS2=','v991','",v888^F') else v940^e,if a(v940^e) then &unifor('Av10^d#1')fi fi,' 0')*val(if p(v940^c)then if &unifor('Kizc.mnu|'v940^c.6)<>''then &unifor('Kizc.mnu|'v940^c.6) else if &unifor('Kizc.mnu|'v940^c.4)<>''then &unifor('Kizc.mnu|'v940^c.4) else if &unifor('Kizc.mnu|1980')<>''then &unifor('Kizc.mnu|1980') else '1'fi fi fi fi,' 1'),0,2))*val(f(val(v940^x,|1|n940^x)-val(v940^z,if p(v940^w)then|1|n940^z fi),0,0),' 0'),0,2)fi fi/)