&uf('9', 

v503^a". ",v461^x,
if s(v461^x)<>''
then 
   if v461^x:'.' then' ' else'. 'fi 
fi,
v461^c,(|. |v46^h,if p(v46^i) then|, |v46^i else |. |v46^i fi, |. |v46^k,
if p(v46^k) then|, |v46^m else |. |v46^m fi),| [|v461^2|]|,  
if p(v461) 
then 
   if a(v461^2) then
   if val(&uf('6KoElectro'))=1 
   then ' [Ýëåêòðîííûé ó÷åáíèê]' 
   else 
      if a(v461^2) 
      then " ["d900^t,&unifor("Koomr.mnu|"v900^t),"]"d900^t, 
         if a(v900^t) 
         then 
            if s(v230v337v135)<>''then ' [Ýëåêòð.ðåñóðñ]' fi 
         fi 
      fi,
      | : |v461^e, if p(v461^x) then else| / |v461^f fi, 
      ( if s(v46^a,v46^v)<>'' 
        then
        ". - ("| (|+v46^a,| ; |v46^v')'fi),". "d461,v200^v, 
        if p(v200^v) then" : "v200^a else v200^a fi, 
        if s(v200^v,v200^a)='' then (|. |+v925^v,if p(v925^v) then | : |v925^a else v925^a fi) 
        fi, 
   fi,,
   fi,,
fi,,
if a(v461) then v700^a," "v700^d,", "v700^g,if a(v700^g)then" "v700^b fi,"."d700^g," "d700^a,v200^a,,,
if val(&uf('6KoElectro'))=1 then ' [Ýëåêòðîííûé ó÷åáíèê]' else " [Ýëåêòð.ðåñóðñ]"d230, fi,,,,,,,,,,,,,,,
fi,| : |v200^e,|. |v923^h,| : |v923^i,|. |v923^k,| : |v923^l,


/*
/*'<br>!<br>',
/* ('=====', v700^a,| |,v700^b,| |,v200^a,| : |,v200^e,| / |,v200^f,|. - |v210^a,| : |,v210^c,|, |,v210^d,|. - |,v215^a,|. - |,v215^1,n' c.'/)
 (|. - |v210^a,| : |,v210^c,|, | /)
/* ,'<br>!',
/*



if v920='J'then'. - '&unifor('K110b.mnu|'v110^b)," âûõîäèò ñ "v210^d" ã."else", "v210^d fi,

if a(v210^d) then|, |v461^h fi, (". - "| ; |+v215^a,| |d215^1,if v215^1.2:'='then v215^1*2 else v215^1 fi, 

if p(v215^a) and a(v215^1) then &unifor('Korg.mnu|4')'.' fi), 



if v920:'NJ'then ref(l(|I=|v933),v200^a,,,
if val(&uf('6KoElectro'))=1 then ' [Ýëåêòðîííûé ó÷åáíèê]' else " [Ýëåêòð.ðåñóðñ]"d230, fi,,,,,,,,,,,,,,,
'. - '&unifor('K110b.mnu|'v110^b),
   |. |v923^h,|. |v923^i,|. |v923^k,|. |v923^l,|. |v923^m,|. |v923^n),", "v934"ã.",
   if p(v935) then ref(l("I="v933),if p(v210^8) then' 'v210^8' 'else' ò.'fi),v935 fi,
   if p(v936) then ref(l("I="v933),if p(v210^9) then' 'v210^9' 'else' N 'fi,),v936 fi," ("v931^c")","  (Ââåäåíî îãëàâëåíèå)"d922 fi,


if v920:'NJ'then else" (Ââåäåíî îãëàâëåíèå)"d330,
". - "v963^1,if a(v963^1)then" //"d463 fi,
(| ; |+v463^7,if a(v463^7) then| ; |+v463^c fi,| : |v963^e,| / |v963^f,|. - |v463^d,| : |v463^g,
if p(v463^c)then 
   if s(v463^d,v463^g)<>''then|, |v463^j else |. - |v463^j fi,|. - |v463^v else 
      ". - "|. ; |+v463^v fi,
   if p(v463^v)then| : |v463^a else|. |v463^a fi,
   if p(v463^v)then| |v463^h else". - "|. ; |+v463^h fi,
   if p(v463^h)then| : |v463^i else|. |v463^i fi,|, |v463^k,
   if p(v463^k)then| : |v463^l else|. |v463^l fi,|. - |v963^p,|. - Ñò.|v463^N,|. - |v463^1,
   if a(v463^1) and p(v463^s)then'. - ',mpu,&unifor('Korg.mnu|4'),'. ',mpl,fi, v463^s),,,
fi,
if p(v699) and v699^U='0' then ' (àíàëîã )  ' fi,,,,, 
&unifor('!'),&uf('['), 

,),

/* by ask äîáàâêà ïðÿìîé ññûëêè íà äîêóìåíò

/*     ' <a href="<--CGI_PATH-->?Z21ID=',&uf('+3E',v2225),'&P21DBN=',v3331,'&I21DBN=LIB','&EXP21FMT=fullwebr&C21COM=S&2_S21P02=0&2_S21P03=I=&2_S21STR=',v903,'">',
/*     ' <a href="<--CGI_PATH-->?P21DBN=LIB&I21DBN=LIB','&EXP21FMT=fullwebr&C21COM=S&2_S21P02=0&2_S21P03=I=&2_S21STR=',v903,'">',
     '", "url" : "<--CGI_PATH-->?P21DBN=LIB&I21DBN=LIB','&EXP21FMT=fullwebr&C21COM=S&2_S21P02=0&2_S21P03=I=&2_S21STR=',v903,'"',

/*     '(Cñûëêà â êàòàëîã)',
/*     '</a>' 


/* by ask êîíåö ïðÿìîé ññûëêè íà äîêóìåíò