&uf('+1W1135#',
v700^a," "v700^d,", "v700^g,
   if a(v700^g)then", "d700^b 
      if v700^b:'. ' then v700^b else 
         if v700^b:'.'then &unifor('G0.'v700^b),'.' if &unifor('G2.'v700^b)<>'' then ' ' &unifor('G2.'v700^b) fi,
         else v700^b 
   fi fi fi,
),   
   

         '<A HREF="',ssinternet_aut,&unifor('+3E',
         if &uf('IMAIN,GENERATION,')='32' then 
         &uf('+3U',         
                 &uf('+1R1135')         
         ) 
         else 
         
                 &uf('+1R1135')
         
         fi ),'">' '<b>',
         &uf('+1R1135')
'</b>','</a>',
   
   
       if s(v700^1,v700^c,v700^f)<>''then' (',v700^1, 
      if s(v700^1)<>''then" ; "d700^c fi,v700^c, 
      if s(v700^1,v700^c)<>''then" ; "d700^f fi,v700^f,'). ' 
   else"."d700^g," "d700^a 
   fi,
'<A HREF="',ssinternet_vka,&unifor('+3E',


if &uf('IMAIN,GENERATION,')='32' then 

&uf('+3U',&unifor("9"v710^a,if s(v710^nv710^c)<>''then' ('v710^n"; ",v710^c')'fi,". "v710^b,if s(v710^dv710^fv710^e)<>''then' ('v710^d"; ",v710^f,if p(v710^f)then"; "v710^e else v710^e fi,"/ "v710^h,"/ "v710^i')'fi,if p(v971)then". "d710fi,v971^b,if s(v971^dv971^fv971^e)<>''then' ('v971^d"; ",v971^f,if v971^f<>''then"; "v971^eelse v971^efi,"/ "v971^h,"/ "v971^i')'fi)),

else 
&unifor("9"v710^a,if s(v710^nv710^c)<>''then' ('v710^n"; ",v710^c')'fi,". "v710^b,if s(v710^dv710^fv710^e)<>''then' ('v710^d"; ",v710^f,if p(v710^f)then"; "v710^e else v710^e fi,"/ "v710^h,"/ "v710^i')'fi,if p(v971)then". "d710fi,v971^b,if s(v971^dv971^fv971^e)<>''then' ('v971^d"; ",v971^f,if v971^f<>''then"; "v971^eelse v971^efi,"/ "v971^h,"/ "v971^i')'fi),
fi,


),'">','<b>'v710^s".",v710^a,
   if s(v710^n,v710^c)<>''then' ('v710^n" ; ",v710^c,')'fi,". "v710^b,
   if s(v710^d,v710^f,v710^e)<>''then' ('v710^d" ; ",v710^f,
      if p(v710^f)then" ; "v710^e else v710^e fi," / "v710^h," / "v710^i')'
   fi,". "d710,v971^b,
   if s(v971^d,v971^f,v971^e)<>''then' ('v971^d" ; ",v971^f,
      if p(v971^f)then" ; "v971^e else v971^e fi," / "v971^h," / "v971^i')'
   fi,". "d971^b,'</b>','</a>', 
   (if v509^2:'1' then 
       if p(v509) then mhu,v509^g.1,mhl,v509^g*1,| |d509^g,| - |+v509^a, 
          if p(v509^b) and p(v509^x) then| (|v509^f|)|,|. |v509^b,| (|v509^x|)| 
          else |. |v509^b,| (|v509^f|)| 
          fi,|, |v509^h,|, |v509^I,|, |v509^J,| (|v509^c|)|," ("| - |+v509^e|)|  
    fi,|. |d509^l,mhu,v509^l.1,mhl,v509^l*1,|. |v509^n,if v509^2:'1' then '.'fi fi),'</b> ', 
   if s(v700v710,v981,v503)='' and &unifor('Av509^2#1')<>'1' then'<br>&nbsp;&nbsp;&nbsp; <b> '&unifor('E3'v200^a),'</b> ', 
      if &unifor('F3'v200^a)<>'' then' '&unifor('F3'v200^a) fi 
   else "<br>&nbsp;&nbsp;&nbsp; "v200^a 
   fi," ["v200^b"]", 


   if a(v200^b) then 
      if a(v900^t)and a(v110^t) then 
         if s(v230v337v135)<>''then ' [Ýëåêòðîííûé ðåñóðñ] ' else 
            if v920:'NJ'then ,ref(L("I="v933),if &uf("Koomr_web.mnu|"v110^t)<>''then'['&uf("Koomr_web.mnu|"v110^t)']'fi),else if s(&unifor('IPrivate,FPS,'),v905^s)<>'' then else ' [Òåêñò]'  fi fi fi, 
      else 
         if s(v230v337v135)<>''then ' [' 
          if (v900^t='a'or v110^t='a')and  s(&unifor('IPrivate,FPS,'),v905^s)<>'' then else 
           if s(&uf("Koomr_web.mnu|"v900^t),&uf("Koomr_web.mnu|"v110^t))<>''then  if (v900^t='l'or v110^t='l')then else &uf("Koomr_web.mnu|"v900^t),&uf("Koomr_web.mnu|"v110^t),' : ' fi,fi,fi,'Ýëåêòðîííûé ðåñóðñ] ' else if (v900^t='a'or v110^t='a')and  s(&unifor('IPrivate,FPS,'),v905^s)<>'' then else 
           if s(&uf("Koomr_web.mnu|"v900^t),&uf("Koomr_web.mnu|"v110^t))<>''then  ' ['&uf("Koomr_web.mnu|"v900^t),&uf("Koomr_web.mnu|"v110^t)'] ',fi,fi,fi    
   fi,fi