'
' ',/
' '/
' '/
/* v1001,'/',v1002,/,*/
' | '
' '
proc('a5000#',db,f(mfn,1,0),'#')/
' '/
' '/
' | '
' '/
' '
' ' v245^a,|: |v245^b,'',| / | v245^c," ("v260^c")" /
' '/
' '/
' '/
' '/
v260^a|: |,v260^b|, |,v260^c,
if p(v440) then
' ',v440^a,
fi,
" "d502,(v502^a," ("v502^b")",".-- "v502^c,", "v502^e,", "v502^h)/
if p(v773) or p(v300) then
' '
"En: "v773^t," "v773^g," "v300^a,|; |v300^b,|; |v300^c/
fi,
" "d500,(v500^a+| |)/
" Resumen: "d520,(v520^a+| |)/
" "v88^a/
" ISBN "v20^a/
" ISSN "v22^a" "/
' '/
''/
if p(v650) then
''/
fi,/
if p(v600) then
if p(v650) then '; ' fi,
(if p(v600) then ``,mhl,v600*2,mpl, '',if iocc'' then '; ' fi,
(||,v653^a+|; |,) if p(v653) then '' fi /
fi,/
if p(v700) then
if s(v650,v653,v600)<>'' then '; ' fi,
(||,v700^a+|; |,) if p(v700) then '' fi /
fi,/
if p(v710) then
if s(v650,v653,v700,v600)<>'' then '; ' fi,
(||,v710^a+|; |,) if p(v710) then '' fi /
fi,/
if p(v711) then
if s(v650,v653,v700,v710,v600)<>'' then '; ' fi,
(||,v711^a+|; |,) if p(v711) then '' fi /
fi,/
if p(v100) then
if s(v650,v653,v700,v710,v711,v600)<>'' then '; ' fi,
(||,v100^a+|; |,) if p(v100) then '' fi /
fi,/
if p(v110) then
if s(v650,v653,v700,v710,v711,v100,v600)<>'' then '; ' fi,
(||,v110^a+|; |,) if p(v110) then '' fi /
fi,/
if p(v111) then
if s(v650,v653,v700,v710,v711,v100,v110,v600)<>'' then '; ' fi,
(||,v111^a+|; |,) if p(v111) then '' fi /
fi,/
if p(v50) or p(v82) or p(v84)or p(v99) then ' Solicite el material por este código: ' fi,
proc('d5000','a5000~'mhl,v84,'~'), replace(replace(v5000,'; ','.'),', ','.')
proc('d5000','a5000~'mhl,v50,'~'), replace(replace(v5000,'; ','.'),', ','.')
proc('d5000','a5000~'mhl,v82,'~'), replace(replace(v5000,'; ','.'),', ','.')
if p(v99) then
' '/
fi,/
' '/
'
'/
' | '
' '
' '/
' '/
' | '
'
'/